Présentation de draw_arrow_02.jps

%autocrop
-.8 2.5 setxrange
-.3 2.3 setyrange
60 setxunit

/ahcoeff 1 def
/ahlength 30 def

/A {1.5 .95} def
/B {1 1} def

5 setlinewidth
rouge
[0 0 .. .5 1 .. {B A vecteur}  B] (->) 
2 copy draw
.3 setlinewidth
/savefill {fill} bind def
blanc
/fill {} def
draw
/path1 arrowpath1 def
/fill {savefill} bind def


/d1 {B A A ahangle 2 div rotatedroite} def
/d2 {B A A ahangle -2 div rotatedroite} def

noir
%[A B] {times} plot
d1 droite
d2 droite

/ahlength 6 def

%bleu 
1 setlinewidth
/ppath1 
   path1
   B ahangle 2 div rotatepath 
   d1 orthoprojpath
def

/ppath2 
   path1
   B ahangle -2 div rotatepath 
   d2 orthoprojpath
def

ppath1 (<->) drawpath
ppath2 (<->) drawpath

2 d1 xdpoint /C defpoint
2 d2 xdpoint /D defpoint
D A C .3 tripointarc

setTimes
(ahangle) -5 A .3 cpoint {-7} crtext
(ahlength) 50 ppath1 normalizepath pathpoint {13} dctext
(ahlength) 50 ppath2 normalizepath pathpoint {-22} uctext

boxit
(ahcoeff = 1) 1 0 cctext