double lang, index, done, offset_value, marker_count;
  double Flow[2];
  double x[140],y[140];
  double metric;
  object Obj[23];
  double HideObj[23];
  selection current_selection;
  point current_point;
  object current_object;
  object Mrk[23];
  double temp;
  double do_counter, do_max, do_logic;
  double Var[64];
  double Table[22];


initDefs()
  {
  ;
  }

initCode()
  {
  ;
  }

main()
  {
  double read;
  initDefs();
  initCode();
  init_xarc_array();
  lang = get_language();
  metric  = unit_mode();
  if ( (lang != 0) && ( (lang != 1) && ( (lang != 2) && ( (lang != 3) && ( (lang != 4) && ( (lang != 5) && ( (lang != 6))))))))
    {
    lang=0;
    }
  //Insert Registration here
  metric = unit_mode();
  Flow[0] = 0;
  while (!done)
    {
    if (index == 0)
      {
      Popup0();
      }
    }

  if (measure_table("GINANI FEMALE")==1)
    {
    read = 1;
    }
  else
    {
    read = 0;
    }

  if (read==0)
    {
    ;
    Var[0] = CheckToMetric(36);
    Var[1] = CheckToMetric(7.5);
    Var[2] = CheckToMetric(3.125);
    Var[3] = CheckToMetric(10.625);
    Var[4] = CheckToMetric(17);
    Var[5] = CheckToMetric(14);
    Var[6] = CheckToMetric(14.5);
    Var[7] = CheckToMetric(15.5);
    Var[8] = CheckToMetric(14.875);
    Var[9] = CheckToMetric(15.875);
    Var[13] = CheckToMetric(24);
    Var[18] = CheckToMetric(28);
    Var[19] = CheckToMetric(40);
  if (lang == 0)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 1)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 2)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 3)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 4)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 5)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 6)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust", Var[0], "chest");
      add_picture_input("Bust Span", Var[1], "xchest");
      add_picture_input("Bust Radius", Var[2], "Bust radius");
      add_picture_input("Bust Point", Var[3], "Bustpoint");
      add_picture_input("Full Front Length", Var[4], "fullfrontlength");
      add_picture_input("Across Chest", Var[5], "acrosschest");
      add_picture_input("Across Back", Var[6], "xback");
      add_picture_input("Nape to Waist", Var[7], "Back length");
      add_picture_input("Front Shoulder", Var[8], "FrontShoulder");
      add_picture_input("Back Shoulder", Var[9], "Backshoulder");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
    Var[0]= CheckFromMetric(Var[0]);
    Var[1]= CheckFromMetric(Var[1]);
    Var[2]= CheckFromMetric(Var[2]);
    Var[3]= CheckFromMetric(Var[3]);
    Var[4]= CheckFromMetric(Var[4]);
    Var[5]= CheckFromMetric(Var[5]);
    Var[6]= CheckFromMetric(Var[6]);
    Var[7]= CheckFromMetric(Var[7]);
    Var[8]= CheckFromMetric(Var[8]);
    Var[9]= CheckFromMetric(Var[9]);
    Var[13]= CheckFromMetric(Var[13]);
    Var[18]= CheckFromMetric(Var[18]);
    Var[19]= CheckFromMetric(Var[19]);
    }
  else
    {
    ;
    if (metric==1)
      {
       Var[0] = Table[0]/2.54;
       Var[1] = Table[1]/2.54;
       Var[2] = Table[2]/2.54;
       Var[3] = Table[3]/2.54;
       Var[4] = Table[4]/2.54;
       Var[5] = Table[5]/2.54;
       Var[6] = Table[6]/2.54;
       Var[7] = Table[7]/2.54;
       Var[8] = Table[8]/2.54;
       Var[9] = Table[9]/2.54;
       Var[10] = Table[10]/2.54;
       Var[11] = Table[11]/2.54;
       Var[12] = Table[12]/2.54;
       Var[13] = Table[13]/2.54;
       Var[14] = Table[14]/2.54;
       Var[15] = Table[15]/2.54;
       Var[16] = Table[16]/2.54;
       Var[17] = Table[17]/2.54;
       Var[18] = Table[18]/2.54;
       Var[19] = Table[19]/2.54;
       Var[61] = Table[20]/2.54;
       Var[62] = Table[21]/2.54;
      }
     else
      {
      Var[0] = Table[0];
      Var[1] = Table[1];
      Var[2] = Table[2];
      Var[3] = Table[3];
      Var[4] = Table[4];
      Var[5] = Table[5];
      Var[6] = Table[6];
      Var[7] = Table[7];
      Var[8] = Table[8];
      Var[9] = Table[9];
      Var[10] = Table[10];
      Var[11] = Table[11];
      Var[12] = Table[12];
      Var[13] = Table[13];
      Var[14] = Table[14];
      Var[15] = Table[15];
      Var[16] = Table[16];
      Var[17] = Table[17];
      Var[18] = Table[18];
      Var[19] = Table[19];
      Var[61] = Table[20];
      Var[62] = Table[21];
      }
    }

    Var[20] = CheckToMetric(1);
    Var[21] = CheckToMetric(1);
    Var[22] = CheckToMetric(1);
    Var[52] = CheckToMetric(0.5);
  if (lang == 0)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 1)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 2)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 3)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 4)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 5)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
  if (lang == 6)
    {
      start_picture_input("Bustier");
      add_picture_input("Bust ease", Var[20], "");
      add_picture_input("Waist ease", Var[21], "");
      add_picture_input("Hip ease", Var[22], "");
      add_picture_input("Seam Allowance", Var[52], "");
      run_picture_input();
    }
    Var[20]= CheckFromMetric(Var[20]);
    Var[21]= CheckFromMetric(Var[21]);
    Var[22]= CheckFromMetric(Var[22]);
    Var[52]= CheckFromMetric(Var[52]);
  if (Flow[0] == 0)
    {
    Flow0View0();
    }
    if (Flow[1] == 0)
    {
    Flow1View0();
    }
    if (Flow[1] == 1)
    {
    Flow1View1();
    }
    if (Flow[1] == 2)
    {
    Flow1View2();
    }
    if (Flow[0] == 0)
    {
    Flow0View0Objects();
    }
    if (Flow[1] == 0)
    {
    Flow1View0Objects();
    }
    if (Flow[1] == 1)
    {
    Flow1View1Objects();
    }
    if (Flow[1] == 2)
    {
    Flow1View2Objects();
    }
  
  current_object=0;

  current_selection=newselection("OBJECT");
  if (Obj[22] != 0)  { current_object = Obj[22]; select(current_selection, current_object); } 
  if (Obj[11] != 0)  { current_object = Obj[11]; select(current_selection, current_object); } 
  if (Obj[10] != 0)  { current_object = Obj[10]; select(current_selection, current_object); } 
  if (Obj[9] != 0)  { current_object = Obj[9]; select(current_selection, current_object); } 
  if (Obj[8] != 0)  { current_object = Obj[8]; select(current_selection, current_object); } 
  if (Obj[1] != 0)  { current_object = Obj[1]; select(current_selection, current_object); } 
  group(current_selection);
  deselect(current_selection);
  if (current_object != 0)
    {
    if (lang == 0) { name_group(current_object,"GrCback"); }
    if (lang == 1) { name_group(current_object,"GrCback"); }
    if (lang == 2) { name_group(current_object,"GrCback"); }
    if (lang == 3) { name_group(current_object,"GrCback"); }
    if (lang == 4) { name_group(current_object,"GrCback"); }
    if (lang == 5) { name_group(current_object,"GrCback"); }
    if (lang == 6) { name_group(current_object,"GrCback"); }
    }

  current_object=0;

  current_selection=newselection("OBJECT");
  if (Obj[21] != 0)  { current_object = Obj[21]; select(current_selection, current_object); } 
  if (Obj[20] != 0)  { current_object = Obj[20]; select(current_selection, current_object); } 
  if (Obj[19] != 0)  { current_object = Obj[19]; select(current_selection, current_object); } 
  if (Obj[18] != 0)  { current_object = Obj[18]; select(current_selection, current_object); } 
  if (Obj[3] != 0)  { current_object = Obj[3]; select(current_selection, current_object); } 
  if (Obj[0] != 0)  { current_object = Obj[0]; select(current_selection, current_object); } 
  group(current_selection);
  deselect(current_selection);
  if (current_object != 0)
    {
    if (lang == 0) { name_group(current_object,"GrFront"); }
    if (lang == 1) { name_group(current_object,"GrFront"); }
    if (lang == 2) { name_group(current_object,"GrFront"); }
    if (lang == 3) { name_group(current_object,"GrFront"); }
    if (lang == 4) { name_group(current_object,"GrFront"); }
    if (lang == 5) { name_group(current_object,"GrFront"); }
    if (lang == 6) { name_group(current_object,"GrFront"); }
    }

  current_object=0;

  current_selection=newselection("OBJECT");
  if (Obj[17] != 0)  { current_object = Obj[17]; select(current_selection, current_object); } 
  if (Obj[16] != 0)  { current_object = Obj[16]; select(current_selection, current_object); } 
  if (Obj[15] != 0)  { current_object = Obj[15]; select(current_selection, current_object); } 
  if (Obj[6] != 0)  { current_object = Obj[6]; select(current_selection, current_object); } 
  if (Obj[4] != 0)  { current_object = Obj[4]; select(current_selection, current_object); } 
  group(current_selection);
  deselect(current_selection);
  if (current_object != 0)
    {
    if (lang == 0) { name_group(current_object,"grSF"); }
    if (lang == 1) { name_group(current_object,"grSF"); }
    if (lang == 2) { name_group(current_object,"grSF"); }
    if (lang == 3) { name_group(current_object,"grSF"); }
    if (lang == 4) { name_group(current_object,"grSF"); }
    if (lang == 5) { name_group(current_object,"grSF"); }
    if (lang == 6) { name_group(current_object,"grSF"); }
    }

  current_object=0;

  current_selection=newselection("OBJECT");
  if (Obj[14] != 0)  { current_object = Obj[14]; select(current_selection, current_object); } 
  if (Obj[13] != 0)  { current_object = Obj[13]; select(current_selection, current_object); } 
  if (Obj[12] != 0)  { current_object = Obj[12]; select(current_selection, current_object); } 
  if (Obj[7] != 0)  { current_object = Obj[7]; select(current_selection, current_object); } 
  if (Obj[5] != 0)  { current_object = Obj[5]; select(current_selection, current_object); } 
  if (Obj[2] != 0)  { current_object = Obj[2]; select(current_selection, current_object); } 
  group(current_selection);
  deselect(current_selection);
  if (current_object != 0)
    {
    if (lang == 0) { name_group(current_object,"GrSideback"); }
    if (lang == 1) { name_group(current_object,"GrSideback"); }
    if (lang == 2) { name_group(current_object,"GrSideback"); }
    if (lang == 3) { name_group(current_object,"GrSideback"); }
    if (lang == 4) { name_group(current_object,"GrSideback"); }
    if (lang == 5) { name_group(current_object,"GrSideback"); }
    if (lang == 6) { name_group(current_object,"GrSideback"); }
    }

  current_selection=newselection("OBJECT");
  for (temp=0; temp < 23; temp=temp+1)
    {
    if (Mrk[temp] != 0)
      {
       select(current_selection, Mrk[temp]);
      }
    }
  check_overlap(current_selection);
  deselect(current_selection);

  run_command("ZOOMALL");
  }

Popup0()
{
  if (lang == 0)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 1)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 2)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 3)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 4)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 5)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
  if (lang == 6)
    {
    start_pict_dialog("Front");
    add_pict_item("Straight Neckline","bustier-front-side-vies2.jpg");
    add_pict_item("Sweetheart Neckline","sweetheart-1f.jpg");
    run_pict("Next");
    Flow[1] = get_pict_result();
    Forward();
    }
}

Forward()
  {
  if (index == 0)
    {
    if (Flow[1] == 1)
      {
      Flow[1]=2;
      done = 1;
      }
    if (Flow[1] == 0)
      {
      Flow[1]=1;
      done = 1;
      }
    }
  }

Backward()
  {
  }

Flow0View0()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow0View0");
    }
  //Bust
  //Measurements neck width
  Var[27]=  
 Var[0]/8 +   
1;
  //Measurements front bust arc
  Var[33]=Var[20]/4 +   
 Var[0]/4 +   
0;
  //Bust Span
  //Bust Radius
  //Bust Point
  //Full Front Length
  //Measurements Bust dart
  Var[25]=Var[7]/-1 +   
 Var[4]/1 +   
0;
  //Across Chest
  //Across Back
  //Nape to Waist
  //Measurements Bust dart
  Var[25]=Var[7]/-1 +   
 Var[4]/1 +   
0;
  //Front Shoulder
  //Back Shoulder
  //Bicep
  //Knee Circ
  //Full Sleeve length
  //Side waist to knee
  //Measurements Waist to hip
  Var[31]=  
 Var[13]/3 +   
0;
  //Side waist to floor
  //Center front waist to floor
  //Center Back to floor
  //Bodyrise
  //Waist
  //Hip
  //Bust ease
  //Measurements front bust arc
  Var[33]=Var[20]/4 +   
 Var[0]/4 +   
0;
  //Waist ease
  //Hip ease
  //Short sleeve length
  //Dress length from waist
  //Bust dart
  //Measurements Bust dart
  Var[25]=Var[7]/-1 +   
 Var[4]/1 +   
0;
  //neck width
  //Measurements neck width
  Var[27]=  
 Var[0]/8 +   
1;
  //Waist to hip
  //Measurements Waist to hip
  Var[31]=  
 Var[13]/3 +   
0;
  //front bust arc
  //Measurements front bust arc
  Var[33]=Var[20]/4 +   
 Var[0]/4 +   
0;
  //Back shoulder dart
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //back arm hole total
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //total armhole
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //Seam Allowance
  //radius
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //frontpeplum
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //Lower abdomen
  //Under Bust
  Flow0View0Points();
  }

Flow0View0Points()
{
  //Start
  x[0]=0;
y[0]=0;

  }

Flow0View0Objects()
{
  }

Flow1View0()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View0");
    }
  Flow1View0Points();
  }

Flow1View0Points()
{
  //Start
  x[0]=0;
y[0]=0;

  //1
  x[1]=x[0];
y[1]=y[0];
  //1a
  x[2]=x[1]+Var[19]/4+3;
y[2]=y[1];
  //1b
  x[3]=x[2];
y[3]=y[2]+Var[4]/-1;
  //1c
  x[4]=x[3];
y[4]=y[3]+Var[13]/-3;
  //1d
  x[5]=x[4]+Var[19]/-4;
y[5]=y[4];
  //1e
  x[6]=x[3]+Var[18]/-4+-0.5;
y[6]=y[3];
  //1f
  x[7]=x[3];
y[7]=y[3]+Var[7]/2;
  //1g
  x[8]=x[7];
y[8]=y[7];
  //1h
  x[9]=x[8]+Var[33]/-1+-0.5;
y[9]=y[8];
  //1i
  x[10]=x[9];
y[10]=y[9]+Var[25];
  //1k
  x[11] = x[2];
y[11] = y[10];

  //Measurements armheight
  Var[26]=distance(x[11], y[11], x[2], y[2]);
  //1l
  x[12]=x[11];
y[12]=y[11]+Var[26]/4;
  //1n
  x[13]=x[2]+Var[27]/-2;
y[13]=y[2];
  //1o
  x[14]=x[2];
y[14]=y[2]+Var[27]/-2+-0.5;
  //1p
  x[15] = x[13];
y[15] = y[14];

  //Measurements Front neckline
  Var[47]=arclength(13, 15, 14);
  //1q
  x[16]=x[2]+Var[8]/-2;
y[16]=y[2];
  //1r
  x[17]=x[16];
y[17]=y[16]+-1.5;
  //Measurements Front shoulder line
  Var[35]=distance(x[17], y[17], x[13], y[13]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //1s
  x[18]=x[12]+Var[5]/-2;
y[18]=y[12];
  //1t
  x[19]= (x[18]+x[17])/2;
y[19]=(y[18]+y[17])/2;

  //1u
  x[20]=x[19]+0.375;
y[20]=y[19];
  //1v
  x[21]= (x[20]+x[18])/2;
y[21]=(y[20]+y[18])/2;

  //1w
  x[22]= (x[17]+x[20])/2;
y[22]=(y[17]+y[20])/2;

  //1x
  x[23] = x[20];
y[23] = y[22];

  //Measurements Front armhole a
  Var[40]=arclength(17, 23, 20);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1y
  x[24] = x[20];
y[24] = y[21];

  //Measurements Front armhole b
  Var[41]=arclength(20, 24, 18);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1z
  x[25] = x[24];
y[25] = y[10];

  //2
  x[26]= (x[25]+x[10])/2;
y[26]=(y[25]+y[10])/2;

  //2a
  x[27]= (x[26]+x[25])/2;
y[27]=(y[26]+y[25])/2;

  //2d
  x[28]=x[27];
y[28]=y[27]+Var[26]/-4;
  //Measurements front armhole c
  Var[42]=arclength(18, 28, 10);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //2e
  x[29]=x[6]+Var[21]/-4;
y[29]=y[6];
  //2f
  x[30]=x[5]+Var[22]/-4;
y[30]=y[5];
  //2g
  x[31]=x[2]+Var[1]/-2;
y[31]=y[2]+Var[3]/-1;
  //2h
  cont(30, 10, 32, +-2);

  //2i
    intersect(x[32],y[32],x[30],y[30],x[29],y[29],x[3],y[3], 0);
  x[33]=getresultx();
  y[33]=getresulty();

  //Measurements Front wr
  Var[28]=distance(x[33], y[33], x[29], y[29]);
  //2j
  x[34]=x[33]+Var[28]/3;
y[34]=y[33];
  //2k
  cont(34, 32, 35, Var[25]/-1+0);

  //Measurements Rotate Points Angle
  Var[29]=normalizeangle(angle(x[31], y[31], x[35], y[35]) - angle(x[31], y[31], x[32], y[32]))*180/3.14159;
  //2l
  x[36]= (x[30]+x[33])/2;
y[36]=(y[30]+y[33])/2;

  //2m
  x[37] = x[31];
y[37] = y[4];

  //2n
  x[38] = x[31];
y[38] = y[3];

  //2o
  x[39]=x[38]+Var[28]/-3;
y[39]=y[38];
  //Measurements 2j2o
  Var[55]=distance(x[34], y[34], x[39], y[39]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2p
  x[40]=x[38]+Var[28]/3;
y[40]=y[38];
  //Measurements 2p1b
  Var[54]=distance(x[40], y[40], x[3], y[3]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2q
  x[41]=x[31];
y[41]=y[31]+Var[2]/-1;
  //2r
  x[42] = x[8];
y[42] = y[31];

  //2s
  x[43] = x[42];
y[43] = y[41];

  //Measurements Underbust level from waist
  Var[34]=distance(x[3], y[3], x[43], y[43]);
  //2t
    intersect(x[31],y[31],x[40],y[40],x[41],y[41],x[43],y[43], 0);
  x[44]=getresultx();
  y[44]=getresulty();

  //2u
    intersect(x[39],y[39],x[31],y[31],x[41],y[41],x[43],y[43], 0);
  x[45]=getresultx();
  y[45]=getresulty();

  //2v
  x[46]=x[44]+0.5;
y[46]=y[44];
  //2w
  x[47]=x[45]+-0.5;
y[47]=y[45];
  //2x
  x[48]=x[31];
y[48]=y[31]+-0.75;
  //2y
  x[49]=x[31];
y[49]=y[31]+0.75;
  //2h(2)
    Rotate(50, 31, 32, Var[29]+0);
  //2g(2)
    Rotate(51, 31, 31, Var[29]+0);
  //1i(2)
    Rotate(52, 31, 10, Var[29]+0);
  //Measurements Rotate Points Angle(2)
  Var[30]=normalizeangle(angle(x[51], y[51], x[10], y[10]) - angle(x[51], y[51], x[52], y[52]))*180/3.14159;
  //3a
    intersect(x[52],y[52],x[34],y[34],x[31],y[31],x[50],y[50], 0);
  x[53]=getresultx();
  y[53]=getresulty();

  //3a(2)
    Rotate(54, 51, 53, Var[30]+0);
  //2g(3)
    Rotate(55, 51, 51, Var[30]+0);
  //3b
  x[56]=x[37];
y[56]=y[37]+Var[31]/4;
  //3c
  x[57]=x[1]+Var[19]/-4;
y[57]=y[1]+Var[25]/-1;
  //3d
  x[58]=x[57];
y[58]=y[57]+Var[7]/-1;
  //3e
  x[59]=x[58];
y[59]=y[58]+Var[31]/-1;
  //3f
  x[60]=x[59]+Var[19]/4;
y[60]=y[59];
  //3g
  x[61]=x[58]+Var[18]/4+-0.5;
y[61]=y[58];
  //3h
  x[62]= (x[57]+x[58])/2;
y[62]=(y[57]+y[58])/2;

  //3i
  x[63]=x[62];
y[63]=y[62];
  //3j
  x[64]=x[63]+Var[0]/4+-0.5;
y[64]=y[63];
  //3k
  x[65]=x[57]+Var[27]/2;
y[65]=y[57];
  //3l
  x[66]=x[65];
y[66]=y[65]+0.75;
  //Measurements Back neckline
  Var[48]=arclength(57, 65, 66);
  //3m
  x[67]=x[57]+Var[9]/2;
y[67]=y[57];
  //3n
  x[68]=x[67];
y[68]=y[67]+-1.25;
  //Measurements Back shoulder line
  Var[36]=distance(x[66], y[66], x[68], y[68]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //3o
  x[69]= (x[57]+x[63])/2;
y[69]=(y[57]+y[63])/2;

  //3p
  x[70]=x[69]+Var[6]/2;
y[70]=y[69];
  //3q
  x[71] = x[70];
y[71] = y[64];

  //3r
  x[72]= (x[68]+x[70])/2;
y[72]=(y[68]+y[70])/2;

  //3s
  x[73] = x[70];
y[73] = y[72];

  //Measurements Back armhole a
  Var[43]=arclength(68, 73, 70);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3t
  x[74]=x[64]+Var[20]/4;
y[74]=y[64];
  //Measurements Back armhole b
  Var[44]=arclength(70, 71, 74);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3u
  x[75]=x[61]+Var[21]/4;
y[75]=y[61];
  //3v
  x[76]=x[60]+Var[22]/4;
y[76]=y[60];
  //3w
    intersect(x[76],y[76],x[74],y[74],x[58],y[58],x[75],y[75], 0);
  x[77]=getresultx();
  y[77]=getresulty();

  //Measurements Back Waist reduction
  Var[32]=distance(x[77], y[77], x[75], y[75]);
  //3x
  x[78]= (x[77]+x[76])/2;
y[78]=(y[77]+y[76])/2;

  //3y
  x[79]=x[77]+Var[32]/-3;
y[79]=y[77];
  //33z
  x[80]= (x[69]+x[70])/2;
y[80]=(y[69]+y[70])/2;

  //4
  x[81] = x[80];
y[81] = y[70];

  //4a
  x[82] = x[81];
y[82] = y[58];

  //4b
  x[83] = x[82];
y[83] = y[59];

  //4c
  x[84]=x[82]+Var[32]/-3;
y[84]=y[82];
  //Measurements 3d4c
  Var[57]=distance(x[58], y[58], x[84], y[84]);
  //4d
  x[85]=x[82]+Var[32]/3;
y[85]=y[82];
  //Measurements 4d3y
  Var[56]=distance(x[85], y[85], x[79], y[79]);
  //4e
  cont(74, 79, 86, Var[34]/-1+0);

  //4f
  cont(53, 34, 87, Var[34]/-1+0);

  //4g
  cont(86, 74, 88, Var[26]/-4+0);

  //4h
  x[89]= (x[66]+x[68])/2;
y[89]=(y[66]+y[68])/2;

  //4i
  right_ang(90, 89, 66,  + -3, 0);

  //4j
  right_ang(91, 70, 68,  + -4, 0);

  //4k
    intersect(x[89],y[89],x[90],y[90],x[70],y[70],x[91],y[91], 0);
  x[92]=getresultx();
  y[92]=getresulty();

  //4l
  cont(66, 89, 93, Var[37]/-2+0);

  //4m
  cont(68, 89, 94, Var[37]/-2+0);

  //Measurements Rotate Points Angle(3)
  Var[38]=normalizeangle(angle(x[92], y[92], x[93], y[93]) - angle(x[92], y[92], x[94], y[94]))*180/3.14159;
  //3p(2)
    Rotate(95, 92, 70, Var[38]+0);
  //Measurements Rotate Points Angle(4)
  Var[39]=normalizeangle(angle(x[92], y[92], x[70], y[70]) - angle(x[92], y[92], x[95], y[95]))*180/3.14159;
  //4o
  x[96]= (x[17]+x[13])/2;
y[96]=(y[17]+y[13])/2;

  //4p
  cont(96, 31, 97, Var[2]/-1+0);

  //4r
  x[98] = x[63];
y[98] = y[86];

  //4q
  cont(31, 53, 99, +7);

  //4S
  cont(31, 54, 100, +7);

  //MoveStart(4)
  x[101]=x[0]+6.28754125412541;
y[101]=y[0]+-8.73349834983498;
  //MoveEnd(4)
  x[102]=x[0]+5.60684818481848;
y[102]=y[0]+-9.95874587458746;
  //1z(2)
  x[103] = x[25] + x[102] - x[101] ;
y[103] = y[25] + y[102] - y[101] ;

  //MoveStart(6)
  x[104]=x[0]+5.69760726072607;
y[104]=y[0]+-9.5503300330033;
  //MoveEnd(6)
  x[105]=x[0]+5.4707095709571;
y[105]=y[0]+-9.27805280528053;
  //1z(3)
  x[106] = x[103] + x[105] - x[104] ;
y[106] = y[103] + y[105] - y[104] ;

  //4u
  x[107]= (x[63]+x[98])/2;
y[107]=(y[63]+y[98])/2;

  //4v
  x[108]= (x[107]+x[74])/2;
y[108]=(y[107]+y[74])/2;

  //4w
  x[109] = x[108];
y[109] = y[107];

  //4x
  cont(96, 31, 110, Var[2]/-1+-1);

  //Measurements Rotate Points Angle(5)
  Var[50]=normalizeangle(angle(x[55], y[55], x[110], y[110]) - angle(x[55], y[55], x[100], y[100]))*180/3.14159;
  //4y
  x[111] = x[42];
y[111] = y[110];

  //4z
  x[112]= (x[10]+x[110])/2;
y[112]=(y[10]+y[110])/2;

  //5
    LineArcIntersect(107,109,74,84,81 , 113 );

  //6
    LineArcIntersect(107,109,74,81,85 , 114 );

  //CP
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[107], y[107], x[113], y[113]);
x[115]=getresultx();
y[115]=getresulty();

  //CP(3)
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[114], y[114], x[74], y[74]);
x[116]=getresultx();
y[116]=getresulty();

  //7
  ArcArcIntersect(18,106,10,10,112,110,117);

  //CP(5)
  place_corner(x[10], y[10], x[112], y[112], x[110], y[110], x[110], y[110], x[117], y[117]);
x[118]=getresultx();
y[118]=getresulty();

  //2g(4)
    Rotate(119, 55, 31, Var[50]+0);
  //Measurements Rotate Points Angle(6)
  Var[51]=normalizeangle(angle(x[119], y[119], x[53], y[53]) - angle(x[119], y[119], x[54], y[54]))*180/3.14159;
  //4q(2)
    Rotate(120, 55, 99, Var[50]+0);
  //8
    LineArcIntersect(117,118,110,119,120 , 121 );

  //7(2)
    Rotate(122, 119, 117, Var[51]+0);
  //8(2)
    Rotate(123, 119, 121, Var[51]+0);
  //2y(2)
    Rotate(124, 119, 49, Var[51]+0);
  //2g(5)
    Rotate(125, 119, 119, Var[51]+0);
  //Measurements Rotate Points Angle(7)
  Var[53]=normalizeangle(angle(x[125], y[125], x[110], y[110]) - angle(x[125], y[125], x[123], y[123]))*180/3.14159;
  //3a(3)
    Rotate(126, 119, 54, Var[51]+0);
  //5a
  x[127] = x[114];
y[127] = y[113];

  //5b
  x[128]= (x[127]+x[85])/2;
y[128]=(y[127]+y[85])/2;

  //5c
  x[129]= (x[113]+x[84])/2;
y[129]=(y[113]+y[84])/2;

  //5d
  x[130]= (x[84]+x[83])/2;
y[130]=(y[84]+y[83])/2;

  //5e
  x[131]= (x[85]+x[83])/2;
y[131]=(y[85]+y[83])/2;

  //5i
  x[132] = x[29];
y[132] = y[56];

  //5j
  x[133] = x[75];
y[133] = y[56];

  //6ra
  x[134]= (x[31]+x[121])/2;
y[134]=(y[31]+y[121])/2;

  //2x2
  x[135]= (x[31]+x[41])/2;
y[135]=(y[31]+y[41])/2;

  //5k
  x[136]= (x[111]+x[42])/2;
y[136]=(y[111]+y[42])/2;

  //5l
  x[137]= (x[110]+x[111])/2;
y[137]=(y[110]+y[111])/2;

  //5m
  x[138]= (x[110]+x[137])/2;
y[138]=(y[110]+y[137])/2;

  //5n
  x[139]= (x[137]+x[111])/2;
y[139]=(y[137]+y[111])/2;

  }

Flow1View0Objects()
{

  //Object Front
  if (HideObj[0] == 0)
    {

  Obj[0] = newobject("poly");
  current_point=addpoint(x[4],y[4],"LINE");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[40],y[40],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[46],y[46],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[119],y[119],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[110],y[110],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[111],y[111],"LINE");
  current_point=addpoint(x[8],y[8],"LINE");
  current_point=addpoint(x[3],y[3],"LINE");
    if (lang == 0) { name_object(Obj[0],"Front"); }
    if (lang == 1) { name_object(Obj[0],"Front"); }
    if (lang == 2) { name_object(Obj[0],"Front"); }
    if (lang == 3) { name_object(Obj[0],"Front"); }
    if (lang == 4) { name_object(Obj[0],"Front"); }
    if (lang == 5) { name_object(Obj[0],"Front"); }
    if (lang == 6) { name_object(Obj[0],"Front"); }
    }

  //Object Center Back
  if (HideObj[1] == 0)
    {

  Obj[1] = newobject("poly");
  current_point=addpoint(x[113],y[113],"LINE");
  notch_type(current_point,"NONE",0);
  current_point=addpoint(x[129],y[129],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[84],y[84],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[130],y[130],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[59],y[59],"LINE");
  current_point=addpoint(x[58],y[58],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[107],y[107],"XARC_START");
  current_point=addpoint(x[115],y[115],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[1],"Center Back"); }
    if (lang == 1) { name_object(Obj[1],"Center Back"); }
    if (lang == 2) { name_object(Obj[1],"Center Back"); }
    if (lang == 3) { name_object(Obj[1],"Center Back"); }
    if (lang == 4) { name_object(Obj[1],"Center Back"); }
    if (lang == 5) { name_object(Obj[1],"Center Back"); }
    if (lang == 6) { name_object(Obj[1],"Center Back"); }
    }

  //Object Side Back
  if (HideObj[2] == 0)
    {

  Obj[2] = newobject("poly");
  current_point=addpoint(x[76],y[76],"LINE");
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[131],y[131],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[85],y[85],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[128],y[128],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[127],y[127],"XARC_START");
  current_point=addpoint(x[116],y[116],"XARC_CORNER");
  current_point=addpoint(x[74],y[74],"LINE");
  current_point=addpoint(x[88],y[88],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[86],y[86],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[79],y[79],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[78],y[78],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[2],"Side Back"); }
    if (lang == 1) { name_object(Obj[2],"Side Back"); }
    if (lang == 2) { name_object(Obj[2],"Side Back"); }
    if (lang == 3) { name_object(Obj[2],"Side Back"); }
    if (lang == 4) { name_object(Obj[2],"Side Back"); }
    if (lang == 5) { name_object(Obj[2],"Side Back"); }
    if (lang == 6) { name_object(Obj[2],"Side Back"); }
    }

  //Object 60a
  if (HideObj[3] == 0)
    {
  if (lang == 0)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }

  current_point=addpoint(x[4],(y[4]+1),"LINE");
    if (lang == 0) { name_object(Obj[3],"60a"); }
    if (lang == 1) { name_object(Obj[3],"60a"); }
    if (lang == 2) { name_object(Obj[3],"60a"); }
    if (lang == 3) { name_object(Obj[3],"60a"); }
    if (lang == 4) { name_object(Obj[3],"60a"); }
    if (lang == 5) { name_object(Obj[3],"60a"); }
    if (lang == 6) { name_object(Obj[3],"60a"); }
    }

  //Object Side Front
  if (HideObj[4] == 0)
    {

  Obj[4] = newobject("poly");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[39],y[39],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[47],y[47],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[48],y[48],"LINE");
  current_point=addpoint(x[125],y[125],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[124],y[124],"XARC_START");
  current_point=addpoint(x[134],y[134],"XARC_CORNER");
  current_point=addpoint(x[123],y[123],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[122],y[122],"LINE");
  current_point=addpoint(x[126],y[126],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[87],y[87],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[34],y[34],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[36],y[36],"XARC_CORNER");
  current_point=addpoint(x[30],y[30],"LINE");
    if (lang == 0) { name_object(Obj[4],"Side Front"); }
    if (lang == 1) { name_object(Obj[4],"Side Front"); }
    if (lang == 2) { name_object(Obj[4],"Side Front"); }
    if (lang == 3) { name_object(Obj[4],"Side Front"); }
    if (lang == 4) { name_object(Obj[4],"Side Front"); }
    if (lang == 5) { name_object(Obj[4],"Side Front"); }
    if (lang == 6) { name_object(Obj[4],"Side Front"); }
    }

  //Object SFgrainline
  if (HideObj[5] == 0)
    {

  Obj[5] = newobject("poly");
  current_point=addpoint(x[75],y[75],"LINE");
  current_point=addpoint(x[133],y[133],"OPEN");
    if (lang == 0) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 1) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 2) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 3) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 4) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 5) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 6) { name_object(Obj[5],"SFgrainline"); }
    }

  //Object Sfgrainline
  if (HideObj[6] == 0)
    {

  Obj[6] = newobject("poly");
  current_point=addpoint(x[29],y[29],"LINE");
  current_point=addpoint(x[132],y[132],"OPEN");
    if (lang == 0) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 1) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 2) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 3) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 4) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 5) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 6) { name_object(Obj[6],"Sfgrainline"); }
    }

  //Object 60g
  if (HideObj[6] == 0)
    {
  if (lang == 0)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[132],(y[132]+1),"LINE");
    if (lang == 0) { name_object(Obj[6],"60g"); }
    if (lang == 1) { name_object(Obj[6],"60g"); }
    if (lang == 2) { name_object(Obj[6],"60g"); }
    if (lang == 3) { name_object(Obj[6],"60g"); }
    if (lang == 4) { name_object(Obj[6],"60g"); }
    if (lang == 5) { name_object(Obj[6],"60g"); }
    if (lang == 6) { name_object(Obj[6],"60g"); }
    }

  //Object 60h
  if (HideObj[7] == 0)
    {
  if (lang == 0)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[133],(y[133]+1),"LINE");
    if (lang == 0) { name_object(Obj[7],"60h"); }
    if (lang == 1) { name_object(Obj[7],"60h"); }
    if (lang == 2) { name_object(Obj[7],"60h"); }
    if (lang == 3) { name_object(Obj[7],"60h"); }
    if (lang == 4) { name_object(Obj[7],"60h"); }
    if (lang == 5) { name_object(Obj[7],"60h"); }
    if (lang == 6) { name_object(Obj[7],"60h"); }
    }

  //Object Txt cb1 
  if (HideObj[8] == 0)
    {
  if (lang == 0)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[98],(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 1) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 2) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 3) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 4) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 5) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 6) { name_object(Obj[8],"Txt cb1 "); }
    }

  //Object Txt cb2 
  if (HideObj[9] == 0)
    {
  if (lang == 0)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 1) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 2) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 3) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 4) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 5) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 6) { name_object(Obj[9],"Txt cb2 "); }
    }

  //Object Txt cb3
  if (HideObj[10] == 0)
    {
  if (lang == 0)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),y[98],"LINE");
    if (lang == 0) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 1) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 2) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 3) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 4) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 5) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 6) { name_object(Obj[10],"Txt cb3"); }
    }

  //Object Txt cb4
  if (HideObj[11] == 0)
    {
  if (lang == 0)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 1) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 2) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 3) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 4) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 5) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 6) { name_object(Obj[11],"Txt cb4"); }
    }

  //Object Txt sb1
  if (HideObj[12] == 0)
    {
  if (lang == 0)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+1.5),"LINE");
    if (lang == 0) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 1) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 2) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 3) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 4) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 5) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 6) { name_object(Obj[12],"Txt sb1"); }
    }

  //Object Txt sb2
  if (HideObj[13] == 0)
    {
  if (lang == 0)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 1) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 2) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 3) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 4) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 5) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 6) { name_object(Obj[13],"Txt sb2"); }
    }

  //Object Txt sb3
  if (HideObj[14] == 0)
    {
  if (lang == 0)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),y[128],"LINE");
    if (lang == 0) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 1) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 2) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 3) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 4) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 5) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 6) { name_object(Obj[14],"Txt sb3"); }
    }

  //Object Txt sf1
  if (HideObj[15] == 0)
    {
  if (lang == 0)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),y[126],"LINE");
    if (lang == 0) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 1) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 2) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 3) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 4) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 5) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 6) { name_object(Obj[15],"Txt sf1"); }
    }

  //Object Txt sf2
  if (HideObj[16] == 0)
    {
  if (lang == 0)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-0.75),"LINE");
    if (lang == 0) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 1) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 2) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 3) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 4) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 5) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 6) { name_object(Obj[16],"Txt sf2"); }
    }

  //Object Txt sf3
  if (HideObj[17] == 0)
    {
  if (lang == 0)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-1.5),"LINE");
    if (lang == 0) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 1) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 2) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 3) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 4) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 5) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 6) { name_object(Obj[17],"Txt sf3"); }
    }

  //Object Txt cf1
  if (HideObj[18] == 0)
    {
  if (lang == 0)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),y[97],"LINE");
    if (lang == 0) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 1) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 2) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 3) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 4) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 5) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 6) { name_object(Obj[18],"Txt cf1"); }
    }

  //Object Txt cf2
  if (HideObj[19] == 0)
    {
  if (lang == 0)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),(y[97]+-1),"LINE");
    if (lang == 0) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 1) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 2) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 3) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 4) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 5) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 6) { name_object(Obj[19],"Txt cf2"); }
    }

  //Object Txt cf3
  if (HideObj[20] == 0)
    {
  if (lang == 0)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[97]+1.5),(y[97]+-2),"LINE");
    if (lang == 0) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 1) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 2) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 3) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 4) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 5) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 6) { name_object(Obj[20],"Txt cf3"); }
    }

  //Object Txt cf4
  if (HideObj[21] == 0)
    {
  if (lang == 0)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint(x[43],y[43],"LINE");
    if (lang == 0) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 1) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 2) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 3) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 4) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 5) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 6) { name_object(Obj[21],"Txt cf4"); }
    }

  //Object Txt cb5
  if (HideObj[22] == 0)
    {
  if (lang == 0)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint(x[58],(y[58]+-2),"LINE");
    if (lang == 0) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 1) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 2) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 3) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 4) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 5) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 6) { name_object(Obj[22],"Txt cb5"); }
    }
  offset_mark(0, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(1, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(2, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(4, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  }

Flow1View1()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View1");
    }
  Flow1View1Points();
  }

Flow1View1Points()
{
  //Start
  x[0]=0;
y[0]=0;

  //1
  x[1]=x[0];
y[1]=y[0];
  //1a
  x[2]=x[1]+Var[19]/4+3;
y[2]=y[1];
  //1b
  x[3]=x[2];
y[3]=y[2]+Var[4]/-1;
  //1c
  x[4]=x[3];
y[4]=y[3]+Var[13]/-3;
  //1d
  x[5]=x[4]+Var[19]/-4;
y[5]=y[4];
  //1e
  x[6]=x[3]+Var[18]/-4+-0.5;
y[6]=y[3];
  //1f
  x[7]=x[3];
y[7]=y[3]+Var[7]/2;
  //1g
  x[8]=x[7];
y[8]=y[7];
  //1h
  x[9]=x[8]+Var[33]/-1+-0.5;
y[9]=y[8];
  //1i
  x[10]=x[9];
y[10]=y[9]+Var[25];
  //1k
  x[11] = x[2];
y[11] = y[10];

  //Measurements armheight
  Var[26]=distance(x[11], y[11], x[2], y[2]);
  //1l
  x[12]=x[11];
y[12]=y[11]+Var[26]/4;
  //1n
  x[13]=x[2]+Var[27]/-2;
y[13]=y[2];
  //1o
  x[14]=x[2];
y[14]=y[2]+Var[27]/-2+-0.5;
  //1p
  x[15] = x[13];
y[15] = y[14];

  //Measurements Front neckline
  Var[47]=arclength(13, 15, 14);
  //1q
  x[16]=x[2]+Var[8]/-2;
y[16]=y[2];
  //1r
  x[17]=x[16];
y[17]=y[16]+-1.5;
  //Measurements Front shoulder line
  Var[35]=distance(x[17], y[17], x[13], y[13]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //1s
  x[18]=x[12]+Var[5]/-2;
y[18]=y[12];
  //1t
  x[19]= (x[18]+x[17])/2;
y[19]=(y[18]+y[17])/2;

  //1u
  x[20]=x[19]+0.375;
y[20]=y[19];
  //1v
  x[21]= (x[20]+x[18])/2;
y[21]=(y[20]+y[18])/2;

  //1w
  x[22]= (x[17]+x[20])/2;
y[22]=(y[17]+y[20])/2;

  //1x
  x[23] = x[20];
y[23] = y[22];

  //Measurements Front armhole a
  Var[40]=arclength(17, 23, 20);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1y
  x[24] = x[20];
y[24] = y[21];

  //Measurements Front armhole b
  Var[41]=arclength(20, 24, 18);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1z
  x[25] = x[24];
y[25] = y[10];

  //2
  x[26]= (x[25]+x[10])/2;
y[26]=(y[25]+y[10])/2;

  //2a
  x[27]= (x[26]+x[25])/2;
y[27]=(y[26]+y[25])/2;

  //2d
  x[28]=x[27];
y[28]=y[27]+Var[26]/-4;
  //Measurements front armhole c
  Var[42]=arclength(18, 28, 10);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //2e
  x[29]=x[6]+Var[21]/-4;
y[29]=y[6];
  //2f
  x[30]=x[5]+Var[22]/-4;
y[30]=y[5];
  //2g
  x[31]=x[2]+Var[1]/-2;
y[31]=y[2]+Var[3]/-1;
  //2h
  cont(30, 10, 32, +-2);

  //2i
    intersect(x[32],y[32],x[30],y[30],x[29],y[29],x[3],y[3], 0);
  x[33]=getresultx();
  y[33]=getresulty();

  //Measurements Front wr
  Var[28]=distance(x[33], y[33], x[29], y[29]);
  //2j
  x[34]=x[33]+Var[28]/3;
y[34]=y[33];
  //2k
  cont(34, 32, 35, Var[25]/-1+0);

  //Measurements Rotate Points Angle
  Var[29]=normalizeangle(angle(x[31], y[31], x[35], y[35]) - angle(x[31], y[31], x[32], y[32]))*180/3.14159;
  //2l
  x[36]= (x[30]+x[33])/2;
y[36]=(y[30]+y[33])/2;

  //2m
  x[37] = x[31];
y[37] = y[4];

  //2n
  x[38] = x[31];
y[38] = y[3];

  //2o
  x[39]=x[38]+Var[28]/-3;
y[39]=y[38];
  //Measurements 2j2o
  Var[55]=distance(x[34], y[34], x[39], y[39]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2p
  x[40]=x[38]+Var[28]/3;
y[40]=y[38];
  //Measurements 2p1b
  Var[54]=distance(x[40], y[40], x[3], y[3]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2q
  x[41]=x[31];
y[41]=y[31]+Var[2]/-1;
  //2r
  x[42] = x[8];
y[42] = y[31];

  //2s
  x[43] = x[42];
y[43] = y[41];

  //Measurements Underbust level from waist
  Var[34]=distance(x[3], y[3], x[43], y[43]);
  //2t
    intersect(x[31],y[31],x[40],y[40],x[41],y[41],x[43],y[43], 0);
  x[44]=getresultx();
  y[44]=getresulty();

  //2u
    intersect(x[39],y[39],x[31],y[31],x[41],y[41],x[43],y[43], 0);
  x[45]=getresultx();
  y[45]=getresulty();

  //2v
  x[46]=x[44]+0.5;
y[46]=y[44];
  //2w
  x[47]=x[45]+-0.5;
y[47]=y[45];
  //2x
  x[48]=x[31];
y[48]=y[31]+-0.75;
  //2y
  x[49]=x[31];
y[49]=y[31]+0.75;
  //2h(2)
    Rotate(50, 31, 32, Var[29]+0);
  //2g(2)
    Rotate(51, 31, 31, Var[29]+0);
  //1i(2)
    Rotate(52, 31, 10, Var[29]+0);
  //Measurements Rotate Points Angle(2)
  Var[30]=normalizeangle(angle(x[51], y[51], x[10], y[10]) - angle(x[51], y[51], x[52], y[52]))*180/3.14159;
  //3a
    intersect(x[52],y[52],x[34],y[34],x[31],y[31],x[50],y[50], 0);
  x[53]=getresultx();
  y[53]=getresulty();

  //3a(2)
    Rotate(54, 51, 53, Var[30]+0);
  //2g(3)
    Rotate(55, 51, 51, Var[30]+0);
  //3b
  x[56]=x[37];
y[56]=y[37]+Var[31]/4;
  //3c
  x[57]=x[1]+Var[19]/-4;
y[57]=y[1]+Var[25]/-1;
  //3d
  x[58]=x[57];
y[58]=y[57]+Var[7]/-1;
  //3e
  x[59]=x[58];
y[59]=y[58]+Var[31]/-1;
  //3f
  x[60]=x[59]+Var[19]/4;
y[60]=y[59];
  //3g
  x[61]=x[58]+Var[18]/4+-0.5;
y[61]=y[58];
  //3h
  x[62]= (x[57]+x[58])/2;
y[62]=(y[57]+y[58])/2;

  //3i
  x[63]=x[62];
y[63]=y[62];
  //3j
  x[64]=x[63]+Var[0]/4+-0.5;
y[64]=y[63];
  //3k
  x[65]=x[57]+Var[27]/2;
y[65]=y[57];
  //3l
  x[66]=x[65];
y[66]=y[65]+0.75;
  //Measurements Back neckline
  Var[48]=arclength(57, 65, 66);
  //3m
  x[67]=x[57]+Var[9]/2;
y[67]=y[57];
  //3n
  x[68]=x[67];
y[68]=y[67]+-1.25;
  //Measurements Back shoulder line
  Var[36]=distance(x[66], y[66], x[68], y[68]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //3o
  x[69]= (x[57]+x[63])/2;
y[69]=(y[57]+y[63])/2;

  //3p
  x[70]=x[69]+Var[6]/2;
y[70]=y[69];
  //3q
  x[71] = x[70];
y[71] = y[64];

  //3r
  x[72]= (x[68]+x[70])/2;
y[72]=(y[68]+y[70])/2;

  //3s
  x[73] = x[70];
y[73] = y[72];

  //Measurements Back armhole a
  Var[43]=arclength(68, 73, 70);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3t
  x[74]=x[64]+Var[20]/4;
y[74]=y[64];
  //Measurements Back armhole b
  Var[44]=arclength(70, 71, 74);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3u
  x[75]=x[61]+Var[21]/4;
y[75]=y[61];
  //3v
  x[76]=x[60]+Var[22]/4;
y[76]=y[60];
  //3w
    intersect(x[76],y[76],x[74],y[74],x[58],y[58],x[75],y[75], 0);
  x[77]=getresultx();
  y[77]=getresulty();

  //Measurements Back Waist reduction
  Var[32]=distance(x[77], y[77], x[75], y[75]);
  //3x
  x[78]= (x[77]+x[76])/2;
y[78]=(y[77]+y[76])/2;

  //3y
  x[79]=x[77]+Var[32]/-3;
y[79]=y[77];
  //33z
  x[80]= (x[69]+x[70])/2;
y[80]=(y[69]+y[70])/2;

  //4
  x[81] = x[80];
y[81] = y[70];

  //4a
  x[82] = x[81];
y[82] = y[58];

  //4b
  x[83] = x[82];
y[83] = y[59];

  //4c
  x[84]=x[82]+Var[32]/-3;
y[84]=y[82];
  //Measurements 3d4c
  Var[57]=distance(x[58], y[58], x[84], y[84]);
  //4d
  x[85]=x[82]+Var[32]/3;
y[85]=y[82];
  //Measurements 4d3y
  Var[56]=distance(x[85], y[85], x[79], y[79]);
  //4e
  cont(74, 79, 86, Var[34]/-1+0);

  //4f
  cont(53, 34, 87, Var[34]/-1+0);

  //4g
  cont(86, 74, 88, Var[26]/-4+0);

  //4h
  x[89]= (x[66]+x[68])/2;
y[89]=(y[66]+y[68])/2;

  //4i
  right_ang(90, 89, 66,  + -3, 0);

  //4j
  right_ang(91, 70, 68,  + -4, 0);

  //4k
    intersect(x[89],y[89],x[90],y[90],x[70],y[70],x[91],y[91], 0);
  x[92]=getresultx();
  y[92]=getresulty();

  //4l
  cont(66, 89, 93, Var[37]/-2+0);

  //4m
  cont(68, 89, 94, Var[37]/-2+0);

  //Measurements Rotate Points Angle(3)
  Var[38]=normalizeangle(angle(x[92], y[92], x[93], y[93]) - angle(x[92], y[92], x[94], y[94]))*180/3.14159;
  //3p(2)
    Rotate(95, 92, 70, Var[38]+0);
  //Measurements Rotate Points Angle(4)
  Var[39]=normalizeangle(angle(x[92], y[92], x[70], y[70]) - angle(x[92], y[92], x[95], y[95]))*180/3.14159;
  //4o
  x[96]= (x[17]+x[13])/2;
y[96]=(y[17]+y[13])/2;

  //4p
  cont(96, 31, 97, Var[2]/-1+0);

  //4r
  x[98] = x[63];
y[98] = y[86];

  //4q
  cont(31, 53, 99, +7);

  //4S
  cont(31, 54, 100, +7);

  //MoveStart(4)
  x[101]=x[0]+6.28754125412541;
y[101]=y[0]+-8.73349834983498;
  //MoveEnd(4)
  x[102]=x[0]+5.60684818481848;
y[102]=y[0]+-9.95874587458746;
  //1z(2)
  x[103] = x[25] + x[102] - x[101] ;
y[103] = y[25] + y[102] - y[101] ;

  //MoveStart(6)
  x[104]=x[0]+5.69760726072607;
y[104]=y[0]+-9.5503300330033;
  //MoveEnd(6)
  x[105]=x[0]+5.4707095709571;
y[105]=y[0]+-9.27805280528053;
  //1z(3)
  x[106] = x[103] + x[105] - x[104] ;
y[106] = y[103] + y[105] - y[104] ;

  //4u
  x[107]= (x[63]+x[98])/2;
y[107]=(y[63]+y[98])/2;

  //4v
  x[108]= (x[107]+x[74])/2;
y[108]=(y[107]+y[74])/2;

  //4w
  x[109] = x[108];
y[109] = y[107];

  //4x
  cont(96, 31, 110, Var[2]/-1+-1);

  //Measurements Rotate Points Angle(5)
  Var[50]=normalizeangle(angle(x[55], y[55], x[110], y[110]) - angle(x[55], y[55], x[100], y[100]))*180/3.14159;
  //4y
  x[111] = x[42];
y[111] = y[110];

  //4z
  x[112]= (x[10]+x[110])/2;
y[112]=(y[10]+y[110])/2;

  //5
    LineArcIntersect(107,109,74,84,81 , 113 );

  //6
    LineArcIntersect(107,109,74,81,85 , 114 );

  //CP
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[107], y[107], x[113], y[113]);
x[115]=getresultx();
y[115]=getresulty();

  //CP(3)
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[114], y[114], x[74], y[74]);
x[116]=getresultx();
y[116]=getresulty();

  //7
  ArcArcIntersect(18,106,10,10,112,110,117);

  //CP(5)
  place_corner(x[10], y[10], x[112], y[112], x[110], y[110], x[110], y[110], x[117], y[117]);
x[118]=getresultx();
y[118]=getresulty();

  //2g(4)
    Rotate(119, 55, 31, Var[50]+0);
  //Measurements Rotate Points Angle(6)
  Var[51]=normalizeangle(angle(x[119], y[119], x[53], y[53]) - angle(x[119], y[119], x[54], y[54]))*180/3.14159;
  //4q(2)
    Rotate(120, 55, 99, Var[50]+0);
  //8
    LineArcIntersect(117,118,110,119,120 , 121 );

  //7(2)
    Rotate(122, 119, 117, Var[51]+0);
  //8(2)
    Rotate(123, 119, 121, Var[51]+0);
  //2y(2)
    Rotate(124, 119, 49, Var[51]+0);
  //2g(5)
    Rotate(125, 119, 119, Var[51]+0);
  //Measurements Rotate Points Angle(7)
  Var[53]=normalizeangle(angle(x[125], y[125], x[110], y[110]) - angle(x[125], y[125], x[123], y[123]))*180/3.14159;
  //3a(3)
    Rotate(126, 119, 54, Var[51]+0);
  //5a
  x[127] = x[114];
y[127] = y[113];

  //5b
  x[128]= (x[127]+x[85])/2;
y[128]=(y[127]+y[85])/2;

  //5c
  x[129]= (x[113]+x[84])/2;
y[129]=(y[113]+y[84])/2;

  //5d
  x[130]= (x[84]+x[83])/2;
y[130]=(y[84]+y[83])/2;

  //5e
  x[131]= (x[85]+x[83])/2;
y[131]=(y[85]+y[83])/2;

  //5i
  x[132] = x[29];
y[132] = y[56];

  //5j
  x[133] = x[75];
y[133] = y[56];

  //6ra
  x[134]= (x[31]+x[121])/2;
y[134]=(y[31]+y[121])/2;

  //2x2
  x[135]= (x[31]+x[41])/2;
y[135]=(y[31]+y[41])/2;

  //5k
  x[136]= (x[111]+x[42])/2;
y[136]=(y[111]+y[42])/2;

  //5l
  x[137]= (x[110]+x[111])/2;
y[137]=(y[110]+y[111])/2;

  //5m
  x[138]= (x[110]+x[137])/2;
y[138]=(y[110]+y[137])/2;

  //5n
  x[139]= (x[137]+x[111])/2;
y[139]=(y[137]+y[111])/2;

  }

Flow1View1Objects()
{

  //Object Front
  if (HideObj[0] == 0)
    {

  Obj[0] = newobject("poly");
  current_point=addpoint(x[4],y[4],"LINE");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[40],y[40],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[46],y[46],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[119],y[119],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[110],y[110],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[111],y[111],"LINE");
  current_point=addpoint(x[8],y[8],"LINE");
  current_point=addpoint(x[3],y[3],"LINE");
    if (lang == 0) { name_object(Obj[0],"Front"); }
    if (lang == 1) { name_object(Obj[0],"Front"); }
    if (lang == 2) { name_object(Obj[0],"Front"); }
    if (lang == 3) { name_object(Obj[0],"Front"); }
    if (lang == 4) { name_object(Obj[0],"Front"); }
    if (lang == 5) { name_object(Obj[0],"Front"); }
    if (lang == 6) { name_object(Obj[0],"Front"); }
    }

  //Object Center Back
  if (HideObj[1] == 0)
    {

  Obj[1] = newobject("poly");
  current_point=addpoint(x[113],y[113],"LINE");
  notch_type(current_point,"NONE",0);
  current_point=addpoint(x[129],y[129],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[84],y[84],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[130],y[130],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[59],y[59],"LINE");
  current_point=addpoint(x[58],y[58],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[107],y[107],"XARC_START");
  current_point=addpoint(x[115],y[115],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[1],"Center Back"); }
    if (lang == 1) { name_object(Obj[1],"Center Back"); }
    if (lang == 2) { name_object(Obj[1],"Center Back"); }
    if (lang == 3) { name_object(Obj[1],"Center Back"); }
    if (lang == 4) { name_object(Obj[1],"Center Back"); }
    if (lang == 5) { name_object(Obj[1],"Center Back"); }
    if (lang == 6) { name_object(Obj[1],"Center Back"); }
    }

  //Object Side Back
  if (HideObj[2] == 0)
    {

  Obj[2] = newobject("poly");
  current_point=addpoint(x[76],y[76],"LINE");
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[131],y[131],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[85],y[85],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[128],y[128],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[127],y[127],"XARC_START");
  current_point=addpoint(x[116],y[116],"XARC_CORNER");
  current_point=addpoint(x[74],y[74],"LINE");
  current_point=addpoint(x[88],y[88],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[86],y[86],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[79],y[79],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[78],y[78],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[2],"Side Back"); }
    if (lang == 1) { name_object(Obj[2],"Side Back"); }
    if (lang == 2) { name_object(Obj[2],"Side Back"); }
    if (lang == 3) { name_object(Obj[2],"Side Back"); }
    if (lang == 4) { name_object(Obj[2],"Side Back"); }
    if (lang == 5) { name_object(Obj[2],"Side Back"); }
    if (lang == 6) { name_object(Obj[2],"Side Back"); }
    }

  //Object 60a
  if (HideObj[3] == 0)
    {
  if (lang == 0)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }

  current_point=addpoint(x[4],(y[4]+1),"LINE");
    if (lang == 0) { name_object(Obj[3],"60a"); }
    if (lang == 1) { name_object(Obj[3],"60a"); }
    if (lang == 2) { name_object(Obj[3],"60a"); }
    if (lang == 3) { name_object(Obj[3],"60a"); }
    if (lang == 4) { name_object(Obj[3],"60a"); }
    if (lang == 5) { name_object(Obj[3],"60a"); }
    if (lang == 6) { name_object(Obj[3],"60a"); }
    }

  //Object Side Front
  if (HideObj[4] == 0)
    {

  Obj[4] = newobject("poly");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[39],y[39],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[47],y[47],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[48],y[48],"LINE");
  current_point=addpoint(x[125],y[125],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[124],y[124],"XARC_START");
  current_point=addpoint(x[134],y[134],"XARC_CORNER");
  current_point=addpoint(x[123],y[123],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[122],y[122],"LINE");
  current_point=addpoint(x[126],y[126],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[87],y[87],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[34],y[34],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[36],y[36],"XARC_CORNER");
  current_point=addpoint(x[30],y[30],"LINE");
    if (lang == 0) { name_object(Obj[4],"Side Front"); }
    if (lang == 1) { name_object(Obj[4],"Side Front"); }
    if (lang == 2) { name_object(Obj[4],"Side Front"); }
    if (lang == 3) { name_object(Obj[4],"Side Front"); }
    if (lang == 4) { name_object(Obj[4],"Side Front"); }
    if (lang == 5) { name_object(Obj[4],"Side Front"); }
    if (lang == 6) { name_object(Obj[4],"Side Front"); }
    }

  //Object SFgrainline
  if (HideObj[5] == 0)
    {

  Obj[5] = newobject("poly");
  current_point=addpoint(x[75],y[75],"LINE");
  current_point=addpoint(x[133],y[133],"OPEN");
    if (lang == 0) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 1) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 2) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 3) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 4) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 5) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 6) { name_object(Obj[5],"SFgrainline"); }
    }

  //Object Sfgrainline
  if (HideObj[6] == 0)
    {

  Obj[6] = newobject("poly");
  current_point=addpoint(x[29],y[29],"LINE");
  current_point=addpoint(x[132],y[132],"OPEN");
    if (lang == 0) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 1) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 2) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 3) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 4) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 5) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 6) { name_object(Obj[6],"Sfgrainline"); }
    }

  //Object 60g
  if (HideObj[6] == 0)
    {
  if (lang == 0)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[132],(y[132]+1),"LINE");
    if (lang == 0) { name_object(Obj[6],"60g"); }
    if (lang == 1) { name_object(Obj[6],"60g"); }
    if (lang == 2) { name_object(Obj[6],"60g"); }
    if (lang == 3) { name_object(Obj[6],"60g"); }
    if (lang == 4) { name_object(Obj[6],"60g"); }
    if (lang == 5) { name_object(Obj[6],"60g"); }
    if (lang == 6) { name_object(Obj[6],"60g"); }
    }

  //Object 60h
  if (HideObj[7] == 0)
    {
  if (lang == 0)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[133],(y[133]+1),"LINE");
    if (lang == 0) { name_object(Obj[7],"60h"); }
    if (lang == 1) { name_object(Obj[7],"60h"); }
    if (lang == 2) { name_object(Obj[7],"60h"); }
    if (lang == 3) { name_object(Obj[7],"60h"); }
    if (lang == 4) { name_object(Obj[7],"60h"); }
    if (lang == 5) { name_object(Obj[7],"60h"); }
    if (lang == 6) { name_object(Obj[7],"60h"); }
    }

  //Object Txt cb1 
  if (HideObj[8] == 0)
    {
  if (lang == 0)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[98],(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 1) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 2) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 3) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 4) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 5) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 6) { name_object(Obj[8],"Txt cb1 "); }
    }

  //Object Txt cb2 
  if (HideObj[9] == 0)
    {
  if (lang == 0)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 1) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 2) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 3) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 4) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 5) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 6) { name_object(Obj[9],"Txt cb2 "); }
    }

  //Object Txt cb3
  if (HideObj[10] == 0)
    {
  if (lang == 0)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),y[98],"LINE");
    if (lang == 0) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 1) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 2) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 3) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 4) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 5) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 6) { name_object(Obj[10],"Txt cb3"); }
    }

  //Object Txt cb4
  if (HideObj[11] == 0)
    {
  if (lang == 0)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 1) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 2) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 3) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 4) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 5) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 6) { name_object(Obj[11],"Txt cb4"); }
    }

  //Object Txt sb1
  if (HideObj[12] == 0)
    {
  if (lang == 0)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+1.5),"LINE");
    if (lang == 0) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 1) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 2) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 3) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 4) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 5) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 6) { name_object(Obj[12],"Txt sb1"); }
    }

  //Object Txt sb2
  if (HideObj[13] == 0)
    {
  if (lang == 0)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 1) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 2) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 3) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 4) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 5) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 6) { name_object(Obj[13],"Txt sb2"); }
    }

  //Object Txt sb3
  if (HideObj[14] == 0)
    {
  if (lang == 0)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),y[128],"LINE");
    if (lang == 0) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 1) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 2) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 3) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 4) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 5) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 6) { name_object(Obj[14],"Txt sb3"); }
    }

  //Object Txt sf1
  if (HideObj[15] == 0)
    {
  if (lang == 0)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),y[126],"LINE");
    if (lang == 0) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 1) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 2) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 3) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 4) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 5) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 6) { name_object(Obj[15],"Txt sf1"); }
    }

  //Object Txt sf2
  if (HideObj[16] == 0)
    {
  if (lang == 0)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-0.75),"LINE");
    if (lang == 0) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 1) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 2) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 3) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 4) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 5) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 6) { name_object(Obj[16],"Txt sf2"); }
    }

  //Object Txt sf3
  if (HideObj[17] == 0)
    {
  if (lang == 0)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-1.5),"LINE");
    if (lang == 0) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 1) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 2) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 3) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 4) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 5) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 6) { name_object(Obj[17],"Txt sf3"); }
    }

  //Object Txt cf1
  if (HideObj[18] == 0)
    {
  if (lang == 0)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),y[97],"LINE");
    if (lang == 0) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 1) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 2) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 3) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 4) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 5) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 6) { name_object(Obj[18],"Txt cf1"); }
    }

  //Object Txt cf2
  if (HideObj[19] == 0)
    {
  if (lang == 0)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),(y[97]+-1),"LINE");
    if (lang == 0) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 1) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 2) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 3) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 4) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 5) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 6) { name_object(Obj[19],"Txt cf2"); }
    }

  //Object Txt cf3
  if (HideObj[20] == 0)
    {
  if (lang == 0)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[97]+1.5),(y[97]+-2),"LINE");
    if (lang == 0) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 1) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 2) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 3) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 4) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 5) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 6) { name_object(Obj[20],"Txt cf3"); }
    }

  //Object Txt cf4
  if (HideObj[21] == 0)
    {
  if (lang == 0)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint(x[43],y[43],"LINE");
    if (lang == 0) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 1) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 2) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 3) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 4) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 5) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 6) { name_object(Obj[21],"Txt cf4"); }
    }

  //Object Txt cb5
  if (HideObj[22] == 0)
    {
  if (lang == 0)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint(x[58],(y[58]+-2),"LINE");
    if (lang == 0) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 1) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 2) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 3) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 4) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 5) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 6) { name_object(Obj[22],"Txt cb5"); }
    }
  offset_mark(0, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(1, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(2, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(4, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  }

Flow1View2()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View2");
    }
  Flow1View2Points();
  }

Flow1View2Points()
{
  //Start
  x[0]=0;
y[0]=0;

  //1
  x[1]=x[0];
y[1]=y[0];
  //1a
  x[2]=x[1]+Var[19]/4+3;
y[2]=y[1];
  //1b
  x[3]=x[2];
y[3]=y[2]+Var[4]/-1;
  //1c
  x[4]=x[3];
y[4]=y[3]+Var[13]/-3;
  //1d
  x[5]=x[4]+Var[19]/-4;
y[5]=y[4];
  //1e
  x[6]=x[3]+Var[18]/-4+-0.5;
y[6]=y[3];
  //1f
  x[7]=x[3];
y[7]=y[3]+Var[7]/2;
  //1g
  x[8]=x[7];
y[8]=y[7];
  //1h
  x[9]=x[8]+Var[33]/-1+-0.5;
y[9]=y[8];
  //1i
  x[10]=x[9];
y[10]=y[9]+Var[25];
  //1k
  x[11] = x[2];
y[11] = y[10];

  //Measurements armheight
  Var[26]=distance(x[11], y[11], x[2], y[2]);
  //1l
  x[12]=x[11];
y[12]=y[11]+Var[26]/4;
  //1n
  x[13]=x[2]+Var[27]/-2;
y[13]=y[2];
  //1o
  x[14]=x[2];
y[14]=y[2]+Var[27]/-2+-0.5;
  //1p
  x[15] = x[13];
y[15] = y[14];

  //Measurements Front neckline
  Var[47]=arclength(13, 15, 14);
  //1q
  x[16]=x[2]+Var[8]/-2;
y[16]=y[2];
  //1r
  x[17]=x[16];
y[17]=y[16]+-1.5;
  //Measurements Front shoulder line
  Var[35]=distance(x[17], y[17], x[13], y[13]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //1s
  x[18]=x[12]+Var[5]/-2;
y[18]=y[12];
  //1t
  x[19]= (x[18]+x[17])/2;
y[19]=(y[18]+y[17])/2;

  //1u
  x[20]=x[19]+0.375;
y[20]=y[19];
  //1v
  x[21]= (x[20]+x[18])/2;
y[21]=(y[20]+y[18])/2;

  //1w
  x[22]= (x[17]+x[20])/2;
y[22]=(y[17]+y[20])/2;

  //1x
  x[23] = x[20];
y[23] = y[22];

  //Measurements Front armhole a
  Var[40]=arclength(17, 23, 20);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1y
  x[24] = x[20];
y[24] = y[21];

  //Measurements Front armhole b
  Var[41]=arclength(20, 24, 18);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //1z
  x[25] = x[24];
y[25] = y[10];

  //2
  x[26]= (x[25]+x[10])/2;
y[26]=(y[25]+y[10])/2;

  //2a
  x[27]= (x[26]+x[25])/2;
y[27]=(y[26]+y[25])/2;

  //2d
  x[28]=x[27];
y[28]=y[27]+Var[26]/-4;
  //Measurements front armhole c
  Var[42]=arclength(18, 28, 10);
  //Measurements Front arm hole total
  Var[45]=Var[41]/1 + 
 Var[40]/1 +  
 Var[42]/1 +  
 
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //2e
  x[29]=x[6]+Var[21]/-4;
y[29]=y[6];
  //2f
  x[30]=x[5]+Var[22]/-4;
y[30]=y[5];
  //2g
  x[31]=x[2]+Var[1]/-2;
y[31]=y[2]+Var[3]/-1;
  //2h
  cont(30, 10, 32, +-2);

  //2i
    intersect(x[32],y[32],x[30],y[30],x[29],y[29],x[3],y[3], 0);
  x[33]=getresultx();
  y[33]=getresulty();

  //Measurements Front wr
  Var[28]=distance(x[33], y[33], x[29], y[29]);
  //2j
  x[34]=x[33]+Var[28]/3;
y[34]=y[33];
  //2k
  cont(34, 32, 35, Var[25]/-1+0);

  //Measurements Rotate Points Angle
  Var[29]=normalizeangle(angle(x[31], y[31], x[35], y[35]) - angle(x[31], y[31], x[32], y[32]))*180/3.14159;
  //2l
  x[36]= (x[30]+x[33])/2;
y[36]=(y[30]+y[33])/2;

  //2m
  x[37] = x[31];
y[37] = y[4];

  //2n
  x[38] = x[31];
y[38] = y[3];

  //2o
  x[39]=x[38]+Var[28]/-3;
y[39]=y[38];
  //Measurements 2j2o
  Var[55]=distance(x[34], y[34], x[39], y[39]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2p
  x[40]=x[38]+Var[28]/3;
y[40]=y[38];
  //Measurements 2p1b
  Var[54]=distance(x[40], y[40], x[3], y[3]);
  //Measurements Frontwaist circumference
  Var[58]=Var[55]/1 + 
 Var[54]/1 +  
 
 
0;
  //Measurements radius
  Var[59]=  
 Var[58]/6.25 +   
0;
  //Measurements frontpeplum
  Var[60]=Var[59]/1 +   
 Var[59]/1 +   
0;
  //2q
  x[41]=x[31];
y[41]=y[31]+Var[2]/-1;
  //2r
  x[42] = x[8];
y[42] = y[31];

  //2s
  x[43] = x[42];
y[43] = y[41];

  //Measurements Underbust level from waist
  Var[34]=distance(x[3], y[3], x[43], y[43]);
  //2t
    intersect(x[31],y[31],x[40],y[40],x[41],y[41],x[43],y[43], 0);
  x[44]=getresultx();
  y[44]=getresulty();

  //2u
    intersect(x[39],y[39],x[31],y[31],x[41],y[41],x[43],y[43], 0);
  x[45]=getresultx();
  y[45]=getresulty();

  //2v
  x[46]=x[44]+0.5;
y[46]=y[44];
  //2w
  x[47]=x[45]+-0.5;
y[47]=y[45];
  //2x
  x[48]=x[31];
y[48]=y[31]+-0.75;
  //2y
  x[49]=x[31];
y[49]=y[31]+0.75;
  //2h(2)
    Rotate(50, 31, 32, Var[29]+0);
  //2g(2)
    Rotate(51, 31, 31, Var[29]+0);
  //1i(2)
    Rotate(52, 31, 10, Var[29]+0);
  //Measurements Rotate Points Angle(2)
  Var[30]=normalizeangle(angle(x[51], y[51], x[10], y[10]) - angle(x[51], y[51], x[52], y[52]))*180/3.14159;
  //3a
    intersect(x[52],y[52],x[34],y[34],x[31],y[31],x[50],y[50], 0);
  x[53]=getresultx();
  y[53]=getresulty();

  //3a(2)
    Rotate(54, 51, 53, Var[30]+0);
  //2g(3)
    Rotate(55, 51, 51, Var[30]+0);
  //3b
  x[56]=x[37];
y[56]=y[37]+Var[31]/4;
  //3c
  x[57]=x[1]+Var[19]/-4;
y[57]=y[1]+Var[25]/-1;
  //3d
  x[58]=x[57];
y[58]=y[57]+Var[7]/-1;
  //3e
  x[59]=x[58];
y[59]=y[58]+Var[31]/-1;
  //3f
  x[60]=x[59]+Var[19]/4;
y[60]=y[59];
  //3g
  x[61]=x[58]+Var[18]/4+-0.5;
y[61]=y[58];
  //3h
  x[62]= (x[57]+x[58])/2;
y[62]=(y[57]+y[58])/2;

  //3i
  x[63]=x[62];
y[63]=y[62];
  //3j
  x[64]=x[63]+Var[0]/4+-0.5;
y[64]=y[63];
  //3k
  x[65]=x[57]+Var[27]/2;
y[65]=y[57];
  //3l
  x[66]=x[65];
y[66]=y[65]+0.75;
  //Measurements Back neckline
  Var[48]=arclength(57, 65, 66);
  //3m
  x[67]=x[57]+Var[9]/2;
y[67]=y[57];
  //3n
  x[68]=x[67];
y[68]=y[67]+-1.25;
  //Measurements Back shoulder line
  Var[36]=distance(x[66], y[66], x[68], y[68]);
  //Measurements Back shoulder dart
  Var[37]=Var[35]/-1 +   
 Var[36]/1 +   
0;
  //3o
  x[69]= (x[57]+x[63])/2;
y[69]=(y[57]+y[63])/2;

  //3p
  x[70]=x[69]+Var[6]/2;
y[70]=y[69];
  //3q
  x[71] = x[70];
y[71] = y[64];

  //3r
  x[72]= (x[68]+x[70])/2;
y[72]=(y[68]+y[70])/2;

  //3s
  x[73] = x[70];
y[73] = y[72];

  //Measurements Back armhole a
  Var[43]=arclength(68, 73, 70);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3t
  x[74]=x[64]+Var[20]/4;
y[74]=y[64];
  //Measurements Back armhole b
  Var[44]=arclength(70, 71, 74);
  //Measurements back arm hole total
  Var[46]=Var[44]/1 +   
 Var[43]/1 +   
0;
  //Measurements total armhole
  Var[49]=Var[46]/1 +   
 Var[45]/1 +   
0;
  //3u
  x[75]=x[61]+Var[21]/4;
y[75]=y[61];
  //3v
  x[76]=x[60]+Var[22]/4;
y[76]=y[60];
  //3w
    intersect(x[76],y[76],x[74],y[74],x[58],y[58],x[75],y[75], 0);
  x[77]=getresultx();
  y[77]=getresulty();

  //Measurements Back Waist reduction
  Var[32]=distance(x[77], y[77], x[75], y[75]);
  //3x
  x[78]= (x[77]+x[76])/2;
y[78]=(y[77]+y[76])/2;

  //3y
  x[79]=x[77]+Var[32]/-3;
y[79]=y[77];
  //33z
  x[80]= (x[69]+x[70])/2;
y[80]=(y[69]+y[70])/2;

  //4
  x[81] = x[80];
y[81] = y[70];

  //4a
  x[82] = x[81];
y[82] = y[58];

  //4b
  x[83] = x[82];
y[83] = y[59];

  //4c
  x[84]=x[82]+Var[32]/-3;
y[84]=y[82];
  //Measurements 3d4c
  Var[57]=distance(x[58], y[58], x[84], y[84]);
  //4d
  x[85]=x[82]+Var[32]/3;
y[85]=y[82];
  //Measurements 4d3y
  Var[56]=distance(x[85], y[85], x[79], y[79]);
  //4e
  cont(74, 79, 86, Var[34]/-1+0);

  //4f
  cont(53, 34, 87, Var[34]/-1+0);

  //4g
  cont(86, 74, 88, Var[26]/-4+0);

  //4h
  x[89]= (x[66]+x[68])/2;
y[89]=(y[66]+y[68])/2;

  //4i
  right_ang(90, 89, 66,  + -3, 0);

  //4j
  right_ang(91, 70, 68,  + -4, 0);

  //4k
    intersect(x[89],y[89],x[90],y[90],x[70],y[70],x[91],y[91], 0);
  x[92]=getresultx();
  y[92]=getresulty();

  //4l
  cont(66, 89, 93, Var[37]/-2+0);

  //4m
  cont(68, 89, 94, Var[37]/-2+0);

  //Measurements Rotate Points Angle(3)
  Var[38]=normalizeangle(angle(x[92], y[92], x[93], y[93]) - angle(x[92], y[92], x[94], y[94]))*180/3.14159;
  //3p(2)
    Rotate(95, 92, 70, Var[38]+0);
  //Measurements Rotate Points Angle(4)
  Var[39]=normalizeangle(angle(x[92], y[92], x[70], y[70]) - angle(x[92], y[92], x[95], y[95]))*180/3.14159;
  //4o
  x[96]= (x[17]+x[13])/2;
y[96]=(y[17]+y[13])/2;

  //4p
  cont(96, 31, 97, Var[2]/-1+0);

  //4r
  x[98] = x[63];
y[98] = y[86];

  //4q
  cont(31, 53, 99, +7);

  //4S
  cont(31, 54, 100, +7);

  //MoveStart(4)
  x[101]=x[0]+6.28754125412541;
y[101]=y[0]+-8.73349834983498;
  //MoveEnd(4)
  x[102]=x[0]+5.60684818481848;
y[102]=y[0]+-9.95874587458746;
  //1z(2)
  x[103] = x[25] + x[102] - x[101] ;
y[103] = y[25] + y[102] - y[101] ;

  //MoveStart(6)
  x[104]=x[0]+5.69760726072607;
y[104]=y[0]+-9.5503300330033;
  //MoveEnd(6)
  x[105]=x[0]+5.4707095709571;
y[105]=y[0]+-9.27805280528053;
  //1z(3)
  x[106] = x[103] + x[105] - x[104] ;
y[106] = y[103] + y[105] - y[104] ;

  //4u
  x[107]= (x[63]+x[98])/2;
y[107]=(y[63]+y[98])/2;

  //4v
  x[108]= (x[107]+x[74])/2;
y[108]=(y[107]+y[74])/2;

  //4w
  x[109] = x[108];
y[109] = y[107];

  //4x
  cont(96, 31, 110, Var[2]/-1+-1);

  //Measurements Rotate Points Angle(5)
  Var[50]=normalizeangle(angle(x[55], y[55], x[110], y[110]) - angle(x[55], y[55], x[100], y[100]))*180/3.14159;
  //4y
  x[111] = x[42];
y[111] = y[110];

  //4z
  x[112]= (x[10]+x[110])/2;
y[112]=(y[10]+y[110])/2;

  //5
    LineArcIntersect(107,109,74,84,81 , 113 );

  //6
    LineArcIntersect(107,109,74,81,85 , 114 );

  //CP
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[107], y[107], x[113], y[113]);
x[115]=getresultx();
y[115]=getresulty();

  //CP(3)
  place_corner(x[107], y[107], x[109], y[109], x[74], y[74], x[114], y[114], x[74], y[74]);
x[116]=getresultx();
y[116]=getresulty();

  //7
  ArcArcIntersect(18,106,10,10,112,110,117);

  //CP(5)
  place_corner(x[10], y[10], x[112], y[112], x[110], y[110], x[110], y[110], x[117], y[117]);
x[118]=getresultx();
y[118]=getresulty();

  //2g(4)
    Rotate(119, 55, 31, Var[50]+0);
  //Measurements Rotate Points Angle(6)
  Var[51]=normalizeangle(angle(x[119], y[119], x[53], y[53]) - angle(x[119], y[119], x[54], y[54]))*180/3.14159;
  //4q(2)
    Rotate(120, 55, 99, Var[50]+0);
  //8
    LineArcIntersect(117,118,110,119,120 , 121 );

  //7(2)
    Rotate(122, 119, 117, Var[51]+0);
  //8(2)
    Rotate(123, 119, 121, Var[51]+0);
  //2y(2)
    Rotate(124, 119, 49, Var[51]+0);
  //2g(5)
    Rotate(125, 119, 119, Var[51]+0);
  //Measurements Rotate Points Angle(7)
  Var[53]=normalizeangle(angle(x[125], y[125], x[110], y[110]) - angle(x[125], y[125], x[123], y[123]))*180/3.14159;
  //3a(3)
    Rotate(126, 119, 54, Var[51]+0);
  //5a
  x[127] = x[114];
y[127] = y[113];

  //5b
  x[128]= (x[127]+x[85])/2;
y[128]=(y[127]+y[85])/2;

  //5c
  x[129]= (x[113]+x[84])/2;
y[129]=(y[113]+y[84])/2;

  //5d
  x[130]= (x[84]+x[83])/2;
y[130]=(y[84]+y[83])/2;

  //5e
  x[131]= (x[85]+x[83])/2;
y[131]=(y[85]+y[83])/2;

  //5i
  x[132] = x[29];
y[132] = y[56];

  //5j
  x[133] = x[75];
y[133] = y[56];

  //6ra
  x[134]= (x[31]+x[121])/2;
y[134]=(y[31]+y[121])/2;

  //2x2
  x[135]= (x[31]+x[41])/2;
y[135]=(y[31]+y[41])/2;

  //5k
  x[136]= (x[111]+x[42])/2;
y[136]=(y[111]+y[42])/2;

  //5l
  x[137]= (x[110]+x[111])/2;
y[137]=(y[110]+y[111])/2;

  //5m
  x[138]= (x[110]+x[137])/2;
y[138]=(y[110]+y[137])/2;

  //5n
  x[139]= (x[137]+x[111])/2;
y[139]=(y[137]+y[111])/2;

  }

Flow1View2Objects()
{

  //Object Front
  if (HideObj[0] == 0)
    {

  Obj[0] = newobject("poly");
  current_point=addpoint(x[4],y[4],"LINE");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[40],y[40],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[46],y[46],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[119],y[119],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[110],y[110],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[138],y[138],"LINE");
  current_point=addpoint(x[137],y[137],"XARC_START");
  current_point=addpoint(x[111],y[111],"XARC_CORNER");
  current_point=addpoint(x[136],y[136],"LINE");
  current_point=addpoint(x[8],y[8],"LINE");
  current_point=addpoint(x[3],y[3],"LINE");
    if (lang == 0) { name_object(Obj[0],"Front"); }
    if (lang == 1) { name_object(Obj[0],"Front"); }
    if (lang == 2) { name_object(Obj[0],"Front"); }
    if (lang == 3) { name_object(Obj[0],"Front"); }
    if (lang == 4) { name_object(Obj[0],"Front"); }
    if (lang == 5) { name_object(Obj[0],"Front"); }
    if (lang == 6) { name_object(Obj[0],"Front"); }
    }

  //Object Center Back
  if (HideObj[1] == 0)
    {

  Obj[1] = newobject("poly");
  current_point=addpoint(x[113],y[113],"LINE");
  notch_type(current_point,"NONE",0);
  current_point=addpoint(x[129],y[129],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[84],y[84],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[130],y[130],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[59],y[59],"LINE");
  current_point=addpoint(x[58],y[58],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[107],y[107],"XARC_START");
  current_point=addpoint(x[115],y[115],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[1],"Center Back"); }
    if (lang == 1) { name_object(Obj[1],"Center Back"); }
    if (lang == 2) { name_object(Obj[1],"Center Back"); }
    if (lang == 3) { name_object(Obj[1],"Center Back"); }
    if (lang == 4) { name_object(Obj[1],"Center Back"); }
    if (lang == 5) { name_object(Obj[1],"Center Back"); }
    if (lang == 6) { name_object(Obj[1],"Center Back"); }
    }

  //Object Side Back
  if (HideObj[2] == 0)
    {

  Obj[2] = newobject("poly");
  current_point=addpoint(x[76],y[76],"LINE");
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[131],y[131],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[85],y[85],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[128],y[128],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[127],y[127],"XARC_START");
  current_point=addpoint(x[116],y[116],"XARC_CORNER");
  current_point=addpoint(x[74],y[74],"LINE");
  current_point=addpoint(x[88],y[88],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[86],y[86],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[79],y[79],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[78],y[78],"XARC_CORNER");
    if (lang == 0) { name_object(Obj[2],"Side Back"); }
    if (lang == 1) { name_object(Obj[2],"Side Back"); }
    if (lang == 2) { name_object(Obj[2],"Side Back"); }
    if (lang == 3) { name_object(Obj[2],"Side Back"); }
    if (lang == 4) { name_object(Obj[2],"Side Back"); }
    if (lang == 5) { name_object(Obj[2],"Side Back"); }
    if (lang == 6) { name_object(Obj[2],"Side Back"); }
    }

  //Object 60a
  if (HideObj[3] == 0)
    {
  if (lang == 0)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[3] = newobject("Text","Center Front Remove seam and cut on fold ",1.5707963267949,0.35,0.35,"PatternMaker");
    }

  current_point=addpoint(x[4],(y[4]+1),"LINE");
    if (lang == 0) { name_object(Obj[3],"60a"); }
    if (lang == 1) { name_object(Obj[3],"60a"); }
    if (lang == 2) { name_object(Obj[3],"60a"); }
    if (lang == 3) { name_object(Obj[3],"60a"); }
    if (lang == 4) { name_object(Obj[3],"60a"); }
    if (lang == 5) { name_object(Obj[3],"60a"); }
    if (lang == 6) { name_object(Obj[3],"60a"); }
    }

  //Object Side Front
  if (HideObj[4] == 0)
    {

  Obj[4] = newobject("poly");
  current_point=addpoint(x[37],y[37],"XARC_START");
  current_point=addpoint(x[56],y[56],"XARC_CORNER");
  current_point=addpoint(x[39],y[39],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[47],y[47],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[135],y[135],"XARC_CORNER");
  current_point=addpoint(x[48],y[48],"LINE");
  current_point=addpoint(x[125],y[125],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[124],y[124],"XARC_START");
  current_point=addpoint(x[134],y[134],"XARC_CORNER");
  current_point=addpoint(x[123],y[123],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[122],y[122],"LINE");
  current_point=addpoint(x[126],y[126],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[87],y[87],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[34],y[34],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[36],y[36],"XARC_CORNER");
  current_point=addpoint(x[30],y[30],"LINE");
    if (lang == 0) { name_object(Obj[4],"Side Front"); }
    if (lang == 1) { name_object(Obj[4],"Side Front"); }
    if (lang == 2) { name_object(Obj[4],"Side Front"); }
    if (lang == 3) { name_object(Obj[4],"Side Front"); }
    if (lang == 4) { name_object(Obj[4],"Side Front"); }
    if (lang == 5) { name_object(Obj[4],"Side Front"); }
    if (lang == 6) { name_object(Obj[4],"Side Front"); }
    }

  //Object SFgrainline
  if (HideObj[5] == 0)
    {

  Obj[5] = newobject("poly");
  current_point=addpoint(x[75],y[75],"LINE");
  current_point=addpoint(x[133],y[133],"OPEN");
    if (lang == 0) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 1) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 2) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 3) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 4) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 5) { name_object(Obj[5],"SFgrainline"); }
    if (lang == 6) { name_object(Obj[5],"SFgrainline"); }
    }

  //Object Sfgrainline
  if (HideObj[6] == 0)
    {

  Obj[6] = newobject("poly");
  current_point=addpoint(x[29],y[29],"LINE");
  current_point=addpoint(x[132],y[132],"OPEN");
    if (lang == 0) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 1) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 2) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 3) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 4) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 5) { name_object(Obj[6],"Sfgrainline"); }
    if (lang == 6) { name_object(Obj[6],"Sfgrainline"); }
    }

  //Object 60g
  if (HideObj[6] == 0)
    {
  if (lang == 0)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[6] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[132],(y[132]+1),"LINE");
    if (lang == 0) { name_object(Obj[6],"60g"); }
    if (lang == 1) { name_object(Obj[6],"60g"); }
    if (lang == 2) { name_object(Obj[6],"60g"); }
    if (lang == 3) { name_object(Obj[6],"60g"); }
    if (lang == 4) { name_object(Obj[6],"60g"); }
    if (lang == 5) { name_object(Obj[6],"60g"); }
    if (lang == 6) { name_object(Obj[6],"60g"); }
    }

  //Object 60h
  if (HideObj[7] == 0)
    {
  if (lang == 0)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[7] = newobject("Text","Grainline",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[133],(y[133]+1),"LINE");
    if (lang == 0) { name_object(Obj[7],"60h"); }
    if (lang == 1) { name_object(Obj[7],"60h"); }
    if (lang == 2) { name_object(Obj[7],"60h"); }
    if (lang == 3) { name_object(Obj[7],"60h"); }
    if (lang == 4) { name_object(Obj[7],"60h"); }
    if (lang == 5) { name_object(Obj[7],"60h"); }
    if (lang == 6) { name_object(Obj[7],"60h"); }
    }

  //Object Txt cb1 
  if (HideObj[8] == 0)
    {
  if (lang == 0)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[8] = newobject("Text","Center Back",4.71238898038469,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[98],(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 1) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 2) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 3) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 4) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 5) { name_object(Obj[8],"Txt cb1 "); }
    if (lang == 6) { name_object(Obj[8],"Txt cb1 "); }
    }

  //Object Txt cb2 
  if (HideObj[9] == 0)
    {
  if (lang == 0)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[9] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 1) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 2) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 3) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 4) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 5) { name_object(Obj[9],"Txt cb2 "); }
    if (lang == 6) { name_object(Obj[9],"Txt cb2 "); }
    }

  //Object Txt cb3
  if (HideObj[10] == 0)
    {
  if (lang == 0)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[10] = newobject("Text","Center Back",0,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),y[98],"LINE");
    if (lang == 0) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 1) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 2) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 3) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 4) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 5) { name_object(Obj[10],"Txt cb3"); }
    if (lang == 6) { name_object(Obj[10],"Txt cb3"); }
    }

  //Object Txt cb4
  if (HideObj[11] == 0)
    {
  if (lang == 0)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[11] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[98]+1),(y[98]+-1),"LINE");
    if (lang == 0) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 1) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 2) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 3) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 4) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 5) { name_object(Obj[11],"Txt cb4"); }
    if (lang == 6) { name_object(Obj[11],"Txt cb4"); }
    }

  //Object Txt sb1
  if (HideObj[12] == 0)
    {
  if (lang == 0)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[12] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+1.5),"LINE");
    if (lang == 0) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 1) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 2) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 3) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 4) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 5) { name_object(Obj[12],"Txt sb1"); }
    if (lang == 6) { name_object(Obj[12],"Txt sb1"); }
    }

  //Object Txt sb2
  if (HideObj[13] == 0)
    {
  if (lang == 0)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[13] = newobject("Text","Side Back",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),(y[128]+0.5),"LINE");
    if (lang == 0) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 1) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 2) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 3) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 4) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 5) { name_object(Obj[13],"Txt sb2"); }
    if (lang == 6) { name_object(Obj[13],"Txt sb2"); }
    }

  //Object Txt sb3
  if (HideObj[14] == 0)
    {
  if (lang == 0)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[14] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[128]+1),y[128],"LINE");
    if (lang == 0) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 1) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 2) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 3) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 4) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 5) { name_object(Obj[14],"Txt sb3"); }
    if (lang == 6) { name_object(Obj[14],"Txt sb3"); }
    }

  //Object Txt sf1
  if (HideObj[15] == 0)
    {
  if (lang == 0)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[15] = newobject("Text","Bustier ",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),y[126],"LINE");
    if (lang == 0) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 1) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 2) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 3) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 4) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 5) { name_object(Obj[15],"Txt sf1"); }
    if (lang == 6) { name_object(Obj[15],"Txt sf1"); }
    }

  //Object Txt sf2
  if (HideObj[16] == 0)
    {
  if (lang == 0)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[16] = newobject("Text","Side Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-0.75),"LINE");
    if (lang == 0) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 1) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 2) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 3) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 4) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 5) { name_object(Obj[16],"Txt sf2"); }
    if (lang == 6) { name_object(Obj[16],"Txt sf2"); }
    }

  //Object Txt sf3
  if (HideObj[17] == 0)
    {
  if (lang == 0)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[17] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[126]+1.5),(y[126]+-1.5),"LINE");
    if (lang == 0) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 1) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 2) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 3) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 4) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 5) { name_object(Obj[17],"Txt sf3"); }
    if (lang == 6) { name_object(Obj[17],"Txt sf3"); }
    }

  //Object Txt cf1
  if (HideObj[18] == 0)
    {
  if (lang == 0)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[18] = newobject("Text","Bustier",0,0.6,0.6,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),y[97],"LINE");
    if (lang == 0) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 1) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 2) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 3) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 4) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 5) { name_object(Obj[18],"Txt cf1"); }
    if (lang == 6) { name_object(Obj[18],"Txt cf1"); }
    }

  //Object Txt cf2
  if (HideObj[19] == 0)
    {
  if (lang == 0)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[19] = newobject("Text","Center Front",0,0.4,0.4,"PatternMaker");
    }

  current_point=addpoint((x[97]+1),(y[97]+-1),"LINE");
    if (lang == 0) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 1) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 2) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 3) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 4) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 5) { name_object(Obj[19],"Txt cf2"); }
    if (lang == 6) { name_object(Obj[19],"Txt cf2"); }
    }

  //Object Txt cf3
  if (HideObj[20] == 0)
    {
  if (lang == 0)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[20] = newobject("Text","GINANI PATTERNS",0,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint((x[97]+1.5),(y[97]+-2),"LINE");
    if (lang == 0) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 1) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 2) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 3) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 4) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 5) { name_object(Obj[20],"Txt cf3"); }
    if (lang == 6) { name_object(Obj[20],"Txt cf3"); }
    }

  //Object Txt cf4
  if (HideObj[21] == 0)
    {
  if (lang == 0)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[21] = newobject("Text","Grainline",1.5707963267949,0.3,0.3,"PatternMaker");
    }

  current_point=addpoint(x[43],y[43],"LINE");
    if (lang == 0) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 1) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 2) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 3) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 4) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 5) { name_object(Obj[21],"Txt cf4"); }
    if (lang == 6) { name_object(Obj[21],"Txt cf4"); }
    }

  //Object Txt cb5
  if (HideObj[22] == 0)
    {
  if (lang == 0)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[22] = newobject("Text","Grainline",4.71238898038469,0.2,0.2,"PatternMaker");
    }

  current_point=addpoint(x[58],(y[58]+-2),"LINE");
    if (lang == 0) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 1) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 2) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 3) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 4) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 5) { name_object(Obj[22],"Txt cb5"); }
    if (lang == 6) { name_object(Obj[22],"Txt cb5"); }
    }
  offset_mark(0, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(1, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(2, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  offset_mark(4, CheckToMetric(0 + Var[52]/1));
  group(current_selection);
  deselect(current_selection);

  }


mark(double pass_index)
 {
  if (Obj[pass_index]==0)
    {
    return;
    }
  Obj[pass_index]=marker_piece(Obj[pass_index],1);
  Mrk[marker_count] = Obj[pass_index];
  marker_count = marker_count + 1;
 }

offset_mark(double pass_index, double value)
 {
  point pnt, test;
  double save_x, save_y;

  if (Obj[pass_index]==0)
    {
    current_selection=newselection("OBJECT");
    return;
    }

  if (value != 0)
    {
    current_selection=newselection("OBJECT");
    select(current_selection,Obj[pass_index]);
    sel_push(current_selection);
    var_push(value);
    run_command("OFFSET");
    deselect(current_selection);
    Mrk[marker_count] = marker_piece(last_obj(),1);
    current_selection=newselection("OBJECT");
    select(current_selection, Mrk[marker_count]);
    select(current_selection, Obj[pass_index]);
    marker_count = marker_count + 1;
    }
  else
    {
    Obj[pass_index]=marker_piece(Obj[pass_index],1);
    Mrk[marker_count] = Obj[pass_index];
    current_selection=newselection("OBJECT");
    select(current_selection, Mrk[marker_count]);
    marker_count = marker_count + 1;
    }
 }
offset(double pass_index, double value)
 {
  point pnt, test;
  double save_x, save_y;
  if (Obj[pass_index]==0)
    {
    current_selection=newselection("OBJECT");
    return;
    }

  if (value != 0)
    {
    current_selection=newselection("OBJECT");
    select(current_selection,Obj[pass_index]);
    sel_push(current_selection);
    var_push(value);
    run_command("OFFSET");
    deselect(current_selection);
    current_selection=newselection("OBJECT");
    select(current_selection, last_obj());
    select(current_selection, Obj[pass_index]);
    }
  else
    {
    current_selection=newselection("OBJECT");
    select(current_selection, Obj[pass_index]);
    }
 }

double t0[2], t1[2];
double ftc[2];
double xar[13], yar[13];
double rx, ry;

arclength(double start, double corner, double end)  
{  
  double ct, last_x, last_y; double a_dist;
  last_x = x[start];
  last_y = y[start];
  a_dist=0; fts(start, corner, end, 0);
  for (ct=1; ct < 12; ct = ct + 1)
    {
    fts(start, corner, end, ct);
    a_dist = a_dist + distance(rx, ry, last_x, last_y);
    last_x=rx; last_y=ry;
    }   
  return a_dist;
} 
  
calc_if(double top, double bottom)
{
  if (Var[bottom] != 0)
    {
    return Var[top]/Var[bottom];
    }
  return 0;
}
  
cont (double cstart, double cend, double cdest, double cdist)
{
  double ang;
  ang=angle(x[cstart],y[cstart], x[cend], y[cend]);
  polar(x[cend],y[cend],ang,cdist);
  x[cdest]=getresultx();
  y[cdest]=getresulty();
}

  
LineArcIntersect(double start, double corner, double end, double lstart, double lend, double dest)
{
  x[dest]=0;
  y[dest]=0;
  if (arc_line_intersect(x[start], y[start], x[corner], y[corner], x[end], y[end], x[lstart], y[lstart], x[lend], y[lend], 1))
    {
    x[dest]=getresultx();
    y[dest]=getresulty();
    }
}

  
ArcArcIntersect(double start, double corner, double end, double a2start, double a2corner, double a2end, double dest)
{
  x[dest]=0;
  y[dest]=0;
  if (arc_arc_intersect(x[start], y[start], x[corner], y[corner], x[end], y[end], x[a2start], y[a2start], x[a2corner], y[a2corner], x[a2end], y[a2end],1))
    {
    x[dest]=getresultx();
    y[dest]=getresulty();
    }
}

  
LinePointDist(double dest, double line_start, double line_end, double from, double dist, double clockwise)
{
  double calc_dist, ang;
  LinePnt(dest, line_start, line_end, from);
  calc_dist=distance(x[from],y[from],x[dest],y[dest]);
  if (dist <= calc_dist)
    {
    x[dest] = 0;
    y[dest] = 0;
    }
  else
    {
    calc_dist=sqrt(dist*dist-calc_dist*calc_dist);
    ang=angle(x[from],y[from],x[dest],y[dest]);
    if (clockwise==1)
      {
      ang=ang+3.14159/2;
      }
    if (clockwise!=1)
      {
      ang=ang-3.14159/2;
      }
    x[dest] = x[dest] + calc_dist*cos(ang);
    y[dest] = y[dest] + calc_dist*sin(ang);
    }
}

  
Dart(double dest, double start, double end, double dist2, double dir)
{
  double dist, ang, dx, dy, h;
  dx=x[start]-x[end];
  dy=y[start]-y[end];
  dist=sqrt(dx*dx+dy*dy);
  h=sqrt((dist*dist)+(dist2/2)*(dist2/2));
  ang=atan(h,(dist2/2));
  if (dir==0)
    {
    ang=ang+angle(x[start], y[start], x[end], y[end]);
    }
  if (dir!=0)
    {
    ang=angle(x[start], y[start], x[end], y[end])-ang;
    }
  x[dest]=x[start]+dist2*cos(ang);
  y[dest]=y[start]+dist2*sin(ang);
}

  
LinePnt(double dest, double line_start, double line_end, double from)
{
  double v2x, v2y;
  double v1x, v1y;
  double dot;
  double norm2;
  v1x= x[from] - x[line_start];
  v1y= y[from] - y[line_start];
  v2x = x[line_end]-x[line_start];
  v2y = y[line_end]-y[line_start];
  dot = v1x * v2x + v1y * v2y;
  norm2 = sqrt(v2x * v2x + v2y * v2y);
  if (norm2 == 0)
    {
    x[dest] = x[line_start];
    y[dest] = y[line_start];
    }
  else
    {
    x[dest] = x[line_start] + dot * v2x / (norm2*norm2);
    y[dest] = y[line_start] + dot * v2y / (norm2*norm2);
    }
}
  
right_ang(double dest, double start, double end, double dist, double clockwise)
{
  double ang;
  ang=angle(x[start], y[start], x[end], y[end]);
  if (clockwise)
    {
    ang=ang + 3.14159/2;
    }
  if (!clockwise)
    {
    ang=ang - 3.14159/2;
    }
  x[dest]=x[start]+dist*cos(ang);
  y[dest]=y[start]+dist*sin(ang);
}

  
Mirror(double dest, double from, double line_start, double line_end)
{
  double v2x, v2y;
  double v1x, v1y;
  double dot;
  double norm2;
  v1x= x[from] - x[line_start];
  v1y= y[from] - y[line_start];
  v2x = x[line_end]-x[line_start];
  v2y = y[line_end]-y[line_start];
  dot = v1x * v2x + v1y * v2y;
  norm2 = sqrt(v2x * v2x + v2y * v2y);
  if (norm2 == 0)
    {
    x[dest] = x[line_start];
    y[dest] = y[line_start];
    }
  else
    {
    x[dest] = x[line_start] + dot * v2x / (norm2*norm2);
    y[dest] = y[line_start] + dot * v2y / (norm2*norm2);
    }
   x[dest]= x[from] + 2*( x[dest] - x[from]);
   y[dest]= y[from] + 2*( y[dest] - y[from]);
}

  
Rotate(double obj_numb, double start, double end, double pass_angle)
{
  double dist, ang;
  dist=distance(x[start], y[start], x[end], y[end]);
  if (dist > 0.01)
  {
    ang=(pass_angle*3.14159)/180 + angle(x[start], y[start], x[end], y[end]);
  }
  else
  {
    ang=0;
  }
  x[obj_numb]=x[start] + dist*cos(ang);
  y[obj_numb]=y[start] + dist*sin(ang);
}
  
RotDist(double obj_numb, double start, double end, double to_rot, double rdist)
{
  double dist, ang, ang2;
  dist=distance(x[start], y[start], x[end], y[end]);
  if (dist > 0.01)
  {
    ang2 = 2*asin(rdist/(2*dist));
    ang=angle(x[start], y[start], x[to_rot], y[to_rot]);
    dist=distance(x[start], y[start], x[to_rot], y[to_rot]);
    x[obj_numb]=x[start] + dist*cos(ang+ang2);
    y[obj_numb]=y[start] + dist*sin(ang+ang2);
  }
  else
  {
    x[obj_numb]=x[to_rot];
    y[obj_numb]=y[to_rot];
  }
}

  
ResizeX(double dest, double first, double second, double pass_scale)
{
  double dx, dy;
  dx=x[first]-x[second];
  dy=y[first]-y[second];
  x[dest]=x[first] - dx*pass_scale;
  y[dest]=y[first] - dy*pass_scale;
}

  
ResizeXY(double dest, double first, double second, double pass_xscale, double pass_yscale)
{
  double dx, dy;
  dx=x[first]-x[second];
  dy=y[first]-y[second];
  x[dest]=x[first] - dx*pass_xscale;
  y[dest]=y[first] - dy*pass_yscale;
}

  
OffsetDistance(double previous, double base, double next, double target, double odistp, double odistn, double iside)
  {
  double prev_ang, next_ang, temp_ang;
  double sin_of_ang, sin_of_temp;
  double off_dist;

  prev_ang = angle(x[base], y[base], x[previous], y[previous]);
  next_ang = angle(x[base], y[base], x[next],y[next]);
  prev_ang = normalizeangle(prev_ang);
  next_ang = normalizeangle(next_ang);
  if (prev_ang>next_ang)
    { temp_ang=(prev_ang + next_ang)/2; }
  else
    { temp_ang=(prev_ang + next_ang)/2 + 3.14159; }
  if (iside > 0)
    { temp_ang = temp_ang + 3.14159; }
  temp_ang = normalizeangle(temp_ang);
  sin_of_ang=sin(prev_ang - temp_ang);
  if (sin_of_ang < 0)
    { sin_of_ang = -sin_of_ang; }
  if (sin_of_ang < 0.1)
    { off_dist=odistp; }
  else
    { off_dist=odistp/sin_of_ang; }
  polar(x[base], y[base], temp_ang, off_dist);
  x[target] = getresultx();
  y[target] = getresulty();
  if (sin_of_ang >= 0.1)
    {
    sin_of_temp = sin(next_ang - prev_ang);
    if (sin_of_temp < 0)
      { sin_of_temp = -sin_of_temp; }
    if ( sin_of_temp >= 0.1 )
      {
      polar( x[target], y[target], prev_ang + (1 - iside) * 3.14159 , (odistn - odistp)/sin_of_temp );
      x[target] = getresultx();
      y[target] = getresulty();
      }
    }
}
  
// These global variables are used by fts for repeated calls.
	double A1, A2, B1, B2;  //transformation vectors
	double sx, sy, cx, cy, ex, ey;

fts(double start, double corner, double end, double pos)
{
  if (pos<1)
  {
  rx=x[start];
  ry=y[start];
  }
  else { if (pos<2)
  {
  sx = x[start];
  sy = y[start];
  cx = x[corner];
  cy = y[corner];
  ex = x[end];
  ey = y[end];

  A1=cx - sx;
  A2=cy - sy;
  B1=cx - ex;
  B2=cy - ey;

  A1=-A1;
  B1=-B1;
  A2=-A2;
  B2=-B2;

  t0[0]=A1;
  t0[1]=B1;
  t1[0]=A2;
  t1[1]=B2;

  ftc[0]= cx + (t0[0] + t0[1]);
  ftc[1]= cy + (t1[0] + t1[1]);

  rx = t0[0]*(xar[pos])+t0[1]*(yar[pos])+ ftc[0];
  ry = t1[0]*(xar[pos])+t1[1]*(yar[pos])+ ftc[1];
  }

  else {if (pos>10)
  {
  rx=x[end];
  ry=y[end];
  }
  else
  {
  rx = t0[0]*(xar[pos])+t0[1]*(yar[pos])+ ftc[0];
  ry = t1[0]*(xar[pos])+t1[1]*(yar[pos])+ ftc[1];
  }}}
}

init_xarc_array()
{
  // Must be called before calling fts().  This routine
  // sets the values in an array of sines and cosines.

  // You only need to call this routine once.

  double ang_start, ang_end, step, theta, ct;
  double XARC_PIECES;
  XARC_PIECES = 12;

  ang_start = -3.14159/2;
  ang_end= -3.14159;

  ct=0;

  step= (ang_end - ang_start)/(XARC_PIECES-1);
  for (theta=ang_start; ct < XARC_PIECES; theta = theta + step)
  {
  xar[ct] = cos(theta);
  yar[ct] = sin(theta);
  ct=ct+1;
  }
  //end init_xarc_array
}

CheckToMetric(double pass)
  {
  if (metric==1)
    {
    pass=pass*2.54;
    }
  return pass;
  }

CheckFromMetric(double pass)
  {
  if (metric==1)
    {
    pass=pass/2.54;
    }
  return pass;
  }