// Copyright (C) 2001 Leena L�hteenm�ki, Finland
// Copyright (C) 2012 PatternMaker Software
// 2012/08/14

double index, done;
object marker_array[20];
double marker_count, loop;
double result;
double x[600], y[600];
double ang,ang2,vang,vdistance,rangle;
object group_obj[200];
object current_object;
point current_point;
selection current_selection;

double model,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,pts,rl,pk;
double okt,oke;
double ktpe,ktpt,ktp;
double pit;
double ease, f_ry[3],f_ky[3],f_vy[3],f_yly[3],f_aly[3],f_rkkv[3],f_sl[3];
double f_op[3],f_vk[3],f_rk[3],f_rl[3],f_sp[3],f_ktk[3];
double f_kay[3],f_ray[3],f_hp[3];
double kpe,kpt,kp;
double collar;
double napit,int;
double sleeve, sleeve_length;
double shoulder_padding;
double nv;
double sv;
double metric;
double siirtox, siirtoy;
double language;
double mansetti;
double korotus, alennus, raskaana;
double tk, rtl, tl;

main()
  {
  language=get_language();

  if ( language != 0 ) { language = 0; }

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

  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;
  sv=1;

  rtl=15;
  tl=17;

  pit=35;
  nv=2;

// index = 0; 

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

//End Options

  if(raskaana==0)
    {
    alennus=10;
    }

  else
    {
    alennus=0;
    }

  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;
      tk=tk/2.54;
      tl=tl/2.54;
      rtl=rtl/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;
      tk=tk/2.54;
      tl=tl/2.54;
      rtl=rtl/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("PLEATED TUNIC");

        }

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

        }

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

        }

      if (language == 0)
        {
        add_picture_input("Hip Circ.",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",op, "w_meas_shldr");

        }

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

        }

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

        }

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

        }

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

        }

      run_picture_input();
      }

    else
      {
      if (language == 0)
        {
        dialog_box( "PLEATED TUNIC - 1 of 2",
                    "Neck Circ.",ky,
                    "Bust Circ.", ry,
                    "Hip Circ.",aly,
                    "Bust Span", rkkv,
                    "Bust Height",rk,
                    "Waist Height",vk,
                    "Back Length",sp,
                    "Back Width",sl);

        }

      if (language == 0)
        {
        dialog_box("PLEATED TUNIC - 2 of 2",
                   "Shoulder Length",op,
                   "Waist - Hip",alk,
                   "Biceps",kay,
                   "Wrist Circ.",ray,
                   "Overarm",hp);

        }

      }
    }

  if (is_function("start_picture_input"))
    {
    if (language == 0)
      {
      start_picture_input("JUNIORS' FITTING SHELL");

      }

    if (language == 0)
      {
      add_picture_input("Length from Waist",pit, "w_meas_waistht");

      }

    if (language == 0)
      {
      add_picture_input("Pocket width", tl, "");

      }

    if (language == 0)
      {
      add_picture_input("Breastpocket width", rtl,"");

      }

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

      }

    run_picture_input();
    }

  else
    {
    if (language == 0)
      {
      dialog_box( "CUSTOM MEASUREMENTS",
                  "Length from Waist",pit,
                  "Pocket width", tl,
                  "Breastpocket width", rtl,
                  "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;
    }

  mansetti=ray+4;

  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[1]=ry+14;
  f_ky[1]=ky+1.5;
  f_vy[1]=vy+12;
  f_yly[1]=yly+2+10;
  f_aly[1]=aly+2+10;
  f_rkkv[1]=rkkv+1.4;
  f_sl[1]=sl+3.4;
  f_op[1]=op;
  f_vk[1]=vk;
  f_rk[1]=rk;
  f_rl[1]=rl+0.3;
  f_sp[1]=sp;
  f_ktk[1]=ktk+3;
  f_kay[1]=kay+10;
  f_ray[1]=ray+10;
  f_hp[1]=hp+0.75;

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

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

  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=pts+1;
  ptl=ptl+1;

  if(shoulder_padding==0)
    {
    oke=oke-0.5;
    okt=okt-1;
    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-alennus);
  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,ptl,0);
  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+2)*(op+2)-(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);

  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);
  y[131]=y[131]+1;

  cont(33,32,132,-4);
  cont(132,30,132,-dist(30,132));

  coord(10,34,0,ktk/4);
  coord(10,36,0,ktk/2);
  coord(9,35,0,ktk/3);

  coord(9,37,0,2*ktk/3);
  y[9]=y[9]+2;

  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);
  cont(51,50,151,-3);
  cont(11,50,111,-3);
  cont(11,49,149,-3);
  cont(48,49,148,-3);
  cont(50,11,310,-4);
  coord(310,311,0,0);

  if(shoulder_padding==0)
    {
    x[36]=x[36]+1;
    x[37]=x[37]-1;
    }

  coord(31,102,-ptl,-pts);
  y[23]=y[102];

  init_xarc_array();
  kpe=arclength(31,23,102);
  kpt=arclength(21,122,22);
  kp=kpe+kpt-1.2;

  coord(131,211,-50,0);
  line_intersect(131,211,31,23,212);

  cont(22,26,26,-2);
  coord(9,53,0,0);
  coord(11,54,0,0);

  int=(dist(102,5)-2)/4;

  current_object=newobject("poly");
  current_point=addpoint((x[3])/2.54, (y[102]-2)/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3])/2.54, (y[102]-2-int)/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3])/2.54, (y[102]-2-2*int)/2.54, "line");
  notch_type(current_point,"BTN",0);
  current_point=addpoint((x[3])/2.54, (y[102]-2-3*int)/2.54, "line");
  notch_type(current_point,"BTN",0);
  group_obj[1]=current_object;

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

    }

  addpoint((x[3]+0.2)/2.54, (y[10])/2.54, "line");
  group_obj[2]=current_object;

  if(sv>0)
    {
    if (language == 0)
      {
      current_object=newobject("text","Check hem seam allowance",0.0,0.2,0.2,"SIMP.CHR");

      }

    addpoint((x[6]+0.2+siirtox)/2.54, (y[6]+1-pit+alk+siirtoy)/2.54, "line");
    group_obj[42]=current_object;
    }

  ang=angle(x[30],y[30],x[131],y[131])-angle(x[30],y[30],x[132],y[132]);
  rotate(132,30,ang);
  rotate(33,30,ang);
  rotate(36,30,ang);
  rotate(34,30,ang);
  rotate(10,30,ang);
  rotate(11,30,ang);
  rotate(310,30,ang);
  rotate(507,30,ang);

  cont(33,131,55,-3);

  cont(33,55,56,-3);

  x[58]=x[56];
  y[58]=y[6]-pit+alk;

  tk=18;

  x[80]=x[56]-3;
  y[80]=y[34];

  coord(80,81,0,2);
  coord(80,82,0,-rtl);
  coord(82,83,0,-2);
  coord(80,84,-25,0);
  coord(84,85,5,-20);
  cont(84,85,86,15);
  coord(86,87,0,-tk);
  coord(87,88,tl,0);
  coord(86,89,tl,0);
  coord(88,90,0,2);
  coord(88,91,-2,0);
  coord(87,92,0,2);
  coord(87,93,2,0);

  siirtox=18;

  current_object=newobject("poly");
  current_point=addpoint((x[81]+siirtox)/2.54, (y[81]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[84]+siirtox)/2.54, (y[84]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[85]+siirtox)/2.54, (y[85]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[86]+siirtox)/2.54, (y[86]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[83]+siirtox)/2.54, (y[83]+siirtoy)/2.54, "line");
  current_point=addpoint((x[82]+siirtox)/2.54, (y[82]+siirtoy)/2.54, "line");
  current_point=addpoint((x[80]+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  group_obj[32]=current_object;

  current_object=newobject("poly");
  current_point=addpoint((x[80]+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  current_point=addpoint((x[80]-3+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  current_point=addpoint((x[82]-3+siirtox)/2.54, (y[82]+siirtoy)/2.54, "line");
  current_point=addpoint((x[83]+siirtox)/2.54, (y[83]+2+siirtoy)/2.54, "line");
  group_obj[33]=current_object;

  if(raskaana==0)
    {
    ang=angle(x[6],y[6],x[6]+10,y[6])-angle(x[6],y[6],x[52],y[52]-1.5);
    }

  else
    {
    ang=angle(x[6],y[6],x[6]+10,y[6])-angle(x[6],y[6],x[52],y[52]+1.5);
    }

  rotate(92,86,-ang);
  rotate(87,86,-ang);
  rotate(93,86,-ang);
  rotate(91,86,-ang);
  rotate(88,86,-ang);
  rotate(90,86,-ang);
  rotate(89,86,-ang);

  current_object=newobject("poly");
  current_point=addpoint((x[86]+siirtox)/2.54, (y[86]+siirtoy)/2.54, "line");
  current_point=addpoint((x[92]+siirtox)/2.54, (y[92]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[87]+siirtox)/2.54, (y[87]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[93]+siirtox)/2.54, (y[93]+siirtoy)/2.54, "line");
  current_point=addpoint((x[91]+siirtox)/2.54, (y[91]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[88]+siirtox)/2.54, (y[88]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[90]+siirtox)/2.54, (y[90]+siirtoy)/2.54, "line");
  current_point=addpoint((x[89]+siirtox)/2.54, (y[89]+siirtoy)/2.54, "line");
  group_obj[34]=current_object;

  ang=angle(x[86],y[86],x[87],y[87])-angle(x[84],y[84],x[85],y[85]);
  rotate(92,86,ang);
  rotate(87,86,ang);
  rotate(93,86,ang);
  rotate(91,86,ang);
  rotate(88,86,ang);
  rotate(90,86,ang);
  rotate(89,86,ang);

  siirtox=-40;

  current_object=newobject("poly");
  current_point=addpoint((x[81]+siirtox)/2.54, (y[81]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[84]+siirtox)/2.54, (y[84]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[85]+siirtox)/2.54, (y[85]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[86]+siirtox)/2.54, (y[86]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[83]+siirtox)/2.54, (y[83]+siirtoy)/2.54, "line");
  current_point=addpoint((x[82]+siirtox)/2.54, (y[82]+siirtoy)/2.54, "line");
  current_point=addpoint((x[80]+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  group_obj[35]=current_object;

  if (language == 0)
    {
    current_object=newobject("text","Upper pocket bag. Cut 4",0.0,0.2,0.2,"SIMP.CHR");

    }

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

  if(sv>0)
    {

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

  else
    {
    mark(35);

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

  current_object=newobject("poly");
  current_point=addpoint((x[80]+6+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  current_point=addpoint((x[80]+6-3+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  current_point=addpoint((x[82]+6-3+siirtox)/2.54, (y[82]+siirtoy)/2.54, "line");
  current_point=addpoint((x[83]+6+siirtox)/2.54, (y[83]+2+siirtoy)/2.54, "line");
  group_obj[37]=current_object;

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

    }

  addpoint((x[80]-2.8+6+siirtox)/2.54, (y[80]+siirtoy)/2.54, "line");
  group_obj[38]=current_object;

  if(sv>0)
    {

    offset_mark(37);
    select(current_selection,group_obj[38]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(37);

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

  coord(86,87,0,-tk);
  coord(87,88,tl,0);
  coord(86,89,tl,0);
  coord(88,90,0,2);
  coord(88,91,-2,0);
  coord(87,92,0,2);
  coord(87,93,2,0);

  current_object=newobject("poly");
  current_point=addpoint((x[86]+siirtox)/2.54, (y[86]+siirtoy)/2.54, "line");
  current_point=addpoint((x[92]+siirtox)/2.54, (y[92]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[87]+siirtox)/2.54, (y[87]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[93]+siirtox)/2.54, (y[93]+siirtoy)/2.54, "line");
  current_point=addpoint((x[91]+siirtox)/2.54, (y[91]+siirtoy)/2.54, "xarc_start");
  current_point=addpoint((x[88]+siirtox)/2.54, (y[88]+siirtoy)/2.54, "xarc_corner");
  current_point=addpoint((x[90]+siirtox)/2.54, (y[90]+siirtoy)/2.54, "line");
  current_point=addpoint((x[89]+siirtox)/2.54, (y[89]+siirtoy)/2.54, "line");
  group_obj[39]=current_object;

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

    }

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

  if (language == 0)
    {
    current_object=newobject("text","Add 1-2in. to pocket mouth",0.0,0.2,0.2,"SIMP.CHR");

    }

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

  siirtox=0;

  if(sv>0)
    {

    offset_mark(39);
    select(current_selection,group_obj[40]);
    select(current_selection,group_obj[41]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(39);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[39]);
    select(current_selection,group_obj[40]);
    select(current_selection,group_obj[41]);
    group(current_selection);
    deselect(current_selection);
    }

  current_object=newobject("poly");

  addpoint((x[31])/2.54, (y[31])/2.54, "xarc_start");
  addpoint((x[23])/2.54, (y[23])/2.54, "xarc_corner");
  addpoint((x[3])/2.54, (y[102])/2.54, "line");
  addpoint((x[3]-nv)/2.54, (y[102])/2.54, "line");

  addpoint((x[3]-2*nv)/2.54, (y[102])/2.54, "xarc_start");
  addpoint((x[23]-2*dist(23,102)-2*nv)/2.54, (y[23])/2.54, "xarc_corner");
  addpoint((x[31]-2*nv-2*ptl)/2.54, (y[31])/2.54, "line");

  addpoint((x[131]-2*(dist(131,212)+ptl+nv))/2.54, (y[131])/2.54, "xarc_start");
  current_point=addpoint((x[3]-nv-nv-7)/2.54, (y[3])/2.54, "xarc_corner");
  current_point=addpoint((x[4]-nv-nv-7)/2.54, (y[4])/2.54, "line");
  current_point=addpoint((x[5]-nv-nv-7)/2.54, (y[5])/2.54, "line");

  current_point=addpoint((x[5])/2.54, (y[5])/2.54, "line");
  notch_type(current_point,"NOTCH",2);

  addpoint((x[6])/2.54, (y[6]-pit+alk)/2.54, "xarc_start");
  addpoint((x[58]+18)/2.54, (y[38]-pit+alk)/2.54, "xarc_corner");

  addpoint((x[52]+1+18)/2.54, (y[52]-3-pit+alk+dist(310,311))/2.54, "line");

  addpoint((x[11]+18)/2.54, (y[11]-3)/2.54, "xarc_start");

  addpoint((x[10]+18)/2.54, (y[10]-3)/2.54, "xarc_corner");
  addpoint((x[34]+18)/2.54, (y[34])/2.54, "xarc_start");
  addpoint((x[36]+18)/2.54, (y[36])/2.54, "xarc_corner");

  addpoint((x[33]+18)/2.54, (y[33])/2.54, "line");
  addpoint((x[56]+18)/2.54, (y[56])/2.54, "line");
  current_point=addpoint((x[56]+15)/2.54, (y[55])/2.54, "line");
  notch_type(current_point,"NOTCH",1);

  addpoint((x[56]+12)/2.54, (y[56])/2.54, "line");
  addpoint((x[55]+12)/2.54, (y[55])/2.54, "line");
  current_point=addpoint((x[55]+9)/2.54, (y[131])/2.54, "line");
  notch_type(current_point,"NOTCH",1);

  addpoint((x[55]+6)/2.54, (y[55])/2.54, "line");
  addpoint((x[131]+6)/2.54, (y[131])/2.54, "line");
  current_point=addpoint((x[131]+3)/2.54, (y[131])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[131])/2.54, (y[131])/2.54, "line");
  group_obj[3]=current_object;

  current_object=newobject("poly");
  addpoint((x[6]-nv)/2.54, (y[102])/2.54, "line");
  addpoint((x[5]-nv)/2.54, (y[5])/2.54, "open");
  group_obj[4]=current_object;

  current_object=newobject("poly");
  addpoint((x[131])/2.54, (y[131])/2.54, "line");
  addpoint((x[131])/2.54, (y[56]-15)/2.54, "line");
  current_point=addpoint((x[131]+3)/2.54, (y[56]-15)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[131]+6)/2.54, (y[56]-15)/2.54, "line");
  addpoint((x[131]+6)/2.54, (y[131])/2.54, "open");
  group_obj[5]=current_object;

  current_object=newobject("poly");
  addpoint((x[55]+6)/2.54, (y[55])/2.54, "line");
  addpoint((x[55]+6)/2.54, (y[56]-15)/2.54, "line");
  current_point=addpoint((x[55]+9)/2.54, (y[56]-15)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[55]+12)/2.54, (y[56]-15)/2.54, "line");
  addpoint((x[55]+12)/2.54, (y[55])/2.54, "open");
  group_obj[6]=current_object;

  current_object=newobject("poly");
  addpoint((x[56]+12)/2.54, (y[56])/2.54, "line");
  addpoint((x[56]+12)/2.54, (y[56]-15)/2.54, "line");
  current_point=addpoint((x[56]+15)/2.54, (y[56]-15)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[56]+18)/2.54, (y[56]-15)/2.54, "line");
  addpoint((x[56]+18)/2.54, (y[56])/2.54, "open");
  group_obj[7]=current_object;

  if(sv>0)
    {

    offset_mark(3);

    select(current_selection,group_obj[2]);
    select(current_selection,group_obj[42]);

    select(current_selection,group_obj[1]);

    select(current_selection,group_obj[4]);
    select(current_selection,group_obj[5]);
    select(current_selection,group_obj[6]);
    select(current_selection,group_obj[7]);
    select(current_selection,group_obj[32]);
    select(current_selection,group_obj[33]);
    select(current_selection,group_obj[34]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(3);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[3]);

    select(current_selection,group_obj[2]);

    select(current_selection,group_obj[1]);

    select(current_selection,group_obj[4]);
    select(current_selection,group_obj[5]);
    select(current_selection,group_obj[6]);
    select(current_selection,group_obj[7]);
    select(current_selection,group_obj[32]);
    select(current_selection,group_obj[33]);
    select(current_selection,group_obj[34]);
    group(current_selection);
    deselect(current_selection);
    }

  rotate(132,30,-ang);
  rotate(33,30,-ang);
  rotate(36,30,-ang);
  rotate(34,30,-ang);
  rotate(10,30,-ang);
  rotate(11,30,-ang);
  rotate(310,30,-ang);
  rotate(507,30,-ang);

  siirtox=38;

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

    }

  addpoint((x[13]-1+siirtox+4)/2.54, (y[12])/2.54, "line");
  group_obj[8]=current_object;

  if(sv>0)
    {
    if (language == 0)
      {
      current_object=newobject("text","If cut on fold remove CB seam allowance",-1.570796,0.2,0.2,"SIMP.CHR");

      }

    addpoint((x[13]-2+siirtox+4)/2.54, (y[12])/2.54, "line");
    group_obj[9]=current_object;
    }

  cont(26,127,61,-3);

  cont(26,61,62,-3);

  siirtox=42;

  current_object=newobject("poly");
  addpoint((x[14]+siirtox)/2.54, (y[14])/2.54, "line");
  addpoint((x[13]+siirtox)/2.54, (y[13])/2.54, "line");
  addpoint((x[12]+siirtox)/2.54, (y[21]-dist(21,12)/2)/2.54, "line");
  addpoint((x[21]+siirtox)/2.54, (y[21])/2.54, "xarc_start");
  addpoint((x[122]+siirtox)/2.54, (y[122])/2.54, "xarc_corner");
  addpoint((x[22]+siirtox)/2.54, (y[22])/2.54, "line");
  addpoint((x[127]+siirtox)/2.54, (y[127])/2.54, "line");
  current_point=addpoint((x[127]-3+siirtox)/2.54, (y[127])/2.54, "line");
  notch_type(current_point,"NOTCH",1);

  addpoint((x[61]-6+siirtox)/2.54, (y[61])/2.54, "line");
  current_point=addpoint((x[61]-9+siirtox)/2.54, (y[127])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[61]-12+siirtox)/2.54, (y[61])/2.54, "line");

  addpoint((x[62]-12+siirtox)/2.54, (y[62])/2.54, "line");
  current_point=addpoint((x[62]-15+siirtox)/2.54, (y[61])/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[62]-18+siirtox)/2.54, (y[62])/2.54, "line");

  addpoint((x[26]-18+siirtox)/2.54, (y[26])/2.54, "xarc_start");
  addpoint((x[37]-18+siirtox)/2.54, (y[37])/2.54, "xarc_corner");
  addpoint((x[35]-18+siirtox)/2.54, (y[35])/2.54, "xarc_start");
  addpoint((x[53]-18+siirtox)/2.54, (y[53])/2.54, "xarc_corner");
  addpoint((x[54]-18+siirtox)/2.54, (y[54])/2.54, "line");
  addpoint((x[47]-18+siirtox)/2.54, (y[47]-pit+alk)/2.54, "line");
  addpoint((x[42]-18+siirtox)/2.54, (y[42]-pit+alk)/2.54, "line");
  addpoint((x[15]+siirtox)/2.54, (y[15]-pit+alk)/2.54, "line");
  addpoint((x[15]+siirtox)/2.54, (y[15])/2.54, "line");
  group_obj[10]=current_object;

  siirtox=24;

  current_object=newobject("poly");
  addpoint((x[62]+siirtox)/2.54, (y[62])/2.54, "line");
  addpoint((x[62]+siirtox)/2.54, (y[62]-10)/2.54, "line");
  current_point=addpoint((x[62]+siirtox+3)/2.54, (y[62]-10)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[62]+siirtox+6)/2.54, (y[62]-10)/2.54, "line");
  addpoint((x[62]+siirtox+6)/2.54, (y[62])/2.54, "open");
  group_obj[11]=current_object;

  current_object=newobject("poly");
  addpoint((x[61]+siirtox+6)/2.54, (y[61])/2.54, "line");
  addpoint((x[61]+siirtox+6)/2.54, (y[62]-10)/2.54, "line");
  current_point=addpoint((x[61]+siirtox+9)/2.54, (y[62]-10)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[61]+siirtox+12)/2.54, (y[62]-10)/2.54, "line");
  addpoint((x[61]+siirtox+12)/2.54, (y[61])/2.54, "open");
  group_obj[12]=current_object;

  current_object=newobject("poly");
  addpoint((x[127]+siirtox+12)/2.54, (y[127]-0.5)/2.54, "line");
  addpoint((x[127]+siirtox+12)/2.54, (y[62]-10)/2.54, "line");
  current_point=addpoint((x[127]+siirtox+15)/2.54, (y[62]-10)/2.54, "line");
  notch_type(current_point,"NOTCH",1);
  addpoint((x[127]+siirtox+18)/2.54, (y[62]-10)/2.54, "line");
  addpoint((x[127]+siirtox+18)/2.54, (y[127])/2.54, "open");
  group_obj[13]=current_object;

  siirtox=0;

  if(sv>0)
    {

    if (language == 0)
      {
      current_object=newobject("text","Check hem seam allowance",0.0,0.2,0.2,"SIMP.CHR");

      }

    addpoint((x[35]+siirtox+18)/2.54, (y[38]+11-pit+alk)/2.54, "line");
    group_obj[14]=current_object;

    offset_mark(10);
    select(current_selection,group_obj[8]);
    select(current_selection,group_obj[9]);
    select(current_selection,group_obj[11]);
    select(current_selection,group_obj[12]);
    select(current_selection,group_obj[13]);

    select(current_selection,group_obj[14]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(10);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[10]);
    select(current_selection,group_obj[8]);
    select(current_selection,group_obj[11]);
    select(current_selection,group_obj[12]);
    select(current_selection,group_obj[13]);
    group(current_selection);
    deselect(current_selection);
    }

  siirtox=0;

  cont(33,31,70,-7);
  ang=angle(x[31],y[31],x[70],y[70])-angle(x[31],y[31],x[70],y[70]+0.5);
  rotate(70,31,ang);

  x[71]=x[70];
  y[71]=y[23];

  x[72]=x[102];
  y[72]=y[102]-7;

  center(71,72,73);

  cont(26,22,74,-7);
  ang=angle(x[22],y[22],x[74],y[74])-angle(x[22],y[22],x[74],y[74]-0.5);
  rotate(74,22,-ang);

  coord(21,75,0,-7);

  x[76]=x[74];
  y[76]=y[75];

  siirtoy=20;

  current_object=newobject("poly");
  addpoint((x[70]+1.5+siirtox)/2.54, (y[70]+siirtoy)/2.54, "xarc_start");
  addpoint((x[71]+siirtox)/2.54, (y[71]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[73]+siirtox)/2.54, (y[73]+siirtoy)/2.54, "xarc_start");
  addpoint((x[72]+siirtox)/2.54, (y[72]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[102]-nv+siirtox)/2.54, (y[102]+siirtoy)/2.54, "line");
  current_point=addpoint((x[102]+siirtox)/2.54, (y[102]+siirtoy)/2.54, "xarc_start");
  notch_type(current_point,"NOTCH",2);
  addpoint((x[23]+siirtox)/2.54, (y[23]+siirtoy)/2.54, "xarc_corner");

  ang=angle(x[31],y[31],x[70],y[70])-angle(x[22],y[22],x[74],y[74]);
  rotate(74,22,ang);
  rotate(75,22,ang);
  rotate(76,22,ang);
  rotate(21,22,ang);
  rotate(122,22,ang);

  double a, b;
  a=x[74]-x[70];
  b=y[70]-y[74];

  x[74]=x[74]-a;
  x[75]=x[75]-a;
  x[76]=x[76]-a;
  x[21]=x[21]-a;
  x[122]=x[122]-a;
  x[22]=x[22]-a;

  y[74]=y[74]+b;
  y[75]=y[75]+b;
  y[76]=y[76]+b;
  y[21]=y[21]+b;
  y[122]=y[122]+b;
  y[22]=y[22]+b;

  addpoint((x[22]+1+siirtox)/2.54, (y[22]+siirtoy)/2.54, "xarc_start");
  addpoint((x[122]+siirtox)/2.54, (y[122]+siirtoy)/2.54, "xarc_corner");
  addpoint((x[21]+siirtox)/2.54, (y[21]+siirtoy)/2.54, "line");
  addpoint((x[75]+siirtox)/2.54, (y[75]+siirtoy)/2.54, "xarc_start");
  addpoint((x[76]+siirtox)/2.54, (y[76]+1+siirtoy)/2.54, "xarc_corner");

  group_obj[15]=current_object;

  if (language == 0)
    {
    current_object=newobject("text","Collar CF, cut 4",0.0,0.2,0.2,"SIMP.CHR");

    }

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

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

    }

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

  siirtox=0;
  siirtoy=0;

  if(sv>0)
    {

    offset_mark(15);
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[31]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(15);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[15]);
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[31]);
    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/2+50,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,-kay/2+1,0);

  coord(4,9,kay/2+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];

  cont(12,10,14,1.5);

  center(5,10,15);

  center(5,7,16);

  coord(7,17,+(kay/4-2),0);

  cont(13,11,18,1.5);
  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(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.14/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));

  x[68]=x[20];
  y[68]=y[15];

  x[69]=x[24];
  y[69]=y[17];

  coord(1,101,0,0);

  coord(1,103,0,0);

  coord(20,120,0,0);

  coord(24,124,0,-0.5);

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

  if(sleeve_length==1)
    {
    addpoint((x[1]+siirtox)/2.54, (y[8]-10+siirtoy)/2.54, "open");
    }

  else
    {
    addpoint((x[1]+siirtox)/2.54, (y[6]+siirtoy)/2.54, "open");
    }

  group_obj[21]=current_object;

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

    }

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

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

    }

  addpoint((x[26]-3+siirtox)/2.54, (y[19]+2+siirtoy)/2.54, "line");
  group_obj[23]=current_object;

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

    }

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

  if(sleeve>1)
    {
    current_object=newobject("poly");
    addpoint((x[17]+siirtox)/2.54, (y[17]+siirtoy)/2.54, "line");
    addpoint((x[17]+siirtox)/2.54, (y[17]+10+siirtoy)/2.54, "open");
    group_obj[20]=current_object;
    }

  if((sleeve==1)||(sleeve==3))
    {
    ang=angle(x[16],y[16],x[1]-2,y[1])-angle(x[16],y[16],x[1],y[1]);
    rotate(101,16,ang);
    rotate(20,16,ang);
    rotate(120,16,ang);
    rotate(21,16,ang);
    rotate(22,16,ang);
    rotate(19,16,ang);
    rotate(8,16,ang);
    rotate(14,16,ang);
    rotate(15,16,ang);

    ang=angle(x[68],y[68],x[20]-4,y[20])-angle(x[68],y[68],x[20],y[20]);
    rotate(120,68,ang);
    rotate(21,68,ang);
    rotate(22,68,ang);
    rotate(19,68,ang);
    rotate(8,68,ang);
    rotate(14,68,ang);
    rotate(15,68,ang);

    ang=angle(x[16],y[16],x[1],y[1])-angle(x[16],y[16],x[1]+2,y[1]);
    rotate(103,16,-ang);
    rotate(24,16,-ang);
    rotate(124,16,-ang);
    rotate(25,16,-ang);
    rotate(26,16,-ang);
    rotate(23,16,-ang);
    rotate(9,16,-ang);
    rotate(18,16,-ang);
    rotate(17,16,-ang);

    ang=angle(x[69],y[69],x[24],y[24])-angle(x[69],y[69],x[24]+4,y[24]);
    rotate(124,69,-ang);
    rotate(25,69,-ang);
    rotate(26,69,-ang);
    rotate(23,69,-ang);
    rotate(9,69,-ang);
    rotate(18,69,-ang);
    rotate(17,69,-ang);

    center(101,20,121);
    y[121]=y[101];

    center(103,24,125);
    y[125]=y[103];

    cont(68,120,70,-10);

    cont(68,20,71,-10);

    cont(16,101,72,-10);

    cont(16,103,73,-10);

    cont(69,24,74,-10);

    cont(69,124,75,-10);

    current_object=newobject("poly");
    addpoint((x[120]+siirtox)/2.54, (y[120])/2.54, "line");
    addpoint((x[70]+siirtox)/2.54, (y[70])/2.54, "line");
    addpoint((x[71]+siirtox)/2.54, (y[71])/2.54, "line");
    addpoint((x[20]+siirtox)/2.54, (y[20])/2.54, "open");
    group_obj[17]=current_object;

    current_object=newobject("poly");
    addpoint((x[101]+siirtox)/2.54, (y[101])/2.54, "line");
    addpoint((x[72]+siirtox)/2.54, (y[72])/2.54, "line");
    addpoint((x[73]+siirtox)/2.54, (y[73])/2.54, "line");
    addpoint((x[103]+siirtox)/2.54, (y[103])/2.54, "open");
    group_obj[18]=current_object;

    current_object=newobject("poly");
    addpoint((x[24]+siirtox)/2.54, (y[24])/2.54, "line");
    addpoint((x[74]+siirtox)/2.54, (y[74])/2.54, "line");
    addpoint((x[75]+siirtox)/2.54, (y[75])/2.54, "line");
    addpoint((x[124]+siirtox)/2.54, (y[124])/2.54, "open");
    group_obj[19]=current_object;
    }

  current_object=newobject("poly");

  if((sleeve==1)||(sleeve==3))
    {
    current_point=addpoint((x[1]+siirtox)/2.54, (y[1])/2.54, "line");
    current_point=addpoint((x[101]+siirtox)/2.54, (y[101])/2.54, "xarc_start");
    current_point=addpoint((x[121]+siirtox)/2.54, (y[121])/2.54, "xarc_corner");
    addpoint((x[20]+siirtox)/2.54, (y[20])/2.54, "line");
    addpoint((x[120]+siirtox)/2.54, (y[120])/2.54, "line");
    }

  else
    {
    current_point=addpoint((x[1]+siirtox)/2.54, (y[1])/2.54, "xarc_start");
    addpoint((x[20]+siirtox)/2.54, (y[1])/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");

  if(sleeve_length==0)
    {
    if((sleeve==0)||(sleeve==1))
      {

      addpoint((x[8]-3+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");
      }

    if((sleeve==2)||(sleeve==3))
      {
      addpoint((x[8]-3+siirtox)/2.54, (y[8])/2.54, "line");
      addpoint((x[14]+siirtox)/2.54, (y[14])/2.54, "xarc_start");
      addpoint((x[15]+siirtox)/2.54, (y[15])/2.54, "xarc_corner");
      addpoint((x[68]+siirtox)/2.54, (y[68]-1)/2.54, "line");
      addpoint((x[16]+siirtox)/2.54, (y[16])/2.54, "line");
      addpoint((x[17]+siirtox)/2.54, (y[17])/2.54, "line");
      addpoint((x[18]+siirtox)/2.54, (y[18])/2.54, "line");
      }
    }

  else
    {
    addpoint((x[8]-3+siirtox)/2.54, (y[8])/2.54, "line");
    addpoint((x[8]-3+2+siirtox)/2.54, (y[8]-10)/2.54, "line");
    addpoint((x[9]-1+siirtox)/2.54, (y[9]-10)/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");

  if((sleeve==1)||(sleeve==3))
    {
    addpoint((x[25]+siirtox)/2.54, (y[25])/2.54, "line");
    addpoint((x[124]+siirtox)/2.54, (y[124])/2.54, "line");
    addpoint((x[24]+siirtox)/2.54, (y[24])/2.54, "xarc_start");
    addpoint((x[125]+siirtox)/2.54, (y[125])/2.54, "xarc_corner");
    addpoint((x[103]+siirtox)/2.54, (y[103])/2.54, "line");
    }

  else
    {
    addpoint((x[25]+siirtox)/2.54, (y[25])/2.54, "xarc_start");
    addpoint((x[24]+siirtox)/2.54, (y[1])/2.54, "xarc_corner");
    }

  group_obj[16]=current_object;

  if(sv>0)
    {

    offset_mark(16);
    select(current_selection,group_obj[21]);

    if(sleeve>1)
      {
      select(current_selection,group_obj[20]);
      }

    select(current_selection,group_obj[22]);
    select(current_selection,group_obj[23]);
    select(current_selection,group_obj[24]);

    if((sleeve==1)||(sleeve==3))
      {
      select(current_selection,group_obj[17]);
      select(current_selection,group_obj[18]);
      select(current_selection,group_obj[19]);
      }

    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(16);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[16]);
    select(current_selection,group_obj[21]);

    if(sleeve>1)
      {
      select(current_selection,group_obj[20]);
      }

    select(current_selection,group_obj[22]);
    select(current_selection,group_obj[23]);
    select(current_selection,group_obj[24]);

    if((sleeve==1)||(sleeve==3))
      {
      select(current_selection,group_obj[17]);
      select(current_selection,group_obj[18]);
      select(current_selection,group_obj[19]);
      }

    group(current_selection);
    deselect(current_selection);
    }

  if(sleeve>1)
    {
    siirtoy=-7;

    current_object=newobject("poly");
    addpoint((x[7]-2+siirtox)/2.54, (y[7]+siirtoy)/2.54, "line");
    addpoint((x[7]+2+mansetti+siirtox)/2.54, (y[7]+siirtoy)/2.54, "line");
    addpoint((x[7]+2+mansetti+siirtox)/2.54, (y[7]-6+siirtoy)/2.54, "line");
    addpoint((x[7]-2+siirtox)/2.54, (y[7]-6+siirtoy)/2.54, "line");
    group_obj[25]=current_object;

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

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

    current_object=newobject("poly");
    current_point=addpoint((x[7]+siirtox)/2.54, (y[7]-3+siirtoy)/2.54, "line");
    notch_type(current_point,"BTN",0);
    addpoint((x[7]+mansetti+siirtox)/2.54, (y[7]-3+siirtoy)/2.54, "open");
    group_obj[28]=current_object;

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

      }

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

    siirtox=0;

    if(sv>0)
      {

      offset_mark(25);
      select(current_selection,group_obj[26]);
      select(current_selection,group_obj[27]);
      select(current_selection,group_obj[28]);
      select(current_selection,group_obj[29]);
      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]);
      select(current_selection,group_obj[27]);
      select(current_selection,group_obj[28]);
      select(current_selection,group_obj[29]);
      group(current_selection);
      deselect(current_selection);
      }
    }

  siirtox=0;
  siirtoy=0;

  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");

  }

newobj_dot()
  {
  line("CENTER_LINE");
  newobject("poly");
  line("SOLID_LINE");
  }

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

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(sleeve>=2)
      { index = index + 1; }
    }

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

Backward()
  {
  if (index==2)
    {
    if(sleeve>=2)
      { index = index - 1; }
    }

  index = index - 1;
  }

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

Popup2()
  {
  if (language == 0)
    {
    start_pict_dialog("SLEEVE STYLE");
    add_pict_item("Fitted sleeve","mn_pleated_slv-fit.jpg");
    add_pict_item("Fitted sleeve, pleated head","mn_pleated_slv-fit-pleat.jpg");
    add_pict_item("Shirt sleeve","mn_pleated_slv-shirt.jpg");
    add_pict_item("Shirt sleeve, pleated head","mn_pleated_slv-shirt-pleat.jpg");

    if (run_pict("Back","Next"))
      {
      sleeve=get_pict_result();
      Forward();
      }

    else
      {
      sleeve=0;
      Backward();
      }
    }
  }

Popup3()
  {
  if (language == 0)
    {
    start_pict_dialog("SLEEVE LENGTH");
    add_pict_item("Long","mn_pleated_ls.jpg");
    add_pict_item("Short","mn_pleated_ss.jpg");

    if (run_pict("Back","Next"))
      {
      sleeve_length=get_pict_result();
      Forward();
      }

    else
      {
      sleeve_length=0;
      Backward();
      }
    }
  }

Popup4()
  {
  if (language == 0)
    {
    start_pict_dialog("SHOULDER PAD EASE?");
    add_pict_item("Shoulder pads","mn_pleated_sp.jpg");
    add_pict_item("No shoulder pads","mn_pleated_sp_no.jpg");

    if (run_pict("Back","Next"))
      {
      shoulder_padding=get_pict_result();
      Forward();
      }

    else
      {
      shoulder_padding=0;
      Backward();
      }
    }
  }

Popup5()
  {
  if (language == 0)
    {
    start_pict_dialog("ADD PREGNANCY EASE?");
    add_pict_item("Pregnant","mn_preg-not_preg.jpg");
    add_pict_item("Not pregnant","mn_preg-not_preg.jpg");

    if (run_pict("Back","Next"))
      {
      raskaana=get_pict_result();
      Forward();
      }

    else
      {
      raskaana=0;
      Backward();
      }
    }
  }

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

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