% Ein Smiley
prologues := 1;
beginfig(1);
   l := 2in; % Radius des Gesichts
   pickup pencircle scaled 5pt;
   path circle;
   circle := (-1,0) .. (0,1) .. (1,0) .. (0,-1) .. cycle;
   draw circle scaled l; % Gesicht
   draw (-0.6l,0) .. (0,-0.6l) .. (0.6l,0); % Mund
   % linkes Auge
   draw circle scaled 0.1l shifted (-0.6l,0.3l);
   % rechtes Auge
   draw circle scaled 0.1l shifted (+0.6l,0.3l);
endfig;
end.