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

//valmis

double index, done;
double x[600], y[600];
//viimeinen  529 hihojen nappivara 531
double ang,ang2,vang,vdistance,rangle;
double current_point;
object group_obj[200];
//viimeinen group_obj[78]
object current_object;
point current_point;
selection current_selection;

//VARIABLES
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[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 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, nvl;
//teen aged muutokset------------------------------------------------------------
double ptke, ptkt;
double pts_lis, ptl_lis;

main()
  {
  language=get_language();

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

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

    }


  //Test measurements , 152 cm
  //ry=76,ky=34.5,vy=66,aly=82, sp=37,op=12, sl=31.5; kay=28;  ray=15, hp=52;
  //Test measurements , 170 cm
  ry=85;
  ky=35.75;
  vy=72;
  aly=91;
  yly=85;
  sp=41.5;
  op=13.2;
  sl=36;
  kay=30;
  ray=16;  //wrist circ. Added meas. ENG
  hp=59.5;  //sleeve length Added meas. ENG
  pit=19.5;
  nvl=0;
  sv=1;
  index = 0;
  done = 0;

//Start Options
  while (!done)
    {
    if (index == 0)    {  StyleEase();  }

    if (index == 1)   {  StyleJacket();  }
    }

//End Options

  //MEASUREMENT UNITS
  //====================
  if (is_function("unit_mode")==1)
    {
    metric = unit_mode();

    if (!metric)
      {
      nvl=nvl/2.54;
      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");

      }

    // 0 = inches, 2=cm
    if (metric<1)          // If inches, convert cm to inches for dialog box
      {
      nvl=nvl/2.54;
      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;
    }

  //Measurements table
  double read;
  read = 0;

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

  if (read==0)
    {
    if (is_function("start_picture_input"))
      {
      if (language == 0)
        {
        start_picture_input("JUNIORS' BODICE");

        }


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

        }

      run_picture_input();
      }

    else
      {

      if (language == 0)
        {
        dialog_box( "JUNIORS' BODICE, 1 of 2",
                    "Neck circumference",ky,
                    "Bust circumference", ry,
                    "Waist circumference", vy,
                    "Abdomen circumference",yly,
                    "Hip circumference",aly,
                    "Back length",sp,
                    "Back width",sl,
                    "Shoulder length",op,
                    "Biceps circumference",kay,
                    "Wrist circumference",ray);

        }



      if (language == 0)
        {
        dialog_box( "JUNIORS' BODICE, 2 of 2",
                    "Overarm length",hp);

        }



      }
    }

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

      }


    if (language == 0)
      {
      add_picture_input("Button extension width",nvl, "w_meas_button_ext_width");

      }

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

      }

    run_picture_input();
    }

  else
    {
    if (language == 0)
      {
      dialog_box("JUNIORS' BODICE, 2 of 3",
                 "Button extension width",nvl,
                 "Length from waist",pit);

      }



    }

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

    if (!metric)
      {
      pts_lis=pts_lis*2.54;
      ptl_lis=ptl_lis*2.54;
      nvl=nvl*2.54;
      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 (metric<1)          // If inches, convert cm to inches for dialog box
      {
      pts_lis=pts_lis*2.54;
      ptl_lis=ptl_lis*2.54;
      nvl=nvl*2.54;
      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==2)
    {
    sv=sv/2.54;
    }

  //teen aged muutokset------------------------------------------------------------
  //STANDARD TABLE MEASUREMENTS
  //FRONT SHOULDER TIP FROM BACK NECK LEVEL
  oke=2;

  //BACK SHOULDER TIP FROM BACK NECK LEVEL
  okt=1.5;

  //WIDTH OF FRONT BUST DART DEPENDING ON BUST CIRC.
  if (ry < 73)
    {  rl=1.5;  }

  else
    {
    if (ry < 76)
      {  rl=1.75;  }

    else
      {
      if (ry < 79)
        {  rl=2;  }

      else
        {
        if (ry < 82)
          {  rl=2.25;  }

        else
          {
          if (ry < 85)
            {  rl=2.5;  }

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

            else
              {
              {  rl=3;  }
              }
            }
          }
        }
      }
    }

  if (ry < 73)
    {  ray=14;  }

  else
    {
    if (ry < 76)
      {  ray=14.5;  }

    else
      {
      if (ry < 79)
        {  ray=15;  }

      else
        {
        if (ry < 82)
          {  ray=15.5;  }

        else
          {
          if (ry < 85)
            {  ray=16;  }

          else
            {
            if (ry < 88)
              {  ray=16.5;  }

            else
              {
              {  ray=17;  }
              }
            }
          }
        }
      }
    }

  if (ry < 82)
    {  ptke=2.75;  }

  else
    {  ptke=3;  }

  //---------------------------------------------------------------------------------

  //EASE / +0
  f_ry[0]=ry+0;
  f_ky[0]=ky-3;
  f_vy[0]=vy+2;
  f_yly[0]=yly+2+2;
  f_aly[0]=aly+2+2;
  f_rkkv[0]=rkkv;
  f_sl[0]=sl;
  f_op[0]=op;
  f_vk[0]=vk;
  f_rk[0]=rk;
  f_rl[0]=rl-0.4;
  f_sp[0]=sp;
  f_ktk[0]=ktk;
  f_kay[0]=kay+2;
  f_ray[0]=ray+2;
  f_hp[0]=hp;

  //EASE / +4
  f_ry[1]=ry+4;
  f_ky[1]=ky-1.5;
  f_vy[1]=vy+4;
  f_yly[1]=yly+2+3;
  f_aly[1]=aly+2+3;
  f_rkkv[1]=rkkv+0.4;
  f_sl[1]=sl+0.4;
  f_op[1]=op;
  f_vk[1]=vk;
  f_rk[1]=rk;
  f_rl[1]=rl-0.2;
  f_sp[1]=sp;
  f_ktk[1]=ktk;
  f_kay[1]=kay+4;
  f_ray[1]=ray+4;
  f_hp[1]=hp;

  //EASE / +8
  f_ry[2]=ry+8;
  f_ky[2]=ky;
  f_vy[2]=vy+6;
  f_yly[2]=yly+2+4;
  f_aly[2]=aly+2+4;
  f_rkkv[2]=rkkv+0.8;
  f_sl[2]=sl+1.6;
  f_op[2]=op;
  f_vk[2]=vk;
  f_rk[2]=rk;
  f_rl[2]=rl;
  f_sp[2]=sp;
  f_ktk[2]=ktk;
  f_kay[2]=kay+6;
  f_ray[2]=ray+6;
  f_hp[2]=hp;

  //EASE / +10
  f_ry[3]=ry+10;
  f_ky[3]=ky+0.75;
  f_vy[3]=vy+8;
  f_yly[3]=yly+2+6;
  f_aly[3]=aly+2+6;
  f_rkkv[3]=rkkv+1;
  f_sl[3]=sl+2.2;
  f_op[3]=op;
  f_vk[3]=vk;
  f_rk[3]=rk;
  f_rl[3]=rl+0.1;
  f_sp[3]=sp;
  f_ktk[3]=ktk+2;
  f_kay[3]=kay+8;
  f_ray[3]=ray+8;
  f_hp[3]=hp;

  //EASE / +12
  f_ry[4]=ry+12;
  f_ky[4]=ky+1.5;
  f_vy[4]=vy+10;
  f_yly[4]=yly+2+8;
  f_aly[4]=aly+2+8;
  f_rkkv[4]=rkkv+1.2;
  f_sl[4]=sl+2.8;
  f_op[4]=op;
  f_vk[4]=vk;
  f_rk[4]=rk;
  f_rl[4]=rl+0.2;
  f_sp[4]=sp;
  f_ktk[4]=ktk+2.5;
  f_kay[4]=kay+9;
  f_ray[4]=ray+9;
  f_hp[4]=hp+0.5;

  //EASE / +14
  f_ry[5]=ry+14;
  f_ky[5]=ky+1.5;
  f_vy[5]=vy+12;
  f_yly[5]=yly+2+10;
  f_aly[5]=aly+2+10;
  f_rkkv[5]=rkkv+1.4;
  f_sl[5]=sl+3.4;
  f_op[5]=op;
  f_vk[5]=vk;
  f_rk[5]=rk;
  f_rl[5]=rl+0.3;
  f_sp[5]=sp;
  f_ktk[5]=ktk+3;
  f_kay[5]=kay+10;
  f_ray[5]=ray+10;
  f_hp[5]=hp+0.75;

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

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

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

  //EASE / +22
  f_ry[9]=ry+22;
  f_ky[9]=ky+5.25;
  f_vy[9]=vy+20;
  f_yly[9]=yly+2+18;
  f_aly[9]=aly+2+18;
  f_rkkv[9]=rkkv+2.2;
  f_sl[9]=sl+5.8;
  f_op[9]=op+0.8;
  f_vk[9]=vk+1;
  f_rk[9]=rk+1;
  f_rl[9]=rl+0.7;
  f_sp[9]=sp+1;
  f_ktk[9]=ktk+5;
  f_kay[9]=kay+14;
  f_ray[9]=ray+14;
  f_hp[9]=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];

  //teen aged muutokset------------------------------------------------------------
  //MATHEMATICS
  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;

  rkkv=ry/5;
  ktl=ry/8-0.5;

  ktk=ry/4-2;
  alk=ktk-2; //deleted the slashes before
  ylk=alk/2;
  rk=ktk+ptke+pts+1;
  vk=sp+ptke+pts+1;
  //---------------------------------------------------

  pts_lis=1;
  ptl_lis=1;
  pts=pts+pts_lis;
  ptl=ptl+ptl_lis;
  op=op-ptl_lis;

  if(pit<alk)
    {
    alk=pit;
    ylk=alk/2;//ENG added abdomenheight in pattern gives problems
    }

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

  //1
  coord(0,1,0,0);
  //2
  coord(1,2,-ry/2,0);
  //3
  coord(2,3,0,-ktk);
  //4
  coord(2,4,0,-sp);
  //5
  coord(4,5,0,-ylk);
  //6
  coord(4,6,0,-alk);
  //7
  coord(1,7,-sl/2,0);
  //8
  coord(7,8,-ktl,0);
  //9
  coord(7,9,0,-ktk);
  //10
  coord(9,10,-ktl,0);
  //11
  coord(9,11,-ktl/2,0);

  //53 (jotta a-line ja straight takahihanaukon alkupisteet eiv�t siirry etumuotolaskoksen vuoksi)
  coord(9,53,0,0);
  //54
  coord(11,54,0,0);

  //12
  coord(9,12,sl/2,0);
  //13
  coord(1,13,0,-sp);
  //14
  coord(13,14,0,-ylk);
  //15
  coord(13,15,0,-alk);
  //16
  coord(13,16,-sl/2-ktl/2,0);
  //17
  coord(14,17,-sl/2-ktl/2,0);
  //18
  coord(15,18,-sl/2-ktl/2,0);
  //19
  coord(3,19,rkkv/2,0);
  //20
  coord(4,20,rkkv/2,0);
  //21
  coord(1,21,0,.5);
  //22
  coord(1,22,-ptl,2.5);
  //122
  coord(22,122,0,-2.5);
  //23
  coord(2,23,ptl,0);
  //24
  coord(1,24,0,-okt);
  //124
  coord(24,124,-100,0);
  //25
  coord(1,25,0,-oke);
  //125
  coord(25,125,-100,0);
  //26
  coord(22,26,-sqrt((op+2)*(op+2)-(okt+2.5)*(okt+2.5)),-(okt+2.5));

  //123
  coord(23,123,0,100);
  //27
  cont(26,22,27,-5);

  //28 takamuotolaskos
  coord(1,28,-rkkv/2,-7);
  //127
  cont(28,27,127,.6);
  //29
  cont(26,22,29,-6);
  //129
  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);

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

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

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

  //32
  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);

  //33
  x[223]=x[32];
  y[223]=y[25];
  oke=dist(32,223);

  coord(32,33,sqrt(op*op-oke*oke),-oke);
  //cont(32,33,33,1);

  //131
  cont(33,31,131,-5);
  //132
  cont(33,32,132,-5);

  cont(131,30,131,-dist(30,132));

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

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

  //102
  coord(31,102,-ptl,-pts);
  x[102]=x[4];

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

  //sivukappaleiden vy�t�r�py�ristys
  //etu
  cont(51,50,151,-3);
  cont(11,50,111,-3);
  //taka
  cont(11,49,149,-3);
  cont(48,49,148,-3);

  //rintamuotolaskoksen sivupisteet
  //310, ylempi
  cont(50,11,310,-4);
  //311, alempi
  coord(310,311,0,0);

  kpt=arclength(22,122,21);
  kp=(kpe+kpt);

  //takaolka--------------------
  //27
  cont(26,22,27,-5);
  //127
  //cont(28,27,127,.6);
  //29
  cont(26,22,29,-7);
  //129
  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);

  //pituus
  //190 ja 191
  coord(4,190,0,-pit);
  coord(13,191,0,-pit);

  //pituus vahemman kuin ylalantiolle
  //192
  line_intersect(39,40,190,191,192);
  //193
  line_intersect(39,41,190,191,193);
  //194
  line_intersect(51,50,190,191,194);
  //195
  line_intersect(48,49,190,191,195);
  //196
  line_intersect(43,44,190,191,196);
  //197
  line_intersect(43,46,190,191,197);

  //pituus v�hemm�n kuin alantiolle
  //198
  line_intersect(38,20,190,191,198);
  //199
  line_intersect(47,48,190,191,199);
  //200
  line_intersect(52,51,190,191,200);
  //201
  line_intersect(42,45,190,191,201);

  y[23]=y[202];
  //debug(0);

  //saumanvara
  if (language == 0)
    {
    current_object=newobject("text","Patterns are without seam allowance",-1.570796,0.3,0.2,"SIMP.CHR");

    }



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

  //KE-teksti
  //KE-teksti
  if (language == 0)
    {
    current_object=newobject("text","Center Front-Grainline",-1.570796,0.2,0.2,"SIMP.CHR");

    }



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

  //debug(10);
  //KT-teksti
  if (language == 0)
    {
    current_object=newobject("text","Center Back-Grainline",-1.570796,0.2,0.2,"SIMP.CHR");

    }



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

  //debug(5);
  if(model==0) //princess
    {

    //KAPPALE, etu
    current_object=newobject("poly");
    addpoint((x[131])/2.54, (y[131])/2.54, "line");
    addpoint((x[31])/2.54, (y[31])/2.54, "xarc_start");
    addpoint((x[23])/2.54, (y[102])/2.54, "xarc_corner");
    addpoint((x[3])/2.54, (y[102])/2.54, "line");
    current_point=addpoint((x[3])/2.54, (y[3])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[4])/2.54, (y[4])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[5])/2.54, (y[5])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[6])/2.54, (y[6])/2.54, "line");
    notch_type(current_point,"NOTCH",1);

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[6])/2.54, (y[6]-pit+alk)/2.54, "line");
      current_point=addpoint((x[38])/2.54, (y[38]-pit+alk)/2.54, "line");
      }

    current_point=addpoint((x[38])/2.54, (y[38])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[39])/2.54, (y[39])/2.54, "line");
    current_point=addpoint((x[40])/2.54, (y[40])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[30])/2.54, (y[30])/2.54, "line");
    notch_type(current_point,"NOTCH",0);
    group_obj[14]=current_object;

    //Draw_princess_front_side()

    //grain
    current_object=newobject("poly");
    addpoint((x[10]-5)/2.54, (y[10]-5)/2.54, "line");
    addpoint((x[10]-5)/2.54, (y[51])/2.54, "open");
    group_obj[63]=current_object;

    //teksti
    if (language == 0)
      {
      current_object=newobject("text","Front Side Piece-Grainline.",-1.570796,0.2,0.2,"SIMP.CHR");

      }



    addpoint((x[10]-4.5+siirtox)/2.54, (y[4])/2.54, "line");
    group_obj[17]=current_object;

    //KAPPALE
    current_object=newobject("poly");
    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");
    addpoint((x[132])/2.54, (y[132])/2.54, "xarc_start");
    cont(132,30,130,-2);
    x[130]=x[30];
    addpoint((x[130])/2.54, (y[130])/2.54, "xarc_corner");
    cont(41,30,230,-2);
    current_point=addpoint((x[30])/2.54, (y[30])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[230])/2.54, (y[230])/2.54, "line");
    current_point=addpoint((x[41])/2.54, (y[41])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[39])/2.54, (y[39])/2.54, "line");
    current_point=addpoint((x[38])/2.54, (y[38])/2.54, "line");
    notch_type(current_point,"NOTCH",1);

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[38])/2.54, (y[38]-pit+alk)/2.54, "line");
      current_point=addpoint((x[52])/2.54, (y[52]-pit+alk)/2.54, "line");
      }

    addpoint((x[52])/2.54, (y[52])/2.54, "xarc_start");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[51])/2.54, (y[51])/2.54, "xarc_corner");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[151])/2.54, (y[151])/2.54, "xarc_start");
    current_point=addpoint((x[50])/2.54, (y[50])/2.54, "xarc_corner");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[111])/2.54, (y[111])/2.54, "line");
    group_obj[18]=current_object;

    //debug(9);
    //Draw_princess_back_side()

    //grainline back side
    current_object=newobject("poly");
    addpoint((x[9]+2+4+siirtox)/2.54, (y[10]-5)/2.54, "line");
    addpoint((x[9]+2+4+siirtox)/2.54, (y[51])/2.54, "open");
    group_obj[28]=current_object;

    //teksti
    if (language == 0)
      {
      current_object=newobject("text","Back Side Piece-Grainline.",-1.570796,0.2,0.2,"SIMP.CHR");

      }



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

    //kappale
    current_object=newobject("poly");

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[47]+4)/2.54, (y[47]-pit+alk)/2.54, "line");
      }

    current_point=addpoint((x[47]+4)/2.54, (y[47])/2.54, "xarc_start");
    current_point=addpoint((x[48]+4)/2.54, (y[48])/2.54, "xarc_corner");
    current_point=addpoint((x[148]+4)/2.54, (y[148])/2.54, "xarc_start");
    current_point=addpoint((x[49]+4)/2.54, (y[49])/2.54, "xarc_corner");
    current_point=addpoint((x[149]+4)/2.54, (y[149])/2.54, "line");

    addpoint((x[54]+4)/2.54, (y[54])/2.54, "xarc_start");
    addpoint((x[53]+4)/2.54, (y[53])/2.54, "xarc_corner");
    addpoint((x[35]+4)/2.54, (y[35])/2.54, "xarc_start");
    addpoint((x[37]+4)/2.54, (y[37])/2.54, "xarc_corner");
    addpoint((x[26]+4)/2.54, (y[26])/2.54, "line");
    addpoint((x[129]+4)/2.54, (y[129])/2.54, "xarc_start");
    addpoint((x[28]+4)/2.54, (y[28])/2.54, "xarc_corner");
    current_point=addpoint((x[45]+4)/2.54, (y[45])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[44]+4)/2.54, (y[44])/2.54, "line");
    notch_type(current_point,"NOTCH",0);
    addpoint((x[43]+4)/2.54, (y[43])/2.54, "line");

    if(pit<alk)
      {;}
    else
      {
      addpoint((x[42]+4)/2.54, (y[42]-pit+alk)/2.54, "line");
      current_point=addpoint((x[47]+4)/2.54, (y[47]-pit+alk)/2.54, "line");
      }

    group_obj[30]=current_object;

    //kappale
    current_object=newobject("poly");
    current_point=addpoint((x[43]+4)/2.54, (y[43])/2.54, "line");
    current_point=addpoint((x[46]+4)/2.54, (y[46])/2.54, "line");
    notch_type(current_point,"NOTCH",0);
    addpoint((x[45]+4)/2.54, (y[45])/2.54, "xarc_start");
    addpoint((x[28]+4)/2.54, (y[28])/2.54, "xarc_corner");
    addpoint((x[127]+4)/2.54, (y[127])/2.54, "line");
    addpoint((x[22]+4)/2.54, (y[22])/2.54, "xarc_start");
    addpoint((x[122]+4)/2.54, (y[122])/2.54, "xarc_corner");
    addpoint((x[21]+4)/2.54, (y[21])/2.54, "line");
    addpoint((x[12]+4)/2.54, (y[12]+dist(12,21)/2)/2.54, "line");
    current_point=addpoint((x[13]+4)/2.54, (y[13])/2.54, "line");
    notch_type(current_point,"NOTCH",0);
    addpoint((x[14]+4)/2.54, (y[14])/2.54, "line");
    addpoint((x[15]+4)/2.54, (y[15])/2.54, "line");

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[15]+4)/2.54, (y[15]-pit+alk)/2.54, "line");
      current_point=addpoint((x[42]+4)/2.54, (y[42]-pit+alk)/2.54, "line");
      }

    addpoint((x[42]+4)/2.54, (y[42])/2.54, "line");

    group_obj[35]=current_object;

    }

  else //straight
    {
    //debug(8);
    //Draw_straight_front()
    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);

    //vy�t�r�muotolaskos
    current_object=newobject("poly");
    addpoint((x[30])/2.54, (y[30]-2)/2.54, "line");
    addpoint((x[41])/2.54, (y[41])/2.54, "line");
    addpoint((x[39])/2.54, (y[39])/2.54, "line");
    addpoint((x[40])/2.54, (y[40])/2.54, "line");
    group_obj[64]=current_object;

    //KAPPALE
    current_object=newobject("poly");
    addpoint((x[31])/2.54, (y[31])/2.54, "xarc_start");
    addpoint((x[23])/2.54, (y[102])/2.54, "xarc_corner");
    addpoint((x[3])/2.54, (y[102])/2.54, "line");
    current_point=addpoint((x[3])/2.54, (y[3])/2.54, "line");
    notch_type(current_point,"NOTCH",1);

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

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[6])/2.54, (y[6]-pit+alk)/2.54, "line");
      current_point=addpoint((x[52])/2.54, (y[52]-pit+alk)/2.54, "line");
      }

    addpoint((x[52])/2.54, (y[52])/2.54, "xarc_start");
    notch_type(current_point,"NOTCH",1);
    addpoint((x[51])/2.54, (y[51])/2.54, "xarc_corner");
    addpoint((x[151])/2.54, (y[151])/2.54, "xarc_start");
    addpoint((x[50])/2.54, (y[50])/2.54, "xarc_corner");
    addpoint((x[111])/2.54, (y[111])/2.54, "line");
    addpoint((x[311])/2.54, (y[311])/2.54, "line");
    addpoint((x[30]+2)/2.54, (y[30])/2.54, "line");
    addpoint((x[310])/2.54, (y[310])/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[27]=current_object;

    //palautus
    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);

    //debug(12);
    //Draw_straight_back()

    //vy�t�r�muotolaskos
    current_object=newobject("poly");
    addpoint((x[44]+4)/2.54, (y[44])/2.54, "line");
    addpoint((x[45]+4)/2.54, (y[45])/2.54, "line");
    addpoint((x[46]+4)/2.54, (y[46])/2.54, "line");
    addpoint((x[43]+4)/2.54, (y[43])/2.54, "line");
    group_obj[40]=current_object;

    //teksti
    if (language == 0)
      {
      current_object=newobject("text","Center Back",-1.570796,0.2,0.2,"SIMP.CHR");

      }



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

    //kappale

    current_object=newobject("poly");

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[15]+4)/2.54, (y[15]-pit+alk)/2.54, "line");
      }

    addpoint((x[15]+4)/2.54, (y[15])/2.54, "line");
    addpoint((x[14]+4)/2.54, (y[14])/2.54, "line");
    addpoint((x[13]+4)/2.54, (y[13])/2.54, "line");
    addpoint((x[12]+4)/2.54, (y[21]-dist(21,12)/2)/2.54, "line");
    addpoint((x[21]+4)/2.54, (y[21])/2.54, "xarc_start");
    addpoint((x[122]+4)/2.54, (y[122])/2.54, "xarc_corner");
    addpoint((x[22]+4)/2.54, (y[22])/2.54, "line");
    addpoint((x[127]+4)/2.54, (y[127])/2.54, "line");
    addpoint((x[28]+4)/2.54, (y[28])/2.54, "line");
    addpoint((x[129]+4)/2.54, (y[129])/2.54, "line");
    addpoint((x[26]+4)/2.54, (y[26])/2.54, "xarc_start");
    addpoint((x[37]+4)/2.54, (y[37])/2.54, "xarc_corner");
    addpoint((x[35]+4)/2.54, (y[35])/2.54, "xarc_start");
    addpoint((x[53]+4)/2.54, (y[53])/2.54, "xarc_corner");
    addpoint((x[54]+4)/2.54, (y[54])/2.54, "line");
    addpoint((x[149]+4)/2.54, (y[149])/2.54, "xarc_start");
    addpoint((x[49]+4)/2.54, (y[49])/2.54, "xarc_corner");
    addpoint((x[148]+4)/2.54, (y[148])/2.54, "xarc_start");
    addpoint((x[48]+4)/2.54, (y[48])/2.54, "xarc_corner");
    current_point=addpoint((x[47]+4)/2.54, (y[47])/2.54, "line");

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[47]+4)/2.54, (y[47]-pit+alk)/2.54, "line");
      notch_type(current_point,"NOTCH",1);
      addpoint((x[42]+4)/2.54, (y[42]-pit+alk)/2.54, "line");
      addpoint((x[15]+4)/2.54, (y[15]-pit+alk)/2.54, "line");
      }

    addpoint((x[15]+4)/2.54, (y[15])/2.54, "line");

    group_obj[45]=current_object;

    //palautus
    }

  if(nvl>0)
    {
    //nappivara
    current_object=newobject("poly");
    group_obj[44]=current_object;
    addpoint((x[102])/2.54, (y[102])/2.54, "line");
    addpoint((x[102]-nvl)/2.54, (y[102])/2.54, "line");
    addpoint((x[3]-nvl)/2.54, (y[102])/2.54, "line");
    current_point=addpoint((x[3]-nvl)/2.54, (y[3])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[4]-nvl)/2.54, (y[4])/2.54, "line");
    notch_type(current_point,"NOTCH",1);
    current_point=addpoint((x[5]-nvl)/2.54, (y[5])/2.54, "line");
    notch_type(current_point,"NOTCH",1);

    if(pit<alk)
      {;}
    else
      {
      current_point=addpoint((x[6]-nvl)/2.54, (y[6]-pit+alk)/2.54, "line");
      notch_type(current_point,"NOTCH",1);
      current_point=addpoint((x[6])/2.54, (y[6]-pit+alk)/2.54, "open");
      }
    }

  //debug(13);
  //Draw_sleeves()

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

  //KTP LASKUKAAVAN KORJAUS, pudotettu hiha
  //  if(sleeve==2)//pudotettu
  //    {
  //korjaus hiha
  //      ktpe=arclength(33,10,11);
  //      ktpt=arclength(26,53,54);
  //     }

  ktp=ktpe+ktpt;

  pk=ktp/3;

  //1
  coord(0,1,kay/2+4,0);
  //2
  coord(1,2,0,-pk/3);
  //3
  coord(2,3,0,-pk/3);
  //4
  coord(3,4,0,-pk/3);
  //5
  coord(1,5,0,-hp);
  //6
  center(5,1,6);
  y[6]=y[6]-4;
  //7
  coord(5,7,0,-3);

  coord(4,8,-kay/2,0);
  coord(4,9,kay/2,0);
  //lisays=sy�tt�varaa
  //coord(4,8,-sqrt(ktpe*ktpe-pk*pk)-.5,0);
  //coord(4,9,sqrt(ktpe*ktpe-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];
  //14
  //cont(12,10,14,1.5);
  //15
  //center(5,10,15);
  //16
  //center(5,7,16);
  //17
  //coord(7,17,+(kay/4-2),0);
  //18
  //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);
  //24
  coord(1,24,5,0);
  //25
  cont(23,24,25,-dist(23,24)/3);
  //26
  cont(24,23,26,-dist(23,24)/3);

  //27
  coord(5,27,-2,0);
  //28
  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));
  //29
  cont(28,27,29,+(ray/2+1));
  //30
  coord(12,30,2.5,0);
  //31
  coord(13,31,.5,0);

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

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

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

  //***HIHANPY�RI�N KORJAUS
  //ISTUVA HIHA, LYHYT HIHA, PUDOTETTU HIHA
  //==========================================
  //**** korjaus hihanpy�ri�
  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+2));
  x[9]=x[9]-(pyorion_pituus_taka-(ktpt+2));

  //korj2
  x[33]=x[33]-(pyorion_pituus_taka-(ktpt+2));
  x[31]=x[31]-(pyorion_pituus_taka-(ktpt+2));
  x[32]=x[32]-(pyorion_pituus_taka-(ktpt+2));

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

  //keskiviiva
  current_object=newobject("poly");
  addpoint((x[1])/2.54, (y[8]-10)/2.54, "line");
  addpoint((x[1])/2.54, (y[1])/2.54, "open");
  group_obj[47]=current_object;

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

    }



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

  //teksti
  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)/2.54, "line");
  group_obj[49]=current_object;

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

    }



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

  //group the sleeve
  group_obj[46]=marker_piece(group_obj[46],1);
  current_selection=newselection("OBJECT");
  select(current_selection,group_obj[46]);
  select(current_selection,group_obj[47]);
  select(current_selection,group_obj[48]);
  select(current_selection,group_obj[49]);
  select(current_selection,group_obj[50]);
  group(current_selection);
  deselect(current_selection);

  if(model==0) //princess
    {
    group_obj[14]=marker_piece(group_obj[14],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[14]);
    select(current_selection,group_obj[1]);
    select(current_selection,group_obj[71]);

    if (group_obj[44] != 0)
      {
      select(current_selection,group_obj[44]);
      }

    group(current_selection);
    deselect(current_selection);

    group_obj[18]=marker_piece(group_obj[18],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[63]);
    select(current_selection,group_obj[17]);
    select(current_selection,group_obj[18]);
    group(current_selection);
    deselect(current_selection);

    group_obj[30]=marker_piece(group_obj[30],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[28]);
    select(current_selection,group_obj[29]);
    group(current_selection);
    deselect(current_selection);

    group_obj[35]=marker_piece(group_obj[35],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[35]);
    select(current_selection,group_obj[37]);
    group(current_selection);
    deselect(current_selection);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[14]);
    select(current_selection,group_obj[18]);
    select(current_selection,group_obj[30]);
    select(current_selection,group_obj[35]);
    select(current_selection,group_obj[46]);
    check_overlap(current_selection);

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

    deselect(current_selection);

    set_marker(group_obj[14], 0);
    set_marker(group_obj[18], 0);
    set_marker(group_obj[30], 0);
    set_marker(group_obj[35], 0);
    set_marker(group_obj[46], 0);
    }

  else
    {
    group_obj[27]=marker_piece(group_obj[27],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[27]);
    select(current_selection,group_obj[64]);
    select(current_selection,group_obj[1]);
    select(current_selection,group_obj[71]);

    if (group_obj[44] != 0)
      {
      select(current_selection,group_obj[44]);
      }

    group(current_selection);
    deselect(current_selection);

    group_obj[45]=marker_piece(group_obj[45],1);
    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[45]);
    select(current_selection,group_obj[40]);
    select(current_selection,group_obj[34]);
    select(current_selection,group_obj[37]);
    group(current_selection);
    deselect(current_selection);

    current_selection=newselection("OBJECT");
    select(current_selection,group_obj[27]);
    select(current_selection,group_obj[45]);
    select(current_selection,group_obj[46]);
    check_overlap(current_selection);

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

    deselect(current_selection);

    set_marker(group_obj[27], 0);
    set_marker(group_obj[45], 0);
    set_marker(group_obj[46], 0);

    }

  run_command("zoomall");
  }

//option pictures
StyleEase()
  {
  if (language == 0)
    {
    start_pict_dialog("BUST EASE");
    add_pict_item("0cm / 0 inch underwear","J_0cm.jpg");
    add_pict_item("4cm / 1.5 inch evening dress","J_4cm.jpg");
    add_pict_item("8cm / 3 inch jumper/sleeveless dress","J_8cm.jpg");
    add_pict_item("10cm / 4 inch vest/dress/jacket","J_10cm.jpg");
    add_pict_item("12cm / 4.75 inch blouse/vest/jacket","J_12cm.jpg");
    add_pict_item("14cm / 5.5 inch blouse/jacket/T-shirt","J_14cm.jpg");
    add_pict_item("16cm / 6.25 inch jacket/T-shirt/sweater","J_16cm.jpg");
    add_pict_item("18cm / 7 inch overcoat/blazer","J_18cm.jpg");
    add_pict_item("20cm / 7.75 inch overcoat/blazer","J_20cm.jpg");
    add_pict_item("22cm / 8.5 inch overcoat/parka","J_22cm.jpg");
    run_pict("Next");
    ease=get_pict_result();
    Forward();
    }
  }


StyleJacket()
  {
  if (language == 0)
    {
    start_pict_dialog("GARMENT STYLE");
    add_pict_item("Princess line to shoulder","shoulder.jpg");
    add_pict_item("Bust dart to side seam","sideseam.jpg");

    if (run_pict("Back","Next")) //was Done
      {
      model=get_pict_result();
      Forward();
      }

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


Forward()
  {
  index = index + 1;

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

Backward()
  {
  index = index - 1;
  }

newobj_dot(double x, double y)
  {
  object temp;
  line("CENTER_LINE");
  temp = NEWOBJECT ("POLY");
  addpoint(x, y, "line");
  line("SOLID_LINE");
  return temp;
  }

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

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)
  {
  // PA = center of circle, PB and PC determine line, dradius is radius of
  //    circle, "which" is 0 or 1 (which of 2 possible intersections)
  // PD is output point i.e. 4 means put results in Point 4.

  double  mslope, dist0, dist1, dist2, xtemp;
  double tx, ty;  //coordinates of Point T

  // Since we will use slope calculations, horizontal or vertical lines
  // have to be handled separately to avoid dividing by 0.

  xtemp = (x[PB]-x[PC])*(x[PB]-x[PC]);

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

    if ( xtemp > 0)
      {
      // not horizontal
      mslope = (y[PC] - y[PB])/(x[PC] - x[PB]);  // slope of line

      //plot a perpendicular line through pt. A
      // First, find any point on this line
      tx = x[PA] + 1;
      ty = y[PA] - 1/mslope;

      // Then intersection of the 2 lines (Point T)
      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);

      // Here is a special function that calculates the third leg
      // of a right triangle.  First two inputs give the two ends
      // of one short leg.  The third input is the hypotenuse
      // (here, it equals the dradius of the circle)
      // Won't work if the line and circle don't intersect!

      dist2 = interceptline(0, dist1, dradius);  // distance from T to
      // desired point P1 or P2
      dist0 = sqrt(1+mslope*mslope);
      xtemp = dist2/dist0;

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

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

    else // horizontal line
      {
      x[PD] = 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 //vertical line
    {
    y[PD] = 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);
      }
    }
  }

////////////////////////////////////////////
// These 3 routines find the length of an xarc, given the array
// numbers of the 3 points that
// make it up.

// These variables needed for routine fts
double xar[13], yar[13];
double rx, ry;

arclength(double start, double corner, double end)
  {

  double ct, last_x, last_y;
  double a_dist;

  last_x = x[start];
  last_y = y[start];

  a_dist=0;

  // For each of the segments that comprises the arc, find
  // the endpoints of the segment and add the segment length
  // to the total
  for (ct=1; ct < 12; ct = ct + 1)
    {
    fts(start, corner, end, ct);
    a_dist = a_dist + distance(rx, ry, last_x, last_y);
    last_x=rx;
    last_y=ry;
    }

  return a_dist;
  }

//////////////////////////////////////
// These global variables are used by fts for repeated calls.
double A1, A2, B1, B2;  //transformation vectors
double sx, sy, cx, cy, ex, ey;

double t0[2], t1[2];
double ftc[2];
fts(double start, double corner, double end, double pos)
  {
  if (pos<1)
    {
    rx=x[start];
    ry=y[start];
    }

  else
    {
    if (pos<2)
      {
      sx = x[start];
      sy = y[start];
      cx = x[corner];
      cy = y[corner];
      ex = x[end];
      ey = y[end];

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

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

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

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

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

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

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

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

  // You only need to call this routine once.

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

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

  ct=0;

  step= (ang_end - ang_start)/(XARC_PIECES-1);

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

  //end init_xarc_array
  }

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