Présentation de linecap.jps

Retour Texte non formaté Éditer PostScript

/syracuse/texpng/jpv/guide_jps/linecap.jpg


-1 5 setyrange
-4.5 4 setxrange

/A {-4 4} def
/B {2 4} def
/C {3.5 4} def

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

setTimes

0 setlinecap
trace
0 -2 stranslate
1 setlinecap
trace
0 -2 stranslate
2 setlinecap
trace