if unknown mode: mode:= localfont; fi
if unknown mag: mag:=1000/1000; fi
if unknown grafbase: input grafbase; fi
gcode:=0;

mftitle "Flower of eight petals.";

unitlen:=1.0pt#;
xscale:=1; yscale:=1;
xneg:=-50; xpos:=50;
yneg:=-50; ypos:=50;
beginmfpic (incr gcode);

penwd := 0.3pt;
drawpen := pencircle scaled penwd yscaled aspect_ratio;

store (curpath)
filled
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
drawn
bclosed
polyline (false) ((30,10),(0,0),(10,30));

store (curpath)
shade (1.0pt)
hide (apply_t (rotatedaround ((0,0), 45));)
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
thatch (3.0pt, 45 deg) thatch (3.0pt, -45 deg)
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
filled
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
drawn
bclosed
polyline (false) ((30,10),(0,0),(10,30));

store (curpath)
shade (1.0pt)
hide (apply_t (rotatedaround ((0,0), 45));)
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
thatch (3.0pt, 45 deg) thatch (3.0pt, -45 deg)
bclosed
polyline (false) ((30,10),(0,0),(10,30));

endmfpic;


unitlen:=1.0pt#;
xscale:=1; yscale:=1;
xneg:=-50; xpos:=50;
yneg:=-50; ypos:=50;
beginmfpic (incr gcode);

penwd := 0.3pt;
drawpen := pencircle scaled penwd yscaled aspect_ratio;

bcoords


store (curpath)
filled
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
drawn
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
shade (1.0pt)
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
thatch (3.0pt, 45 deg) thatch (3.0pt, -45 deg)
bclosed
polyline (false) ((30,10),(0,0),(10,30));

ecoords

hide (apply_t (rotatedaround ((0,0), 180));)

bcoords


store (curpath)
filled
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
drawn
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
shade (1.0pt)
bclosed
polyline (false) ((30,10),(0,0),(10,30));
hide (apply_t (rotatedaround ((0,0), 45));)

store (curpath)
thatch (3.0pt, 45 deg) thatch (3.0pt, -45 deg)
bclosed
polyline (false) ((30,10),(0,0),(10,30));

ecoords


endmfpic;


end.