Anonymous user
Pentagram: Difference between revisions
→{{header|PostScript}}: show different fill styles
m (J) |
(→{{header|PostScript}}: show different fill styles) |
||
Line 103:
=={{header|PostScript}}==
<lang postscript>%!PS-Adobe-3.0 EPSF
%%BoundingBox: 0 0
/n 5 def % 5-star; can be set to other odd numbers
/s { gsave } def
/r { grestore } def
180 90 n div sub rotate▼
/g { .7 setgray } def
/t { 100 exch translate } def
0 0 moveto▼
▲ 180 90 n div sub rotate
▲ 0 0 moveto
n { 0 160 rlineto 180 180 n div sub rotate } repeat
closepath▼
} def
▲closepath
s 570 t p s g eofill r stroke r % even-odd fill
s 370 t p s g fill r stroke r % non-zero fill
s 170 t p s 2 setlinewidth stroke r g fill r % non-zero, but hide inner strokes
%%EOF</lang>
| |||