/punto { gsave 2 0 360 newpath arc fill stroke grestore} def /linea {gsave 4 2 roll moveto lineto stroke grestore} def /origine1assexper2pilacon|P_2-P_1| { 4 2 roll 2 copy translate exch 4 1 roll sub 3 1 roll exch sub 2 copy atan rotate 2 copy exch 4 1 roll mul 3 1 roll mul add sqrt } def /punta0 {0 0 moveto dup dup 0 exch 2 div lineto 0 lineto 0 exch 2 div neg lineto 0 0 lineto fill stroke } def /dirpunta{% x1 y1 x2 y2 gsave origine1assexper2pilacon|P_2-P_1| 0 translate 7 punta0 grestore} def /frecciac {0 index 3 index add 2 div 4 index 3 index add 2 div exch 4 2 roll 5 index 5 index linea dirpunta} def gsave 0.83333 0.83333 scale 0 90 punto 70 90 punto 120 60 punto 180 30 punto 160 130 punto 200 110 punto 240 170 punto 240 130 punto 240 90 punto 240 0 punto 240 30 punto 200 60 punto 240 70 punto 240 50 punto 70 90 0 90 frecciac 120 60 70 90 frecciac 160 130 70 90 frecciac 200 110 160 130 frecciac 240 170 160 130 frecciac 240 130 200 110 frecciac 240 90 200 110 frecciac 180 30 120 60 frecciac 240 0 180 30 frecciac %240 0 120 60 frecciac 240 30 120 60 frecciac 200 60 120 60 frecciac 240 70 200 60 frecciac 240 50 200 60 frecciac grestore