% ** 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.
{3 7 lineto 5 3 lineto closepath}
0.5 setlinewidth 1 0 0 setrgbcolor stroke
% Exercise the miter limit. The lower row of lines should bevel at
% 90 degrees, the upper at 60 degrees.
{ setmiterlimit 0 10 translate 0 0 moveto
{ gsave 2.5 0 rlineto rotate 2.5 0 rlineto stroke grestore
% Here are some boundary conditions, contributed by Mark Rawling.
% [ 0.5 sqrt dup dup dup neg exch 0 0 ] concat % 45 rotate
0 0 moveto 0 10 lineto 10 0 lineto gsave stroke grestore
0 0 moveto 0 10 lineto 10 20 lineto gsave stroke grestore
10 0 moveto 10 10 lineto 0 20 lineto gsave stroke grestore
10 0 moveto 10 10 lineto 0 0 lineto gsave stroke grestore
0 20 moveto 0 10 lineto 10 20 lineto gsave stroke grestore
0 20 moveto 0 10 lineto 10 0 lineto gsave stroke grestore
10 20 moveto 10 10 lineto 0 0 lineto gsave stroke grestore
10 20 moveto 10 10 lineto 0 20 lineto gsave stroke grestore