%Черепаха (вид сверху) (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;