%Черепаха (вид сверху) (14x10) - центр в центре брюшка
picture Turtle; Turtle:=nullpicture;
addto Turtle doublepath (-3.5,-2.5)..(-4.2,-4.5)..(-3.7,-5)..(-2.4,-4)..(-2,-3.5)
withpen pencircle scaled 0.4;
addto Turtle doublepath (-3.5,2.5)..(-4.2,4.5)..(-3.7,5)..(-2.4,4)..(-2,3.5)
withpen pencircle scaled 0.4;
addto Turtle doublepath (3.5,-2.5)..(4.2,-4.5)..(3.7,-5)..(2.4,-4)..(2,-3.5)
withpen pencircle scaled 0.4;
addto Turtle doublepath (3.5,2.5)..(4.2,4.5)..(3.7,5)..(2.4,4)..(2,3.5)
withpen pencircle scaled 0.4;
addto Turtle contour (4.5,1.5)..(7,1.5)..(8,0)..(7,-1.5)..(4.5,-1.5)--cycle
withcolor white;
addto Turtle doublepath (4.5,1.5)..(7,1.5)..(8,0)..(7,-1.5)..(4.5,-1.5)
withpen pencircle scaled 0.4;
addto Turtle contour (-5,0){dir 90}..{dir 0}(0,3.5){dir0}..
{dir -90}(5,0){dir -90}..{dir 180}(0,-3.5){dir 180}..{dir 90}cycle
withcolor white;
addto Turtle doublepath (-5,0){dir 90}..{dir 0}(0,3.5){dir0}..
{dir -90}(5,0){dir -90}..{dir 180}(0,-3.5){dir 180}..{dir 90}cycle
withpen pencircle scaled 0.4;
addto Turtle doublepath (6.5,.5) withpen pencircle scaled 0.8;
addto Turtle doublepath (6.5,-.5) withpen pencircle scaled 0.8;
addto Turtle doublepath (-5,0.5)--(-6.5,0)--(-5,-0.5)
withpen pencircle scaled 0.4;
addto Turtle doublepath (0,2.5)..(0,0)..(0,-2.5)
withpen pencircle scaled 0.3;
addto Turtle doublepath (-2.4,2.4)..(-2,0)..(-2.4,-2.4)
withpen pencircle scaled 0.3;
addto Turtle doublepath (2.4,2.4)..(2,0)..(2.4,-2.4)
withpen pencircle scaled 0.3;
addto Turtle doublepath (-3,1.5)..(0,1)..(3,1.5)
withpen pencircle scaled 0.3;
addto Turtle doublepath (-3,-1.5)..(0,-1)..(3,-1.5)
withpen pencircle scaled 0.3;
beginfig(2) ;
numeric u;u:=1mm;
for i:=0 upto 8:
draw (Turtle scaled 1u rotated 45) shifted (2*i*20u,0);
draw (Turtle scaled 1u rotated -45) shifted ((2*i+1)*20u,0);
draw (Turtle scaled 1u rotated 45) shifted ((2*i+1)*20u,20u);
draw (Turtle scaled 1u rotated -45) shifted ((2*i)*20u,20u);
endfor;
endfig;