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

object marker_array[20];
double marker_count, loop;
double result;

double x[300], y[300];
double ang;
object group_obj[50];
object current_object;
point current_point;
selection current_selection;
double length,sip,vy,aly,py,lsy, language;
// double index;  // index not used
double sv;

main()
  {
  language=get_language();

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

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

  vy=110;
  aly=111;
  length=98;
  sip=74;
  py=50;
  lsy=46;
  sv=1;

//Start Options

//End Options

  double metric;

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

    if (!metric)
      {
      vy=vy/2.54;
      aly=aly/2.54;
      length=length/2.54;
      sip=sip/2.54;
      py=py/2.54;
      lsy=lsy/2.54;
      sv=sv/2.54;
      }
    }

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

    if (metric<1)
      {
      vy=vy/2.54;
      aly=aly/2.54;
      length=length/2.54;
      sip=sip/2.54;
      py=py/2.54;
      lsy=lsy/2.54;
      sv=sv/2.54;
      }
    }

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

  double read;
  read = 0;

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

  if (read==0)
    {
    if (is_function("start_picture_input"))
      {
      if (language == 0)
        {
        start_picture_input("MEN'S PANTS");

        }

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

        }

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

        }

      if (language == 0)
        {
        add_picture_input("Knee circumference", py, "m_knee_circumference");

        }

      if (language == 0)
        {
        add_picture_input("Outside length", length, "m_trousers_outside_length");

        }

      if (language == 0)
        {
        add_picture_input("Inside length", sip, "m_trousers_inside_length");

        }

      run_picture_input();
      }

    else
      {
      if (language == 0)
        {
        dialog_box("MEN'S PANTS - 1 of 1",
                   "Waist circumference", vy,
                   "Hip circumference", aly,
                   "Knee circumference", py,
                   "Outside length", length,
                   "Inside length", sip);

        }

      }
    }

  if (is_function("start_picture_input"))
    {
    if (language == 0)
      {
      start_picture_input("CUSTOM MEASUREMENTS");

      }

    if (language == 0)
      {
      add_picture_input("Cuff circumference",lsy, "m_cuff_circumference_trousers");

      }

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

      }

    run_picture_input();
    }

  else
    {
    if (language == 0)
      {
      dialog_box("CUSTOM MEASUREMENTS",
                 "Cuff circumference",lsy,
                 "Seam Allowance",sv);

      }

    }

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

    if (!metric)
      {
      vy=vy*2.54;
      aly=aly*2.54;
      length=length*2.54;
      sip=sip*2.54;
      py=py*2.54;
      lsy=lsy*2.54;
      }
    }

  else
    {
    if (metric<1)
      {
      vy=vy*2.54;
      aly=aly*2.54;
      length=length*2.54;
      sip=sip*2.54;
      py=py*2.54;
      lsy=lsy*2.54;
      }
    }

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

  vy=vy+4;
  aly=aly+4;

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

  coord(0,1,0,0);
  coord(1,2,0,-length);
  coord(2,3,0,sip);
  center(2,3,4);
  y[4]=y[4]+6;
  coord(3,5,0,aly/20+3);
  coord(5,6,aly/4+1,0);
  coord(6,7,aly/20+1,0);
  center(5,7,8);

  x[9]=x[8];
  y[9]=y[1];

  x[10]=x[8];
  y[10]=y[3];

  x[11]=x[8];
  y[11]=y[4];

  x[12]=x[8];
  y[12]=y[2];

  x[13]=x[6];
  y[13]=y[1];

  x[14]=x[6];
  y[14]=y[3];

  coord(11,15,py/4,0);
  coord(11,16,-py/4,0);
  coord(12,17,lsy/4-1,0);
  coord(12,18,-lsy/4+1,0);

  coord(3,103,100,0);
  line_intersect(3,103,5,16,19);
  line_intersect(3,103,7,15,20);

  coord(16,116,-1,dist(16,19)/2);
  coord(15,115,1,dist(15,20)/2);

  coord(14,21,0,dist(14,20)/2);
  coord(13,22,-1,0);

  coord(22,23,-vy/4,0);
  coord(23,24,0,1);
  coord(6,25,.5,0);
  coord(22,113,3,0);

  current_object=newobject("poly");                     // pant piece
  addpoint(x[24]/2.54,  y[24]/2.54,  "xarc_start");
  coord(5,124,0,dist(5,24)/2);
  addpoint(x[124]/2.54,  y[124]/2.54,  "xarc_corner");
  addpoint(x[5]/2.54,  y[5]/2.54,  "line");
  addpoint(x[19]/2.54,  y[19]/2.54,  "xarc_start");
  addpoint(x[116]/2.54,  y[116]/2.54,  "xarc_corner");
  addpoint(x[16]/2.54,  y[16]/2.54,  "line");
  addpoint(x[18]/2.54,  y[18]/2.54,  "LINE");
  addpoint(x[12]/2.54,  y[12]/2.54,  "LINE");
  addpoint(x[17]/2.54,  y[17]/2.54,  "LINE");
  addpoint(x[15]/2.54,  y[15]/2.54,  "xarc_start");
  addpoint(x[115]/2.54,  y[115]/2.54,  "xarc_corner");
  addpoint(x[20]/2.54,  y[20]/2.54,  "xarc_start");
  addpoint(x[14]/2.54,  y[14]/2.54,  "xarc_corner");
  addpoint(x[25]/2.54,  y[25]/2.54,  "LINE");
  addpoint((x[25]+3)/2.54,  y[25]/2.54,  "line");
  addpoint(x[113]/2.54,  y[113]/2.54,  "line");
  addpoint(x[22]/2.54,  y[22]/2.54,  "LINE");
  addpoint(x[9]/2.54,  y[9]/2.54,  "LINE");
  group_obj[1]=current_object;

  current_object=newobject("poly");
  addpoint((x[9])/2.54,  (y[9])/2.54,  "LINE");
  addpoint((x[12])/2.54,  (y[12])/2.54,  "LINE");
  group_obj[2]=current_object;

  current_object=newobject("poly");
  addpoint((x[9])/2.54,  y[9]/2.54,  "LINE");
  addpoint((x[9]-4)/2.54,  y[9]/2.54,  "LINE");
  addpoint((x[9]-4)/2.54,  (y[9]-8)/2.54,  "LINE");
  addpoint((x[9])/2.54,  (y[9]-8)/2.54,  "LINE");
  group_obj[3]=current_object;

  current_object=newobject("poly");
  addpoint((x[9])/2.54,  (y[9]-2)/2.54,  "LINE");
  addpoint((x[9]-4)/2.54,  (y[9]-2)/2.54,  "LINE");
  addpoint((x[9]-4+3)/2.54,  (y[9]-2-1)/2.54,  "LINE");
  addpoint((x[9]-4)/2.54,  (y[9]-2)/2.54,  "LINE");
  addpoint((x[9]-4+3)/2.54,  (y[9]-2+1)/2.54,  "open");
  group_obj[4]=current_object;

  cont(9,24,109,-7);
  linecirc(109,24,5,17,0,105);
  current_object=newobject("poly");
  addpoint(x[109]/2.54,  y[109]/2.54,  "line");
  addpoint(x[105]/2.54,  y[105]/2.54,  "line");
  group_obj[5]=current_object;

  ang=angle(x[25],x[25],y[22],x[22])-angle(x[25],y[25],x[113],y[133]);
  rotate(133,25,ang);
  current_object=newobject("poly");
  addpoint(x[25]/2.54,  y[25]/2.54,  "LINE");
  addpoint(x[22]/2.54,  y[22]/2.54,  "LINE");
  group_obj[6]=current_object;

  if(sv>0)
    {

    offset_mark(1);
    select(current_selection,group_obj[2]);
    select(current_selection,group_obj[3]);
    select(current_selection,group_obj[4]);
    select(current_selection,group_obj[5]);
    select(current_selection,group_obj[6]);
    group(current_selection);
    deselect(current_selection);

    }

  else
    {
    mark(1);

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

    }

  double siirtox, siirtoy;
  siirtox=25;
  siirtoy=30;
  current_object=newobject("poly");
  addpoint((x[9]-siirtox)/2.54,  y[9]/2.54,  "line");
  addpoint((x[8]-siirtox)/2.54,  y[8]/2.54,  "xarc_start");
  addpoint((x[10]-siirtox)/2.54,  (y[10]-5)/2.54,  "xarc_corner");
  addpoint((x[19]-siirtox)/2.54,  y[19]/2.54,  "line");
  addpoint((x[5]-siirtox)/2.54,  y[5]/2.54,  "line");
  addpoint((x[124]-siirtox)/2.54,  y[124]/2.54,  "line");
  addpoint((x[24]-siirtox)/2.54,  y[24]/2.54,  "line");
  group_obj[7]=current_object;

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

  if(sv>0)
    {

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

  else
    {
    mark(7);

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

  current_object=newobject("poly");
  addpoint((x[9]-siirtox)/2.54,  (y[9]-siirtoy)/2.54,  "line");
  addpoint((x[8]-siirtox)/2.54,  (y[8]-siirtoy)/2.54,  "xarc_start");
  addpoint((x[10]-siirtox)/2.54,  (y[10]-5-siirtoy)/2.54,  "xarc_corner");
  addpoint((x[19]-siirtox)/2.54,  (y[19]-siirtoy)/2.54,  "line");
  addpoint((x[105]-siirtox)/2.54,  (y[105]-siirtoy)/2.54,  "line");
  addpoint((x[109]-siirtox)/2.54,  (y[109]-siirtoy)/2.54,  "line");
  group_obj[9]=current_object;

  current_object=newobject("poly");
  addpoint((x[9]-siirtox-5)/2.54,  (y[9]-siirtoy)/2.54,  "line");
  addpoint((x[9]-siirtox-5)/2.54,  (y[9]-siirtoy-15)/2.54,  "line");
  addpoint((x[9]-siirtox-5-1)/2.54,  (y[9]-siirtoy-15+3)/2.54,  "line");
  addpoint((x[9]-siirtox-5)/2.54,  (y[9]-siirtoy-15)/2.54,  "line");
  addpoint((x[9]-siirtox-5+1)/2.54,  (y[9]-siirtoy-15+3)/2.54,  "open");
  group_obj[10]=current_object;

  if(sv>0)
    {

    offset_mark(9);
    select(current_selection,group_obj[10]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(9);

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

  coord(8,28,aly/20+1,aly/20-1);
  coord(28,29,-aly/4,-(aly/20-1));
  coord(15,31,2,0);
  coord(17,32,2,0);
  coord(16,33,-2,0);
  coord(18,34,-2,0);
  coord(9,36,1.5+1.5,aly/20-1.5);
  coord(36,37,-vy/4,-(aly/20-1.5)+1);
  coord(20,38,aly/20,-1);
  coord(20,39,0,-1);
  coord(39,40,-aly/20,0);
  coord(33,41,-1,dist(33,29)/2);
  coord(31,42,0,dist(31,38)/2);

  current_object=newobject("poly");
  addpoint((x[32]+aly/2)/2.54, (y[32])/2.54, "line");
  addpoint((x[31]+aly/2)/2.54, (y[31])/2.54, "xarc_start");
  addpoint((x[42]+aly/2)/2.54, (y[42])/2.54, "XARC_CORNER");
  addpoint((x[38]+aly/2)/2.54, (y[38])/2.54, "line");
  addpoint((x[39]+aly/2)/2.54, (y[39])/2.54, "xarc_start");
  addpoint((x[40]+aly/2)/2.54, (y[40])/2.54, "xarc_corner");

  addpoint((x[28]+aly/2)/2.54, (y[28])/2.54, "line");
  addpoint((x[36]+aly/2)/2.54, (y[36])/2.54, "line");
  addpoint((x[37]+aly/2)/2.54, (y[37])/2.54, "line");
  addpoint((x[29]+aly/2)/2.54, (y[29])/2.54, "xarc_start");
  addpoint((x[41]+aly/2)/2.54, (y[41])/2.54, "xarc_corner");
  addpoint((x[33]+aly/2)/2.54, (y[33])/2.54, "line");
  addpoint((x[34]+aly/2)/2.54, (y[34])/2.54, "line");
  addpoint((x[12]+aly/2)/2.54, (y[12])/2.54, "line");
  group_obj[11]=current_object;

  current_object=newobject("poly");
  addpoint((x[12]+aly/2)/2.54,  (y[12])/2.54,  "LINE");
  addpoint((x[8]+aly/2)/2.54,  (y[36]-1)/2.54,  "LINE");
  group_obj[12]=current_object;

  if(sv>0)
    {

    offset_mark(11);
    select(current_selection,group_obj[12]);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(11);

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

  current_object=newobject("poly");
  addpoint((x[24])/2.54, (y[37]+4)/2.54, "line");
  addpoint((x[24]+vy)/2.54, (y[37]+4)/2.54, "line");
  addpoint((x[24]+vy)/2.54, (y[37]+4+7)/2.54, "line");
  addpoint((x[24])/2.54, (y[37]+4+7)/2.54, "line");
  group_obj[13]=current_object;

  if(sv>0)
    {

    offset_mark(13);
    group(current_selection);
    deselect(current_selection);
    }

  else
    {
    mark(13);

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

  current_selection=newselection("OBJECT");

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

  check_overlap(current_selection);

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

  deselect(current_selection);

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

  run_command("zoomall");

  }

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

// lines here under were removed; ENG
//  newobj_dot2(double x, double y)
//   {
//    object temp;
//    line("CENTER_LINE");
//    temp = NEWOBJECT ("POLY");
//    addpoint(x, y, "line");
//    line("SOLID_LINE");
//    return temp;
//    }

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

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

line_intersect(double start1, double end1, double start2, double end2, double dest)
  {
  double tempx;
  double tempy;

  intersect(x[start1],y[start1],x[end1],y[end1],x[start2],y[start2],x[end2],y[end2],0);
  x[dest]=getresultx();
  y[dest]=getresulty();
  }

cont(double cstart, double cend, double cdest, double cvdistanceance)
  {
  double ang;

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

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

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

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

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

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

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

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

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

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

  }

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

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

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

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

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

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

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

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

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

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

    }

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

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

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