// Copyright (C) 2001 Leena L�hteenm�ki, Finland
// Copyright (C) 2012 PatternMaker Software
// 2011/11/04

double index, done;
object marker_array[20];
double marker_count, loop;
double x[300], y[300];
double ang,vang,vdistance,rangle;
object group_obj[50];
object current_object;
point current_point;
selection current_selection;
double ky,ry,vy,yly,aly,rkkv,rk,vk,sp,sl,op;
double ylk,alk,kay,ray,hp;
double eml, tml, sml, smlyly,smlaly;
double ktk,ktl,ptl,ptp,ptl,pts,rl,pk;
double okt,oke;
double ktpe,ktpt,ktp;
double pit, nv;
double ease, f_ry[10],f_ky[10],f_vy[10],f_yly[10],f_aly[10],f_rkkv[10],f_sl[10];
double f_op[10],f_vk[10],f_rk[10],f_rl[10],f_sp[10],f_ktk[10];
double f_kay[10],f_ray[10],f_hp[10];
double ease, f_ry[3],f_ky[3],f_vy[3],f_yly[3],f_aly[3],f_rkkv[3],f_sl[3];
double kpe,kpt,kp;
double collar, model;
double language, sv, metric, siirtox, siirtoy;
double result;

main()
   { 
  ky=39.25;
  ry=96;
  vy=78;
  yly=95;
  aly=102;
  rkkv=21;
  rk=36.8;
  vk=55.4;
  sp=41.3;
  sl=37.6;
  op=13.5;
  ylk=9;
  alk=19;
  kay=30;
  ray=18.5;
  hp=60.4;
  pit=80;
  nv=8;
  sv=1;

  language=get_language();
  if(language != 0)  {  language = 0;  } 
    if (language == 0)
       { 
        check_reg(0, "Leena","Coat_robe", "This macro needs to be properly installed before running it.");

       } 

  //Start Options
  while (!done)
   { 
  if (index==0)  {  Popup1();  } 
  if (index==1)  {  Popup2();  } 
  if (index==2)  {  Popup3();  } 
     } 

//End Options


  if (is_function("unit_mode")==1)
     { 
    metric = unit_mode();

    if (!metric)
       { 
      ky=ky/2.54;
      ry=ry/2.54;
      vy=vy/2.54;
      yly=yly/2.54;
      aly=aly/2.54;
      rkkv=rkkv/2.54;
      vk=vk/2.54;
      sp=sp/2.54;
      sl=sl/2.54;
      op=op/2.54;
      ylk=ylk/2.54;
      alk=alk/2.54;
      rk=rk/2.54;
      kay=kay/2.54;
      ray=ray/2.54;
      hp=hp/2.54;
      pit=pit/2.54;
      sv=sv/2.54;
       } 
     } 

  else
     { 
    if (language == 0)
       { 
          metric=2*pop_up("UNITS","Inches","Centimeters");

       } 


    if (metric<1)
       { 
      ky=ky/2.54;
      ry=ry/2.54;
      vy=vy/2.54;
      yly=yly/2.54;
      aly=aly/2.54;
      rkkv=rkkv/2.54;
      vk=vk/2.54;
      sp=sp/2.54;
      sl=sl/2.54;
      op=op/2.54;
      ylk=ylk/2.54;
      alk=alk/2.54;
      rk=rk/2.54;
      kay=kay/2.54;
      ray=ray/2.54;
      hp=hp/2.54;
      pit=pit/2.54;
      sv=sv/2.54;
       } 
     } 

  if(metric==0)
     { 
    sv=0.39;
     } 

  double read;
  read = 0;

  if (is_function("measure_table")==1)
     { 
    if (measure_table("default_women")==1)
       { 
      read = 1;
       } 
     } 

  if (read==0)
     { 
    if (is_function("start_picture_input"))
       { 
    if (language == 0)
       { 
            start_picture_input("WOMEN'S COAT/ROBE");

       } 


    if (language == 0)
       { 
            add_picture_input("Neck circumference",ky, "w_meas_neckcirc");

       } 

    if (language == 0)
       { 
            add_picture_input("Bust circumference", ry, "w_meas_bustcirc");

       } 

    if (language == 0)
       { 
            add_picture_input("Waist circumference", vy, "w_meas_waistcirc");

       } 

    if (language == 0)
       { 
            add_picture_input("Abdomen circumference",yly, "w_meas_abdmcirc");

       } 

    if (language == 0)
       { 
            add_picture_input("Hip circumference",aly, "w_meas_hipcirc");

       } 

    if (language == 0)
       { 
            add_picture_input("Bust span", rkkv, "w_meas_bustspan");

       } 

    if (language == 0)
       { 
            add_picture_input("Bust height",rk, "w_meas_bustht");

       } 

    if (language == 0)
       { 
            add_picture_input("Waist height",vk, "w_meas_waistht");

       } 

    if (language == 0)
       { 
            add_picture_input("Back length",sp, "w_meas_bklength");

       } 

    if (language == 0)
       { 
            add_picture_input("Back width",sl, "w_meas_bkwidth");

       } 

    if (language == 0)
       { 
            add_picture_input("Shoulder length",op, "w_meas_shldr");

       } 

    if (language == 0)
       { 
            add_picture_input("Waist - Abdomen",ylk, "w_meas_waist-abdm");

       } 

    if (language == 0)
       { 
            add_picture_input("Waist - Hip",alk, "w_meas_waist-hip");

       } 

    if (language == 0)
       { 
            add_picture_input("Biceps circumference",kay, "w_meas_biceps");

       } 

    if (language == 0)
       { 
            add_picture_input("Wrist circumference",ray, "w_meas_wrist");

       } 

    if (language == 0)
       { 
            add_picture_input("Overarm length",hp, "w_meas_overarm");

       } 

    if (language == 0)
       { 
            add_picture_input("Length from waist",pit, "w_meas_jacket_length");

       } 

    if (language == 0)
       { 
            add_picture_input("Seam Allowance", sv, "meas_seamallow");

       } 

      run_picture_input();
       } 

    else
       { 
    if (language == 0)
       { 
            dialog_box( "WOMEN'S COAT/ROBE, 1 of 2",
                  "Neck circumference",ky,
                  "Bust circumference", ry,
                  "Waist circumference", vy,
                  "Abdomen circumference",yly,
                  "Hip circumference",aly,
                  "Bust span", rkkv,
                  "Bust height",rk,
                  "Waist height",vk,
                  "Back length",sp,
                  "Back width",sl);

       } 


    if (language == 0)
       { 
            dialog_box("WOMEN'S COAT/ROBE, 2 of 2",
                 "Shoulder length",op,
                 "Waist - Abdomen",ylk,
                 "Waist - Hip",alk,
                 "Biceps circumference",kay,
                 "Wrist circumference",ray,
                 "Overarm length",hp,
                 "Length from waist",pit,
                 "Seam Allowance", sv);

       } 

       } 
     } 

  else
     { 
    if (is_function("start_picture_input"))
       { 
    if (language == 0)
       { 
            start_picture_input("WOMEN'S COAT/ROBE");

       } 


    if (language == 0)
       { 
            add_picture_input("Seam Allowance", sv, "meas_seamallow");

       } 

      run_picture_input();
       } 

    else
       { 
    if (language == 0)
       { 
            dialog_box( "WOMEN'S COAT/ROBE, 1 of 2", "Seam Allowance", sv);

       } 

       } 
     } 

  if (is_function("unit_mode")==1)
     { 
    metric = unit_mode();

    if (!metric)
       { 
      ky=ky*2.54;
      ry=ry*2.54;
      vy=vy*2.54;
      yly=yly*2.54;
      aly=aly*2.54;
      rkkv=rkkv*2.54;
      vk=vk*2.54;
      sp=sp*2.54;
      sl=sl*2.54;
      op=op*2.54;
      ylk=ylk*2.54;
      alk=alk*2.54;
      rk=rk*2.54;
      kay=kay*2.54;
      ray=ray*2.54;
      hp=hp*2.54;
      pit=pit*2.54;
       } 
     } 

  else
     { 
    if (metric<1)
       { 
      ky=ky*2.54;
      ry=ry*2.54;
      vy=vy*2.54;
      yly=yly*2.54;
      aly=aly*2.54;
      rkkv=rkkv*2.54;
      vk=vk*2.54;
      sp=sp*2.54;
      sl=sl*2.54;
      op=op*2.54;
      ylk=ylk*2.54;
      alk=alk*2.54;
      rk=rk*2.54;
      kay=kay*2.54;
      ray=ray*2.54;
      hp=hp*2.54;
      pit=pit*2.54;
       } 
     } 

  if(metric==2)
     { 
    sv=sv/2.54;
     } 

  if (ry < 76)
     { 
    oke=4.6;
     } 

  else
     { 
    if (ry < 80)
       { 
      oke=4.4;
       } 

    else
       { 
      if (ry < 84)
         { 
        oke=4.2;
         } 

      else
         { 
        if (ry < 88)
           { 
          oke=4.0;
           } 

        else
           { 
          if (ry < 92)
             { 
            oke=3.8;
             } 

          else
             { 
            if (ry < 96)
               { 
              oke=3.6;
               } 

            else
               { 
              if (ry < 100)
                 { 
                oke=3.4;
                 } 

              else
                 { 
                if (ry < 104)
                   { 
                  oke=3.2;
                   } 

                else
                   { 
                  if (ry < 110)
                     { 
                    oke=3.0;
                     } 

                  else
                     { 
                    if (ry < 116)
                       { 
                      oke=2.8;
                       } 

                    else
                       { 
                      if (ry < 122)
                         { 
                        oke=2.6;
                         } 

                      else
                         { 
                        oke=2.4;
                         } 
                       } 
                     } 
                   } 
                 } 
               } 
             } 
           } 
         } 
       } 
     } 

  if(ry < 76)
     { 
    okt=2.35;
     } 

  else
     { 
    if (ry < 80)
       { 
      okt=2.4;
       } 

    else
       { 
      if (ry < 84)
         { 
        okt=2.45;
         } 

      else
         { 
        if (ry < 88)
           { 
          okt=2.5;
           } 

        else
           { 
          if (ry < 92)
             { 
            okt=2.55;
             } 

          else
             { 
            if (ry < 96)
               { 
              okt=2.6;
               } 

            else
               { 
              if (ry < 100)
                 { 
                okt=2.65;
                 } 

              else
                 { 
                if (ry < 104)
                   { 
                  okt=2.7;
                   } 

                else
                   { 
                  if (ry < 110)
                     { 
                    okt=2.75;
                     } 

                  else
                     { 
                    if (ry < 116)
                       { 
                      okt=2.8;
                       } 

                    else
                       { 
                      if (ry < 122)
                         { 
                        okt=2.85;
                         } 

                      else
                         { 
                        okt=2.9;
                         } 
                       } 
                     } 
                   } 
                 } 
               } 
             } 
           } 
         } 
       } 
     } 

  if (ry < 76)
     { 
    rl=4.3;
     } 

  else
     { 
    if (ry < 80)
       { 
      rl=5.1;
       } 

    else
       { 
      if (ry < 84)
         { 
        rl=5.8;
         } 

      else
         { 
        if (ry < 88)
           { 
          rl=6.6;
           } 

        else
           { 
          if (ry < 92)
             { 
            rl=7.3;
             } 

          else
             { 
            if (ry < 96)
               { 
              rl=8.1;
               } 

            else
               { 
              if (ry < 100)
                 { 
                rl=8.8;
                 } 

              else
                 { 
                if (ry < 104)
                   { 
                  rl=9.6;
                   } 

                else
                   { 
                  if (ry < 110)
                     { 
                    rl=10.8;
                     } 

                  else
                     { 
                    if (ry < 116)
                       { 
                      rl=12.1;
                       } 

                    else
                       { 
                      if (ry < 122)
                         { 
                        rl=13.3;
                         } 

                      else
                         { 
                        rl=14.6;
                         } 
                       } 
                     } 
                   } 

                 } 
               } 
             } 
           } 
         } 
       } 
     } 

  if (ry < 76)
     { 
    ktk=20.4;
     } 

  else
     { 
    if (ry < 80)
       { 
      ktk=20.8;
       } 

    else
       { 
      if (ry < 84)
         { 
        ktk=21.2;
         } 

      else
         { 
        if (ry < 88)
           { 
          ktk=21.6;
           } 

        else
           { 
          if (ry < 92)
             { 
            ktk=22;
             } 

          else
             { 
            if (ry < 96)
               { 
              ktk=22.4;
               } 

            else
               { 
              if (ry < 100)
                 { 
                ktk=22.8;
                 } 

              else
                 { 
                if (ry < 104)
                   { 
                  ktk=23.2;
                   } 

                else
                   { 
                  if (ry < 110)
                     { 
                    ktk=23.8;
                     } 

                  else
                     { 
                    if (ry < 116)
                       { 
                      ktk=24.4;
                       } 

                    else
                       { 
                      if (ry < 122)
                         { 
                        ktk=25;
                         } 

                      else
                         { 
                        ktk=25.6;
                         } 
                       } 
                     } 
                   } 
                 } 
               } 
             } 
           } 
         } 
       } 
     } 

  f_ry[0]=ry+18;
  f_ky[0]=ky+3.75;
  f_vy[0]=vy+16;
  f_yly[0]=yly+2+14;
  f_aly[0]=aly+2+14;
  f_rkkv[0]=rkkv+1.8;
  f_sl[0]=sl+4.6;
  f_op[0]=op+0.4;
  f_vk[0]=vk+0.5;
  f_rk[0]=rk+0.5;
  f_rl[0]=rl+0.5;
  f_sp[0]=sp+0.5;
  f_ktk[0]=ktk+4;
  f_kay[0]=kay+12;
  f_ray[0]=ray+18;
  f_hp[0]=hp+1.25;

  f_ry[1]=ry+20;
  f_ky[1]=ky+4.5;
  f_vy[1]=vy+18;
  f_yly[1]=yly+2+16;
  f_aly[1]=aly+2+16;
  f_rkkv[1]=rkkv+2;
  f_sl[1]=sl+5.2;
  f_op[1]=op+0.4;
  f_vk[1]=vk+1;
  f_rk[1]=rk+1;
  f_rl[1]=rl+0.6;
  f_sp[1]=sp+1;
  f_ktk[1]=ktk+4.5;
  f_kay[1]=kay+13;
  f_ray[1]=ray+19;
  f_hp[1]=hp+1.5;

  f_ry[2]=ry+22;
  f_ky[2]=ky+5.25;
  f_vy[2]=vy+20;
  f_yly[2]=yly+2+18;
  f_aly[2]=aly+2+18;
  f_rkkv[2]=rkkv+2.2;
  f_sl[2]=sl+5.8;
  f_op[2]=op+0.8;
  f_vk[2]=vk+1;
  f_rk[2]=rk+1;
  f_rl[2]=rl+0.7;
  f_sp[2]=sp+1;
  f_ktk[2]=ktk+5;
  f_kay[2]=kay+14;
  f_ray[2]=ray+20;
  f_hp[2]=hp+1.75;

  ry=f_ry[ease];
  ky=f_ky[ease];
  vy=f_vy[ease];
  yly=f_yly[ease];
  aly=f_aly[ease];
  rkkv=f_rkkv[ease];
  sl=f_sl[ease];
  op=f_op[ease];
  vk=f_vk[ease];
  rk=f_rk[ease];
  rl=f_rl[ease];
  sp=f_sp[ease];
  ktk=f_ktk[ease];
  kay=f_kay[ease];
  ray=f_ray[ease];

  pts=ky/5+0.5;
  ptl=ky/5-1;
  ktl=ry/8-1.5;
  eml=3;
  tml=3;
  sml=(ry/2-vy/2)-6;
  smlyly=(ry/2-yly/2)-3;
  smlaly=(ry/2-aly/2);

  if(aly<yly)
     {  aly=yly+5;  } 

  pts=ky/5;
  ptl=ky/5-0.5;
  eml=(ry/2-vy/2)/4;
  sml=(ry/2-vy/2)/2;
  smlyly=ry/2-yly/2;
  smlaly=ry/2-aly/2;
  tml=(ry/2-vy/2)/4;

  if(aly<yly)
     {  aly=yly+5;  } 

  pts=pts-3;

  op=op+1;

  x[0]=0;
  y[0]=0;

  coord(0,1,0,0);
  coord(1,2,-ry/2,0);
  coord(2,3,0,-ktk);
  coord(2,4,0,-sp);
  coord(4,5,0,-ylk);
  coord(4,6,0,-alk);
  coord(1,7,-sl/2,0);
  coord(7,8,-ktl,0);
  coord(7,9,0,-ktk);
  coord(9,10,-ktl,0);
  coord(9,11,-ktl/2,0);
  coord(9,12,sl/2,0);
  coord(1,13,0,-sp);
  coord(13,14,0,-ylk);
  coord(13,15,0,-alk);
  coord(13,16,-sl/2-ktl/2,0);
  coord(14,17,-sl/2-ktl/2,0);
  coord(15,18,-sl/2-ktl/2,0);
  coord(3,19,rkkv/2,0);
  coord(4,20,rkkv/2,0);
  coord(1,21,0,.5);
  coord(1,22,-ptl,2.5);
  coord(22,122,0,-2.5);
  coord(2,23,pts-2,-pts);
  coord(1,24,0,-okt);
  coord(24,124,-100,0);
  coord(1,25,0,-oke);
  coord(25,125,-100,0);
  coord(22,26,-sqrt((op)*(op)-(okt+2.5)*(okt+2.5)),-(okt+2.5));
  coord(23,123,0,100);
  cont(26,22,27,-4);
  coord(1,28,-rkkv/2,-7);
  cont(28,27,127,.6);
  cont(26,22,29,-6);
  coord(127,129,0,0);
  double ang;
  ang=angle(x[28],y[28],x[27],y[27])-angle(x[28],y[28],x[29],y[29]);
  rotate(129,28,-ang);

  coord(20,30,0,vk-rk);

  init_xarc_array();
  ptp=arclength(21,122,22);

  coord(30,31,-rkkv/2+ptl,sqrt((rk-ptp)*(rk-ptp)-(rkkv/2-ptl)*(rkkv/2-ptl)));

  coord(31,32,0,0);
  double ang;
  ang=angle(x[30],y[30],x[31],y[31])-angle(x[30],y[30],x[31]+rl,y[31]);
  rotate(32,30,-ang);

  x[223]=x[32];
  y[223]=y[25];
  oke=dist(32,223);
  coord(32,33,sqrt(op*op-oke*oke),-oke);
  cont(33,31,131,-4);
  cont(33,32,132,-4);
  cont(131,31,33,-op);
  coord(10,34,0,ktk/4);
  coord(9,35,0,ktk/3);
  coord(10,36,0,ktk/2);
  coord(9,37,0,2*ktk/3);
  y[9]=y[9]+2;

  coord(31,102,-ptl,-pts);
  coord(6,38,rkkv/2,0);
  coord(38,39,0,(alk-ylk)/2);
  coord(20,40,-eml/2,0);
  coord(20,41,eml/2,0);
  coord(15,42,-rkkv/2,0);
  coord(42,43,0,(alk-ylk)/2);
  coord(13,44,-rkkv/2-tml/2,0);
  coord(12,45,-rkkv/2,-2);
  coord(44,46,tml,0);
  coord(18,47,smlaly/2,0);
  coord(17,48,smlyly/2,0);
  coord(16,49,sml/2,0);
  coord(16,50,-sml/2,0);
  coord(17,51,-smlyly/2,0);
  coord(18,52,-smlaly/2,0);
  coord(4,104,-nv,dist(3,4)/2);

  siirtox=0;
  siirtoy=25;

  current_object=newobject("poly");
  addpoint((x[33]+siirtox)/2.54, (y[33]+siirtoy)/2.54, "line");
  addpoint((x[33]+100+siirtox)/2.54, (y[33]+siirtoy)/2.54, "line");
  addpoint((x[33]+100+siirtox)/2.54, (y[33]-10+siirtoy)/2.54, "line");
  addpoint((x[33]+siirtox)/2.54, (y[33]-10+siirtoy)/2.54, "line");
  group_obj[34]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Belt Cut 2 on fold",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[1]+1+siirtox)/2.54, (y[1]-4.8+siirtoy)/2.54, "line");
  group_obj[35]=current_object;

  siirtox=0;
  siirtoy=0;

  if(sv>0)
     { 

    offset_mark(34);
    select(current_selection,group_obj[35]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(34);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[34]);
    select(current_selection,group_obj[35]);
    group(current_selection);
    deselect(current_selection);
     } 

  siirtox=-25;
  siirtoy=0;

  current_object=newobject("poly");
  addpoint((x[1]+siirtox)/2.54, (y[1]+siirtoy)/2.54, "line");
  addpoint((x[1]+7+siirtox)/2.54, (y[1]+siirtoy)/2.54, "line");
  addpoint((x[1]+7+siirtox)/2.54, (y[1]-4+siirtoy)/2.54, "line");
  addpoint((x[1]+siirtox)/2.54, (y[1]-4+siirtoy)/2.54, "line");
  group_obj[36]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Belt loop Cut 2",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[1]+1+siirtox)/2.54, (y[1]-3+siirtoy)/2.54, "line");
  group_obj[37]=current_object;

  mark(36);
  current_selection=newselection("OBJECT");
  select(current_selection,group_obj[36]);
  select(current_selection,group_obj[37]);
  group(current_selection);
  deselect(current_selection);

  siirtox=0;
  siirtoy=0;

  current_object=newobject("poly");
  addpoint((x[104])/2.54, (y[104])/2.54, "line");
  coord(31,231,-2,0);
  cont(104,231,232,-20);
  addpoint((x[232])/2.54, (y[232])/2.54, "line");
  group_obj[1]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Lapel roll line",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[104]+2+siirtox)/2.54, (y[104]+10+siirtoy)/2.54, "line");
  group_obj[2]=current_object;

  coord(23,102,-15,10);

  center(102,104,204);
  x[204]=x[204]-2;
  y[204]=y[232];

  cont(23,102,205,-4);

  cont(204,102,206,-4);

  y[21]=y[21]-1;

  coord(31,231,-2,0);

  cont(104,231,232,-20);

  cont(104,231,233,50);

  linecirc(31,104,233,ptp,1,234);
  rotate(234,31,-9/dist(234,31));

  coord(234,235,4,17);

  coord(234,236,4,35);

  x[237]=x[4];
  y[237]=y[236];

  center(234,31,238);
  y[238]=y[234];

  double kaulkork, kaul_rotaatio;
  kaulkork=11;
  kaul_rotaatio=6;

  cont(23,31,105,arclength(21,122,22));

  cont(31,105,106,-kaulkork);
  rotate (106,105,-angle (x[105],y[106],x[105],y[106]+90*3.14159/180));

  cont(105,31,107,arclength(21,121,22));
  rotate (107,31,-angle (x[31],y[107],x[31],y[107]+90*3.14159/180));

  center(31,105,108);

  center(106,107,109);

  rotate(108,31,-kaul_rotaatio/dist(31,107));
  rotate(105,31,-kaul_rotaatio/dist(31,107));
  rotate(106,31,-kaul_rotaatio/dist(31,107));
  rotate(109,31,-kaul_rotaatio/dist(31,107));
  rotate(107,31,-kaul_rotaatio/dist(31,107));

  cont(107,102,110,-4);

  cont(23,102,111,-4);

  rotate(110,23,+3/dist(110,23));
  rotate(102,23,+3/dist(110,23));
  rotate(111,23,+3/dist(110,23));

  if((model==0)||(model==2))
     { 

    siirtox=-2;
    siirtoy=10;
    current_object=newobject("poly");
    addpoint((x[23]+siirtox)/2.54, (y[23]+siirtoy)/2.54, "xarc_start");
    addpoint((x[31]+siirtox)/2.54, (y[31]+siirtoy)/2.54, "xarc_corner");
    addpoint((x[108]+siirtox)/2.54, (y[108]+siirtoy)/2.54, "line");
    addpoint((x[105]+siirtox)/2.54, (y[105]+siirtoy)/2.54, "line");
    addpoint((x[106]+siirtox)/2.54, (y[106]+siirtoy)/2.54, "line");

    if(collar==0)
       { 
      addpoint((x[110]+siirtox)/2.54, (y[110]+siirtoy)/2.54, "xarc_start");
      addpoint((x[102]+siirtox)/2.54, (y[102]+siirtoy)/2.54, "xarc_corner");
       } 

    else
       { 
      addpoint((x[110]+siirtox)/2.54, (y[110]+siirtoy)/2.54, "line");
      addpoint((x[102]+siirtox)/2.54, (y[102]+siirtoy)/2.54, "line");
       } 

    addpoint((x[111]+siirtox)/2.54, (y[111]+siirtoy)/2.54, "line");
    group_obj[3]=current_object;

    current_object=newobject("poly");
    addpoint((x[31]+siirtox)/2.54, (y[31]+siirtoy)/2.54, "line");
    current_point=addpoint((x[31]+.1+siirtox)/2.54, (y[31]-.1+siirtoy)/2.54, "open");
    notch_type(current_point,"NOTCH",1);
    group_obj[4]=current_object;

    if (language == 0)
       { 
          current_object=newobject("text","Collar Shoulder Cut 2 on fold",0.0,0.3,0.2,"SIMP.CHR");

       } 



    addpoint((x[31]+0.5-10+siirtox)/2.54, (y[31]+siirtoy)/2.54, "line");
    group_obj[5]=current_object;

    siirtox=0;
    siirtoy=0;

    if(sv>0)
       { 

      offset_mark(3);
      select(current_selection,group_obj[4]);
      select(current_selection,group_obj[5]);
      group(current_selection);
      deselect(current_selection);
       } 

    else
       { 
      mark(3);

      current_selection=newselection("OBJECT");
      select(current_selection,group_obj[3]);
      select(current_selection,group_obj[4]);
      select(current_selection,group_obj[5]);
      group(current_selection);
      deselect(current_selection);
       } 
     } 

  rotate(110,23,-3/dist(110,23));
  rotate(102,23,-3/dist(110,23));
  rotate(111,23,-3/dist(110,23));

  double hupunkork;
  hupunkork=35;

  cont(106,105,135,-hupunkork);

  cont(105,135,139,50);
  rotate (139,135,-angle (x[135],y[139],x[135],y[139]-90*3.14159/180));

  coord(102,140,0,0);
  rotate(140,23,-5/dist(140,23));

  cont(23,140,141,50);
  line_intersect(135,139,23,141,136);

  cont(136,135,137,-8);

  cont(105,135,138,-8);

  coord(105,142,0,50);
  ang=angle(x[105],y[105],x[135],y[135])-angle(x[105],y[105],x[142],y[142]);
  rotate(138,105,-ang);
  rotate(135,105,-ang);
  rotate(137,105,-ang);
  rotate(136,105,-ang);
  rotate(23,105,-ang);
  rotate(31,105,-ang);
  rotate(108,105,-ang);

  coord(136,143,0,-3);
  coord(143,144,0,-3);

  if((model==1)||(model==2))
     { 

    siirtox=-30;
    siirtoy=10;
    current_object=newobject("poly");
    addpoint((x[105]+siirtox)/2.54, (y[105]+siirtoy)/2.54, "line");
    addpoint((x[138]+siirtox)/2.54, (y[138]+siirtoy)/2.54, "xarc_start");
    addpoint((x[135]+siirtox)/2.54, (y[135]+siirtoy)/2.54, "xarc_corner");
    addpoint((x[137]+siirtox)/2.54, (y[137]+siirtoy)/2.54, "line");
    addpoint((x[136]+siirtox)/2.54, (y[136]+siirtoy)/2.54, "line");
    addpoint((x[143]+siirtox)/2.54, (y[143]+siirtoy)/2.54, "xarc_start");
    addpoint((x[144]+siirtox)/2.54, (y[144]+siirtoy)/2.54, "xarc_corner");
    addpoint((x[23]+siirtox)/2.54, (y[23]+siirtoy)/2.54, "xarc_start");
    addpoint((x[31]+siirtox)/2.54, (y[31]+siirtoy)/2.54, "xarc_corner");
    addpoint((x[108]+siirtox)/2.54, (y[108]+siirtoy)/2.54, "line");
    group_obj[44]=current_object;

    current_object=newobject("poly");
    addpoint((x[138]-10+siirtox)/2.54, (y[138]+siirtoy)/2.54, "line");
    addpoint((x[138]-10+siirtox)/2.54, (y[106]+siirtoy)/2.54, "open");
    group_obj[45]=current_object;

    if (language == 0)
       { 
          current_object=newobject("text","Hood Cut 2+2 Grainline",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



    addpoint((x[138]-10+.2+siirtox)/2.54, (y[138]-1+siirtoy)/2.54, "line");
    group_obj[46]=current_object;

    current_object=newobject("poly");
    addpoint((x[31]+siirtox)/2.54, (y[31]+siirtoy)/2.54, "line");
    current_point=addpoint((x[31]+.1+siirtox)/2.54, (y[31]-.1+siirtoy)/2.54, "open");
    notch_type(current_point,"NOTCH",1);
    group_obj[47]=current_object;

    if (language == 0)
       { 
          current_object=newobject("text","Hood Shoulder",0.0,0.3,0.2,"SIMP.CHR");

       } 



    addpoint((x[31]+0.5-5+siirtox)/2.54, (y[31]+siirtoy)/2.54, "line");
    group_obj[48]=current_object;

    if(sv>0)
       { 

      offset_mark(44);
      select(current_selection,group_obj[45]);
      select(current_selection,group_obj[46]);
      select(current_selection,group_obj[47]);
      select(current_selection,group_obj[48]);
      group(current_selection);
      deselect(current_selection);
       } 

    else
       { 
      mark(44);

      current_selection=newselection("OBJECT");
      select(current_selection,group_obj[44]);
      select(current_selection,group_obj[45]);
      select(current_selection,group_obj[46]);
      select(current_selection,group_obj[47]);
      select(current_selection,group_obj[48]);
      group(current_selection);
      deselect(current_selection);
       } 
     } 

  rotate(138,105,ang);
  rotate(135,105,ang);
  rotate(137,105,ang);
  rotate(136,105,ang);
  rotate(23,105,ang);
  rotate(31,105,ang);
  rotate(108,105,ang);

  siirtox=0;
  siirtoy=0;

  double tk, tl;
  tl=16;
  tk=2;

  x[140]=x[38]+10;
  y[140]=y[5];

  coord(140,141,0,3);

  x[142]=x[38];
  y[142]=y[141];

  x[143]=x[6];
  y[143]=y[140]-30;

  x[144]=x[38];
  y[144]=y[143];

  coord(144,145,5,0);

  coord(140,146,0,-17-3-3);

  coord(146,147,0,+3);

  center(142,143,148);

  coord(147,149,5,0);

  coord(140,150,5,0);

  coord(149,151,-2,0);

  coord(149,152,0,2);

  coord(150,153,0,-2);

  coord(150,154,-2,0);

  siirtox=0;
  siirtoy=0;

  current_object=newobject("poly");
  addpoint((x[141]+siirtox)/2.54, (y[141]+siirtoy)/2.54, "xarc_start");
  addpoint((x[142]+siirtox)/2.54, (y[142]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[148]+siirtox)/2.54, (y[148]+siirtoy)/2.54, "xarc_start");
  addpoint((x[143]+siirtox)/2.54, (y[143]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[144]+siirtox)/2.54, (y[144]+siirtoy)/2.54, "xarc_start");
  addpoint((x[145]+siirtox)/2.54, (y[145]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[146]+siirtox)/2.54, (y[146]+siirtoy)/2.54, "LINE");
  addpoint((x[147]+siirtox)/2.54, (y[147]+siirtoy)/2.54, "LINE");
  group_obj[21]=current_object;

  current_object=newobject("poly");
  addpoint((x[140]+siirtox)/2.54, (y[140]+siirtoy)/2.54, "LINE");
  addpoint((x[147]+siirtox)/2.54, (y[147]+siirtoy)/2.54, "LINE");
  addpoint((x[151]+siirtox)/2.54, (y[151]+siirtoy)/2.54, "xarc_start");
  addpoint((x[149]+siirtox)/2.54, (y[149]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[152]+siirtox)/2.54, (y[152]+siirtoy)/2.54, "LINE");
  addpoint((x[153]+siirtox)/2.54, (y[153]+siirtoy)/2.54, "xarc_start");
  addpoint((x[150]+siirtox)/2.54, (y[150]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[154]+siirtox)/2.54, (y[154]+siirtoy)/2.54, "LINE");
  group_obj[22]=current_object;

  siirtox=2*sl-6;
  siirtoy=-20;

  current_object=newobject("poly");
  current_point=addpoint((x[140]+siirtox)/2.54, (y[140]+siirtoy)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[141]+siirtox)/2.54, (y[141]+siirtoy)/2.54, "xarc_start");
  addpoint((x[142]+siirtox)/2.54, (y[142]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[148]+siirtox)/2.54, (y[148]+siirtoy)/2.54, "xarc_start");
  addpoint((x[143]+siirtox)/2.54, (y[143]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[144]+siirtox)/2.54, (y[144]+siirtoy)/2.54, "xarc_start");
  addpoint((x[145]+siirtox)/2.54, (y[145]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[146]+siirtox)/2.54, (y[146]+siirtoy)/2.54, "LINE");
  current_point=addpoint((x[147]+siirtox)/2.54, (y[147]+siirtoy)/2.54, "LINE");
  notch_type(current_point,"NOTCH",1);
  group_obj[23]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Pocket bag Cut 4",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[140]-1.2+siirtox)/2.54, (y[140]+siirtoy)/2.54, "line");
  group_obj[24]=current_object;

  siirtox=siirtox+6;

  if(sv>0)
     { 

    offset_mark(23);
    select(current_selection,group_obj[24]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(23);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[23]);
    select(current_selection,group_obj[24]);
    group(current_selection);
    deselect(current_selection);
     } 

  current_object=newobject("poly");
  addpoint((x[140]+siirtox)/2.54, (y[140]+siirtoy)/2.54, "LINE");
  addpoint((x[147]+siirtox)/2.54, (y[147]+siirtoy)/2.54, "LINE");
  addpoint((x[151]+siirtox)/2.54, (y[151]+siirtoy)/2.54, "xarc_start");
  addpoint((x[149]+siirtox)/2.54, (y[149]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[152]+siirtox)/2.54, (y[152]+siirtoy)/2.54, "LINE");
  addpoint((x[153]+siirtox)/2.54, (y[153]+siirtoy)/2.54, "xarc_start");
  addpoint((x[150]+siirtox)/2.54, (y[150]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[154]+siirtox)/2.54, (y[154]+siirtoy)/2.54, "LINE");
  group_obj[25]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Pocket flap Cut 4",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[140]+0.2+siirtox)/2.54, (y[140]+siirtoy)/2.54, "line");
  group_obj[26]=current_object;

  siirtox=0;
  siirtoy=0;

  if(sv>0)
     { 

    offset_mark(25);
    select(current_selection,group_obj[26]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(25);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[25]);
    select(current_selection,group_obj[26]);
    group(current_selection);
    deselect(current_selection);
     } 

  cont(33,31,112,-5);

  x[113]=x[38];
  y[113]=y[104];

  x[114]=x[113];
  y[114]=y[6];

  siirtox=-ry/4-6;
  siirtoy=0;

  current_object=newobject("poly");

  if(model<3)
     { 
    addpoint((x[31]+siirtox)/2.54, (y[31])/2.54, "line");
    addpoint((x[23]+siirtox)/2.54, (y[23])/2.54, "line");

    if(collar==0)
       { 
      addpoint((x[205]+siirtox)/2.54, (y[205])/2.54, "xarc_start");
      addpoint((x[102]+siirtox)/2.54, (y[102])/2.54, "xarc_corner");
      addpoint((x[206]+siirtox)/2.54, (y[206])/2.54, "xarc_start");
      addpoint((x[204]+siirtox)/2.54, (y[204])/2.54, "xarc_corner");
       } 

    else
       { 
      addpoint((x[205]+siirtox)/2.54, (y[205])/2.54, "line");
      addpoint((x[102]+siirtox)/2.54, (y[102])/2.54, "line");
      addpoint((x[206]+siirtox)/2.54, (y[206])/2.54, "xarc_start");
      addpoint((x[204]+siirtox)/2.54, (y[204])/2.54, "xarc_corner");
       } 

    addpoint((x[104]+siirtox)/2.54, (y[104])/2.54, "line");
     } 

  else
     { 
    addpoint((x[31]+siirtox)/2.54, (y[31])/2.54, "xarc_start");
    addpoint((x[238]+siirtox)/2.54, (y[238])/2.54, "xarc_corner");
    addpoint((x[234]+siirtox)/2.54, (y[234])/2.54, "xarc_start");
    addpoint((x[235]+siirtox)/2.54, (y[235])/2.54, "xarc_corner");
    addpoint((x[236]+siirtox)/2.54, (y[236])/2.54, "line");
    addpoint((x[237]-nv+siirtox)/2.54, (y[237])/2.54, "line");
     } 

  current_point=addpoint((x[4]-nv+siirtox)/2.54, (y[4])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint((x[5]-nv+siirtox)/2.54, (y[5])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint((x[6]-nv+siirtox)/2.54, (y[6])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[6]-nv+siirtox)/2.54, (y[6]-pit+alk)/2.54, "line");
  addpoint((x[38]+siirtox)/2.54, (y[38]-pit+alk)/2.54, "line");
  addpoint((x[114]+siirtox)/2.54, (y[114])/2.54, "xarc_start");
  addpoint((x[113]+siirtox)/2.54, (y[113])/2.54, "xarc_corner");
  addpoint((x[112]+siirtox)/2.54, (y[112])/2.54, "line");
  group_obj[6]=current_object;

  current_object=newobject("poly");
  addpoint((x[6]+siirtox)/2.54, (y[3])/2.54, "line");
  addpoint((x[6]+siirtox)/2.54, (y[6])/2.54, "open");
  group_obj[7]=current_object;

  double int;
  int=8;

  current_object=newobject("poly");
  current_point=addpoint((x[3]+nv-2+siirtox)/2.54, (y[104])/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3]+nv-2+siirtox)/2.54, (y[104]-2*int)/2.54, "open");
  notch_type(current_point,"BTN",0);
  group_obj[33]=current_object;

  current_object=newobject("poly");
  current_point=addpoint((x[3]-nv+2+siirtox)/2.54, (y[104])/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3]-nv+2+siirtox)/2.54, (y[104]-2*int)/2.54, "open");
  notch_type(current_point,"BTN",0);
  group_obj[8]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Front facing Cut 2 CF Grainline",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[4]+0.2+siirtox)/2.54, (y[104]+siirtoy)/2.54, "line");
  group_obj[9]=current_object;

  siirtox=0;
  siirtoy=0;

  if(sv>0)
     { 

    offset_mark(6);
    select(current_selection,group_obj[7]);
    select(current_selection,group_obj[8]);
    select(current_selection,group_obj[33]);
    select(current_selection,group_obj[9]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(6);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[6]);
    select(current_selection,group_obj[7]);
    select(current_selection,group_obj[8]);
    select(current_selection,group_obj[33]);
    select(current_selection,group_obj[9]);
    group(current_selection);
    deselect(current_selection);
     } 

  current_object=newobject("poly");
  addpoint((x[38]+siirtox)/2.54, (y[38]-pit+alk)/2.54, "line");
  addpoint((x[114]+siirtox)/2.54, (y[114])/2.54, "xarc_start");
  addpoint((x[113]+siirtox)/2.54, (y[113])/2.54, "xarc_corner");
  addpoint((x[112]+siirtox)/2.54, (y[112])/2.54, "open");
  group_obj[10]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Front lining",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[114]+1.2+siirtox)/2.54, (y[104]+siirtoy)/2.54, "line");
  group_obj[11]=current_object;

  current_object=newobject("poly");
  addpoint((x[6])/2.54, (y[3])/2.54, "line");
  addpoint((x[6])/2.54, (y[6])/2.54, "open");
  group_obj[12]=current_object;

  current_object=newobject("poly");
  current_point=addpoint((x[3]+nv-2)/2.54, (y[104])/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3]+nv-2)/2.54, (y[104]-2*int)/2.54, "open");
  notch_type(current_point,"BTN",0);
  group_obj[32]=current_object;

  current_object=newobject("poly");
  current_point=addpoint((x[3]-nv+2)/2.54, (y[104])/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3]-nv+2)/2.54, (y[104]-2*int)/2.54, "open");
  notch_type(current_point,"BTN",0);
  group_obj[13]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Front piece Cut 2 CF Grainline",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[4]+0.2+siirtox)/2.54, (y[104]+siirtoy)/2.54, "line");
  group_obj[14]=current_object;

  current_object=newobject("poly");
  addpoint((x[50]+siirtox)/2.54, (y[50]+3)/2.54, "line");
  addpoint((x[50]+5+siirtox)/2.54, (y[50]+3)/2.54, "open");
  group_obj[38]=current_object;

  current_object=newobject("poly");
  addpoint((x[50]+siirtox)/2.54, (y[50]-3)/2.54, "line");
  addpoint((x[50]+5+siirtox)/2.54, (y[50]-3)/2.54, "open");
  group_obj[39]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Belt",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[50]+2+siirtox)/2.54, (y[50]-2)/2.54, "line");
  group_obj[40]=current_object;

  current_object=newobject("poly");

  if(model<3)
     { 
    addpoint((x[31]+siirtox)/2.54, (y[31])/2.54, "line");
    addpoint((x[23]+siirtox)/2.54, (y[23])/2.54, "line");

    if(collar==0)
       { 
      addpoint((x[205]+siirtox)/2.54, (y[205])/2.54, "xarc_start");
      addpoint((x[102]+siirtox)/2.54, (y[102])/2.54, "xarc_corner");
      addpoint((x[206]+siirtox)/2.54, (y[206])/2.54, "xarc_start");
      addpoint((x[204]+siirtox)/2.54, (y[204])/2.54, "xarc_corner");
       } 

    else
       { 
      addpoint((x[205]+siirtox)/2.54, (y[205])/2.54, "line");
      addpoint((x[102]+siirtox)/2.54, (y[102])/2.54, "line");
      addpoint((x[206]+siirtox)/2.54, (y[206])/2.54, "xarc_start");
      addpoint((x[204]+siirtox)/2.54, (y[204])/2.54, "xarc_corner");
       } 

    addpoint((x[104])/2.54, (y[104])/2.54, "line");
     } 

  else
     { 
    addpoint((x[31])/2.54, (y[31])/2.54, "xarc_start");
    addpoint((x[238]+siirtox)/2.54, (y[238])/2.54, "xarc_corner");
    addpoint((x[234]+siirtox)/2.54, (y[234])/2.54, "xarc_start");
    addpoint((x[235]+siirtox)/2.54, (y[235])/2.54, "xarc_corner");
    addpoint((x[236]+siirtox)/2.54, (y[236])/2.54, "line");
    addpoint((x[237]-nv+siirtox)/2.54, (y[237])/2.54, "line");
     } 

  current_point=addpoint((x[4]-nv)/2.54, (y[4])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint((x[5]-nv)/2.54, (y[5])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  current_point=addpoint((x[6]-nv)/2.54, (y[6])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[6]-nv)/2.54, (y[6]-pit+alk)/2.54, "line");
  addpoint((x[38])/2.54, (y[38]-pit+alk)/2.54, "line");

  addpoint((x[52]+3)/2.54, (y[52]+1.5-pit+alk)/2.54, "line");
  addpoint((x[11])/2.54, (y[11])/2.54, "xarc_start");
  addpoint((x[10])/2.54, (y[10])/2.54, "xarc_corner");
  addpoint((x[34])/2.54, (y[34])/2.54, "xarc_start");
  addpoint((x[36])/2.54, (y[36])/2.54, "xarc_corner");
  addpoint((x[33])/2.54, (y[33])/2.54, "line");
  group_obj[15]=current_object;

  if(sv>0)
     { 

    offset_mark(15);
    select(current_selection,group_obj[1]);
    select(current_selection,group_obj[2]);
    select(current_selection,group_obj[10]);
    select(current_selection,group_obj[11]);
    select(current_selection,group_obj[12]);
    select(current_selection,group_obj[13]);
    select(current_selection,group_obj[14]);
    select(current_selection,group_obj[21]);
    select(current_selection,group_obj[22]);
    select(current_selection,group_obj[32]);
    select(current_selection,group_obj[38]);
    select(current_selection,group_obj[39]);
    select(current_selection,group_obj[40]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(15);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[1]);
    select(current_selection,group_obj[2]);
    select(current_selection,group_obj[15]);
    select(current_selection,group_obj[10]);
    select(current_selection,group_obj[11]);
    select(current_selection,group_obj[12]);
    select(current_selection,group_obj[13]);
    select(current_selection,group_obj[14]);
    select(current_selection,group_obj[21]);
    select(current_selection,group_obj[22]);
    select(current_selection,group_obj[32]);
    select(current_selection,group_obj[38]);
    select(current_selection,group_obj[39]);
    select(current_selection,group_obj[40]);
    group(current_selection);
    deselect(current_selection);
     } 

  coord(21,115,0,-5);

  cont(26,22,116,-5);

  x[117]=x[116];
  y[117]=y[115];

  siirtox=12;
  siirtoy=9;

  current_object=newobject("poly");
  addpoint((x[21]+siirtox)/2.54, (y[21]+siirtoy)/2.54, "xarc_start");
  addpoint((x[122]+siirtox)/2.54, (y[122]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[22]+siirtox)/2.54, (y[22]+siirtoy)/2.54, "line");
  addpoint((x[116]+siirtox)/2.54, (y[116]+siirtoy)/2.54, "xarc_start");
  addpoint((x[117]+siirtox)/2.54, (y[117]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[115]+siirtox)/2.54, (y[115]+siirtoy)/2.54, "line");
  group_obj[16]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Back facing Cut 1 on fold CB",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[122]+siirtox)/2.54, (y[122]-2+siirtoy)/2.54, "line");
  group_obj[17]=current_object;

  siirtoy=0;

  if(sv>0)
     { 

    offset_mark(16);
    select(current_selection,group_obj[17]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(16);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[16]);
    select(current_selection,group_obj[17]);
    group(current_selection);
    deselect(current_selection);
     } 

  current_object=newobject("poly");
  addpoint((x[116]+siirtox)/2.54, (y[116]+siirtoy)/2.54, "xarc_start");
  addpoint((x[117]+siirtox)/2.54, (y[117]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[115]+siirtox)/2.54, (y[115]+siirtoy)/2.54, "open");
  group_obj[18]=current_object;

  current_object=newobject("poly");
  addpoint((x[49]+siirtox)/2.54, (y[49]+3)/2.54, "line");
  addpoint((x[49]-5+siirtox)/2.54, (y[49]+3)/2.54, "open");
  group_obj[41]=current_object;

  current_object=newobject("poly");
  addpoint((x[49]+siirtox)/2.54, (y[49]-3)/2.54, "line");
  addpoint((x[49]-5+siirtox)/2.54, (y[49]-3)/2.54, "open");
  group_obj[42]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Belt",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[49]-3+siirtox)/2.54, (y[49]-2)/2.54, "line");
  group_obj[43]=current_object;

  current_object=newobject("poly");
  addpoint((x[22]+siirtox)/2.54, (y[22])/2.54, "xarc_start");
  addpoint((x[122]+siirtox)/2.54, (y[122])/2.54, "xarc_corner");
  addpoint((x[21]+siirtox)/2.54, (y[21])/2.54, "line");
  current_point=addpoint((x[13]+siirtox)/2.54, (y[13])/2.54, "line");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint((x[14]+siirtox)/2.54, (y[14])/2.54, "line");
  notch_type(current_point,"NOTCH",0);
  current_point=addpoint((x[15]+siirtox)/2.54, (y[15])/2.54, "line");
  notch_type(current_point,"NOTCH",0);
  addpoint((x[15]+siirtox)/2.54, (y[15]-pit+alk)/2.54, "line");
  addpoint((x[42]+siirtox)/2.54, (y[42]-pit+alk)/2.54, "line");
  addpoint((x[47]-3+siirtox)/2.54, (y[47]+1.5-pit+alk)/2.54, "line");
  addpoint((x[11]+siirtox)/2.54, (y[11])/2.54, "xarc_start");
  addpoint((x[9]+siirtox)/2.54, (y[9])/2.54, "xarc_corner");
  addpoint((x[35]+siirtox)/2.54, (y[35])/2.54, "xarc_start");
  addpoint((x[37]+siirtox)/2.54, (y[37])/2.54, "xarc_corner");
  addpoint((x[26]+siirtox)/2.54, (y[26])/2.54, "line");
  group_obj[19]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Back piece Cut 1 on fold CB",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[13]-1.2+siirtox)/2.54, (y[104]+siirtoy)/2.54, "line");
  group_obj[20]=current_object;

  siirtox=0;

  if(sv>0)
     { 

    offset_mark(19);
    select(current_selection,group_obj[18]);
    select(current_selection,group_obj[20]);
    select(current_selection,group_obj[41]);
    select(current_selection,group_obj[42]);
    select(current_selection,group_obj[43]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(19);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[19]);
    select(current_selection,group_obj[18]);
    select(current_selection,group_obj[20]);
    select(current_selection,group_obj[41]);
    select(current_selection,group_obj[42]);
    select(current_selection,group_obj[43]);
    group(current_selection);
    deselect(current_selection);
     } 

  ktpe=arclength(33,36,34)+arclength(34,10,11);
  ktpt=arclength(26,37,35)+arclength(35,9,11);
  ktp=ktpe+ktpt;

  pk=ktp/3;

  coord(0,1,kay,0);

  coord(1,2,0,-pk/3);

  coord(2,3,0,-pk/3);

  coord(3,4,0,-pk/3);

  coord(1,5,0,-hp);

  center(5,1,6);
  y[6]=y[6]-4;

  coord(5,7,0,-3);

  coord(4,8,-sqrt(ktpe*ktpe-pk*pk)+1,0);
  coord(4,9,sqrt(ktpt*ktpt-pk*pk)+1,0);

  coord(5,10,-(kay/2)+2,0);

  coord(5,11,+(kay/2)-2,0);

  center(8,10,12);
  y[12]=y[6];

  center(9,11,13);
  y[13]=y[6];

  coord(8,19,ktl/2,0);

  coord(1,20,-5,0);

  cont(19,20,21,-dist(19,20)/3);

  cont(20,19,22,-dist(19,20)/3);

  coord(9,23,-ktl/4,0);

  coord(1,24,5,0);

  cont(23,24,25,-dist(23,24)/3);

  cont(24,23,26,-dist(23,24)/3);

  coord(5,27,-2,0);

  coord(6,28,0,0);
  rotate (28,27,-angle(x[6],y[6],x[27]+90*3.14159/180,y[27]));
  cont(28,27,28,-(ray/2-1));

  cont(28,27,29,+(ray/2+1));

  coord(12,30,2.5,0);

  coord(13,31,.5,0);

  cont(30,28,28,.5);
  cont(13,29,29,.5);

  coord(6,32,dist(12,13)/4+1,0);

  coord(31,33,0,-2);
  cont(33,32,33,-dist(31,32));

  double pyorion_pituus_etu, pyorion_pituus_taka;
  pyorion_pituus_taka=arclength(9,23,26)+dist(26,25)+arclength(25,24,1);
  pyorion_pituus_etu=arclength(8,19,22)+dist(22,21)+arclength(21,20,1);

  x[8]=x[8]+(pyorion_pituus_etu-(ktpe+1));

  x[9]=x[9]+(pyorion_pituus_taka-(ktpt+1));

  x[33]=x[33]-(pyorion_pituus_taka-(ktpt+1));
  x[31]=x[31]-(pyorion_pituus_taka-(ktpt+1));
  x[32]=x[32]-(pyorion_pituus_taka-(ktpt+1));

  current_object=newobject("poly");
  addpoint((x[1]+siirtox)/2.54, (y[1])/2.54, "xarc_start");
  addpoint((x[20]+siirtox)/2.54, (y[20])/2.54, "xarc_corner");
  addpoint((x[21]+siirtox)/2.54, (y[21])/2.54, "line");
  addpoint((x[22]+siirtox)/2.54, (y[22])/2.54, "xarc_start");
  addpoint((x[19]+siirtox)/2.54, (y[19])/2.54, "xarc_corner");
  addpoint((x[8]+siirtox)/2.54, (y[8])/2.54, "xarc_start");
  addpoint((x[30]+siirtox)/2.54, (y[30])/2.54, "xarc_corner");
  addpoint((x[28]+siirtox)/2.54, (y[28])/2.54, "line");
  addpoint((x[27]+siirtox)/2.54, (y[27])/2.54, "line");
  addpoint((x[29]+siirtox)/2.54, (y[29])/2.54, "line");
  addpoint((x[33]+siirtox)/2.54, (y[33])/2.54, "line");
  addpoint((x[32]+siirtox)/2.54, (y[32])/2.54, "line");
  addpoint((x[31]+siirtox)/2.54, (y[31])/2.54, "line");
  addpoint((x[9]+siirtox)/2.54, (y[9])/2.54, "xarc_start");
  addpoint((x[23]+siirtox)/2.54, (y[23])/2.54, "xarc_corner");
  addpoint((x[26]+siirtox)/2.54, (y[26])/2.54, "line");
  addpoint((x[25]+siirtox)/2.54, (y[25])/2.54, "xarc_start");
  addpoint((x[24]+siirtox)/2.54, (y[24])/2.54, "xarc_corner");
  group_obj[27]=current_object;

  current_object=newobject("poly");
  addpoint((x[1]+siirtox)/2.54, (y[1])/2.54, "line");
  addpoint((x[1]+siirtox)/2.54, (y[6])/2.54, "line");
  group_obj[28]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Sleeve Shoulder Cut 2 Grainline",-1.570796,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[1]+.2+siirtox)/2.54, (y[1]-2+siirtoy)/2.54, "line");
  group_obj[29]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Sleeve Front",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[8]+3+siirtox)/2.54, (y[8]-3+siirtoy)/2.54, "line");
  group_obj[30]=current_object;

    if (language == 0)
       { 
        current_object=newobject("text","Sleeve Back",0.0,0.3,0.2,"SIMP.CHR");

       } 



  addpoint((x[9]-5+siirtox)/2.54, (y[9]-3+siirtoy)/2.54, "line");
  group_obj[31]=current_object;

  if(sv>0)
     { 

    offset_mark(27);
    select(current_selection,group_obj[28]);
    select(current_selection,group_obj[29]);
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[31]);
    group(current_selection);
    deselect(current_selection);
     } 

  else
     { 
    mark(27);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[27]);
    select(current_selection,group_obj[28]);
    select(current_selection,group_obj[29]);
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[31]);
    group(current_selection);
    deselect(current_selection);
     } 

  current_selection=newselection("OBJECT");

  for (loop = 0; loop < 20; loop = loop + 1)
     { 
    if (marker_array[loop] != 0)
       { 
      select(current_selection, marker_array[loop]);
       } 
     } 

  check_overlap(current_selection);

  if (is_function("origin_arrange")==1)
     { 
    origin_arrange(current_selection);
     } 

  deselect(current_selection);

  if (is_function("set_marker")==1)
     { 
    for (loop = 0; loop < 20; loop = loop + 1)
       { 
      if (marker_array[loop] != 0)
         { 
        set_marker(marker_array[loop], 0);
         } 
       } 
     } 

  run_command("zoomall");

   } 

coord(double orig, double dest, double xxx, double yyy)
   { 
  x[dest]=x[orig]+xxx;
  y[dest]=y[orig]+yyy;
   } 

center(double one, double two, double result)
   { 
  x[result]=(x[one]+x[two])/2;
  y[result]=(y[one]+y[two])/2;
   } 

dist(double p1, double p2)
   { 
  return distance(x[p1],y[p1],x[p2],y[p2]);
   } 

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 cvdistanceance)
   { 
  double ang;

  ang=angle(x[cstart], y[cstart], x[cend], y[cend]);
  polar(x[cend], y[cend], ang, cvdistanceance);
  x[cdest]=getresultx();
  y[cdest]=getresulty();
   } 

right_ang(double start, double end, double to_point, double dest)
   { 
  double m,b;

  if (x[start]==x[end])
     { 
    x[dest]=x[end];
    y[dest]=y[to_point];
     } 

  else
     { 
    if (y[start]==y[end])
       { 
      x[dest]=x[to_point];
      y[dest]=y[end];
       } 

    else
       { 
      m=(y[start]-y[end])/(x[start]-x[end]);
      m=-1/m;
      b=y[to_point]-m*x[to_point];
      intersect(x[start],y[start],x[end],y[end],x[to_point],y[to_point],0,b,0);
      x[dest]=getresultx();
      y[dest]=getresulty();
       } 
     } 
   } 

mark(double pass_index)
   { 
  group_obj[pass_index]=marker_piece(group_obj[pass_index],1);
  marker_array[marker_count] = group_obj[pass_index];
  marker_count = marker_count + 1;
   } 

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

  current_selection=newselection("OBJECT");
  select(current_selection,group_obj[pass_index]);
  sel_push(current_selection);
  var_push(sv);
  run_command("OFFSET");
  deselect(current_selection);
  current_object=last_obj();

  marker_array[marker_count] = marker_piece(current_object,1);
  current_selection=newselection("OBJECT");
  select(current_selection, marker_array[marker_count]);
  select(current_selection, group_obj[pass_index]);
  marker_count = marker_count + 1;
   } 

Forward()
   { 
  index = index + 1;

  if (index == 2)
     { 
    if((model!=0) && (model!=2))
       { 
      index = index + 1;
       } 
     } 

  if (index == 3)
     { 
    done = 1;
     } 
   } 

Backward()
   { 
  index = index - 1;

  if (index == 2)
     { 
    if((model!=0) && (model!=2))
       { 
      index = index - 1;
       } 
     } 
   } 

Popup1()
 { 
    if (language == 0)
     { 
      start_pict_dialog("BUST EASE");
      add_pict_item("Minimum (+7in/+18cm)","blank.jpg");
      add_pict_item("Normal (+7.75in/+20cm)","blank.jpg");
      add_pict_item("Maximum (+8.75in/+22cm)","blank.jpg");
      run_pict("Next");
      ease=get_pict_result();
      Forward();
     } 
 } 


Popup2()
 { 
    if (language == 0)
     { 
      start_pict_dialog("COAT/ROBE MODEL");
      add_pict_item("No hood/collar only","cr_NoHoodCollar_R.jpg");
      add_pict_item("Hood/lapels no collar","cr_HoodLapel.jpg");
      add_pict_item("Hood and collar","cr_hood-collar.jpg");
      add_pict_item("Integrated hood","cr_intgrhood.jpg");
      if (run_pict("Back","Next"))
         { 
        model=get_pict_result();
        Forward();
         } 
      else
         { 
        model=0;
        Backward();
         } 
     } 
 } 


Popup3()
 { 
    if (language == 0)
     { 
      start_pict_dialog("COLLAR STYLE");
      add_pict_item("Round","cr_NoHoodCollar_R.jpg");
      add_pict_item("Pointed","cr_NoHoodCollar_P.jpg");
      if (run_pict("Back","Next"))
         { 
        collar=get_pict_result();
        Forward();
         } 
      else
         { 
        collar=0;
        Backward();
         } 
     } 
 } 


shift(double orig, double xxx, double yyy)
   { 
  x[orig]=x[orig]+xxx;
  y[orig]=y[orig]+yyy;
   } 

rect (double x1, double y1, double x2, double y2)
   { 
  current_object=newobject("poly");
  addpoint( x1/2.54,y1/2.54,"LINE");
  addpoint( x2/2.54,y1/2.54,"LINE");
  addpoint( x2/2.54,y2/2.54,"LINE");
  addpoint( x1/2.54,y2/2.54,"LINE");

   } 

dot (double x, double y)
   { 
  current_object=newobject("poly");
  addpoint( x/2.54,y/2.54,"LINE");
   } 

line (double x3, double y3, double x4, double y4)
   { 
  current_object=newobject("poly");
  addpoint( x3/2.54,y3/2.54,"LINE");
  addpoint( x4/2.54,y4/2.54,"LINE");

   } 

rotate(double rpoint,double rcenter, double rangle)
   { 
  double vdistance, vang;

  vdistance=dist(rpoint, rcenter);
  vang=angle(x[rcenter],y[rcenter],x[rpoint],y[rpoint]);
  polar(x[rcenter],y[rcenter],vang+rangle,vdistance);
  x[rpoint]=getresultx();
  y[rpoint]=getresulty();
   } 

linecirc(double PA,double  PB,double  PC,double  dradius,double  which, double PD)
   { 
  double  mslope, dist0, dist1, dist2, xtemp;
  double tx, ty;
  xtemp = (x[PB]-x[PC])*(x[PB]-x[PC]);

  if (xtemp > 0)
     { 
    xtemp = (y[PB]-y[PC])*(y[PB]-y[PC]);

    if ( xtemp > 0)
       { 
      mslope = (y[PC] - y[PB])/(x[PC] - x[PB]);
      tx = x[PA] + 1;
      ty = y[PA] - 1/mslope;
      intersect(x[PA], y[PA], tx, ty, x[PB], y[PB], x[PC], y[PC], 0);
      tx = getresultx();
      ty = getresulty();
      dist1 = distance(x[PA], y[PA], tx, ty);
      dist2 = interceptline(0, dist1, dradius);
      dist0 = sqrt(1+mslope*mslope);
      xtemp = dist2/dist0;

      if (which)
         { 
        x[PD] = tx+xtemp;
        y[PD] = ty+ xtemp*mslope;
         } 

      else
         { 
        x[PD] =  tx-xtemp;
        y[PD] = ty- xtemp*mslope;
         } 
       } 

    else
       { 
      x[PD] = x[PB];

      if (which)
         { 
        y[PD] = y[PA] + interceptline(x[PA], x[PB], dradius);
         } 

      else
         { 
        y[PD] = y[PA] - interceptline(x[PA], x[PB], dradius);
         } 
       } 
     } 

  else
     { 
    y[PD] = y[PB];

    if (which)
       { 
      x[PD] = x[PA] + interceptline(y[PA], y[PB], dradius);
       } 

    else
       { 
      x[PD] = x[PA] - interceptline(y[PA], y[PB], dradius);
       } 
     } 
   } 

double xar[13], yar[13];
double save_rx, save_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;

  for (ct=1; ct < 12; ct = ct + 1)
     { 
    fts(start, corner, end, ct);
    a_dist = a_dist + distance(save_rx, save_ry, last_x, last_y);
    last_x=save_rx;
    last_y=save_ry;
     } 

  return a_dist;
   } 

double A1, A2, B1, B2;
double sx, sy, cx, cy, ex, ey;

double t0[2], t1[2];
double ftc[2];

fts(double start, double corner, double end, double pos)
   { 
  if (pos<1)
     { 
    save_rx=x[start];
    save_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]);

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

    else
       { 
      if (pos>10)
         { 
        save_rx=x[end];
        save_ry=y[end];
         } 

      else
         { 
        save_rx = t0[0]*(xar[pos])+t0[1]*(yar[pos])+ ftc[0];
        save_ry = t1[0]*(xar[pos])+t1[1]*(yar[pos])+ ftc[1];
         } 
       } 
     } 
   } 

init_xarc_array()
   { 

  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;
     } 

   } 

max(double aa, double bb)
   { 
  if (aa > bb)
     { 
    return aa;
     } 

  else
     { 
    return bb;
     } 
   } 

min(double aa, double bb)
   { 
  if (aa < bb)
     { 
    return aa;
     } 

  else
     { 
    return bb;
     } 
   } 

normalizeangle(double aa)
   { 
  double loop;
  loop=aa;

  for(; (0 > aa); aa = aa + 2*3.14159)
     {  ;  } 

  for(; (2*3.14159 < aa); aa = aa - 2*3.14159)
     {  ;  } 

  return(aa);
   }