/puntox {% x P1 P2 puntox : punto su segmento P1 P2 a frazione x /y2 exch def /x2 exch def /y1 exch def /x1 exch def /x exch def x1 x2 x1 sub x mul add y1 y2 y1 sub x mul add} 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 /puntatore {%P1 P2 puntatore (da P2 a P1) 4 copy 4 copy 4 copy 4 copy dirpunta 4 2 roll moveto lineto stroke} def /punto { % x y punto gsave 1.5 0 360 newpath arc fill stroke grestore} def /linea { %x1 y1 x2 y2 gsave 4 2 roll moveto lineto stroke grestore} def /Freccia{% xx XY1 XY22 : da P2 a P1 a distanza x /y2 exch def /x2 exch def /y1 exch def /x1 exch def /xx exch def /XY2 {x2 y2} def /XY1 {x1 y1} def XY2 xx XY1 XY2 puntox puntatore XY1 XY2 linea} def %/P1 {0 0} def %/P2 {100 100} def %/x {.5} def % %Freccia /linea { %x1 y1 x2 y2 gsave moveto lineto stroke grestore} def /tlinea {gsave 4 2 roll moveto lineto [4 4] 2 setdash stroke [] 0 setdash grestore} def /espressione{% ################1_################2 P /y exch def /x exch def /Symbols findfont 8 scalefont setfont x y moveto exch show x 5 add y 3 sub moveto /Symbols findfont 6 scalefont setfont show /Symbols findfont 8 scalefont setfont} def % esempio (a) (b) 100 100 espressione %/Times-Roman findfont 12 scalefont setfont %j=\varphi c=\ch q=\th w=\o y=\psi f=\phi /TR {/FO exch def /Times-Roman findfont FO scalefont setfont} def /SI {/FO exch def /Symbols findfont FO scalefont setfont} def /TRB {/FO exch def /Times-Roman-Bold findfont FO scalefont setfont} def /L {90} def /H {80} def /P0 {20 H 2 div} def /P1 {L H 2 div} def /P2 {L 2 mul H} def /P3 {L 2 mul 0} def /P4 {3 5 div P1 P2 puntox} def /P6 {1 6 div P2 P3 puntox} def /P7 {2 6 div P2 P3 puntox} def /P8 {3 6 div P2 P3 puntox} def /P9 {4 6 div P2 P3 puntox} def /P10 {5 6 div P2 P3 puntox} def /P5 {0.5 P1 P7 puntox} def /P11 {0.5 P1 P3 puntox} def gsave %100 100 translate 0.5 P0 P1 Freccia 0.5 P4 P2 Freccia 0.5 P1 P4 Freccia 0.7 P4 P6 Freccia 0.8 P1 P5 Freccia 0.7 P5 P7 Freccia 0.7 P5 P8 Freccia 0.7 P5 P9 Freccia 0.7 P5 P10 Freccia 0.5 P1 P11 Freccia 0.5 P11 P3 Freccia P11 punto P1 punto P2 punto P3 punto P4 punto P5 punto P6 punto P7 punto P8 punto P9 punto P10 punto grestore