input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( -1.5cm , -1.5cm ) ; pair zaaac ; zaaac = ( 1.5cm , -1.5cm ) ; pair zaaad ; zaaad = ( 1.5cm , 1.5cm ) ; pair zaaae ; zaaae = ( -1.5cm , 1.5cm ) ; path paaaf ; paaaf:=zaaab -- zaaad -- zaaac -- zaaae -- cycle; color caaag ; caaag = 0.79998779296875 * white; fill paaaf withcolor caaag ; pair zaaah ; zaaah = ( -1.5cm , 0 ) ; pair zaaai ; zaaai = ( 1.5cm , 0 ) ; path paaaj ; paaaj:=zaaah -- zaaai; draw paaaj ; pair zaaak ; zaaak = ( 0 , -1.5cm ) ; pair zaaal ; zaaal = ( 0 , 1.5cm ) ; path paaam ; paaam:=zaaak -- zaaal; draw paaam ; pair zaaan ; zaaan = ( 0 , 0 ) ; pair zaaao ; zaaao = ( 1cm , 0 ) ; path paaap ; paaap:=zaaan -- zaaao; pen qaaaq ; qaaaq = pencircle scaled 2bp ; drawarrow paaap withpen qaaaq ; pair zaaar ; zaaar = ( 0 , 1cm ) ; path paaas ; paaas:=zaaan -- zaaar; drawarrow paaas withpen qaaaq ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;