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 = dir 60.0 ; pair zaaad ; zaaad = 1cm * zaaac; pair zaaae ; zaaae = dir -60.0 ; pair zaaaf ; zaaaf = 1cm * zaaae; numeric xaaag ; xaaag = 2.0 * 1cm; pair zaaah ; zaaah = ( xaaag , 0 ) ; pen qaaai ; qaaai = pencircle scaled 4bp ; draw zaaab withpen qaaai ; pen qaaaj ; draw zaaad withpen qaaai ; pen qaaak ; draw zaaaf withpen qaaai ; pen qaaal ; draw zaaah withpen qaaai ; path paaam ; paaam:=zaaab -- zaaah -- zaaad -- zaaah -- zaaaf; draw paaam ; path paaan ; paaan:=zaaab { up } .. zaaad ; path paaao ; paaao:=zaaab { down } .. zaaaf ; pair zaaap ; zaaap = dir 30.0 ; path paaaq ; paaaq:=zaaab { zaaap } .. zaaad ; pair zaaar ; zaaar = dir -30.0 ; path paaas ; paaas:=zaaab { zaaar } .. zaaaf ; draw paaan ; draw paaao ; draw paaaq ; draw paaas ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;