// Copyright (C) 2005, 2014 J.K. Smith Designs and PatternMaker Software
// Converted to PM75 2014-03-24

double lang, index, done, marker_count;
double offset_value;
double Flow[2];
double x[98],y[98];
double metric;
object Obj[8];
double HideObj[8];
selection current_selection;
point current_point;
object current_object;
object Mrk[8];
double temp;
double do_counter, do_max, do_logic;
double Var[66];
double Table[29];

main()
  {
  double read;
  init_xarc_array();
  lang = get_language();
  metric  = unit_mode();
  if ( lang != 0 ) { lang = 0; }

  metric = unit_mode();
  Flow[0] = 0;

  while (!done)
    {
    if (index == 0)
      {
      Popup0();
      }
    }

  if (measure_table("J.K. Smith Designs Measurements")==1)
    {
    read = 1;
    }

  else
    {
    read = 0;
    }

  if (read==0)
    {
    Var[0] = CheckToMetric(20.5);
    Var[1] = CheckToMetric(19);
    Var[2] = CheckToMetric(8);
    Var[3] = CheckToMetric(10);
    Var[4] = CheckToMetric(18);
    Var[5] = CheckToMetric(15);
    Var[6] = CheckToMetric(13.5);
    Var[7] = CheckToMetric(18);
    Var[8] = CheckToMetric(14.5);
    Var[9] = CheckToMetric(15);
    Var[10] = CheckToMetric(14.5);
    Var[11] = CheckToMetric(17.5);
    Var[12] = CheckToMetric(17.5);
    Var[13] = CheckToMetric(16.5);
    Var[14] = CheckToMetric(14.5);
    Var[15] = CheckToMetric(18);
    Var[16] = CheckToMetric(15);
    Var[17] = CheckToMetric(17);
    Var[18] = CheckToMetric(13);
    Var[19] = CheckToMetric(4.5);
    Var[20] = CheckToMetric(8);
    Var[22] = CheckToMetric(0);
    Var[23] = CheckToMetric(0);
    Var[24] = CheckToMetric(0);
    Var[26] = CheckToMetric(23);
    Var[27] = CheckToMetric(13);
    Var[28] = CheckToMetric(12.25);

    if (lang == 0)
      {
      start_picture_input("JKSD Womens Bodice");
      add_picture_input("f1  full bust width", Var[0], "measureF1");
      add_picture_input("f2 above bust width", Var[1], "measureF2");
      add_picture_input("f3 apex to apex", Var[2], "measureF3");
      add_picture_input("f4 bust depth", Var[3], "measureF4");
      add_picture_input("f5 side neck to waist", Var[4], "measureF8");
      add_picture_input("f6 cf neck to waist", Var[5], "measureF6");
      add_picture_input("f7 across chest", Var[6], "measureF7");
      add_picture_input("f8 shoulder slope", Var[7], "measureF8");
      add_picture_input("f9 across shoulders", Var[8], "measureF9");
      add_picture_input("f10 full side length", Var[9], "measureF10");
      add_picture_input("f11 front waist", Var[10], "measureF11");
      add_picture_input("b1 full back width", Var[11], "measureB1");
      add_picture_input("b2 side neck to waist", Var[12], "measureB2");
      add_picture_input("b3 cb neck to waist", Var[13], "measureB3");
      add_picture_input("b4 across back", Var[14], "measureB4");
      add_picture_input("b5 shoulder slope", Var[15], "measureB5");
      add_picture_input("b6 across shoulders", Var[16], "measureB6");
      add_picture_input("b7 full side length", Var[17], "measureB7");
      add_picture_input("b8 back waist", Var[18], "measureB8");
      add_picture_input("fb1shoulder length", Var[19], "measureFB1");
      add_picture_input("fb2 side seam", Var[20], "measureFB2");
      add_picture_input("fb4  waist ease", Var[22], "measureFB4b");
      add_picture_input("fb5 bust ease", Var[23], "measureFB5b");
      add_picture_input("s1 shoulder to wrist", Var[26], "s1sleeve");
      add_picture_input("s2 shoulder to elbow", Var[27], "s2shtoelbow");
      add_picture_input("s3 bicep", Var[28], "s3bicep");

      add_picture_input("seam allowance", Var[24], "meas_seamallow");
      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[10]= CheckFromMetric(Var[10]);
    Var[11]= CheckFromMetric(Var[11]);
    Var[12]= CheckFromMetric(Var[12]);
    Var[13]= CheckFromMetric(Var[13]);
    Var[14]= CheckFromMetric(Var[14]);
    Var[15]= CheckFromMetric(Var[15]);
    Var[16]= CheckFromMetric(Var[16]);
    Var[17]= CheckFromMetric(Var[17]);
    Var[18]= CheckFromMetric(Var[18]);
    Var[19]= CheckFromMetric(Var[19]);
    Var[20]= CheckFromMetric(Var[20]);
    Var[22]= CheckFromMetric(Var[22]);
    Var[23]= CheckFromMetric(Var[23]);
    Var[24]= CheckFromMetric(Var[24]);
    Var[26]= CheckFromMetric(Var[26]);
    Var[27]= CheckFromMetric(Var[27]);
    Var[28]= CheckFromMetric(Var[28]);
    }

  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[20] = Table[20]/2.54;
      Var[21] = Table[21]/2.54;
      Var[22] = Table[22]/2.54;
      Var[23] = Table[23]/2.54;
      Var[24] = Table[24]/2.54;
      Var[26] = Table[25]/2.54;
      Var[27] = Table[26]/2.54;
      Var[28] = Table[27]/2.54;
      Var[52] = Table[28]/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[20] = Table[20];
      Var[21] = Table[21];
      Var[22] = Table[22];
      Var[23] = Table[23];
      Var[24] = Table[24];
      Var[26] = Table[25];
      Var[27] = Table[26];
      Var[28] = Table[27];
      Var[52] = Table[28];
      }
    }

  //Measurements f1 with ease
  Var[25]=Var[23]/2 +    Var[0]/1 +   0;

  //Measurements bust pt from waist
  Var[29]=Var[3]/-1 +    Var[4]/1 +   0;

  //Measurements ease  div 4
  Var[30]=   Var[23]/4 +   0;

  //Measurements apex width w ease
  Var[31]=Var[2]/1 +    Var[30]/1 +   0;

  //Measurements fwaist w ease
  Var[35]=Var[30]/1 +    Var[10]/2 +   0;

  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;

  //Measurements cor side length
  Var[42]=Var[30]/1 +    Var[9]/1 +   0;

  //Measurements cor sl 2
  Var[45]=Var[37]/-2 +    Var[42]/1 +   0;

  //Measurements b1 w ease
  Var[46]=Var[30]/1 +    Var[11]/2 +   0;

  //Measurements apex width w ease
  Var[31]=Var[2]/1 +    Var[30]/1 +   0;

  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;

  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;

  //Measurements fwaist w ease
  Var[35]=Var[30]/1 +    Var[10]/2 +   0;

  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;

  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;

  //Measurements f1 minus f2
  Var[37]=Var[1]/-2 +    Var[0]/2 +   0;

  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;

  //Measurements cor sl 2
  Var[45]=Var[37]/-2 +    Var[42]/1 +   0;

  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;

  //Measurements cor side length
  Var[42]=Var[30]/1 +    Var[9]/1 +   0;

  //Measurements cor sl 2
  Var[45]=Var[37]/-2 +    Var[42]/1 +   0;

  //Measurements cor sl 2
  Var[45]=Var[37]/-2 +    Var[42]/1 +   0;

  //Measurements b1 w ease
  Var[46]=Var[30]/1 +    Var[11]/2 +   0;

  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;

  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;

  //Measurements bwaist w ease
  Var[50]=Var[22]/4 +    Var[18]/2 +   0;

  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;

  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;

  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;

  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;

  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;

  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;

  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;

  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;

  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;

  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;

  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;

  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;

  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;

  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;

  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;

  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;

  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;

  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;

  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;

  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;

  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;

  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;

  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;


  if (Flow[0] == 0)
    {
    Flow0View0();
    }

  if (Flow[1] == 0)
    {
    Flow1View0();
    }

  if (Flow[1] == 1)
    {
    Flow1View1();
    }

  if (Flow[1] == 2)
    {
    Flow1View2();
    }

  current_selection=newselection("OBJECT");

  if (!HideObj[5])
    {
    select(current_selection,Obj[5]);
    }

  group(current_selection);

  if (loop_sel(current_selection))
    {
    current_object = get_sel_obj();

    if (lang == 0)
      {
      name_group(current_object,"ADJ FRONT");
      }
    }

  deselect(current_selection);


  current_selection=newselection("OBJECT");

  if (!HideObj[4])
    {
    select(current_selection,Obj[4]);
    }

  if (!HideObj[6])
    {
    select(current_selection,Obj[6]);
    }

  if (!HideObj[7])
    {
    select(current_selection,Obj[7]);
    }

  group(current_selection);

  if (loop_sel(current_selection))
    {
    current_object = get_sel_obj();

    if (lang == 0)
      {
      name_group(current_object,"BACK");
      }
    }

  deselect(current_selection);

  current_selection=newselection("OBJECT");

  if ( Obj[0] && !HideObj[0])
    {
    select(current_selection,Obj[0]);
    }

  if ( Obj[1] && !HideObj[1])
    {
    select(current_selection,Obj[1]);
    }

  if ( Obj[2] && !HideObj[2])
    {
    select(current_selection,Obj[2]);
    }

  if ( Obj[3] && !HideObj[3])
    {
    select(current_selection,Obj[3]);
    }

  group(current_selection);

  if (loop_sel(current_selection))
    {
    current_object = get_sel_obj();

    if (lang == 0)
      {
      name_group(current_object,"SLEEVE");
      }
    }

  deselect(current_selection);


  current_selection=newselection("OBJECT");

  for (temp=0; temp < 8; 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("sleeve");
    add_pict_item("Sleeveless","wd_nosleeve.jpg");
    add_pict_item("Straight Sleeve","wd_straight_sleeve.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");
    }

//Start
  x[0]=0;
  y[0]=0;//f1
  x[1]=x[0];
  y[1]=y[0]+Var[4]/-1;//f2
  x[2]=x[1];
  y[2]=y[1]+Var[5];//f3
  x[3]=x[0]+Var[6]/2;
  y[3]=y[0];//f4
  x[4]=x[0]+Var[8]/2;
  y[4]=y[0];//f5
  x[5]=x[0]+Var[25]/2;
  y[5]=y[0];//f6
  x[6]=x[4];
  y[6]=y[4]+-7;//f7
  LinePointDist(7, 4, 6, 1,  Var[7]  + 0, 1);//f8
  cont(7, 2, 8, Var[8]/-2+0);//f9
  LinePointDist(9, 0, 5, 8,  Var[19]  + 0, 1);//f10
  right_ang(10, 9, 8,  Var[19]  + 0, 0);//f11
  x[11]=x[2]+Var[19];
  y[11]=y[2];//f12
  intersect(x[11],y[11],x[2],y[2],x[9],y[9],x[10],y[10], 0);
  x[12]=getresultx();
  y[12]=getresulty();//f13
  x[13]=x[12]+1;
  y[13]=y[12];//f14
  x[14]=x[3];
  y[14]=y[3]+Var[3]/-1;//f15
  LinePointDist(15, 3, 14, 8,  + 4, 1);//f16
  x[16]=x[5];
  y[16]=y[5]+Var[42]/-1;//f17
  LinePointDist(17, 5, 16, 15,  Var[42]  + -4, 0);//f18
  cont(5, 17, 18, Var[20]/-1+0);  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
//f21
  right_ang(19, 8, 9,  + 2, 1);  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//f22
  x[20] = x[15];
  y[20] = y[18];//f23
  x[21]=x[1];
  y[21]=y[1]+Var[29];//f24
  x[22]=x[21]+Var[31]/2;
  y[22]=y[21];//f25
  x[23]=x[1]+Var[31]/2+-0.5;
  y[23]=y[1];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
//f26
  Dart(24, 23,  22,  Var[36] /-1 + 0, 0);  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
//f27
  right_ang(25, 17, 18,  + 1, 1);//f28
  x[26] = x[22];
  y[26] = y[18];  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
//f30
  cont(24, 22, 27, Var[38]/-1+0);//f31
  right_ang(28, 27, 22,  Var[37]  + 0, 0);//f34
  intersect(x[22],y[22],x[28],y[28],x[24],y[24],x[17],y[17], 0);
  x[29]=getresultx();
  y[29]=getresulty();  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
//f35
  LinePointDist(30, 18, 17, 9,  Var[40]  + 0, 0);//f36
  x[31]=x[17]+Var[41];
  y[31]=y[17];//f37
  LinePointDist(32, 30, 31, 15,  Var[45]  + -4, 0);//f38
  cont(30, 32, 33, Var[20]/-1+0);//f39
  cont(32, 29, 34, Var[43]/-1+0);//f40
  right_ang(35, 34, 33,  Var[43] /-2 + 0, 0);//f41
  cont(23, 22, 36, Var[44]/-1+0);//f42
  x[37]= (x[1]+x[23])/2;
  y[37]=(y[1]+y[23])/2;//f43
  right_ang(38, 33, 34,  Var[1] /4 + 0, 0);//f44
  intersect(x[8],y[8],x[15],y[15],x[33],y[33],x[38],y[38], 0);
  x[39]=getresultx();
  y[39]=getresulty();//f45
  cont(33, 39, 40, Var[30]/-1+-0.5);  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//b1
  x[41]=x[31]+Var[24]/0.5+1; // seam allowance
  y[41]=y[31];//b2
  x[42]=x[41];
  y[42]=y[41]+Var[12];//b3
  x[43]=x[42]+Var[46]+1;
  y[43]=y[42];//b4
  x[44] = x[43];
  y[44] = y[41];//b5
  x[45]=x[44]+-0.75;
  y[45]=y[44];//b6
  cont(43, 45, 46, Var[13]/-1+0);//b7
  x[47]=x[43]+Var[16]/-2;
  y[47]=y[43];//b8
  x[48]=x[47];
  y[48]=y[47]+Var[17]/-2;//b9
  LinePointDist(49, 47, 48, 45,  Var[15]  + 0, 0);//b10
  LinePointDist(50, 47, 43, 49,  Var[19]  + 0, 0);//b9a
  cont(50, 49, 51, +0.5);//b12
  x[52]=x[49];
  y[52]=y[49]+-4;//b13
  x[53] = x[46];
  y[53] = y[52];//b14
  x[54]=x[53]+Var[14]/-2;
  y[54]=y[53];//b15
  x[55]= (x[53]+x[44])/2;
  y[55]=(y[53]+y[44])/2;//b16
  x[56] = x[50];
  y[56] = y[46];//b17
  LinePointDist(57, 41, 42, 54,  Var[17]  + -4, 1);//b18
  cont(42, 57, 58, Var[20]/-1+0);//b19
  x[59] = x[49];
  y[59] = y[58];//b14a
  x[60]=x[54]+0.5;
  y[60]=y[54];//b20
  right_ang(61, 51, 50,  + 0.5, 0);//b21
  x[62]= (x[54]+x[59])/2;
  y[62]=(y[54]+y[59])/2;  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//b22
  intersect(x[45],y[45],x[49],y[49],x[58],y[58],x[59],y[59], 0);
  x[63]=getresultx();
  y[63]=getresulty();//b23
  x[64] = x[63];
  y[64] = y[44];  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
//b26
  x[65]=x[41]+Var[51]/2;
  y[65]=y[41];//b27
  cont(65, 58, 66, Var[20]/-1+0);//23a
  intersect(x[63],y[63],x[64],y[64],x[45],y[45],x[66],y[66], 0);
  x[67]=getresultx();
  y[67]=getresulty();//b28
  right_ang(68, 66, 58,  + 0.5, 0);//b29
  right_ang(69, 45, 55,  + -0.5, 0);//b30
  cont(45, 67, 70, Var[51]/-4+0);//b31
  Dart(71, 70,  63,  Var[51] /2 + 0, 0);//b32
  x[72]= (x[51]+x[50])/2;
  y[72]=(y[51]+y[50])/2;//b33
  right_ang(73, 72, 50,  + 3, 0);//b34
  cont(50, 72, 74, +-0.25);//b35
  cont(73, 74, 75, +1);//b36
  LinePnt( 76, 73, 75, 50 );//b37
  Dart(77, 76,  73,  + -0.5, 0);

  //Object Back
  if (!HideObj[4])
    {

    Obj[4] = newobject("poly");
    current_point=addpoint(x[45],y[45],"XARC_START");
    current_point=addpoint(x[55],y[55],"XARC_CORNER");
    current_point=addpoint(x[53],y[53],"LINE");
    current_point=addpoint(x[46],y[46],"XARC_START");
    current_point=addpoint(x[56],y[56],"XARC_CORNER");
    current_point=addpoint(x[50],y[50],"LINE");
    current_point=addpoint(x[76],y[76],"LINE");
    current_point=addpoint(x[73],y[73],"LINE");
    current_point=addpoint(x[77],y[77],"LINE");
    current_point=addpoint(x[51],y[51],"LINE");
    current_point=addpoint(x[61],y[61],"XARC_START");
    current_point=addpoint(x[60],y[60],"XARC_CORNER");
    current_point=addpoint(x[62],y[62],"XARC_START");
    current_point=addpoint(x[59],y[59],"XARC_CORNER");
    current_point=addpoint(x[58],y[58],"LINE");
    current_point=addpoint(x[66],y[66],"XARC_START");
    current_point=addpoint(x[68],y[68],"XARC_CORNER");
    current_point=addpoint(x[71],y[71],"LINE");
    current_point=addpoint(x[63],y[63],"LINE");
    current_point=addpoint(x[70],y[70],"XARC_START");
    current_point=addpoint(x[69],y[69],"XARC_CORNER");

    if (lang == 0)
      {
      name_object(Obj[4],"Back");
      }
    }

  //Object adj front
  if (!HideObj[5])
    {

    Obj[5] = newobject("poly");
    current_point=addpoint(x[1],y[1],"XARC_START");
    current_point=addpoint(x[37],y[37],"XARC_CORNER");
    current_point=addpoint(x[36],y[36],"LINE");
    current_point=addpoint(x[22],y[22],"LINE");
    current_point=addpoint(x[29],y[29],"XARC_START");
    current_point=addpoint(x[35],y[35],"XARC_CORNER");
    current_point=addpoint(x[34],y[34],"LINE");
    current_point=addpoint(x[33],y[33],"XARC_START");
    current_point=addpoint(x[40],y[40],"XARC_CORNER");
    current_point=addpoint(x[15],y[15],"XARC_START");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint(x[19],y[19],"XARC_CORNER");
    current_point=addpoint(x[8],y[8],"LINE");
    current_point=addpoint(x[9],y[9],"XARC_START");
    current_point=addpoint(x[13],y[13],"XARC_CORNER");
    current_point=addpoint(x[2],y[2],"LINE");

    if (lang == 0)
      {
      name_object(Obj[5],"adj front");
      }

    }

  //Object J.K. Smith Designs
  if (!HideObj[6])
    {
    if (lang == 0)
      {
      Obj[6] = newobject("Text","(c) J.K. Smith Designs",0,0.25,0.25,"SIMP.CHR");
      }

    current_point=addpoint(x[14],y[14],"LINE");

    if (lang == 0)
      {
      name_object(Obj[6],"J.K. Smith Designs");
      }

    }

  //Object JKSD
  if (!HideObj[7])
    {
    if (lang == 0)
      {
      Obj[7] = newobject("Text","(c) J.K. Smith Designs",0,0.25,0.25,"SIMP.CHR");
      }


    current_point=addpoint(x[59],y[59],"LINE");

    if (lang == 0)
      {
      name_object(Obj[7],"JKSD");
      }

    }
  }

Flow1View0()
  {
  do_counter=0;
  do_max=0;

  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View0");
    }

//Start
  x[0]=0;
  y[0]=0;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s1
  x[78]=x[43]+Var[60]/3;
  y[78]=y[43];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s2
  x[79]=x[78]+Var[28];
  y[79]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s3
  x[80]=x[79];
  y[80]=y[79]+Var[60]/-1+-0.85;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s4
  x[81]=x[79];
  y[81]=y[79]+Var[27]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s5
  x[82]=x[79];
  y[82]=y[79]+Var[26]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s6
  x[83]=x[78]+Var[62];
  y[83]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s7
  x[84] = x[83];
  y[84] = y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s14
  x[85]=x[80]+Var[63]/-4+-0.5;
  y[85]=y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s16
  x[86] = x[78];
  y[86] = y[85];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s17
  x[87]=x[86]+Var[62]/4+0.5;
  y[87]=y[86];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s18
  x[88]= (x[86]+x[83])/2;
  y[88]=(y[86]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s19
  x[89]= (x[80]+x[83])/2;
  y[89]=(y[80]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s8
  x[90] = x[83];
  y[90] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s9
  x[91] = x[83];
  y[91] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s20
  x[92]=x[88];
  y[92]=y[88]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s21
  x[93]=x[89];
  y[93]=y[89]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s22
  x[94]=x[79]+Var[63]/-2+-0.5;
  y[94]=y[79];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s23
  x[95]=x[78]+Var[62]/2+0.5;
  y[95]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s10
  x[96] = x[86];
  y[96] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s11
  x[97] = x[86];
  y[97] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Object sleeve
  if (!HideObj[0])
    {

    Obj[0] = newobject("poly");
    current_point=addpoint(x[96],y[96],"LINE");
    current_point=addpoint(x[97],y[97],"LINE");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[86],y[86],"XARC_START");
    current_point=addpoint(x[87],y[87],"XARC_CORNER");
    current_point=addpoint(x[92],y[92],"XARC_START");
    notch_type(current_point,"DBL_NOTCH",0);
    current_point=addpoint(x[95],y[95],"XARC_CORNER");
    current_point=addpoint(x[83],y[83],"XARC_START");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[94],y[94],"XARC_CORNER");
    current_point=addpoint(x[93],y[93],"XARC_START");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[85],y[85],"XARC_CORNER");
    current_point=addpoint(x[80],y[80],"LINE");
    current_point=addpoint(x[81],y[81],"LINE");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[82],y[82],"LINE");

    if (lang == 0)
      {
      name_object(Obj[0],"sleeve");
      }

    }

  //Object sleeve grain
  if (!HideObj[1])
    {

    Obj[1] = newobject("poly");
    current_point=addpoint(x[84],y[84],"LINE");
    current_point=addpoint(x[90],y[90],"OPEN");

    if (lang == 0)
      {
      name_object(Obj[1],"sleeve grain");
      }

    }

  //Object sleeve grain text
  if (!HideObj[2])
    {
    if (lang == 0)
      {
      Obj[2] = newobject("Text","Grainline",1.5707963267949,0.25,0.25,"SIMP.CHR");
      }

    current_point=addpoint(x[91],(y[91]+-0.5),"LINE");

    if (lang == 0)
      {
      name_object(Obj[2],"sleeve grain text");
      }

    }

  //Object copyright
  if (!HideObj[3])
    {
    if (lang == 0)
      {
      Obj[3] = newobject("Text","(c) J.K. Smith Designs",0,0.25,0.25,"SIMP.CHR");
      }


    current_point=addpoint(x[87],y[87],"LINE");

    if (lang == 0)
      {
      name_object(Obj[3],"copyright");
      }

    }
  }

Flow1View1()
  {
  do_counter=0;
  do_max=0;

  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View1");
    }

//Start
  x[0]=0;
  y[0]=0;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s1
  x[78]=x[43]+Var[60]/3;
  y[78]=y[43];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s2
  x[79]=x[78]+Var[28];
  y[79]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s3
  x[80]=x[79];
  y[80]=y[79]+Var[60]/-1+-0.85;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s4
  x[81]=x[79];
  y[81]=y[79]+Var[27]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s5
  x[82]=x[79];
  y[82]=y[79]+Var[26]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s6
  x[83]=x[78]+Var[62];
  y[83]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s7
  x[84] = x[83];
  y[84] = y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s14
  x[85]=x[80]+Var[63]/-4+-0.5;
  y[85]=y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s16
  x[86] = x[78];
  y[86] = y[85];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s17
  x[87]=x[86]+Var[62]/4+0.5;
  y[87]=y[86];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s18
  x[88]= (x[86]+x[83])/2;
  y[88]=(y[86]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s19
  x[89]= (x[80]+x[83])/2;
  y[89]=(y[80]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s8
  x[90] = x[83];
  y[90] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s9
  x[91] = x[83];
  y[91] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s20
  x[92]=x[88];
  y[92]=y[88]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s21
  x[93]=x[89];
  y[93]=y[89]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s22
  x[94]=x[79]+Var[63]/-2+-0.5;
  y[94]=y[79];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s23
  x[95]=x[78]+Var[62]/2+0.5;
  y[95]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s10
  x[96] = x[86];
  y[96] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s11
  x[97] = x[86];
  y[97] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  }

Flow1View2()
  {
  do_counter=0;
  do_max=0;

  if (is_function("macgen_write"))
    {
    macgen_write("Flow1View2");
    }

//Start
  x[0]=0;
  y[0]=0;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s1
  x[78]=x[43]+Var[60]/3;
  y[78]=y[43];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s2
  x[79]=x[78]+Var[28];
  y[79]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s3
  x[80]=x[79];
  y[80]=y[79]+Var[60]/-1+-0.85;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s4
  x[81]=x[79];
  y[81]=y[79]+Var[27]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s5
  x[82]=x[79];
  y[82]=y[79]+Var[26]/-1;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s6
  x[83]=x[78]+Var[62];
  y[83]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s7
  x[84] = x[83];
  y[84] = y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s14
  x[85]=x[80]+Var[63]/-4+-0.5;
  y[85]=y[80];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s16
  x[86] = x[78];
  y[86] = y[85];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s17
  x[87]=x[86]+Var[62]/4+0.5;
  y[87]=y[86];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s18
  x[88]= (x[86]+x[83])/2;
  y[88]=(y[86]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s19
  x[89]= (x[80]+x[83])/2;
  y[89]=(y[80]+y[83])/2;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s8
  x[90] = x[83];
  y[90] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s9
  x[91] = x[83];
  y[91] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s20
  x[92]=x[88];
  y[92]=y[88]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s21
  x[93]=x[89];
  y[93]=y[89]+0.75;  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s22
  x[94]=x[79]+Var[63]/-2+-0.5;
  y[94]=y[79];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s23
  x[95]=x[78]+Var[62]/2+0.5;
  y[95]=y[78];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s10
  x[96] = x[86];
  y[96] = y[82];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
//s11
  x[97] = x[86];
  y[97] = y[81];  //Measurements f1 to f25
  Var[32]=distance(x[1], y[1], x[23], y[23]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f 25 to f17
  Var[33]=distance(x[23], y[23], x[17], y[17]);
  //Measurements f waist pat
  Var[34]=Var[33]/1 +    Var[32]/1 +   0;
  //Measurements f dart
  Var[36]=Var[34]/1 +    Var[35]/-1 +   0;
  //Measurements f24 to f28
  Var[38]=distance(x[26], y[26], x[22], y[22]);
  //Measurements strap
  Var[39]=distance(x[9], y[9], x[18], y[18]);
  //Measurements cor strap
  Var[40]=Var[37]/-1 +    Var[39]/1 +   0;
  //Measurements f26 to f34
  Var[41]=distance(x[24], y[24], x[29], y[29]);
  //Measurements f26 to f17
  Var[43]=distance(x[24], y[24], x[17], y[17]);
  //Measurements f24 to f34
  Var[44]=distance(x[29], y[29], x[22], y[22]);
  //Measurements b5 to b23
  Var[47]=distance(x[45], y[45], x[64], y[64]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements b23 to b17
  Var[48]=distance(x[64], y[64], x[57], y[57]);
  //Measurements draft b waist
  Var[49]=Var[48]/1 +    Var[47]/1 +   0;
  //Measurements b waist dart
  Var[51]=Var[50]/-1 +    Var[49]/1 +   0;
  //Measurements f8 to f15
  Var[53]=arclength(8, 19, 15);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements f15 to f38
  Var[54]=arclength(15, 40, 33);
  //Measurements front armhole
  Var[57]=Var[54]/1 +    Var[53]/1 +   0;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b20 to b21
  Var[55]=arclength(61, 60, 62);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;
  //Measurements b21 to b18
  Var[56]=arclength(62, 59, 58);
  //Measurements back armhole
  Var[58]=Var[56]/1 +    Var[55]/1 +   0.5;
  //Measurements total armhole
  Var[59]=Var[58]/1 +    Var[57]/1 +   0;
  //Measurements cap height
  Var[60]=   Var[59]/3 +   -0.25;
  //Measurements cap width div
  Var[61]=Var[58]/1 +    Var[57]/-1 +   0;
  //Measurements back cap width
  Var[62]=Var[61]/2 +    Var[28]/2 +   0;
  //Measurements front cap width
  Var[63]=Var[61]/-2 +    Var[28]/2 +   0;
  //Measurements underarm guide
  Var[64]=   Var[63]/8 +   0;

  //Object sleeve
  if (!HideObj[0])
    {

    Obj[0] = newobject("poly");
    current_point=addpoint(x[96],y[96],"LINE");
    current_point=addpoint(x[97],y[97],"LINE");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[86],y[86],"XARC_START");
    current_point=addpoint(x[87],y[87],"XARC_CORNER");
    current_point=addpoint(x[92],y[92],"XARC_START");
    notch_type(current_point,"DBL_NOTCH",0);
    current_point=addpoint(x[95],y[95],"XARC_CORNER");
    current_point=addpoint(x[83],y[83],"XARC_START");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[94],y[94],"XARC_CORNER");
    current_point=addpoint(x[93],y[93],"XARC_START");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[85],y[85],"XARC_CORNER");
    current_point=addpoint(x[80],y[80],"LINE");
    current_point=addpoint(x[81],y[81],"LINE");
    notch_type(current_point,"NOTCH",0);
    current_point=addpoint(x[82],y[82],"LINE");

    if (lang == 0)
      {
      name_object(Obj[0],"sleeve");
      }

    }

  //Object sleeve grain
  if (!HideObj[1])
    {

    Obj[1] = newobject("poly");
    current_point=addpoint(x[84],y[84],"LINE");
    current_point=addpoint(x[90],y[90],"OPEN");

    if (lang == 0)
      {
      name_object(Obj[1],"sleeve grain");
      }

    }

  //Object sleeve grain text
  if (!HideObj[2])
    {
    if (lang == 0)
      {
      Obj[2] = newobject("Text","Grainline",1.5707963267949,0.25,0.25,"SIMP.CHR");
      }

    current_point=addpoint(x[91],(y[91]+-0.5),"LINE");

    if (lang == 0)
      {
      name_object(Obj[2],"sleeve grain text");
      }

    }

  //Object copyright
  if (!HideObj[3])
    {
    if (lang == 0)
      {
      Obj[3] = newobject("Text","(c) J.K. Smith Designs",0,0.25,0.25,"SIMP.CHR");
      }

    current_point=addpoint(x[87],y[87],"LINE");

    if (lang == 0)
      {
      name_object(Obj[3],"copyright");
      }

    }
  }


mark(double pass_index)
  {
  if (!Obj[pass_index])
    {
    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])
    {
    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])
    {
    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.1417/2;
      }

    else
      {
      ang=ang-3.1417/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]);
    }

  else
    {
    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.1417/2;
    }

  else
    {
    ang=ang - 3.1417/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.1417)/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];
    }
  }
resize(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;
  }
scale(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;
  double temp_ang;
  double sin_ang, 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.1416;
    }

  if (iside > 0)
    {
    temp_ang = temp_ang + 3.1416;
    }

  sin_ang=sin(prev_ang-temp_ang);

  if (sin_ang < 0)
    {
    sin_ang = -sin_ang;
    }

  if (sin_ang < .1)
    {
    off_dist=odistp;
    }

  else
    {
    off_dist=odistp/sin_ang;
    }

  polar(x[base], y[base], temp_ang, off_dist);
  x[target] = getresultx();
  y[target] = getresulty();

  if (sin_ang < .1)    {}
  else
    {
    polar(x[target],  y[target], prev_ang,      (odistn-odistp)/sin(next_ang - prev_ang));
    x[target] = getresultx();
    y[target] = getresulty();
    }
  }
calc_cap(double Top, double Inflection, double Bottom, double Top_Corner, double Bottom_Corner, double Meas, double max_count)
  {
  double max, min, guess, count, max_count, meas_dist, dist, delta;

  //max_count = 10;
  meas_dist = Meas;

  y[Top_Corner] = y[Top];
  y[Bottom_Corner] = y[Bottom];

  max =  x[Top] - x[Inflection];
  min = 0;

  for (count = 0; count < max_count; count = count + 1)
    {
    delta = (max-min)/2;
    guess = delta + min;
    x[Top_Corner] = x[Top] - guess;

    intersect(x[Top_Corner], y[Top_Corner],  x[Inflection], y[Inflection],  x[Bottom], y[Bottom],  x[Bottom] + meas_dist, y[Bottom],  0);

    x[Bottom_Corner]  = getresultx();
    dist = arclength(Bottom, Bottom_Corner, Inflection) ;
    dist = dist + arclength(Top, Top_Corner, Inflection);

    //Var[Meas] = dist;


    if (dist > meas_dist)
      {
      max = max - delta;
      }

    else
      {
      min = min + delta;
      }
    }
  }
// 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;
  }