prologue := 1; filenametemplate "kame.eps"; beginfig(1); path p[]; w = .76in; h = 0.5w; z0 = (1w,0); z1 = (0.8w,1h); z2 = (-0.8w,1h); z3 = (-1w,0); z4 = (0.4w,0.7h); z5 = (-0.4w,0.7h); p1 = z0{up}..z1..z2..{down}z3{dir -90}.. tension 2 .. {dir 90}z0; p2 = z3{dir -30}.. tension 1 ..{dir 30}z0; p3 = z1 -- z4 -- z5 -- z2; z100 = (0,5h); z101 = (0,3h); y99 = y98 = -3h; z98 = whatever[z100,z4]; z99 = whatever[z100,z5]; z6 = (z98..z100) intersectionpoint p2; z7 = (z99..z100) intersectionpoint p2; z8 = (z4..z101) intersectionpoint p1; z9 = (z5..z101) intersectionpoint p1; p4 = (0,.3h)..tension 2..(.2w,-.4h)..tension 1..(-.2w,-.4h).. tension 2 ..cycle; % ---- let's draw ---- pickup pencircle scaled .04w; % body draw p1; draw p2; draw p3; draw z8--z4--z6; draw z9--z5--z7; % tail fill p4 rotated 90 yscaled .4 shifted (-1.3w, -.2h) withcolor white; draw p4 rotated 90 yscaled .4 shifted (-1.3w, -.2h); % head fill p4 rotated 90 scaled 1.2 shifted ( 1w,-.2h) withcolor white; draw p4 rotated 90 scaled 1.2 shifted ( 1w,-.2h); % back foot fill p4 rotated -30 shifted (-.9w,-.5h) withcolor white; draw p4 rotated -30 shifted (-.9w,-.5h); % fore foot fill p4 rotated 30 shifted ( .8w,-.5h) withcolor white; draw p4 rotated 30 shifted ( .8w,-.5h); % eye fill fullcircle scaled .1w shifted (1.3w,-.1h); endfig; end.