![]() |
How the star is drawn.
Version of 3 July 2011. Home. |
The following Adobe PostScript code produces the 17-pointed star appearing on each page:
%!PS-Adobe-3.0
/G 17 def
/P 5 def
/D G P sub def
/R D P div def
/Size G 0.25 add def
<< /PageSize [ Size 3 mul dup ] >> setpagedevice
1.5 dup scale
Size dup translate
0.2 0.5 0.6 setrgbcolor
G 0 moveto
0 1 360 P mul {
/N exch def
/XL D N cos mul def
/YL D N sin mul def
/XR R N mul cos P mul def
/YR R N mul sin P mul def
/XT XL XR add G div def
/YT YL YR sub G div def
/AT YT XT atan def
/RT XT dup mul YT dup mul add sqrt def
/ST RT log 1.6 mul 10 exch exp def
/XQ ST AT cos mul G mul def
/YQ ST AT sin mul G mul def
XQ YQ lineto
} for
closepath
eofill
showpage