%!PS-Adobe-3.0

/inch {72 mul} def
/cm {28.346457 mul} def
/mm {2.8346457 mul} def

/Times-Roman findfont
12 scalefont setfont					% Schriftgroesse

%%% Beginn Pfeil rechts rum gedreht
newpath

0.5 setlinewidth					% Linienbreite
0 setgray						% schwarz

/pfeil-laenge-p {2 cm} def   				% positive Länge des Pfeiles
/pfeil-breite-p {1 cm} def   				% positive Breite des Pfeiles

/pfeil-laenge-n {0 pfeil-laenge-p sub} def   		% negative Länge des Pfeiles
/pfeil-breite-n {0 pfeil-breite-p sub} def  		% negative Breite des Pfeiles
/pfeil-breite-halbe-p {pfeil-breite-p 0.5 mul} def   	% positive halbe Breite des Pfeiles
/pfeil-breite-halbe-n {pfeil-breite-n 0.5 mul} def   	% negative halbe Breite des Pfeiles

4 cm 27 cm moveto					% zum Drtehmittelpunkt gehen
-45 rotate						% um -45° (rechts rum bzw. im Uhrzeigersinn) drehen
-3 cm 0 cm rmoveto					% den Pfeil um 3 cm nach links verschieben
0 pfeil-breite-halbe-p rlineto				% eine halbe Pfeilbreite nach oben
pfeil-laenge-p 0 rlineto				% um die Pfeillänge nach rechts
0 pfeil-breite-halbe-p rlineto				% eine halbe Pfeilbreite nach oben (1. Teil der Pfeilspitze)
pfeil-breite-p pfeil-breite-n rlineto			% schräg nach rechts unten (2. Teil der Pfeilspitze)
pfeil-breite-n pfeil-breite-n rlineto			% schräg nach links unten (3. Teil der Pfeilspitze)
0 pfeil-breite-halbe-p rlineto				% eine halbe Pfeilbreite nach oben (4. Teil der Pfeilspitze)
pfeil-laenge-n 0 rlineto				% um die Pfeillänge nach links
0 pfeil-breite-halbe-p rlineto				% eine halbe Pfeilbreite nach oben
45 rotate						% wieder in die Ausgangslage zurückdrehen

%%% Ende Pfeil rechts rum gedreht
closepath
stroke