double lang, index, done;
  double Flow[1];
  double x[139],y[139];
  double metric;
  object Obj[38];
  selection current_selection;
  point current_point;
  object Off[38];
  double temp, Var0, Var1, Var2, Var3, Var4, Var5, Var6, Var7, Var8, Var9;
  double Var[58];

//__Inches
main()
  {
  double read;
  init_xarc_array();
  lang = get_language();
  if ( (lang != 0) && ( (lang != 0) && ( (lang != 0) && ( (lang != 0)))))
    {
    lang=0;
    }
  if (is_function("unit_mode")==1)
    {
    metric = unit_mode();
    }
  else
    {
    metric=pop_up("Units","Inches","Centimeters");
    }

  while (!done)
    {
    if (index == 0)
      {
      Popup0();
      }
    if (index == 1)
      {
      Popup1();
      }
    if (index == 2)
      {
      Popup2();
      }
    if (index == 3)
      {
      Popup3();
      }
    if (index == 4)
      {
      Popup4();
      }
    if (index == 5)
      {
      Popup5();
      }
    if (index == 6)
      {
      Popup6();
      }
    if (index == 7)
      {
      Popup7();
      }
    if (index == 8)
      {
      Popup8();
      }
    if (index == 9)
      {
      Popup9();
      }
    }

  if (measure_table("Wrenaissance")==1)
    {
    read = 1;
    }

  if (read==0)
    {
    if (is_function("start_picture_input"))
    	{
      Var[0]=CheckToMetric(20.5);
      Var[1]=CheckToMetric(19);
      Var[2]=CheckToMetric(8);
      Var[3]=CheckToMetric(10.5);
      Var[4]=CheckToMetric(18);
      Var[5]=CheckToMetric(14.5);
      Var[6]=CheckToMetric(13.5);
      Var[7]=CheckToMetric(18);
      Var[8]=CheckToMetric(17.25);
      Var[9]=CheckToMetric(15.5);
      Var[10]=CheckToMetric(15);
      Var[11]=CheckToMetric(18);
      Var[12]=CheckToMetric(17.5);
      Var[13]=CheckToMetric(16.5);
      Var[14]=CheckToMetric(14.25);
      Var[15]=CheckToMetric(18);
      Var[16]=CheckToMetric(15);
      Var[17]=CheckToMetric(16.5);
      Var[18]=CheckToMetric(13);
      Var[19]=CheckToMetric(5);
      Var[20]=CheckToMetric(8.5);
      Var[21]=CheckToMetric(32);
      Var[22]=CheckToMetric(0);
      Var[23]=CheckToMetric(0);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        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],"measureF5");
        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("fb3 underbust",Var[21],"measureFB3");
        add_picture_input("fb4  waist ease",Var[22],"measureFB4");
        add_picture_input("fb5 bust ease",Var[23],"measureFB5");
        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[21]=CheckFromMetric(Var[21]);
      Var[22]=CheckFromMetric(Var[22]);
      Var[23]=CheckFromMetric(Var[23]);
      }
    else 
    {
    Var0=CheckToMetric(20.5);
    Var1=CheckToMetric(19);
    Var2=CheckToMetric(8);
    Var3=CheckToMetric(10.5);
    Var4=CheckToMetric(18);
    Var5=CheckToMetric(14.5);
    Var6=CheckToMetric(13.5);
    Var7=CheckToMetric(18);
    Var8=CheckToMetric(17.25);
    Var9=CheckToMetric(15.5);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","f1  full bust width",Var0,"f2 above bust width",Var1,"f3 apex to apex",Var2,"f4 bust depth",Var3,"f5 side neck to waist",Var4,"f6 cf neck to waist",Var5,"f7 across chest",Var6,"f8 shoulder slope",Var7,"f9 across shoulders",Var8,"f10 full side length",Var9);
      }
    Var[0]=CheckFromMetric(Var0);
    Var[1]=CheckFromMetric(Var1);
    Var[2]=CheckFromMetric(Var2);
    Var[3]=CheckFromMetric(Var3);
    Var[4]=CheckFromMetric(Var4);
    Var[5]=CheckFromMetric(Var5);
    Var[6]=CheckFromMetric(Var6);
    Var[7]=CheckFromMetric(Var7);
    Var[8]=CheckFromMetric(Var8);
    Var[9]=CheckFromMetric(Var9);
    Var0=CheckToMetric(15);
    Var1=CheckToMetric(18);
    Var2=CheckToMetric(17.5);
    Var3=CheckToMetric(16.5);
    Var4=CheckToMetric(14.25);
    Var5=CheckToMetric(18);
    Var6=CheckToMetric(15);
    Var7=CheckToMetric(16.5);
    Var8=CheckToMetric(13);
    Var9=CheckToMetric(5);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","f11 front waist",Var0,"b1 full back width",Var1,"b2 side neck to waist",Var2,"b3 cb neck to waist",Var3,"b4 across back",Var4,"b5 shoulder slope",Var5,"b6 across shoulders",Var6,"b7 full side length",Var7,"b8 back waist",Var8,"fb1shoulder length",Var9);
      }
    Var[10]=CheckFromMetric(Var0);
    Var[11]=CheckFromMetric(Var1);
    Var[12]=CheckFromMetric(Var2);
    Var[13]=CheckFromMetric(Var3);
    Var[14]=CheckFromMetric(Var4);
    Var[15]=CheckFromMetric(Var5);
    Var[16]=CheckFromMetric(Var6);
    Var[17]=CheckFromMetric(Var7);
    Var[18]=CheckFromMetric(Var8);
    Var[19]=CheckFromMetric(Var9);
    Var0=CheckToMetric(8.5);
    Var1=CheckToMetric(32);
    Var2=CheckToMetric(0);
    Var3=CheckToMetric(0);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","fb2 side seam",Var0,"fb3 underbust",Var1,"fb4  waist ease",Var2,"fb5 bust ease",Var3);
      }
    Var[20]=CheckFromMetric(Var0);
    Var[21]=CheckFromMetric(Var1);
    Var[22]=CheckFromMetric(Var2);
    Var[23]=CheckFromMetric(Var3);
    	}
    }
  else
    {
    if (is_function("start_picture_input"))
    	{
    ;
      }
    else 
    {
    ;
    	}
    }

  if (Flow[0] == 0)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 1)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 2)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 3)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 4)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 5)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 6)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 7)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0);
      }
    Var[49]=CheckFromMetric(Var0);
    	}
    }
    if (Flow[0] == 8)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      Var[56]=CheckToMetric(2);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        add_picture_input("point depth",Var[56],"pointdepth");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      Var[56]=CheckFromMetric(Var[56]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    Var1=CheckToMetric(2);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0,"point depth",Var1);
      }
    Var[49]=CheckFromMetric(Var0);
    Var[56]=CheckFromMetric(Var1);
    	}
    }
    if (Flow[0] == 9)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      Var[56]=CheckToMetric(2);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        add_picture_input("point depth",Var[56],"pointdepth");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      Var[56]=CheckFromMetric(Var[56]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    Var1=CheckToMetric(2);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0,"point depth",Var1);
      }
    Var[49]=CheckFromMetric(Var0);
    Var[56]=CheckFromMetric(Var1);
    	}
    }
    if (Flow[0] == 10)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      Var[56]=CheckToMetric(2);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        add_picture_input("point depth",Var[56],"pointdepth");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      Var[56]=CheckFromMetric(Var[56]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    Var1=CheckToMetric(2);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0,"point depth",Var1);
      }
    Var[49]=CheckFromMetric(Var0);
    Var[56]=CheckFromMetric(Var1);
    	}
    }
    if (Flow[0] == 11)
    {
      if (is_function("start_picture_input"))
    	{
      Var[49]=CheckToMetric(0.625);
      Var[56]=CheckToMetric(2);
      if (lang == 0)
        {
        start_picture_input("Ladies Renaissance");
        add_picture_input("desired seam allowance",Var[49],"meas_seamallow");
        add_picture_input("point depth",Var[56],"pointdepth");
        run_picture_input();
        }
      Var[49]=CheckFromMetric(Var[49]);
      Var[56]=CheckFromMetric(Var[56]);
      }
    else 
    {
    Var0=CheckToMetric(0.625);
    Var1=CheckToMetric(2);
    if (lang == 0)
      {
      dialog_box("Ladies Renaissance","desired seam allowance",Var0,"point depth",Var1);
      }
    Var[49]=CheckFromMetric(Var0);
    Var[56]=CheckFromMetric(Var1);
    	}
    }
  
  Var[24]=Var[10]/1+Var[23]/2+-1;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[25]=Var[23]/2+Var[0]/1+0;
  Var[27]=Var[26]/-2+Var[25]/2+0;
  Var[29]=Var[28]/1+Var[25]/1+0;
  Var[30]=Var[21]/-2+Var[29]/2+0;
  Var[26]=Var[23]/2+Var[1]/1+0;
  Var[27]=Var[26]/-2+Var[25]/2+0;
  Var[27]=Var[26]/-2+Var[25]/2+0;
  Var[28]=Var[23]/2+Var[11]/1+-0.5;
  Var[29]=Var[28]/1+Var[25]/1+0;
  Var[30]=Var[21]/-2+Var[29]/2+0;
  Var[29]=Var[28]/1+Var[25]/1+0;
  Var[30]=Var[21]/-2+Var[29]/2+0;
  Var[30]=Var[21]/-2+Var[29]/2+0;
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[39]=Var[22]/2+Var[18]/1+-1;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[43]=Var[42]/1+Var[41]/1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[55]=Var[54]/1+Var[53]/1+0;
  if (Flow[0] == 0)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View3();
  }
    if (Flow[0] == 1)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View4();
  }
    if (Flow[0] == 2)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View6();
  }
    if (Flow[0] == 3)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View7();
  }
    if (Flow[0] == 4)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View10();
  }
    if (Flow[0] == 5)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View11();
  }
    if (Flow[0] == 6)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View13();
  }
    if (Flow[0] == 7)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View14();
  }
    if (Flow[0] == 8)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View17();
  }
    if (Flow[0] == 9)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View18();
  }
    if (Flow[0] == 10)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View20();
  }
    if (Flow[0] == 11)
  {
    if ( Var[0] <= 0+Var[1]/(1) )
    {
    Var[27]=0.1;
    }
Flow0View21();
  }
  
  for (temp=0; temp < 38; temp=temp+1)
    {
    if (Off[temp] != 0)
      {
      current_selection=newselection("OBJECT");
      select(current_selection,Obj[temp]);
      select(current_selection,Off[temp]);
      group(current_selection);
      deselect(current_selection);
      }
    }

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

  run_command("ZOOMALL");
  }

Popup0()
{
  if (lang == 0)
    {
    start_pict_dialog("Renaissance Corset");
    add_pict_item("back open","cnotabfb.jpg");
    add_pict_item("front open","fopennotab.jpg");
    add_pict_item("elongated front","lcnotabstrap.jpg");
    run_pict("Next");
    Flow[0] = get_pict_result();
    Forward();
	  }
}

Popup1()
{
  if (lang == 0)
    {
    start_pict_dialog("back open");
    add_pict_item("no waist tabs","cnotabfb.jpg");
    add_pict_item("waist tabs","ctabfb.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup2()
{
  if (lang == 0)
    {
    start_pict_dialog("no waist tabs");
    add_pict_item("straps","cnotabfb.jpg");
    add_pict_item("no straps","bopenNoStrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup3()
{
  if (lang == 0)
    {
    start_pict_dialog("waist tabs");
    add_pict_item("with straps","ctabfb.jpg");
    add_pict_item("without straps","bopenTabNoStrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup4()
{
  if (lang == 0)
    {
    start_pict_dialog("front open");
    add_pict_item("no tabs at waist","fopennotab.jpg");
    add_pict_item("tabs at waist","fopenwtab.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup5()
{
  if (lang == 0)
    {
    start_pict_dialog("no tabs at waist");
    add_pict_item("shoulder straps","fopennotab.jpg");
    add_pict_item("no shoulder straps","fopenNoStrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup6()
{
  if (lang == 0)
    {
    start_pict_dialog("tabs at waist");
    add_pict_item("with shoulder straps","fopenwtab.jpg");
    add_pict_item("without shoulder straps","fopenTabNoStrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup7()
{
  if (lang == 0)
    {
    start_pict_dialog("elongated front");
    add_pict_item("long no tabs","lcnotabstrap.jpg");
    add_pict_item("long with tabs","lctabstrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup8()
{
  if (lang == 0)
    {
    start_pict_dialog("long no tabs");
    add_pict_item("long with straps","lcnotabstrap.jpg");
    add_pict_item("long without straps","lcnotabnostrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Popup9()
{
  if (lang == 0)
    {
    start_pict_dialog("long with tabs");
    add_pict_item("long with tabs straps","lctabstrap.jpg");
    add_pict_item("long tabs no straps","lctabnostrap.jpg");
	  if (run_pict("Back", "Next"))
	    {
      Flow[0] = get_pict_result();
      Forward();
	    }
	  else
	    {
      Backward();
	    }
	  }
}

Forward()
  {
  if (index == 9)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=11;
      done = 1;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=10;
      done = 1;
      }
    }
  if (index == 8)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=9;
      done = 1;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=8;
      done = 1;
      }
    }
  if (index == 7)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=10;
      index = 9;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=8;
      index = 8;
      }
    }
  if (index == 6)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=7;
      done = 1;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=6;
      done = 1;
      }
    }
  if (index == 5)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=5;
      done = 1;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=4;
      done = 1;
      }
    }
  if (index == 4)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=6;
      index = 6;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=4;
      index = 5;
      }
    }
  if (index == 3)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=3;
      done = 1;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=2;
      done = 1;
      }
    }
  if (index == 2)
    {
    if (Flow[0] == 1)
      {
      done = 1;
      }
    if (Flow[0] == 0)
      {
      done = 1;
      }
    }
  if (index == 1)
    {
    if (Flow[0] == 1)
      {
      Flow[0]=2;
      index = 3;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=0;
      index = 2;
      }
    }
  if (index == 0)
    {
    if (Flow[0] == 2)
      {
      Flow[0]=8;
      index = 7;
      }
    if (Flow[0] == 1)
      {
      Flow[0]=4;
      index = 4;
      }
    if (Flow[0] == 0)
      {
      Flow[0]=0;
      index = 1;
      }
    }
}

Backward()
  {
  if (index == 1)
    {
    if (((Flow[0] == 0) || (Flow[0] == 1)) || ((Flow[0] == 2) || (Flow[0] == 3))) { index = 0; } 
    }
  if (index == 2)
    {
    if ((Flow[0] == 0) || (Flow[0] == 1)) { index = 1; } 
    }
  if (index == 3)
    {
    if ((Flow[0] == 2) || (Flow[0] == 3)) { index = 1; } 
    }
  if (index == 4)
    {
    if (((Flow[0] == 4) || (Flow[0] == 5)) || ((Flow[0] == 6) || (Flow[0] == 7))) { index = 0; } 
    }
  if (index == 5)
    {
    if ((Flow[0] == 4) || (Flow[0] == 5)) { index = 4; } 
    }
  if (index == 6)
    {
    if ((Flow[0] == 6) || (Flow[0] == 7)) { index = 4; } 
    }
  if (index == 7)
    {
    if (((Flow[0] == 8) || (Flow[0] == 9)) || ((Flow[0] == 10) || (Flow[0] == 11))) { index = 0; } 
    }
  if (index == 8)
    {
    if ((Flow[0] == 8) || (Flow[0] == 9)) { index = 7; } 
    }
  if (index == 9)
    {
    if ((Flow[0] == 10) || (Flow[0] == 11)) { index = 7; } 
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f81
  coord(6,110,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[12],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[13],"strap grainline text");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[14],"strap grainline");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[15],"back lb grain");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"back lacing board");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"corset strap");
    }

  Obj[18]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(18,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[18],"corset back");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(19,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[19],"corset side front");
    }

  Obj[20]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  offset(20,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[20],"corset front");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[21],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  select(current_selection,Obj[16]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[16],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[18]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[18],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[21]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[21],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[19]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[19],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"corset strap");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[51]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f81
  coord(6,110,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  Obj[12]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[12],"back lb grain");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(13,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[13],"back lacing board");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[108],y[108],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[109],y[109],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"corset back");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f42");
  current_point=addpoint(x[105],y[105],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f58");
  current_point=addpoint(x[104],y[104],"XARC_CORNER");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f57");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"corset side front");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"corset front");
    }

  if (lang == 0)
    {
    Obj[17]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[17],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[13],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"corset side");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point t1
  coord(1,104,0,-3);

//Point t2
  coord(104,105,0,-1 + Var[46]/-3);

//Point t3
  coord(104,106,0 + Var[48]/6,0);

//Point t4
  coord(106,107,0.5,0 + Var[46]/-3);

//Point t5
  coord(106,108,3,0);

//Point t6
  coord(108,109,-0.5,0 + Var[46]/-3);

//Point t7
  coord(108,110,0 + Var[48]/6,0);

//Point t8
  coord(110,111,0.5,0.5 + Var[46]/-3);

//Point t9
  coord(110,112,3,0);

//Point t10
  coord(112,113,-0.5,0.5 + Var[46]/-3);

//Point t11
  coord(112,114,0 + Var[48]/6,0);

//Point t12
  coord(114,115,0.5,1 + Var[46]/-3);

//Point t13
  coord(114,116,3,0);

//Point t14
  coord(116,117,-0.5,1 + Var[46]/-3);

//Point t15
  coord(116,118,0 + Var[48]/6,0);

//Point t16
  coord(118,119,0.5,1 + Var[46]/-3);

//Point t17
  Center(120,104,106);

//Point t18
  coord(120,121,0,0 + Var[46]/-3);

//Point t19
  coord(104,122,0.5,-0.5);

//Point t20
  Center(123,108,110);

//Point t21
  coord(123,124,0,0.5 + Var[46]/-3);

//Point t22
  coord(108,125,0.5,-0.5);

//Point t23
  Center(126,112,114);

//Point t24
  coord(126,127,0,1 + Var[46]/-3);

//Point t25
  coord(112,128,0.5,-0.5);

//Point t26
  Center(129,116,118);

//Point t27
  coord(129,130,0,1.5 + Var[46]/-3);

//Point t28
  coord(116,131,0.5,-0.5);

//Point f57
  Center(132,19,38);

//Point f58
  Center(133,132,35);

//Point b33
  Center(134,56,61);

//Point b36
  Center(135,57,134);

//Point b37
  Center(136,135,134);

//Point b38
  coord(81,137,1 + Var[14]/-3,0);

//Point f81
  coord(6,138,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","back tab 4 cut 6",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[131],y[131],"LINE");
  name_point(current_point,"t28");
  if (lang == 0)
    {
    name_object(Obj[0],"tab 4 text");
    }

  if (lang == 0)
    {
    Obj[1]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[130],y[130],"LINE");
  name_point(current_point,"t27");
  if (lang == 0)
    {
    name_object(Obj[1],"tab 4 grain text");
    }

  Obj[2]=newobject("poly");
  current_point=addpoint(x[129],y[129],"LINE");
  name_point(current_point,"t26");
  current_point=addpoint(x[130],y[130],"OPEN");
  name_point(current_point,"t27");
  if (lang == 0)
    {
    name_object(Obj[2],"tab 4 grain line");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","side tab 3",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"t25");
  if (lang == 0)
    {
    name_object(Obj[3],"tab 3 text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[127],y[127],"LINE");
  name_point(current_point,"t24");
  if (lang == 0)
    {
    name_object(Obj[4],"tab 3 grain text");
    }

  Obj[5]=newobject("poly");
  current_point=addpoint(x[126],y[126],"LINE");
  name_point(current_point,"t23");
  current_point=addpoint(x[127],y[127],"OPEN");
  name_point(current_point,"t24");
  if (lang == 0)
    {
    name_object(Obj[5],"tab 3 grain line");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"t21");
  if (lang == 0)
    {
    name_object(Obj[6],"tab 2 grain text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","sf tab 2",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"t22");
  if (lang == 0)
    {
    name_object(Obj[7],"tab 2 text");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"t20");
  current_point=addpoint(x[124],y[124],"OPEN");
  name_point(current_point,"t21");
  if (lang == 0)
    {
    name_object(Obj[8],"tab 2 grain line");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","front tab 1",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[122],y[122],"LINE");
  name_point(current_point,"t19");
  if (lang == 0)
    {
    name_object(Obj[9],"tab1 text");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[121],y[121],"LINE");
  name_point(current_point,"t18");
  if (lang == 0)
    {
    name_object(Obj[10],"tab 1 grain text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[120],y[120],"LINE");
  name_point(current_point,"t17");
  current_point=addpoint(x[121],y[121],"OPEN");
  name_point(current_point,"t18");
  if (lang == 0)
    {
    name_object(Obj[11],"tab 1 grain line");
    }

  Obj[12]=newobject("poly");
  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"t13");
  current_point=addpoint(x[117],y[117],"LINE");
  name_point(current_point,"t14");
  current_point=addpoint(x[119],y[119],"LINE");
  name_point(current_point,"t16");
  current_point=addpoint(x[118],y[118],"LINE");
  name_point(current_point,"t15");
  offset(12,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[12],"back tab 4");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[112],y[112],"LINE");
  name_point(current_point,"t9");
  current_point=addpoint(x[113],y[113],"LINE");
  name_point(current_point,"t10");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"t12");
  current_point=addpoint(x[114],y[114],"LINE");
  name_point(current_point,"t11");
  offset(13,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[13],"tab 3");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"t5");
  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"t6");
  current_point=addpoint(x[111],y[111],"LINE");
  name_point(current_point,"t8");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"t7");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"tab 2");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"t1");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"t2");
  current_point=addpoint(x[107],y[107],"LINE");
  name_point(current_point,"t4");
  current_point=addpoint(x[106],y[106],"LINE");
  name_point(current_point,"t3");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"cf tab 1");
    }

  if (lang == 0)
    {
    Obj[16]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[16],"lb fold text");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[17],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[18]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[18],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[19]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[19],"corset front text");
    }

  if (lang == 0)
    {
    Obj[20]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[20],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[21],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[22]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[22],"side front text");
    }

  if (lang == 0)
    {
    Obj[23]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[23],"side front grain line");
    }

  Obj[24]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[24],"side front grain");
    }

  if (lang == 0)
    {
    Obj[25]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[25],"corset back text");
    }

  Obj[26]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[26],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[27]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[27],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[28]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[28],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[29]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[29],"strap grainline text");
    }

  Obj[30]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[30],"strap grainline");
    }

  Obj[31]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[31],"back lb grain");
    }

  Obj[32]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(32,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[32],"back lacing board");
    }

  Obj[33]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(33,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[33],"corset strap");
    }

  Obj[34]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(34,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[34],"corset back");
    }

  Obj[35]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(35,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[35],"corset side front");
    }

  Obj[36]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  offset(36,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[36],"corset front");
    }

  if (lang == 0)
    {
    Obj[37]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[138],y[138],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[37],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  select(current_selection,Obj[21]);
  select(current_selection,Obj[27]);
  select(current_selection,Obj[31]);
  select(current_selection,Obj[32]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[32],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[18]);
  select(current_selection,Obj[25]);
  select(current_selection,Obj[26]);
  select(current_selection,Obj[34]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[34],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[19]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[36]);
  select(current_selection,Obj[37]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[37],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[22]);
  select(current_selection,Obj[23]);
  select(current_selection,Obj[24]);
  select(current_selection,Obj[35]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[35],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[28]);
  select(current_selection,Obj[29]);
  select(current_selection,Obj[30]);
  select(current_selection,Obj[33]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[33],"corset strap");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"tab 1");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"tab 2");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[13]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[13],"tab 3");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[2]);
  select(current_selection,Obj[12]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[12],"tab 4");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[51]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point t1
  coord(1,104,0,-3);

//Point t2
  coord(104,105,0,-1 + Var[46]/-3);

//Point t3
  coord(104,106,0 + Var[48]/6,0);

//Point t4
  coord(106,107,0.5,0 + Var[46]/-3);

//Point t5
  coord(106,108,3,0);

//Point t6
  coord(108,109,-0.5,0 + Var[46]/-3);

//Point t7
  coord(108,110,0 + Var[48]/6,0);

//Point t8
  coord(110,111,0.5,0.5 + Var[46]/-3);

//Point t9
  coord(110,112,3,0);

//Point t10
  coord(112,113,-0.5,0.5 + Var[46]/-3);

//Point t11
  coord(112,114,0 + Var[48]/6,0);

//Point t12
  coord(114,115,0.5,1 + Var[46]/-3);

//Point t13
  coord(114,116,3,0);

//Point t14
  coord(116,117,-0.5,1 + Var[46]/-3);

//Point t15
  coord(116,118,0 + Var[48]/6,0);

//Point t16
  coord(118,119,0.5,1 + Var[46]/-3);

//Point t17
  Center(120,104,106);

//Point t18
  coord(120,121,0,0 + Var[46]/-3);

//Point t19
  coord(104,122,0.5,-0.5);

//Point t20
  Center(123,108,110);

//Point t21
  coord(123,124,0,0.5 + Var[46]/-3);

//Point t22
  coord(108,125,0.5,-0.5);

//Point t23
  Center(126,112,114);

//Point t24
  coord(126,127,0,1 + Var[46]/-3);

//Point t25
  coord(112,128,0.5,-0.5);

//Point t26
  Center(129,116,118);

//Point t27
  coord(129,130,0,1.5 + Var[46]/-3);

//Point t28
  coord(116,131,0.5,-0.5);

//Point f57
  Center(132,19,38);

//Point f58
  Center(133,132,35);

//Point b33
  Center(134,56,61);

//Point b36
  Center(135,57,134);

//Point b37
  Center(136,135,134);

//Point b38
  coord(81,137,1 + Var[14]/-3,0);

//Point f81
  coord(6,138,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","back tab 4 cut 6",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[131],y[131],"LINE");
  name_point(current_point,"t28");
  if (lang == 0)
    {
    name_object(Obj[0],"tab 4 text");
    }

  if (lang == 0)
    {
    Obj[1]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[130],y[130],"LINE");
  name_point(current_point,"t27");
  if (lang == 0)
    {
    name_object(Obj[1],"tab 4 grain text");
    }

  Obj[2]=newobject("poly");
  current_point=addpoint(x[129],y[129],"LINE");
  name_point(current_point,"t26");
  current_point=addpoint(x[130],y[130],"OPEN");
  name_point(current_point,"t27");
  if (lang == 0)
    {
    name_object(Obj[2],"tab 4 grain line");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","side tab 3",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"t25");
  if (lang == 0)
    {
    name_object(Obj[3],"tab 3 text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[127],y[127],"LINE");
  name_point(current_point,"t24");
  if (lang == 0)
    {
    name_object(Obj[4],"tab 3 grain text");
    }

  Obj[5]=newobject("poly");
  current_point=addpoint(x[126],y[126],"LINE");
  name_point(current_point,"t23");
  current_point=addpoint(x[127],y[127],"OPEN");
  name_point(current_point,"t24");
  if (lang == 0)
    {
    name_object(Obj[5],"tab 3 grain line");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"t21");
  if (lang == 0)
    {
    name_object(Obj[6],"tab 2 grain text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","sf tab 2",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"t22");
  if (lang == 0)
    {
    name_object(Obj[7],"tab 2 text");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"t20");
  current_point=addpoint(x[124],y[124],"OPEN");
  name_point(current_point,"t21");
  if (lang == 0)
    {
    name_object(Obj[8],"tab 2 grain line");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","front tab 1",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[122],y[122],"LINE");
  name_point(current_point,"t19");
  if (lang == 0)
    {
    name_object(Obj[9],"tab1 text");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","grain line",1.5707963267949,0.35,0.35,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[121],y[121],"LINE");
  name_point(current_point,"t18");
  if (lang == 0)
    {
    name_object(Obj[10],"tab 1 grain text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[120],y[120],"LINE");
  name_point(current_point,"t17");
  current_point=addpoint(x[121],y[121],"OPEN");
  name_point(current_point,"t18");
  if (lang == 0)
    {
    name_object(Obj[11],"tab 1 grain line");
    }

  Obj[12]=newobject("poly");
  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"t13");
  current_point=addpoint(x[117],y[117],"LINE");
  name_point(current_point,"t14");
  current_point=addpoint(x[119],y[119],"LINE");
  name_point(current_point,"t16");
  current_point=addpoint(x[118],y[118],"LINE");
  name_point(current_point,"t15");
  offset(12,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[12],"back tab 4");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[112],y[112],"LINE");
  name_point(current_point,"t9");
  current_point=addpoint(x[113],y[113],"LINE");
  name_point(current_point,"t10");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"t12");
  current_point=addpoint(x[114],y[114],"LINE");
  name_point(current_point,"t11");
  offset(13,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[13],"tab 3");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"t5");
  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"t6");
  current_point=addpoint(x[111],y[111],"LINE");
  name_point(current_point,"t8");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"t7");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"tab 2");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"t1");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"t2");
  current_point=addpoint(x[107],y[107],"LINE");
  name_point(current_point,"t4");
  current_point=addpoint(x[106],y[106],"LINE");
  name_point(current_point,"t3");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"cf tab 1");
    }

  if (lang == 0)
    {
    Obj[16]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[16],"lb fold text");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[17],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[18]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[18],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[19]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[19],"corset front text");
    }

  if (lang == 0)
    {
    Obj[20]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[20],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[21],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[22]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[22],"side front text");
    }

  if (lang == 0)
    {
    Obj[23]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[23],"side front grain line");
    }

  Obj[24]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[24],"side front grain");
    }

  if (lang == 0)
    {
    Obj[25]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[25],"corset back text");
    }

  Obj[26]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[26],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[27]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[27],"lacing board text");
    }

  Obj[28]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[28],"back lb grain");
    }

  Obj[29]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(29,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[29],"back lacing board");
    }

  Obj[30]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[136],y[136],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[137],y[137],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(30,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[30],"corset back");
    }

  Obj[31]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  name_point(current_point,"f42");
  current_point=addpoint(x[133],y[133],"XARC_START");
  name_point(current_point,"f58");
  current_point=addpoint(x[132],y[132],"XARC_CORNER");
  name_point(current_point,"f57");
  offset(31,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[31],"corset side front");
    }

  Obj[32]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  offset(32,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[32],"corset front");
    }

  if (lang == 0)
    {
    Obj[33]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[138],y[138],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[33],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  select(current_selection,Obj[21]);
  select(current_selection,Obj[27]);
  select(current_selection,Obj[28]);
  select(current_selection,Obj[29]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[29],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[18]);
  select(current_selection,Obj[25]);
  select(current_selection,Obj[26]);
  select(current_selection,Obj[30]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[30],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[19]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[32]);
  select(current_selection,Obj[33]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[33],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[22]);
  select(current_selection,Obj[23]);
  select(current_selection,Obj[24]);
  select(current_selection,Obj[31]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[31],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"tab 1");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"tab 2");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[13]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[13],"tab 3");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[2]);
  select(current_selection,Obj[12]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[12],"tab 4");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,0,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,0,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[46]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f51
  coord(1,104,1,0);

//Point f52
  coord(22,105,1,0);

//Point 53
  coord(6,106,1.5,0);

//Point 54
  coord(104,107,1,0);

//Point 55
  coord(105,108,1,0);

//Point 56
  coord(107,109,0,2);

//Point f57
  Center(110,19,38);

//Point f58
  Center(111,110,35);

//Point b33
  Center(112,56,61);

//Point b36
  Center(113,57,112);

//Point b37
  Center(114,113,112);

//Point b38
  coord(81,115,1 + Var[14]/-3,0);

//Point f81
  coord(6,116,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"56");
  if (lang == 0)
    {
    name_object(Obj[0],"corset front gl text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"55");
  current_point=addpoint(x[107],y[107],"OPEN");
  name_point(current_point,"54");
  if (lang == 0)
    {
    name_object(Obj[1],"cf grain line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[2],"lb fold text");
    }

  Obj[3]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[3],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[4],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[5],"corset front text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[6],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[7],"side front text");
    }

  if (lang == 0)
    {
    Obj[8]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain line");
    }

  Obj[9]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[9],"side front grain");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[11],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[12],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[13],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[14]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[14],"strap grainline text");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[15],"strap grainline");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[16],"back lb grain");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"back lacing board");
    }

  Obj[18]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(18,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[18],"corset strap");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(19,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[19],"corset back");
    }

  Obj[20]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(20,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[20],"corset side front");
    }

  Obj[21]=newobject("poly");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"f52");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"f51");
  offset(21,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[21],"corset front");
    }

  if (lang == 0)
    {
    Obj[22]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[22],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[3]);
  select(current_selection,Obj[6]);
  select(current_selection,Obj[12]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[4]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[19]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[19],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[21]);
  select(current_selection,Obj[22]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[22],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[20]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[20],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[13]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[15]);
  select(current_selection,Obj[18]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[18],"corset strap");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,0,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,0,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[51]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f51
  coord(1,104,1,0);

//Point f52
  coord(22,105,1,0);

//Point 53
  coord(6,106,1.5,0);

//Point 54
  coord(104,107,1,0);

//Point 55
  coord(105,108,1,0);

//Point 56
  coord(107,109,0,2);

//Point f57
  Center(110,19,38);

//Point f58
  Center(111,110,35);

//Point b33
  Center(112,56,61);

//Point b36
  Center(113,57,112);

//Point b37
  Center(114,113,112);

//Point b38
  coord(81,115,1 + Var[14]/-3,0);

//Point f81
  coord(6,116,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"56");
  if (lang == 0)
    {
    name_object(Obj[0],"corset front gl text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"55");
  current_point=addpoint(x[107],y[107],"OPEN");
  name_point(current_point,"54");
  if (lang == 0)
    {
    name_object(Obj[1],"cf grain line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[2],"lb fold text");
    }

  Obj[3]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[3],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[4],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[5],"corset front text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[6],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[7],"side front text");
    }

  if (lang == 0)
    {
    Obj[8]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain line");
    }

  Obj[9]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[9],"side front grain");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[11],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[12],"lacing board text");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[13],"back lb grain");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"back lacing board");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[114],y[114],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[115],y[115],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"corset back");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  name_point(current_point,"f42");
  current_point=addpoint(x[111],y[111],"XARC_START");
  name_point(current_point,"f58");
  current_point=addpoint(x[110],y[110],"XARC_CORNER");
  name_point(current_point,"f57");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"corset side front");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"f52");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"f51");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"corset front");
    }

  if (lang == 0)
    {
    Obj[18]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[18],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[3]);
  select(current_selection,Obj[6]);
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[4]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[17]);
  select(current_selection,Obj[18]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[18],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[16]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[16],"corset side");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,0,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,0,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[46]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f51
  coord(1,104,1,0);

//Point f52
  coord(22,105,1,0);

//Point 53
  coord(6,106,1.5,0);

//Point 54
  coord(104,107,1,0);

//Point 55
  coord(105,108,1,0);

//Point 56
  coord(107,109,0,2);

//Point t29
  coord(104,110,0,-2);

//Point t30
  coord(110,111,0,1 + Var[46]/-3);

//Point t31
  coord(110,112,0 + Var[48]/6,0);

//Point t32
  coord(112,113,0.5,1 + Var[46]/-3);

//Point t33
  coord(112,114,3,0);

//Point t34
  coord(114,115,-0.5,1 + Var[46]/-3);

//Point t35
  coord(114,116,0 + Var[48]/6,0);

//Point t36
  coord(116,117,0.5,1 + Var[46]/-3);

//Point t37
  Center(118,110,112);

//Point t38
  coord(118,119,0,1 + Var[46]/-3);

//Point t39
  coord(110,120,0.5,-0.5);

//Point t40
  coord(119,121,0,0.5);

//Point t41
  Center(122,114,116);

//Point t42
  coord(122,123,0,1 + Var[46]/-3);

//Point t43
  coord(114,124,0.5,-0.5);

//Point t44
  coord(123,125,0,0.5);

//Point f57
  Center(126,19,38);

//Point f58
  Center(127,126,35);

//Point b33
  Center(128,56,61);

//Point b36
  Center(129,57,128);

//Point b37
  Center(130,129,128);

//Point b38
  coord(81,131,1 + Var[14]/-3,0);

//Point f81
  coord(6,132,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","grain line",1.5707963267949,0.3,0.3,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"t44");
  if (lang == 0)
    {
    name_object(Obj[0],"tab 2b gl text");
    }

  if (lang == 0)
    {
    Obj[1]=newobject("Text","grain line",1.5707963267949,0.3,0.3,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[121],y[121],"LINE");
  name_point(current_point,"t40");
  if (lang == 0)
    {
    name_object(Obj[1],"tab 1b gl text");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","tab 2 cut 10",0,0.24,0.24,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"t43");
  if (lang == 0)
    {
    name_object(Obj[2],"tab 2b text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","front tab 1  cut 2",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[120],y[120],"LINE");
  name_point(current_point,"t39");
  if (lang == 0)
    {
    name_object(Obj[3],"tab 1b text");
    }

  Obj[4]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"t42");
  current_point=addpoint(x[122],y[122],"OPEN");
  name_point(current_point,"t41");
  if (lang == 0)
    {
    name_object(Obj[4],"tab 2b grain line");
    }

  Obj[5]=newobject("poly");
  current_point=addpoint(x[119],y[119],"LINE");
  name_point(current_point,"t38");
  current_point=addpoint(x[118],y[118],"OPEN");
  name_point(current_point,"t37");
  if (lang == 0)
    {
    name_object(Obj[5],"tab 1b grain line");
    }

  Obj[6]=newobject("poly");
  current_point=addpoint(x[114],y[114],"LINE");
  name_point(current_point,"t33");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"t34");
  current_point=addpoint(x[117],y[117],"LINE");
  name_point(current_point,"t36");
  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"t35");
  offset(6,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[6],"sb tab 2b");
    }

  Obj[7]=newobject("poly");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"t29");
  current_point=addpoint(x[111],y[111],"LINE");
  name_point(current_point,"t30");
  current_point=addpoint(x[113],y[113],"LINE");
  name_point(current_point,"t32");
  current_point=addpoint(x[112],y[112],"LINE");
  name_point(current_point,"t31");
  offset(7,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[7],"cf tab 1b");
    }

  if (lang == 0)
    {
    Obj[8]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"56");
  if (lang == 0)
    {
    name_object(Obj[8],"corset front gl text");
    }

  Obj[9]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"55");
  current_point=addpoint(x[107],y[107],"OPEN");
  name_point(current_point,"54");
  if (lang == 0)
    {
    name_object(Obj[9],"cf grain line");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[10],"lb fold text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[11],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[12],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[13],"corset front text");
    }

  if (lang == 0)
    {
    Obj[14]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[14],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[15]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[15],"side front text");
    }

  if (lang == 0)
    {
    Obj[16]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[16],"side front grain line");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[17],"side front grain");
    }

  if (lang == 0)
    {
    Obj[18]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[18],"corset back text");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[19],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[20]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[20],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[21],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[22]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[22],"strap grainline text");
    }

  Obj[23]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[23],"strap grainline");
    }

  Obj[24]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[24],"back lb grain");
    }

  Obj[25]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(25,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[25],"back lacing board");
    }

  Obj[26]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(26,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[26],"corset strap");
    }

  Obj[27]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(27,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[27],"corset back");
    }

  Obj[28]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(28,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[28],"corset side front");
    }

  Obj[29]=newobject("poly");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"f52");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"f51");
  offset(29,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[29],"corset front");
    }

  if (lang == 0)
    {
    Obj[30]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[132],y[132],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[30],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[24]);
  select(current_selection,Obj[25]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[25],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[1]);
  select(current_selection,Obj[3]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[7]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[7],"cf tab 1b");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[12]);
  select(current_selection,Obj[18]);
  select(current_selection,Obj[19]);
  select(current_selection,Obj[27]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[27],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[8]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[29]);
  select(current_selection,Obj[30]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[30],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[15]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  select(current_selection,Obj[28]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[28],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[21]);
  select(current_selection,Obj[22]);
  select(current_selection,Obj[23]);
  select(current_selection,Obj[26]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[26],"corset strap");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[2]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[6]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[6],"sb tab 2b");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,0,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,0,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[51]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f51
  coord(1,104,1,0);

//Point f52
  coord(22,105,1,0);

//Point 53
  coord(6,106,1.5,0);

//Point 54
  coord(104,107,1,0);

//Point 55
  coord(105,108,1,0);

//Point 56
  coord(107,109,0,2);

//Point t29
  coord(104,110,0,-2);

//Point t30
  coord(110,111,0,1 + Var[46]/-3);

//Point t31
  coord(110,112,0 + Var[48]/6,0);

//Point t32
  coord(112,113,0.5,1 + Var[46]/-3);

//Point t33
  coord(112,114,3,0);

//Point t34
  coord(114,115,-0.5,1 + Var[46]/-3);

//Point t35
  coord(114,116,0 + Var[48]/6,0);

//Point t36
  coord(116,117,0.5,1 + Var[46]/-3);

//Point t37
  Center(118,110,112);

//Point t38
  coord(118,119,0,1 + Var[46]/-3);

//Point t39
  coord(110,120,0.5,-0.5);

//Point t40
  coord(119,121,0,0.5);

//Point t41
  Center(122,114,116);

//Point t42
  coord(122,123,0,1 + Var[46]/-3);

//Point t43
  coord(114,124,0.5,-0.5);

//Point t44
  coord(123,125,0,0.5);

//Point f57
  Center(126,19,38);

//Point f58
  Center(127,126,35);

//Point b33
  Center(128,56,61);

//Point b36
  Center(129,57,128);

//Point b37
  Center(130,129,128);

//Point b38
  coord(81,131,1 + Var[14]/-3,0);

//Point f81
  coord(6,132,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","grain line",1.5707963267949,0.3,0.3,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"t44");
  if (lang == 0)
    {
    name_object(Obj[0],"tab 2b gl text");
    }

  if (lang == 0)
    {
    Obj[1]=newobject("Text","grain line",1.5707963267949,0.3,0.3,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[121],y[121],"LINE");
  name_point(current_point,"t40");
  if (lang == 0)
    {
    name_object(Obj[1],"tab 1b gl text");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","tab 2 cut 10",0,0.24,0.24,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"t43");
  if (lang == 0)
    {
    name_object(Obj[2],"tab 2b text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","front tab 1  cut 2",0,0.25,0.25,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[120],y[120],"LINE");
  name_point(current_point,"t39");
  if (lang == 0)
    {
    name_object(Obj[3],"tab 1b text");
    }

  Obj[4]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"t42");
  current_point=addpoint(x[122],y[122],"OPEN");
  name_point(current_point,"t41");
  if (lang == 0)
    {
    name_object(Obj[4],"tab 2b grain line");
    }

  Obj[5]=newobject("poly");
  current_point=addpoint(x[119],y[119],"LINE");
  name_point(current_point,"t38");
  current_point=addpoint(x[118],y[118],"OPEN");
  name_point(current_point,"t37");
  if (lang == 0)
    {
    name_object(Obj[5],"tab 1b grain line");
    }

  Obj[6]=newobject("poly");
  current_point=addpoint(x[114],y[114],"LINE");
  name_point(current_point,"t33");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"t34");
  current_point=addpoint(x[117],y[117],"LINE");
  name_point(current_point,"t36");
  current_point=addpoint(x[116],y[116],"LINE");
  name_point(current_point,"t35");
  offset(6,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[6],"sb tab 2b");
    }

  Obj[7]=newobject("poly");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"t29");
  current_point=addpoint(x[111],y[111],"LINE");
  name_point(current_point,"t30");
  current_point=addpoint(x[113],y[113],"LINE");
  name_point(current_point,"t32");
  current_point=addpoint(x[112],y[112],"LINE");
  name_point(current_point,"t31");
  offset(7,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[7],"cf tab 1b");
    }

  if (lang == 0)
    {
    Obj[8]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[109],y[109],"LINE");
  name_point(current_point,"56");
  if (lang == 0)
    {
    name_object(Obj[8],"corset front gl text");
    }

  Obj[9]=newobject("poly");
  current_point=addpoint(x[108],y[108],"LINE");
  name_point(current_point,"55");
  current_point=addpoint(x[107],y[107],"OPEN");
  name_point(current_point,"54");
  if (lang == 0)
    {
    name_object(Obj[9],"cf grain line");
    }

  if (lang == 0)
    {
    Obj[10]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[10],"lb fold text");
    }

  Obj[11]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[11],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[12],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[13],"corset front text");
    }

  if (lang == 0)
    {
    Obj[14]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[14],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[15]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[15],"side front text");
    }

  if (lang == 0)
    {
    Obj[16]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[16],"side front grain line");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[17],"side front grain");
    }

  if (lang == 0)
    {
    Obj[18]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[18],"corset back text");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[19],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[20]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[20],"lacing board text");
    }

  Obj[21]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[21],"back lb grain");
    }

  Obj[22]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(22,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[22],"back lacing board");
    }

  Obj[23]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[130],y[130],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[131],y[131],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(23,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[23],"corset back");
    }

  Obj[24]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[33],y[33],"XARC_CORNER");
  name_point(current_point,"f39");
  current_point=addpoint(x[32],y[32],"LINE");
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  name_point(current_point,"f42");
  current_point=addpoint(x[127],y[127],"XARC_START");
  name_point(current_point,"f58");
  current_point=addpoint(x[126],y[126],"XARC_CORNER");
  name_point(current_point,"f57");
  offset(24,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[24],"corset side front");
    }

  Obj[25]=newobject("poly");
  current_point=addpoint(x[105],y[105],"LINE");
  name_point(current_point,"f52");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  name_point(current_point,"f30");
  current_point=addpoint(x[104],y[104],"LINE");
  name_point(current_point,"f51");
  offset(25,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[25],"corset front");
    }

  if (lang == 0)
    {
    Obj[26]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[132],y[132],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[26],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[10]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[21]);
  select(current_selection,Obj[22]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[22],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[1]);
  select(current_selection,Obj[3]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[7]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[7],"cf tab 1b");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[12]);
  select(current_selection,Obj[18]);
  select(current_selection,Obj[19]);
  select(current_selection,Obj[23]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[23],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[8]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[25]);
  select(current_selection,Obj[26]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[26],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[15]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  select(current_selection,Obj[24]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[24],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[2]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[6]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[6],"sb tab 2b");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f59
  coord(1,110,0,0 + Var[56]/-1);

//Point f60
  x[111]=x[26];
  y[111]=y[110];

//Point f61
  line_intersect(111,110,98,26,112);

//Point f62
  Center(113,112,110);

//Point f63
  Center(114,26,112);
  Var[52]=distance(x[114],y[114],x[26], y[26]);

//Point f64
  Cont(97, 32, 115, 0 + Var[52]/1);

//Point f65
  Center(116,115,18);

//Point f66
  x[117]=x[113];
  y[117]=y[114];

//Point f67
  Center(118,110,113);

//Point f68
  Center(119,118,117);

//Point f69
  Center(120,112,117);

//Point f70
  Center(121,120,119);

//Point f80
  right_ang(122,116,18,0 + Var[56]/-4,0);
  Var[53]=arclength(115,122,18);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point f81
  coord(6,123,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[12],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[13],"strap grainline text");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[14],"strap grainline");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[15],"back lb grain");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"back lacing board");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"corset strap");
    }

  Obj[18]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(18,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[18],"corset back");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[122],y[122],"XARC_CORNER");
  name_point(current_point,"f80");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"f64");
  current_point=addpoint(x[32],y[32],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(19,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[19],"corset side front");
    }

  Obj[20]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f30");
  current_point=addpoint(x[114],y[114],"XARC_START");
  name_point(current_point,"f63");
  current_point=addpoint(x[121],y[121],"XARC_CORNER");
  name_point(current_point,"f70");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f59");
  offset(20,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[20],"corset front");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[21],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  select(current_selection,Obj[16]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[16],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[18]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[18],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[21]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[21],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[19]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[19],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"corset strap");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f59
  coord(1,110,0,0 + Var[56]/-1);

//Point f60
  x[111]=x[26];
  y[111]=y[110];

//Point f61
  line_intersect(111,110,98,26,112);

//Point f62
  Center(113,112,110);

//Point f63
  Center(114,26,112);
  Var[52]=distance(x[114],y[114],x[26], y[26]);

//Point f64
  Cont(97, 32, 115, 0 + Var[52]/1);

//Point f65
  Center(116,115,18);

//Point f66
  x[117]=x[113];
  y[117]=y[114];

//Point f67
  Center(118,110,113);

//Point f68
  Center(119,118,117);

//Point f69
  Center(120,112,117);

//Point f70
  Center(121,120,119);

//Point f80
  right_ang(122,116,18,0 + Var[56]/-4,0);
  Var[53]=arclength(115,122,18);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point f81
  coord(6,123,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  Obj[12]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[12],"back lb grain");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(13,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[13],"back lacing board");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[108],y[108],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[109],y[109],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"corset back");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[122],y[122],"XARC_CORNER");
  name_point(current_point,"f80");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"f64");
  current_point=addpoint(x[32],y[32],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  name_point(current_point,"f42");
  current_point=addpoint(x[105],y[105],"XARC_START");
  name_point(current_point,"f58");
  current_point=addpoint(x[104],y[104],"XARC_CORNER");
  name_point(current_point,"f57");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"corset side front");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f30");
  current_point=addpoint(x[114],y[114],"XARC_START");
  name_point(current_point,"f63");
  current_point=addpoint(x[121],y[121],"XARC_CORNER");
  name_point(current_point,"f70");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f59");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"corset front");
    }

  if (lang == 0)
    {
    Obj[17]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[17],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[13],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"corset side");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f59
  coord(1,110,0,0 + Var[56]/-1);

//Point f60
  x[111]=x[26];
  y[111]=y[110];

//Point f61
  line_intersect(111,110,98,26,112);

//Point f62
  Center(113,112,110);

//Point f63
  Center(114,26,112);
  Var[52]=distance(x[114],y[114],x[26], y[26]);

//Point f64
  Cont(97, 32, 115, 0 + Var[52]/1);

//Point f65
  Center(116,115,18);

//Point f66
  x[117]=x[113];
  y[117]=y[114];

//Point f67
  Center(118,110,113);

//Point f68
  Center(119,118,117);

//Point f69
  Center(120,112,117);

//Point f70
  Center(121,120,119);

//Point f80
  right_ang(122,116,18,0 + Var[56]/-4,0);
  Var[53]=arclength(115,122,18);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point lt1
  coord(115,123,0,0 + Var[49]/-0.5);

//Point lt2
  coord(123,124,0 + Var[55]/4,0);

//Point lt3
  coord(123,125,-0.5,0 + Var[46]/-3);

//Point lt4
  coord(124,126,0.5,0 + Var[46]/-3);

//Point lt5
  Center(127,123,124);

//Point lt6
  Center(128,125,126);

//Point lt7
  coord(123,129,0.5,-1);

//Point f81
  coord(6,130,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  if (lang == 0)
    {
    Obj[12]=newobject("Text","Strap",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  if (lang == 0)
    {
    name_object(Obj[12],"Shoulder Strap");
    }

  if (lang == 0)
    {
    Obj[13]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[91],y[91],"LINE");
  name_point(current_point,"n13");
  if (lang == 0)
    {
    name_object(Obj[13],"strap grainline text");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[92],y[92],"LINE");
  name_point(current_point,"n14");
  current_point=addpoint(x[73],y[73],"OPEN");
  name_point(current_point,"n8");
  if (lang == 0)
    {
    name_object(Obj[14],"strap grainline");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[15],"back lb grain");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"back lacing board");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[66],y[66],"LINE");
  name_point(current_point,"n1");
  current_point=addpoint(x[74],y[74],"XARC_START");
  name_point(current_point,"n9");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  name_point(current_point,"n6");
  current_point=addpoint(x[73],y[73],"XARC_START");
  name_point(current_point,"n8");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  name_point(current_point,"n7");
  current_point=addpoint(x[75],y[75],"LINE");
  name_point(current_point,"n10");
  current_point=addpoint(x[70],y[70],"XARC_START");
  name_point(current_point,"n5");
  current_point=addpoint(x[69],y[69],"XARC_CORNER");
  name_point(current_point,"n4");
  current_point=addpoint(x[67],y[67],"LINE");
  name_point(current_point,"n2");
  current_point=addpoint(x[90],y[90],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"n11");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"corset strap");
    }

  Obj[18]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[57],y[57],"XARC_CORNER");
  name_point(current_point,"b18");
  current_point=addpoint(x[64],y[64],"LINE");
  name_point(current_point,"b22a");
  current_point=addpoint(x[94],y[94],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b30");
  current_point=addpoint(x[61],y[61],"XARC_START");
  name_point(current_point,"b21");
  current_point=addpoint(x[60],y[60],"XARC_CORNER");
  name_point(current_point,"b20a");
  current_point=addpoint(x[79],y[79],"LINE");
  name_point(current_point,"b28");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(18,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[18],"corset back");
    }

  Obj[19]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[122],y[122],"XARC_CORNER");
  name_point(current_point,"f80");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"f64");
  current_point=addpoint(x[32],y[32],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"LINE");
  name_point(current_point,"f41");
  current_point=addpoint(x[39],y[39],"XARC_START");
  name_point(current_point,"f46");
  current_point=addpoint(x[38],y[38],"XARC_CORNER");
  name_point(current_point,"f45");
  offset(19,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[19],"corset side front");
    }

  Obj[20]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f30");
  current_point=addpoint(x[114],y[114],"XARC_START");
  name_point(current_point,"f63");
  current_point=addpoint(x[121],y[121],"XARC_CORNER");
  name_point(current_point,"f70");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f59");
  offset(20,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[20],"corset front");
    }

  Obj[21]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"lt1");
  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"lt2");
  current_point=addpoint(x[126],y[126],"LINE");
  name_point(current_point,"lt4");
  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"lt3");
  offset(21,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[21],"lc tab");
    }

  Obj[22]=newobject("poly");
  current_point=addpoint(x[127],y[127],"LINE");
  name_point(current_point,"lt5");
  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"lt6");
  if (lang == 0)
    {
    name_object(Obj[22],"grain line");
    }

  if (lang == 0)
    {
    Obj[23]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"lt6");
  if (lang == 0)
    {
    name_object(Obj[23],"lc tab grain text");
    }

  if (lang == 0)
    {
    Obj[24]=newobject("Text","Tab cut 8",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[129],y[129],"LINE");
  name_point(current_point,"lt7");
  if (lang == 0)
    {
    name_object(Obj[24],"Lc tab text");
    }

  if (lang == 0)
    {
    Obj[25]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[130],y[130],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[25],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[15]);
  select(current_selection,Obj[16]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[16],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[18]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[18],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[20]);
  select(current_selection,Obj[25]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[25],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[19]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[19],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  select(current_selection,Obj[14]);
  select(current_selection,Obj[17]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[17],"corset strap");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[21]);
  select(current_selection,Obj[22]);
  select(current_selection,Obj[23]);
  select(current_selection,Obj[24]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[24],"lc tab");
    }
  }

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

//Point Start
  x[0]=0; y[0]=0;

//Point f1
  coord(0,1,0,0 + Var[5]/-1);

//Point f2
  coord(1,2,0,0 + Var[4]/1);

//Point f3
  coord(2,3,0,0 + Var[3]/-1);

//Point f6
  coord(3,4,0,2.5);

//Point f6a
  coord(3,5,0 + Var[27]/1,0);

//Point f6b
  Cont(5, 4, 6, -2.5);

//Point f8
  Cont(6, 3, 7, 0 + Var[25]/-2);

//Point f10
  coord(2,8,0 + Var[6]/2,0);

//Point f11
  coord(8,9,0,-6);

//Point f12
  LinePointDist(10,8,9,1,0 + Var[7]/1,1);

//Point f13
  right_ang(11,10,1,3,1);

//Point f14
  LinePointDist(12,10,11,0,0 + Var[8]/2,0);

//Point f15
  LinePointDist(13,2,8,12,0 + Var[19]/1,1);

//Point f16
  x[14]=x[13];
  y[14]=y[0];

//Point f17
  Cont(9, 12, 15, -4);

//Point f5
  Cont(6, 3, 16, 0 + Var[2]/-2);

//Point f18
  right_ang(17,7,16,0 + Var[20]/-1,0);

//Point f19
  LinePointDist(18,7,17,15,-4 + Var[9]/1,0);

//Point f20
  Cont(7, 18, 19, 0 + Var[20]/-1);

//Point f23
  right_ang(20,16,3,0 + Var[20]/-1,0);

//Point f25
  coord(16,21,0,1 + Var[30]/5);

//Point f26
  x[22]=x[3];
  y[22]=y[21];
  Var[46]=distance(x[1],y[1],x[22], y[22]);

//Point f27
  coord(22,23,-1 + Var[6]/2,0);

//Point f28
  coord(1,24,0 + Var[6]/2,0);

//Point f29
  line_intersect(24,1,16,20,25);
  Var[31]=distance(x[1],y[1],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;
  Var[32]=distance(x[18],y[18],x[25], y[25]);
  Var[33]=Var[32]/1+Var[31]/1+0;
  Var[34]=Var[24]/-2+Var[33]/1+0;

//Point f30
  coord(25,26,0 + Var[34]/-2,0);
  Var[35]=distance(x[1],y[1],x[26], y[26]);
  Var[36]=Var[24]/2+Var[35]/-1+0;
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;
  Var[37]=distance(x[26],y[26],x[16], y[16]);
  Var[38]=distance(x[26],y[26],x[23], y[23]);

//Point f31
  Cont(25, 18, 27, 0 + Var[34]/-4);

//Point f32
  Cont(18, 25, 28, 0 + Var[34]/-4);

//Point f36
  Cont(28, 16, 29, 0 + Var[37]/-1);

//Point f37
  right_ang(30,18,7,0 + Var[36]/-1,0);

//Point f36a
  x[31]=x[30];
  y[31]=y[29];

//Point f38
  Center(32,31,30);
  Var[45]=distance(x[32],y[32],x[18], y[18]);
  Var[47]=Var[45]/1+Var[35]/1+0;
  Var[48]=Var[39]/2+Var[47]/1+-1;

//Point f39
  right_ang(33,18,19,-1,0);

//Point f41
  Cont(23, 32, 34, 0 + Var[38]/-1);
  Var[42]=distance(x[34],y[34],x[12], y[12]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point f42
  right_ang(35,34,32,-1,0);

//Point f43
  right_ang(36,35,34,-3,0);

//Point f44
  right_ang(37,19,18,4,0);

//Point f45
  line_intersect(35,36,37,19,38);

//Point f46
  right_ang(39,35,34,0.375,0);

//Point b1
  coord(2,40,2 + Var[0]/1,0);

//Point b2
  coord(40,41,0 + Var[28]/2,0);

//Point b3
  coord(41,42,0,0 + Var[12]/-1);

//Point b4
  coord(42,43,0,0 + Var[13]/1);

//Point b5
  coord(41,44,0 + Var[14]/-2,0);

//Point b6
  coord(44,45,0,-5);

//Point b7
  LinePointDist(46,44,45,42,0 + Var[15]/1,0);

//Point b8
  right_ang(47,46,42,3,0);

//Point b9
  LinePointDist(48,46,47,43,0 + Var[16]/2,1);

//Point b10
  LinePointDist(49,44,41,48,0 + Var[19]/1,0);

//Point b12
  x[50]=x[49];
  y[50]=y[43];

//Point b13
  coord(46,51,0,-4);

//Point b13a
  coord(51,52,1,0);

//Point b14
  coord(40,53,0,-2 + Var[17]/-1);

//Point b15
  LinePointDist(54,40,53,51,-4 + Var[17]/1,1);

//Point b16
  Cont(54, 42, 55, 0 + Var[39]/-2);

//Point b17
  LinePointDist(56,40,53,55,0 + Var[20]/1,0);

//Point b18
  x[57]=x[52];
  y[57]=y[56];

//Point b19
  coord(42,58,0,3 + Var[20]/1);

//Point b20
  coord(58,59,3.5 + Var[14]/-2,0);

//Point b20a
  coord(59,60,0.5,0);

//Point b21
  coord(59,61,0,0.75);

//Point b22
  x[62]=x[57];
  y[62]=y[59];

//Point b23
  right_ang(63,55,56,0.75,0);

//Point b22a
  coord(62,64,0.5,0);
  Var[40]=distance(x[61],y[61],x[64], y[64]);

//Point b11
  Cont(49, 48, 65, 0.5);
  Var[41]=distance(x[64],y[64],x[65], y[65]);
  Var[43]=Var[42]/1+Var[41]/1+0;

//Point n1
  coord(42,66,1,0);

//Point n2
  coord(66,67,0 + Var[40]/1,0);

//Point n3
  Center(68,67,66);

//Point n4
  coord(68,69,0,2);

//Point n5
  coord(69,70,0,2);

//Point n6
  coord(66,71,0,0 + Var[43]/1);

//Point n7
  x[72]=x[68];
  y[72]=y[71];

//Point n8
  Center(73,72,71);

//Point n9
  coord(71,74,0,-0.75);

//Point n10
  x[75]=x[72];
  y[75]=y[74];

//Point b25
  coord(42,76,-0.5,0);
  Var[54]=arclength(76,63,55);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point b26
  coord(76,77,-1,0.5);

//Point b27
  Center(78,77,63);

//Point b28
  coord(58,79,-0.5,0);
  Var[44]=distance(x[76],y[76],x[79], y[79]);

//Point b34
  x[80]=x[79];
  y[80]=y[56];

//Point b35
  Center(81,79,80);
  Var[51]=distance(x[81],y[81],x[76], y[76]);

//Point b29
  coord(81,82,-1,0);

//Point lb1
  coord(54,83,-1.5,0);

//Point lb2
  coord(83,84,-4,0);

//Point lb3
  coord(84,85,0,-1 + Var[44]/1);

//Point lb4
  x[86]=x[83];
  y[86]=y[85];

//Point lb5
  Center(87,86,85);

//Point lb6
  Center(88,84,83);

//Point lb7
  coord(88,89,0,3);

//Point n11
  Center(90,66,68);

//Point n13
  coord(90,91,0,2);

//Point n14
  coord(90,92,0,0.5);

//Point lb8
  coord(84,93,-1.5,1);

//Point b30
  Cont(61, 64, 94, 0 + Var[40]/-4);

//Point b31
  Cont(56, 55, 95, -3);

//Point f47
  Cont(19, 18, 96, -3);

//Point f48
  Cont(32, 34, 97, -2);

//Point f49
  Cont(26, 23, 98, -2);

//Point f50
  coord(1,99,0.25,3);

//Point b32
  coord(77,100,0,3);

//Point lb9
  coord(84,101,-4,0);

//Point lb11
  x[102]=x[101];
  y[102]=y[85];

//Point lb12
  coord(84,103,0,3);

//Point f57
  Center(104,19,38);

//Point f58
  Center(105,104,35);

//Point b33
  Center(106,56,61);

//Point b36
  Center(107,57,106);

//Point b37
  Center(108,107,106);

//Point b38
  coord(81,109,1 + Var[14]/-3,0);

//Point f59
  coord(1,110,0,0 + Var[56]/-1);

//Point f60
  x[111]=x[26];
  y[111]=y[110];

//Point f61
  line_intersect(111,110,98,26,112);

//Point f62
  Center(113,112,110);

//Point f63
  Center(114,26,112);
  Var[52]=distance(x[114],y[114],x[26], y[26]);

//Point f64
  Cont(97, 32, 115, 0 + Var[52]/1);

//Point f65
  Center(116,115,18);

//Point f66
  x[117]=x[113];
  y[117]=y[114];

//Point f67
  Center(118,110,113);

//Point f68
  Center(119,118,117);

//Point f69
  Center(120,112,117);

//Point f70
  Center(121,120,119);

//Point f80
  right_ang(122,116,18,0 + Var[56]/-4,0);
  Var[53]=arclength(115,122,18);
  Var[55]=Var[54]/1+Var[53]/1+0;

//Point lt1
  coord(115,123,0,0 + Var[49]/-0.5);

//Point lt2
  coord(123,124,0 + Var[55]/4,0);

//Point lt3
  coord(123,125,-0.5,0 + Var[46]/-3);

//Point lt4
  coord(124,126,0.5,0 + Var[46]/-3);

//Point lt5
  Center(127,123,124);

//Point lt6
  Center(128,125,126);

//Point lt7
  coord(123,129,0.5,-1);

//Point f81
  coord(6,130,0,-0.75);

  if (lang == 0)
    {
    Obj[0]=newobject("Text","fold line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[103],y[103],"LINE");
  name_point(current_point,"lb12");
  if (lang == 0)
    {
    name_object(Obj[0],"lb fold text");
    }

  Obj[1]=newobject("poly");
  current_point=addpoint(x[84],y[84],"LINE");
  name_point(current_point,"lb2");
  current_point=addpoint(x[85],y[85],"OPEN");
  name_point(current_point,"lb3");
  if (lang == 0)
    {
    name_object(Obj[1],"lb fold line");
    }

  if (lang == 0)
    {
    Obj[2]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[100],y[100],"LINE");
  name_point(current_point,"b32");
  if (lang == 0)
    {
    name_object(Obj[2],"cb grain text");
    }

  if (lang == 0)
    {
    Obj[3]=newobject("Text","Corset Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[6],y[6],"LINE");
  name_point(current_point,"f6b");
  if (lang == 0)
    {
    name_object(Obj[3],"corset front text");
    }

  if (lang == 0)
    {
    Obj[4]=newobject("Text","cf place on fold",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[99],y[99],"LINE");
  name_point(current_point,"f50");
  if (lang == 0)
    {
    name_object(Obj[4],"cf place on fold");
    }

  if (lang == 0)
    {
    Obj[5]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[89],y[89],"LINE");
  name_point(current_point,"lb7");
  if (lang == 0)
    {
    name_object(Obj[5],"lb grain text");
    }

  if (lang == 0)
    {
    Obj[6]=newobject("Text","Side Front",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[36],y[36],"LINE");
  name_point(current_point,"f43");
  if (lang == 0)
    {
    name_object(Obj[6],"side front text");
    }

  if (lang == 0)
    {
    Obj[7]=newobject("Text","grain line",-1.0471975511966,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  if (lang == 0)
    {
    name_object(Obj[7],"side front grain line");
    }

  Obj[8]=newobject("poly");
  current_point=addpoint(x[38],y[38],"LINE");
  name_point(current_point,"f45");
  current_point=addpoint(x[18],y[18],"OPEN");
  name_point(current_point,"f19");
  if (lang == 0)
    {
    name_object(Obj[8],"side front grain");
    }

  if (lang == 0)
    {
    Obj[9]=newobject("Text","Corset Back",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[57],y[57],"LINE");
  name_point(current_point,"b18");
  if (lang == 0)
    {
    name_object(Obj[9],"corset back text");
    }

  Obj[10]=newobject("poly");
  current_point=addpoint(x[82],y[82],"LINE");
  name_point(current_point,"b29");
  current_point=addpoint(x[77],y[77],"OPEN");
  name_point(current_point,"b26");
  if (lang == 0)
    {
    name_object(Obj[10],"corset back grain");
    }

  if (lang == 0)
    {
    Obj[11]=newobject("Text","Lacing Board",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[93],y[93],"LINE");
  name_point(current_point,"lb8");
  if (lang == 0)
    {
    name_object(Obj[11],"lacing board text");
    }

  Obj[12]=newobject("poly");
  current_point=addpoint(x[88],y[88],"LINE");
  name_point(current_point,"lb6");
  current_point=addpoint(x[87],y[87],"OPEN");
  name_point(current_point,"lb5");
  if (lang == 0)
    {
    name_object(Obj[12],"back lb grain");
    }

  Obj[13]=newobject("poly");
  current_point=addpoint(x[83],y[83],"LINE");
  name_point(current_point,"lb1");
  current_point=addpoint(x[101],y[101],"LINE");
  name_point(current_point,"lb9");
  current_point=addpoint(x[102],y[102],"LINE");
  name_point(current_point,"lb11");
  current_point=addpoint(x[86],y[86],"LINE");
  name_point(current_point,"lb4");
  offset(13,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[13],"back lacing board");
    }

  Obj[14]=newobject("poly");
  current_point=addpoint(x[55],y[55],"LINE");
  name_point(current_point,"b16");
  current_point=addpoint(x[95],y[95],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"b31");
  current_point=addpoint(x[56],y[56],"XARC_START");
  name_point(current_point,"b17");
  current_point=addpoint(x[108],y[108],"XARC_CORNER");
  name_point(current_point,"b37");
  current_point=addpoint(x[109],y[109],"XARC_START");
  name_point(current_point,"b38");
  current_point=addpoint(x[82],y[82],"XARC_CORNER");
  name_point(current_point,"b29");
  current_point=addpoint(x[81],y[81],"LINE");
  name_point(current_point,"b35");
  current_point=addpoint(x[76],y[76],"XARC_START");
  name_point(current_point,"b25");
  current_point=addpoint(x[63],y[63],"XARC_CORNER");
  name_point(current_point,"b23");
  offset(14,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[14],"corset back");
    }

  Obj[15]=newobject("poly");
  current_point=addpoint(x[19],y[19],"LINE");
  name_point(current_point,"f20");
  current_point=addpoint(x[96],y[96],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f47");
  current_point=addpoint(x[18],y[18],"XARC_START");
  name_point(current_point,"f19");
  current_point=addpoint(x[122],y[122],"XARC_CORNER");
  name_point(current_point,"f80");
  current_point=addpoint(x[115],y[115],"LINE");
  name_point(current_point,"f64");
  current_point=addpoint(x[32],y[32],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f38");
  current_point=addpoint(x[97],y[97],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f48");
  current_point=addpoint(x[34],y[34],"XARC_START");
  name_point(current_point,"f41");
  current_point=addpoint(x[35],y[35],"XARC_CORNER");
  name_point(current_point,"f42");
  current_point=addpoint(x[105],y[105],"XARC_START");
  name_point(current_point,"f58");
  current_point=addpoint(x[104],y[104],"XARC_CORNER");
  name_point(current_point,"f57");
  offset(15,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[15],"corset side front");
    }

  Obj[16]=newobject("poly");
  current_point=addpoint(x[1],y[1],"LINE");
  name_point(current_point,"f1");
  current_point=addpoint(x[22],y[22],"LINE");
  name_point(current_point,"f26");
  current_point=addpoint(x[23],y[23],"LINE");
  name_point(current_point,"f27");
  current_point=addpoint(x[98],y[98],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f49");
  current_point=addpoint(x[26],y[26],"LINE");
  notch_type(current_point,"NOTCH",0);
  name_point(current_point,"f30");
  current_point=addpoint(x[114],y[114],"XARC_START");
  name_point(current_point,"f63");
  current_point=addpoint(x[121],y[121],"XARC_CORNER");
  name_point(current_point,"f70");
  current_point=addpoint(x[110],y[110],"LINE");
  name_point(current_point,"f59");
  offset(16,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[16],"corset front");
    }

  Obj[17]=newobject("poly");
  current_point=addpoint(x[123],y[123],"LINE");
  name_point(current_point,"lt1");
  current_point=addpoint(x[124],y[124],"LINE");
  name_point(current_point,"lt2");
  current_point=addpoint(x[126],y[126],"LINE");
  name_point(current_point,"lt4");
  current_point=addpoint(x[125],y[125],"LINE");
  name_point(current_point,"lt3");
  offset(17,0 + Var[49]/1);
  if (lang == 0)
    {
    name_object(Obj[17],"lc tab");
    }

  Obj[18]=newobject("poly");
  current_point=addpoint(x[127],y[127],"LINE");
  name_point(current_point,"lt5");
  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"lt6");
  if (lang == 0)
    {
    name_object(Obj[18],"grain line");
    }

  if (lang == 0)
    {
    Obj[19]=newobject("Text","grain line",1.5707963267949,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[128],y[128],"LINE");
  name_point(current_point,"lt6");
  if (lang == 0)
    {
    name_object(Obj[19],"lc tab grain text");
    }

  if (lang == 0)
    {
    Obj[20]=newobject("Text","Tab cut 8",0,0.5,0.5,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[129],y[129],"LINE");
  name_point(current_point,"lt7");
  if (lang == 0)
    {
    name_object(Obj[20],"Lc tab text");
    }

  if (lang == 0)
    {
    Obj[21]=newobject("Text","copyright Jennifer Smith 2005",0,0.38,0.38,"SIMP.CHR","USELAYERCOLOR","NONE","CENTER_LINE",0);
    }

  current_point=addpoint(x[130],y[130],"LINE");
  name_point(current_point,"f81");
  if (lang == 0)
    {
    name_object(Obj[21],"copyright");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[0]);
  select(current_selection,Obj[1]);
  select(current_selection,Obj[5]);
  select(current_selection,Obj[11]);
  select(current_selection,Obj[12]);
  select(current_selection,Obj[13]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[13],"back lacing board");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[2]);
  select(current_selection,Obj[9]);
  select(current_selection,Obj[10]);
  select(current_selection,Obj[14]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[14],"corset back");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[3]);
  select(current_selection,Obj[4]);
  select(current_selection,Obj[16]);
  select(current_selection,Obj[21]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[21],"corset front");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[6]);
  select(current_selection,Obj[7]);
  select(current_selection,Obj[8]);
  select(current_selection,Obj[15]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[15],"corset side");
    }

  current_selection=newselection("OBJECT");
  select(current_selection,Obj[17]);
  select(current_selection,Obj[18]);
  select(current_selection,Obj[19]);
  select(current_selection,Obj[20]);
  group(current_selection);
  deselect(current_selection);
  if (lang == 0)
    {
    name_group(Obj[20],"lc tab");
    }
  }

  Mirror(double obj_numb, double from, double line_start, double line_end)
    {
    double res_x, res_y;
    double dx, dy, end_x, end_y, slope, b;

    if (y[line_start] == y[line_end])
      {
      res_x = x[from];
      res_y = y[line_start];
      }
    else
      {
      if (x[line_start] == x[line_end])
        {
        res_x = x[line_start];
        res_y = y[from];
        }
      else
        {
        slope = (y[line_start]-y[line_end])/(x[line_start]-x[line_end]);

        end_x = x[from]+1;
        b = y[from] + x[from]/slope;
        end_y = - end_x/slope + b;

        intersect(x[line_start], y[line_start], x[line_end], y[line_end],x[from], y[from], end_x, end_y,0);

        res_x=getresultx();
        res_y=getresulty();
        }
      }
    dx = res_x - x[from];
    dy = res_y - y[from];

    x[obj_numb] = res_x + dx;
    y[obj_numb] = res_y + dy;
    }

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];    }
  }
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);
  }

offset(double obj_numb, double value)
  {
  Off[obj_numb]=0;  
  if (is_function("unit_mode")==1)
  {
   metric = unit_mode();
   if (metric)
   {
  	 value=value*2.54;
   }
  }
  if (value!=0)
    {
    point pnt, test_pnt;
    current_selection=newselection("OBJECT");
    select(current_selection,Obj[obj_numb]);
    sel_push(current_selection);
    var_push(value);
    run_command("OFFSET");
    deselect(current_selection);

    current_selection=newselection("OBJECT");
    get_result_selection(current_selection);
    while (loop_sel(current_selection))
      {
      pnt=first_point(Obj[obj_numb]);
      test_pnt=first_point(get_sel_obj());

      if ( (pointx(test_pnt) != pointx(pnt)) || (pointy(test_pnt) != pointy(pnt)) )
          {
          Off[obj_numb]=get_sel_obj();
          }
      }
    deselect(current_selection);
    }
  }

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();
    }
}

LineArcIntersect(double start, double end, double corner, 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();
    }
}

	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;
}

// 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
}

PlaceCorner(double start, double corner, double end, double new_start, double new_end, double dest)
{
  place_corner(x[start], y[start], x[corner], y[corner], x[end], y[end], x[new_start], y[new_start], x[new_end], y[new_end]);
  x[dest]=getresultx();
  y[dest]=getresulty();
}

coord(double orig, double dest, double x_offset, double y_offset)
  {
  x[dest]=x[orig]+x_offset;
  y[dest]=y[orig]+y_offset;
  }

line_intersect(double start1, double end1, double start2, double end2, double dest)
  {
  double tempx;
  double tempy;

  intersect(x[start1],y[start1],x[end1],y[end1],x[start2],y[start2],x[end2],y[end2],0);
  x[dest]=getresultx();
  y[dest]=getresulty();
  }

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();
  }

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;
  }

move(double dest, double orig, double start, double end)
  {
  x[dest]=x[orig]+x[end]-x[start];
  y[dest]=y[orig]+y[end]-y[start];
  }

Center(double dest, double first, double second)
  {
  x[dest]=(x[first]+x[second])/2;
  y[dest]=(y[first]+y[second])/2;
  }

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);
  }

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);
  }

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)
    {
    ;
    }
  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);
    }
  }

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

CheckFromMetric(double pass)
  {
  if (metric==1)
    {
    pass=pass/2.540000;
    }
  return pass;
  }
LinePnt(double dest, double from, double to, double end)
  {
  double m1,m2, b1, b2;
  
  if (x[from]==x[to])
    {
    x[dest]=x[from];
    y[dest]=y[end];
    }
  else
    {
    m1=(y[from]-y[to])/(x[from]-x[to]);
    b1=y[to]-m1*x[to];
    if (m1!=0)
      {
      m2=-1/m1;
      b2=y[end]-m2*x[end];
      x[dest]=(b1-b2)/(m2-m1);
      y[dest]=m1*x[dest]+b1;
      }
    else
      {
      x[dest]=x[end];
      y[dest]=y[from];
      }
    }
  }