input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 0 ) ; pair zaaac ; zaaac = ( 1cm , 0 ) ; pair zaaad ; zaaad = ( 0 , 1cm ) ; path paaae ; paaae:=zaaab -- zaaac; path paaaf ; paaaf:=zaaac -- zaaad; path paaag ; paaag:=zaaad -- zaaab; pen qaaah ; qaaah = pencircle scaled 2bp ; color caaai ; caaai = 0.79998779296875 * white; draw paaae withcolor caaai withpen qaaah ; pen qaaaj ; color caaak ; caaak = 0.5999908447265625 * white; draw paaaf withcolor caaak withpen qaaah ; pen qaaal ; color caaam ; caaam = 0.399993896484375 * white; draw paaag withcolor caaam withpen qaaah ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;