Présentation de linecap.jps

/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