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


initDefs()
  {
  ;
  }

initCode()
  {
  ;
  }

main()
  {
  double read;
  initDefs();
  initCode();
  init_xarc_array();
  lang = get_language();
  metric  = unit_mode();
  if ( (lang != 0) && ( (lang != 1) && ( (lang != 2) && ( (lang != 3) && ( (lang != 4) && ( (lang != 5) && ( (lang != 6))))))))
    {
    lang=0;
    }
  check_reg(0,"Ginani Patterns","Six Piece Skirt","This macro needs to be properly installed before running.");
  metric = unit_mode();
  Flow[0] = 0;
  Flow[1] = 0;
  Flow[2] = 0;
  while (!done)
    {
    Flow[0] = 0;
    Flow[1] = 0;
    Flow[2] = 0;
    done = 1;
    }

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

  if (read==0)
    {
    ;
    Var[13] = CheckToMetric(24);
    Var[14] = CheckToMetric(43);
    Var[15] = CheckToMetric(42.5);
    Var[16] = CheckToMetric(43.5);
    Var[18] = CheckToMetric(28);
    Var[19] = CheckToMetric(40);
  if (lang == 0)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 1)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 2)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 3)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 4)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 5)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
  if (lang == 6)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Side waist to knee", Var[13], "sidewaisttoknee");
      add_picture_input("Side waist to floor", Var[14], "sidewaisttofloor");
      add_picture_input("Center front waist to floor", Var[15], "CFwaisttofloor");
      add_picture_input("Center Back to floor", Var[16], "cbwaisttofloor");
      add_picture_input("Waist", Var[18], "WAIST");
      add_picture_input("Hip", Var[19], "Hip");
      run_picture_input();
    }
    Var[13]= CheckFromMetric(Var[13]);
    Var[14]= CheckFromMetric(Var[14]);
    Var[15]= CheckFromMetric(Var[15]);
    Var[16]= CheckFromMetric(Var[16]);
    Var[18]= CheckFromMetric(Var[18]);
    Var[19]= CheckFromMetric(Var[19]);
    }
  else
    {
    ;
    if (metric==1)
      {
       Var[0] = Table[0]/2.54;
       Var[1] = Table[1]/2.54;
       Var[2] = Table[2]/2.54;
       Var[3] = Table[3]/2.54;
       Var[4] = Table[4]/2.54;
       Var[5] = Table[5]/2.54;
       Var[6] = Table[6]/2.54;
       Var[7] = Table[7]/2.54;
       Var[8] = Table[8]/2.54;
       Var[9] = Table[9]/2.54;
       Var[10] = Table[10]/2.54;
       Var[11] = Table[11]/2.54;
       Var[12] = Table[12]/2.54;
       Var[13] = Table[13]/2.54;
       Var[14] = Table[14]/2.54;
       Var[15] = Table[15]/2.54;
       Var[16] = Table[16]/2.54;
       Var[17] = Table[17]/2.54;
       Var[18] = Table[18]/2.54;
       Var[19] = Table[19]/2.54;
       Var[31] = Table[20]/2.54;
       Var[32] = Table[21]/2.54;
      }
     else
      {
      Var[0] = Table[0];
      Var[1] = Table[1];
      Var[2] = Table[2];
      Var[3] = Table[3];
      Var[4] = Table[4];
      Var[5] = Table[5];
      Var[6] = Table[6];
      Var[7] = Table[7];
      Var[8] = Table[8];
      Var[9] = Table[9];
      Var[10] = Table[10];
      Var[11] = Table[11];
      Var[12] = Table[12];
      Var[13] = Table[13];
      Var[14] = Table[14];
      Var[15] = Table[15];
      Var[16] = Table[16];
      Var[17] = Table[17];
      Var[18] = Table[18];
      Var[19] = Table[19];
      Var[31] = Table[20];
      Var[32] = Table[21];
      }
    }

    Var[28] = CheckToMetric(0.5);
    Var[29] = CheckToMetric(5);
    Var[33] = CheckToMetric(1.5);
  if (lang == 0)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 1)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 2)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 3)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 4)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 5)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
  if (lang == 6)
    {
      start_picture_input("Six Piece Skirt");
      add_picture_input("Seam allowance", Var[28], "");
      add_picture_input("Flare Amount", Var[29], "");
      add_picture_input("Waist Band Height", Var[33], "");
      run_picture_input();
    }
    Var[28]= CheckFromMetric(Var[28]);
    Var[29]= CheckFromMetric(Var[29]);
    Var[33]= CheckFromMetric(Var[33]);
  if (Flow[0] == 0)
    {
    Flow0View0();
    }
    if (Flow[1] == 0)
    {
    Flow1View0();
    }
    if (Flow[2] == 0)
    {
    Flow2View0();
    }
    if (Flow[0] == 0)
    {
    Flow0View0Objects();
    }
    if (Flow[1] == 0)
    {
    Flow1View0Objects();
    }
    if (Flow[2] == 0)
    {
    Flow2View0Objects();
    }
  
  current_object=0;

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

  current_object=0;

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

  current_object=0;

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

  current_object=0;

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

  current_object=0;

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

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

  run_command("ZOOMALL");
  }

Forward()
  {
  }

Backward()
  {
  }

Flow0View0()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow0View0");
    }
  //Bust
  //Bust Span
  //Bust Radius
  //Bust Point
  //Full Front Length
  //Across Chest
  //Across Back
  //Nape to Waist
  //Front Shoulder
  //Back Shoulder
  //Bicep
  //Knee Circ
  //Full Sleeve length
  //Side waist to knee
  //Measurements Waist to hip
  Var[22]=  
 Var[13]/3 +   
0;
  //Side waist to floor
  //Measurements Front balance
  Var[23]=Var[15]/-1 +   
 Var[14]/1 +   
0;
  //Measurements Back Balance
  Var[24]=Var[16]/-1 +   
 Var[14]/1 +   
0;
  //Center front waist to floor
  //Measurements Front balance
  Var[23]=Var[15]/-1 +   
 Var[14]/1 +   
0;
  //Center Back to floor
  //Measurements Back Balance
  Var[24]=Var[16]/-1 +   
 Var[14]/1 +   
0;
  //Bodyrise
  //Waist
  //Measurements WR
  Var[25]=Var[18]/-2 +   
 Var[19]/2 +   
0;
  //Measurements SS
  Var[26]=  
 Var[25]/2 +   
0;
  //Measurements Waist Darts
  Var[27]=  
 Var[26]/3 +   
0;
  //Hip
  //Measurements WR
  Var[25]=Var[18]/-2 +   
 Var[19]/2 +   
0;
  //Measurements SS
  Var[26]=  
 Var[25]/2 +   
0;
  //Measurements Waist Darts
  Var[27]=  
 Var[26]/3 +   
0;
  //Skirt length
  //Waist to hip
  //Measurements Waist to hip
  Var[22]=  
 Var[13]/3 +   
0;
  //Front balance
  //Measurements Front balance
  Var[23]=Var[15]/-1 +   
 Var[14]/1 +   
0;
  //Back Balance
  //Measurements Back Balance
  Var[24]=Var[16]/-1 +   
 Var[14]/1 +   
0;
  //WR
  //Measurements WR
  Var[25]=Var[18]/-2 +   
 Var[19]/2 +   
0;
  //Measurements SS
  Var[26]=  
 Var[25]/2 +   
0;
  //Measurements Waist Darts
  Var[27]=  
 Var[26]/3 +   
0;
  //SS
  //Measurements SS
  Var[26]=  
 Var[25]/2 +   
0;
  //Measurements Waist Darts
  Var[27]=  
 Var[26]/3 +   
0;
  //Waist Darts
  //Measurements Waist Darts
  Var[27]=  
 Var[26]/3 +   
0;
  //Seam allowance
  //Flare Amount
  //Lower abdomen
  //Under Bust
  //Waist Band Height
  Flow0View0Points();
  }

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

  }

Flow0View0Objects()
{
  }

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

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

  //1
  x[1]=x[0];
y[1]=y[0];
  //1a
  x[2]=x[1]+Var[19]/2;
y[2]=y[1];
  //1b
  x[3]=x[2];
y[3]=y[2]+Var[14]/-1+-2;
  //1c
  x[4] = x[1];
y[4] = y[3];

  //1d
  x[5]= (x[4]+x[3])/2;
y[5]=(y[4]+y[3])/2;

  //1e
  x[6]=x[5]+-0.5;
y[6]=y[5];
  //1f
  x[7] = x[6];
y[7] = y[1];

  //Measurements 1f1a
  Var[21]=distance(x[7], y[7], x[2], y[2]);
  //1g
  x[8]= (x[7]+x[1])/2;
y[8]=(y[7]+y[1])/2;

  //1h
  x[9] = x[8];
y[9] = y[6];

  //1i
  x[10]=x[1];
y[10]=y[1]+Var[13]/-3;
  //1j
  x[11] = x[7];
y[11] = y[10];

  //1k
  x[12] = x[8];
y[12] = y[11];

  //1l
  x[13]=x[7]+Var[21]/3;
y[13]=y[7];
  //1m
  x[14] = x[13];
y[14] = y[12];

  //1o
  x[15]=x[14];
y[15]=y[14]+Var[22]/4;
  //1n
  x[16]=x[11];
y[16]=y[11]+Var[22]/-4;
  //1p
  x[17]= (x[7]+x[11])/2;
y[17]=(y[7]+y[11])/2;

  //1q
  x[18]=x[1];
y[18]=y[1]+Var[24]/-1;
  //1r
  x[19]=x[2];
y[19]=y[2]+Var[23]/-1;
  //1s
  x[20] = x[8];
y[20] = y[18];

  //1t
  x[21]=x[20]+Var[27];
y[21]=y[20];
  //1u
  x[22]=x[20]+Var[27]/-1;
y[22]=y[20];
  //1v
  x[23]=x[7]+Var[26]/-2;
y[23]=y[7];
  //1w
  x[24]=x[7]+Var[26]/2;
y[24]=y[7];
  //1x
  x[25]= (x[24]+x[19])/2;
y[25]=(y[24]+y[19])/2;

  //1y
  x[26] = x[25];
y[26] = y[19];

  //1z
    LineArcIntersect(24,26,19,13,15 , 27 );

  //2
  Dart(28, 27,  15,  Var[27]  + 0, 0);

  //2a
  x[29]= (x[21]+x[23])/2;
y[29]=(y[21]+y[23])/2;

  //2b
  x[30] = x[29];
y[30] = y[21];

  //2c
  x[31]=x[2];
y[31]=y[2]+Var[13]/-1+2;
  //Measurements Flare length
  Var[30]=distance(x[31], y[31], x[3], y[3]);
  //2d
  x[32] = x[11];
y[32] = y[31];

  //2d1
  x[33] = x[10];
y[33] = y[31];

  //2d2
  x[34] = x[12];
y[34] = y[32];

  //2d3
  x[35] = x[26];
y[35] = y[15];

  //2d4
  x[36]=x[35]+Var[27]/-2;
y[36]=y[35];
  //2d5
  Dart(37, 26,  36,  Var[27]  + 0, 1);

  //2d6
  x[38] = x[36];
y[38] = y[6];

  //2d7
  x[39] = x[38];
y[39] = y[31];

  //4
  x[40]=x[39]+0.375;
y[40]=y[39];
  //4a
  x[41]=x[39]+-0.375;
y[41]=y[39];
  //4b
  x[42]=x[32]+0.375;
y[42]=y[32];
  //4c
  x[43]=x[32]+-0.375;
y[43]=y[32];
  //4e
  x[44]=x[34]+0.375;
y[44]=y[34];
  //4f
  x[45]=x[34]+-0.375;
y[45]=y[34];
  //4g
  x[46]=x[33]+0.375;
y[46]=y[33];
  //1i1
  x[47]=x[10];
y[47]=y[10]+Var[22]/-4;
  //1i2
  x[48] = x[12];
y[48] = y[47];

  //1i3
  x[49] = x[36];
y[49] = y[47];

  //2d8
  x[50]=x[38]+Var[29];
y[50]=y[38];
  //2d9
  x[51]=x[38]+Var[29]/-1;
y[51]=y[38];
  //1h1
  x[52]=x[6]+Var[29];
y[52]=y[6];
  //1h2
  x[53]=x[6]+Var[29]/-1;
y[53]=y[6];
  //1h3
  x[54]=x[4]+Var[29]/-1;
y[54]=y[4];
  //1h4
  x[55]=x[9]+Var[29]/-1;
y[55]=y[9];
  //4e1
  cont(55, 44, 56, Var[30]/-1+0);

  //4e2
  cont(50, 41, 57, Var[30]/-1+0);

  //4e3
  cont(51, 40, 58, Var[30]/-1+0);

  //4e4
  cont(52, 43, 59, Var[30]/-1+0);

  //4e5
  cont(53, 42, 60, Var[30]/-1+0);

  //4e6
  x[61]=x[9]+Var[29];
y[61]=y[9];
  //4e7
  cont(61, 44, 62, Var[30]/-1+0);

  //4e8
  cont(54, 46, 63, Var[30]/-1+0);

  //1u1
  x[64]= (x[22]+x[12])/2;
y[64]=(y[22]+y[12])/2;

  //1u2
  x[65]= (x[21]+x[12])/2;
y[65]=(y[21]+y[12])/2;

  //1i4
  x[66]= (x[47]+x[46])/2;
y[66]=(y[47]+y[46])/2;

  //1i5
  x[67]= (x[43]+x[59])/2;
y[67]=(y[43]+y[59])/2;

  //1i6
  x[68]= (x[42]+x[60])/2;
y[68]=(y[42]+y[60])/2;

  //1i7
  x[69]= (x[3]+x[38])/2;
y[69]=(y[3]+y[38])/2;

  //1i8
  x[70]= (x[38]+x[6])/2;
y[70]=(y[38]+y[6])/2;

  //1i9
  x[71]= (x[6]+x[9])/2;
y[71]=(y[6]+y[9])/2;

  //2g1
  x[72]= (x[4]+x[9])/2;
y[72]=(y[4]+y[9])/2;

  //2g2
  x[73]= (x[4]+x[54])/2;
y[73]=(y[4]+y[54])/2;

  //1z1
  x[74] = x[27];
y[74] = y[37];

  //2b1
  x[75]=x[30];
y[75]=y[30]+-10;
  //2b2
  x[76]=x[15];
y[76]=y[15]+-10;
  //2b3
  x[77]=x[12]+-2;
y[77]=y[12];
  //2b4
  x[78]=x[77];
y[78]=y[77]+-5;
  }

Flow1View0Objects()
{

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

  Obj[0] = newobject("poly");
  current_point=addpoint(x[26],y[26],"LINE");
  current_point=addpoint(x[36],y[36],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[49],y[49],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[40],y[40],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[58],y[58],"XARC_START");
  current_point=addpoint(x[70],y[70],"XARC_CORNER");
  current_point=addpoint(x[38],y[38],"LINE");
  current_point=addpoint(x[3],y[3],"LINE");
  current_point=addpoint(x[19],y[19],"LINE");
    if (lang == 0) { name_object(Obj[0],"CenterFront"); }
    if (lang == 1) { name_object(Obj[0],"CenterFront"); }
    if (lang == 2) { name_object(Obj[0],"CenterFront"); }
    if (lang == 3) { name_object(Obj[0],"CenterFront"); }
    if (lang == 4) { name_object(Obj[0],"CenterFront"); }
    if (lang == 5) { name_object(Obj[0],"CenterFront"); }
    if (lang == 6) { name_object(Obj[0],"CenterFront"); }
    }

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

  Obj[1] = newobject("poly");
  current_point=addpoint(x[18],y[18],"LINE");
  current_point=addpoint(x[22],y[22],"LINE");
  notch_type(current_point,"DBL_NOTCH",1);
  current_point=addpoint(x[12],y[12],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[48],y[48],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[45],y[45],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[62],y[62],"XARC_START");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  current_point=addpoint(x[9],y[9],"LINE");
  current_point=addpoint(x[4],y[4],"XARC_START");
  current_point=addpoint(x[73],y[73],"XARC_CORNER");
  current_point=addpoint(x[63],y[63],"LINE");
  current_point=addpoint(x[46],y[46],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[47],y[47],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[10],y[10],"LINE");
    if (lang == 0) { name_object(Obj[1],"CenterBack"); }
    if (lang == 1) { name_object(Obj[1],"CenterBack"); }
    if (lang == 2) { name_object(Obj[1],"CenterBack"); }
    if (lang == 3) { name_object(Obj[1],"CenterBack"); }
    if (lang == 4) { name_object(Obj[1],"CenterBack"); }
    if (lang == 5) { name_object(Obj[1],"CenterBack"); }
    if (lang == 6) { name_object(Obj[1],"CenterBack"); }
    }

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

  Obj[2] = newobject("poly");
  current_point=addpoint(x[57],y[57],"LINE");
  current_point=addpoint(x[52],y[52],"LINE");
  current_point=addpoint(x[6],y[6],"XARC_START");
  current_point=addpoint(x[71],y[71],"XARC_CORNER");
  current_point=addpoint(x[60],y[60],"LINE");
  current_point=addpoint(x[68],y[68],"LINE");
  notch_type(current_point,"DBL_NOTCH",0);
  current_point=addpoint(x[42],y[42],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[16],y[16],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[11],y[11],"XARC_START");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[17],y[17],"XARC_CORNER");
  current_point=addpoint(x[24],y[24],"XARC_START");
  current_point=addpoint(x[74],y[74],"XARC_CORNER");
  current_point=addpoint(x[37],y[37],"LINE");
  current_point=addpoint(x[36],y[36],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[49],y[49],"LINE");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint(x[41],y[41],"LINE");
  notch_type(current_point,"NOTCH",0);
    if (lang == 0) { name_object(Obj[2],"SideFront"); }
    if (lang == 1) { name_object(Obj[2],"SideFront"); }
    if (lang == 2) { name_object(Obj[2],"SideFront"); }
    if (lang == 3) { name_object(Obj[2],"SideFront"); }
    if (lang == 4) { name_object(Obj[2],"SideFront"); }
    if (lang == 5) { name_object(Obj[2],"SideFront"); }
    if (lang == 6) { name_object(Obj[2],"SideFront"); }
    }

  //Object Sideback
  if (HideObj[3] == 0)
    {

  Obj[3] = newobject("poly");
  current_point=addpoint(x[12],y[12],"LINE");
  notch_type(current_point,"DBL_NOTCH",1);
  current_point=addpoint(x[48],y[48],"LINE");
  notch_type(current_point,"DBL_NOTCH",1);
  current_point=addpoint(x[44],y[44],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[56],y[56],"XARC_START");
  current_point=addpoint(x[72],y[72],"XARC_CORNER");
  current_point=addpoint(x[9],y[9],"LINE");
  current_point=addpoint(x[6],y[6],"XARC_START");
  notch_type(current_point,"DBL_NOTCH",1);
  current_point=addpoint(x[70],y[70],"XARC_CORNER");
  current_point=addpoint(x[59],y[59],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[67],y[67],"LINE");
  notch_type(current_point,"DBL_NOTCH",1);
  current_point=addpoint(x[43],y[43],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[16],y[16],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[11],y[11],"XARC_START");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[17],y[17],"XARC_CORNER");
  current_point=addpoint(x[23],y[23],"XARC_START");
  current_point=addpoint(x[30],y[30],"XARC_CORNER");
  current_point=addpoint(x[21],y[21],"LINE");
  current_point=addpoint(x[65],y[65],"LINE");
  notch_type(current_point,"NOTCH",1);
    if (lang == 0) { name_object(Obj[3],"Sideback"); }
    if (lang == 1) { name_object(Obj[3],"Sideback"); }
    if (lang == 2) { name_object(Obj[3],"Sideback"); }
    if (lang == 3) { name_object(Obj[3],"Sideback"); }
    if (lang == 4) { name_object(Obj[3],"Sideback"); }
    if (lang == 5) { name_object(Obj[3],"Sideback"); }
    if (lang == 6) { name_object(Obj[3],"Sideback"); }
    }

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

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

  //Object 2b3
  if (HideObj[5] == 0)
    {
  if (lang == 0)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[5] = newobject("Text","SideFront",0,0.4,0.4,"PatternMaker");
    }

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

  //Object 2b4
  if (HideObj[6] == 0)
    {
  if (lang == 0)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[6] = newobject("Text","Cut 2",0,0.4,0.4,"PatternMaker");
    }

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

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

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

  //Object 2B6
  if (HideObj[8] == 0)
    {
  if (lang == 0)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[8] = newobject("Text","Center Front remove seam to cut on fold of fabric",1.5707963267949,0.4,0.4,"PatternMaker");
    }

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

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

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

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

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

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

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

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

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

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

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

  //Object 2c3
  if (HideObj[14] == 0)
    {
  if (lang == 0)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[14] = newobject("Text","Cut 2",0,0.3,0.3,"PatternMaker");
    }

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

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

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

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

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

  //Object sbgrainline
  if (HideObj[17] == 0)
    {

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

  //Object Cbkgrainline
  if (HideObj[18] == 0)
    {

  Obj[18] = newobject("poly");
  current_point=addpoint(x[78],y[78],"LINE");
  current_point=addpoint(x[77],y[77],"OPEN");
    if (lang == 0) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 1) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 2) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 3) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 4) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 5) { name_object(Obj[18],"Cbkgrainline"); }
    if (lang == 6) { name_object(Obj[18],"Cbkgrainline"); }
    }
  offset_mark(0, CheckToMetric(0 + Var[28]/1));
  group(current_selection);
  deselect(current_selection);

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

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

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

  }

Flow2View0()
  {
  do_counter=0;
  do_max=0;
  if (is_function("macgen_write"))
    {
    macgen_write("Flow2View0");
    }
  Flow2View0Points();
  }

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

  //6a
  x[79]=x[1];
y[79]=y[1];
  //6b
  x[80]=x[79];
y[80]=y[79]+Var[18]/-1+-1;
  //6c
  x[81]=x[80]+Var[33];
y[81]=y[80];
  //6d
  x[82] = x[81];
y[82] = y[79];

  //6e
  x[83]=x[82]+Var[33];
y[83]=y[82];
  //6f
  x[84] = x[83];
y[84] = y[80];

  //6g
  x[85]= (x[81]+x[82])/2;
y[85]=(y[81]+y[82])/2;

  //6h
  x[86]= (x[85]+x[81])/2;
y[86]=(y[85]+y[81])/2;

  //6i
  x[87]=x[83];
y[87]=y[83]+-1;
  //6j
  x[88]=x[79];
y[88]=y[79]+-1;
  }

Flow2View0Objects()
{

  //Object Waist Band
  if (HideObj[19] == 0)
    {

  Obj[19] = newobject("poly");
  current_point=addpoint(x[79],y[79],"LINE");
  current_point=addpoint(x[82],y[82],"LINE");
  current_point=addpoint(x[83],y[83],"LINE");
  current_point=addpoint(x[87],y[87],"LINE");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint(x[84],y[84],"LINE");
  current_point=addpoint(x[80],y[80],"LINE");
  current_point=addpoint(x[88],y[88],"LINE");
  notch_type(current_point,"NOTCH",1);
    if (lang == 0) { name_object(Obj[19],"Waist Band"); }
    if (lang == 1) { name_object(Obj[19],"Waist Band"); }
    if (lang == 2) { name_object(Obj[19],"Waist Band"); }
    if (lang == 3) { name_object(Obj[19],"Waist Band"); }
    if (lang == 4) { name_object(Obj[19],"Waist Band"); }
    if (lang == 5) { name_object(Obj[19],"Waist Band"); }
    if (lang == 6) { name_object(Obj[19],"Waist Band"); }
    }

  //Object WB center line
  if (HideObj[20] == 0)
    {

  Obj[20] = newobject("poly");
  current_point=addpoint(x[81],y[81],"LINE");
  current_point=addpoint(x[86],y[86],"LINE");
  current_point=addpoint(x[85],y[85],"LINE");
  current_point=addpoint(x[82],y[82],"OPEN");
    if (lang == 0) { name_object(Obj[20],"WB center line"); }
    if (lang == 1) { name_object(Obj[20],"WB center line"); }
    if (lang == 2) { name_object(Obj[20],"WB center line"); }
    if (lang == 3) { name_object(Obj[20],"WB center line"); }
    if (lang == 4) { name_object(Obj[20],"WB center line"); }
    if (lang == 5) { name_object(Obj[20],"WB center line"); }
    if (lang == 6) { name_object(Obj[20],"WB center line"); }
    }

  //Object WbTxt1
  if (HideObj[21] == 0)
    {
  if (lang == 0)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[21] = newobject("Text","Waist Band",1.5707963267949,0.7,0.7,"PatternMaker");
    }

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

  //Object WBtxt2 
  if (HideObj[22] == 0)
    {
  if (lang == 0)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 1)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 2)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 3)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 4)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 5)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }
  if (lang == 6)
    {
    Obj[22] = newobject("Text","Six Piece Skirt",1.5707963267949,0.5,0.5,"PatternMaker");
    }

  current_point=addpoint(x[85],y[85],"LINE");
    if (lang == 0) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 1) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 2) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 3) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 4) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 5) { name_object(Obj[22],"WBtxt2 "); }
    if (lang == 6) { name_object(Obj[22],"WBtxt2 "); }
    }
  offset_mark(19, CheckToMetric(0 + Var[28]/1));
  group(current_selection);
  deselect(current_selection);

  }


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  // You only need to call this routine once.

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

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

  ct=0;

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

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

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