body1={{0,0},{5,10}, {6,16},{3,17}, {-3,15},{-8,16},{-9,18},{-7,30},{-9,35},{-14,39},{-15,47},{-14.75,48},{-14,49},{-14,52},{-14.5,54},{-15,56},{-17,58},{-12,59},{-8,61},{-4,62},{1,61},{7,63},{10,62},{9,56},{4,46},{6,44},{6.5,42},{7,40},{7,37},{6.25,36},{6,35},{7,27},{12,22},{14,18},{12,6},{13,4},{9,3},{5,1},{0,0}}    (*Outline of the Pinup Girl*)


h18[{x_,y_}]:={x,y}+{18,0};

hr17[{x_,y_}]:={x,y}+{-(17/7),(58/7)};  (*Translation of the girl to contact points*)
hr14[{x_,y_}]:={x,y}+{(4/7),(46/7)};

HR17[fg_]:=hr17 /@ fg;
HR14[fg_]:=hr14 /@ fg;


crk=N[Table[{(1/20)Cos[i(π/10)],(1/20)Sin[i(π/10)]},{i,1,20}]];

body=(1/7){{0,0},{5,10}, {6,16},{3,17}, {-3,15},{-8,16},{-9,18},{-7,30},{-9,34},{-14,39},{-15,47},{-14.75,48},{-14,49},{-14,52},{-14.5,54},{-15,56},{-17,58},{-12,59},{-8,61},{-4,62}}; (*Changing the body so it will not make dubble lines*)

LegLine=(1/7){{6,3},{11,11}};  (*Inner engraving*)
LegLine2=(1/7){{-3,24},{9,22}};(*Inner engraving*)
BellyLine=(1/7){{1,26},{2,31},{1.5,35}};(*Inner engraving*)
BreastLine1=(1/7){{3,37.5},{2,35.5},{1,35},{0,34.5},{-2,35},{-3.2,36},{-4, 36.7},{-4.7,37.5},{-5.2,38},{-5.8, 39.5},{-6.5,41},{-7,42}};(*Inner engraving*)
BreastLine2= (1/7){{0,43},{2.5,40.5}, {3,38},{3,37},{4,35.7},{5,35.2},{5.5,35.5},{6,36}};(*Inner engraving*)
ArmLine1=(1/7){{-2,47},{3,56},{-2,55},{-3,52},{-4,50},{-2, 47}};(*Inner engraving*)
ArmLine2=(1/7){{-9,44},{-9,47},{-9.5,48},{-9,51},{-9,54},{-10,57},{-12,59}}(*Inner engraving*)
HeadLine1=(1/7){{-10,57},{-7,57.5},{-5,57},{-2,56},{-2,55}, {-1,57},{-3,59}}(*Inner engraving*)
HeadLine2=(1/7){{-9.5,48},{-7,47},{-4,50}}(*Inner engraving*)
Nippel1=(1/7){{0,39.5},{-.5,39},{-0.5,38},{.5, 37.5},{.5,37.5},{1,38},{1,39},{0,39.5}}(*Inner engraving*)
Nippel2=(1/7){{5.5,40},{5,39.5},{5.2,39},{5.5,38.7},{6,39},{6,39.5},{5.5,40}}(*Inner engraving*)
Mouth=(1/7){{-9.2,50},{-6.8,50.2}}(*Inner engraving*)
Nouse=(1/7){{-7.5,52},{-8.5,51.5},{-8,54}}(*Inner engraving*)
Eye=(1/7){{-7.2,54.5},{-5.3,54.5}}(*Inner engraving*)
(*Show[Graphics[Line[body]]]*)
AantalHorizontaal = 10; (*Number of horizontal women*)
AantalVerticaal = 10;(*Number of vertical women*)
h=AantalHorizontaal-1;
v=AantalVerticaal-1;
t1[{x_,y_}]:={x,y}+{d1,0};
t2[{x_,y_}]:={x,y}+{0,d2};

T1[fg_]:=t1 /@ fg;
T2[fg_]:=t2 /@ fg;
grid:=Table[Line[Nest[HR17,Nest[HR14,crk,i],j]],{i,0,h},{j,0,v}]; (*placing the drawings into the tables*)
w1:=Table[Line[Nest[HR17,Nest[HR14,body,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w2:=Table[Line[Nest[HR17,Nest[HR14,LegLine, i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w3:=Table[Line[Nest[HR17,Nest[HR14,LegLine2,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w4:=Table[Line[Nest[HR17,Nest[HR14,BellyLine,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w5:=Table[Line[Nest[HR17,Nest[HR14,BreastLine1,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w6:=Table[Line[Nest[HR17,Nest[HR14,BreastLine2,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w7:=Table[Line[Nest[HR17,Nest[HR14,ArmLine1,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w8:=Table[Line[Nest[HR17,Nest[HR14,ArmLine2,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w9:=Table[Line[Nest[HR17,Nest[HR14,HeadLine1,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w10:=Table[Line[Nest[HR17,Nest[HR14,HeadLine2,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w11:=Table[Line[Nest[HR17,Nest[HR14,Nippel1,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w12:=Table[Line[Nest[HR17,Nest[HR14,Nippel2,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w13:=Table[Line[Nest[HR17,Nest[HR14,Mouth,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w14:=Table[Line[Nest[HR17,Nest[HR14,Nouse,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
w15:=Table[Line[Nest[HR17,Nest[HR14,Eye,i],j]],{i,0,h},{j,0,v}];(*placing the drawings into the tables*)
Show[Graphics[{Red, w1,w7, Black,w2,w3,w4,w5,w6,w8,w9,w10,w11,w12,w13,w14,w15}]](*showing the drawings into the tables, in the correct collors for the lasercutter*)
Export["Pinup.eps",Graphics[{w1,w7,w2,w3,w4,w5,w6,w8,w9,w10,w11,w12,w13,w14,w15}]](*exporting .eps*)(*placing the drawings into the tables*)

(*Show[Graphics[Line[body]]]*)
armknee1={{0,0},{5,10}, {6,16},{3,17}, {-3,16},{-8,17}};
endArmKnee1[{x_,y_}]:={x,y}+{4, 45};
ArmKnee1 = armknee1
ArmKnee2=endArmKnee1/@armknee1

kneeback={{0,0}, {-1,2}, {1,14},{-1,18},{-6,23}, {-7,31}}
endKneeBack1[{x_,y_}]:={x,y}+{-8, 17};
endKneeBack2[{x_,y_}]:={x,y}+{13, 4};
KneeBack1= endKneeBack1/@kneeback;
KneeBack2= endKneeBack2/@kneeback;

breast={{0,0},{.25,1},{1,2},{1,5},{.5,7},{0,9},{-2,10}}
endKneeBack1[{x_,y_}]:={x,y}+{-15,48}
endKneeBack2[{x_,y_}]:={x,y}+{6,35}
Breast1=endKneeBack1/@breast;
Breast2=endKneeBack2/@breast;

head1={{0,0},{5,1},{9,3},{13,4}};
endHead2[{x_,y_}]:={x,y}+{-17,58}
Head2=endHead2/@head1
Head1=head1

LegLine1={{6,3},{11,7}}
LegLine2={{-2,24},{11,22}}
BellyLine={{2,26},{3,35}}
BreastLine1={{3,39},{2,37.5},{2,37.5},{1,37},{0,36.8},{-1,36.8},{-2, 37},{-3.75,38},{-4.5, 39},{-5,40},{-5,42}}
BreastLine2={{0,43}, {2,42},{3,39},{4,38},{5,38},{7,39}}
Arm={{-5,42},{-5,45},{-6,46},{-5.5, 49},{-6,52},{-7,55},{-9, 57},{-7,55},{-4, 55.5},{-1, 55},{2, 53},{1,50},{0,48},{-2,46.5},{-4,44},{-6, 45},{-4,44},{-2,46.5},{0,48},{2,45},{7, 54},{2,53},{2,56},{0,59}}
Pinup = {ArmKnee1, KneeBack1, Breast1, Head2, ArmKnee2,KneeBack2, Breast2,Head1,LegLine1, LegLine2, BellyLine, BreastLine1, BreastLine2, Arm};
InnerLine={LegLine1, LegLine2, BellyLine, BreastLine1, BreastLine2}
Show[Graphics[Line[Pinup]]]