| % ** Copyright (C) 1989, 1990 by Aladdin Enterprises. All rights reserved. ** |
| |
| % Test line rendering (stroke). |
| |
| % Exercise all the combinations of cap and join styles |
| % for one-line, two-line, and closed paths. |
| |
| gsave |
| 2.0 setmiterlimit |
| 2.0 setlinewidth |
| 6 6 scale |
| |
| 5 20 translate |
| {0 1 2} % line cap |
| { setlinecap gsave |
| {0 1 2} % line join |
| { setlinejoin gsave |
| { {3 7 lineto} |
| {3 7 lineto 5 1 lineto} |
| {3 7 lineto 5 3 lineto closepath} |
| } |
| { gsave 0 0 moveto exec |
| gsave stroke grestore |
| 0.5 setlinewidth 1 0 0 setrgbcolor stroke |
| grestore 10 0 translate |
| } forall |
| grestore 35 0 translate |
| } forall |
| grestore 0 10 translate |
| } forall |
| |
| showpage |
| grestore |
| |
| % Exercise the miter limit. The lower row of lines should bevel at |
| % 90 degrees, the upper at 60 degrees. |
| |
| gsave |
| 1.5 setlinewidth |
| 0 setgray |
| 6 6 scale |
| 5 20 translate |
| [1.415 2.0] |
| { setmiterlimit 0 10 translate 0 0 moveto |
| 5 30 360 |
| { gsave 2.5 0 rlineto rotate 2.5 0 rlineto stroke grestore |
| 6.5 0 rmoveto |
| } for |
| } forall |
| |
| showpage |
| grestore |
| |
| % Here are some boundary conditions, contributed by Mark Rawling. |
| |
| gsave |
| 1 setlinecap |
| 2.6 setmiterlimit |
| 3.0 setlinewidth |
| |
| 5 5 scale |
| 10 20 translate |
| |
| %{0 1 2} % line join |
| {0} % line join |
| { |
| setlinejoin gsave |
| 0 0 moveto 0 10 lineto 10 0 lineto gsave stroke grestore |
| 15 0 translate |
| 0 0 moveto 0 10 lineto 10 20 lineto gsave stroke grestore |
| 15 0 translate |
| 10 0 moveto 10 10 lineto 0 20 lineto gsave stroke grestore |
| 15 0 translate |
| 10 0 moveto 10 10 lineto 0 0 lineto gsave stroke grestore |
| grestore |
| gsave |
| 0 20 translate |
| 0 20 moveto 0 10 lineto 10 20 lineto gsave stroke grestore |
| 15 0 translate |
| 0 20 moveto 0 10 lineto 10 0 lineto gsave stroke grestore |
| 15 0 translate |
| 10 20 moveto 10 10 lineto 0 0 lineto gsave stroke grestore |
| 15 0 translate |
| 10 20 moveto 10 10 lineto 0 20 lineto gsave stroke grestore |
| grestore 20 0 translate |
| } forall |
| |
| showpage |
| grestore |