Présentation de linejoin.jps

-8 6 setyrange
-3.5 16 setxrange

/ag 1.3 def

/A {-3 1} def
/B {0 4} def
/C {3 1} def
/D {4 3} def

/chaine 2 string def
/trace {
   30 setlinewidth
   [A B C] ligne
   blanc 
   .5 setlinewidth
   [A B] (*-*) ligne
   [B C] (*-*) ligne
   noir
   currentlinejoin chaine cvs D [ag dup] cctext
} def

setTimes

/u {1 0} def
0 setlinejoin
trace
( jointure en flèche) D u addv [ag dup] crtext
0 -4 stranslate
1 setlinejoin
trace
( jointure ronde) D u addv [ag dup] crtext
0 -4 stranslate
2 setlinejoin
trace
( jointure carrée) D u addv [ag dup] crtext