%!PS-Adobe-2.0 % % basic macros -------------------------------------------------------- /BD {bind def} bind def /cm {2.54 div 72 mul} BD /SL {setlinewidth} BD /SRGB {setrgbcolor} BD /M {moveto} BD /RM {rmoveto} BD /L {lineto} BD /RL {rlineto} BD /GS {gsave } BD /GR {grestore} BD /CPT {currentpoint T} BD % % auxiliary font macros ----------------------------------------------- /E {exch} BD /FFSFSF {E findfont E scalefont setfont} BD /FTB {/Times-Bold 10 FFSFSF} BD % % additional macros --------------------------------------------------- /TC {true charpath} BD /F {fill} BD /S {stroke} BD /D {def} BD /T {translate} BD /Sk {scale} BD /CP {closepath} BD /Ori {0 0 M} BD /OrR {Ori rotate} BD % % peculiar macros ----------------------------------------------------- % SRGB x y size sides multip star2 % wants an extra arg. The simple formula is correct by chance for sides=5 % but otherwise it is better to rotate by p*360/n % where the multiplier has the effect of deepening the points of the star % however varying the multip p one has to shift the centre % /star2 {/multip E D /nsides E D nsides 2 sub nsides div 180 mul /alpha E D 180 alpha sub 2 div /beta E D beta 2 div /halfbeta E D % rotation angle is p*360/n sides multip 360 mul nsides div /compbeta E D cm /size E D /dbx size 2 div neg D /dby dbx halfbeta sin halfbeta cos div mul neg D M GS CPT ang rotate dbx dby M size 0 RL 0 1 nsides 2 sub {pop compbeta neg rotate size 0 RL } for CP F GR } BD % body ------------------------------------------------------------------------------------- 3.5 cm 5 cm T /ang 0 def 1 0 0 SRGB 0 cm 20 cm 3 5 2 star2 0 1 0 SRGB 0 cm 16 cm 3 7 2 star2 0 0 1 SRGB 0 cm 12 cm 3 9 2 star2 0 1 1 SRGB 0 cm 8 cm 3 6 2 star2 1 0 1 SRGB 0 cm 4 cm 3 8 2 star2 1 0 0 SRGB 4 cm 20 cm 3 5 3 star2 0 1 0 SRGB 4 cm 16 cm 3 7 3 star2 0 0 1 SRGB 4 cm 12 cm 3 9 3 star2 0 1 1 SRGB 4 cm 8 cm 3 6 3 star2 1 0 1 SRGB 4 cm 4 cm 3 8 3 star2 1 0 0 SRGB 8 cm 20 cm 3 5 4 star2 0 1 0 SRGB 8 cm 16 cm 3 7 4 star2 0 0 1 SRGB 8 cm 12 cm 3 9 4 star2 0 1 1 SRGB 8 cm 8 cm 3 6 4 star2 1 0 1 SRGB 8 cm 4 cm 3 8 4 star2 1 0 0 SRGB 12 cm 20 cm 3 5 5 star2 0 1 0 SRGB 12 cm 16 cm 3 7 5 star2 0 0 1 SRGB 12 cm 12 cm 3 9 5 star2 % 0 1 1 SRGB 12 cm 8 cm 3 6 5 star2 1 0 1 SRGB 12 cm 4 cm 3 8 5 star2 /Dot {GS currentpoint 0.2 cm 0 360 arc 0 0 0 SRGB fill GR} BD 1 0 0 SRGB 0 cm 20 cm M Dot 0 1 0 SRGB 0 cm 16 cm M Dot 0 0 1 SRGB 0 cm 12 cm M Dot 0 1 1 SRGB 0 cm 8 cm M Dot 1 0 1 SRGB 0 cm 4 cm M Dot 1 0 0 SRGB 4 cm 20 cm M Dot 0 1 0 SRGB 4 cm 16 cm M Dot 0 0 1 SRGB 4 cm 12 cm M Dot 0 1 1 SRGB 4 cm 8 cm M Dot 1 0 1 SRGB 4 cm 4 cm M Dot 1 0 0 SRGB 8 cm 20 cm M Dot 0 1 0 SRGB 8 cm 16 cm M Dot 0 0 1 SRGB 8 cm 12 cm M Dot 0 1 1 SRGB 8 cm 8 cm M Dot 1 0 1 SRGB 8 cm 4 cm M Dot 1 0 0 SRGB 12 cm 20 cm M Dot 0 1 0 SRGB 12 cm 16 cm M Dot 0 0 1 SRGB 12 cm 12 cm M Dot 0 1 1 SRGB 12 cm 8 cm M Dot 1 0 1 SRGB 12 cm 4 cm M Dot showpage 1 0 0 SRGB 3 cm 26 cm 3 11 2 star2 0 1 0 SRGB 3 cm 20 cm 3 11 3 star2 0 0 1 SRGB 3 cm 15 cm 3 11 4 star2 0 1 1 SRGB 3 cm 11 cm 3 11 5 star2 1 0 1 SRGB 3 cm 7 cm 3 11 6 star2 1 0 0 SRGB 9 cm 26 cm 2.5 13 2 star2 0 1 0 SRGB 9 cm 20 cm 2.5 13 3 star2 0 0 1 SRGB 9 cm 15 cm 2.5 13 4 star2 0 1 1 SRGB 9 cm 11 cm 2.5 13 5 star2 1 1 0 SRGB 9 cm 7 cm 2.5 14 6 star2 1 0 0 SRGB 17 cm 26 cm 1.5 23 2 star2 0 1 0 SRGB 17 cm 20 cm 1.5 23 5 star2 0 0 1 SRGB 17 cm 15 cm 2.5 23 9 star2 0 1 1 SRGB 17 cm 11 cm 2.5 23 11 star2 1 1 0 SRGB 17 cm 7 cm 2.5 24 10 star2 0 0 0 SRGB FTB 3 cm 26 cm M (11 2 ) show 3 cm 20 cm M (11 3 ) show 3 cm 15 cm M (11 4 ) show 3 cm 11 cm M (11 5 ) show 3 cm 7 cm M (11 6 ) show 9 cm 26 cm M (13 2 ) show 9 cm 20 cm M (13 3 ) show 9 cm 15 cm M (13 4 ) show 9 cm 11 cm M (13 5 ) show 9 cm 7 cm M (14 6 ) show 17 cm 26 cm M (23 2 ) show 17 cm 20 cm M (23 5 ) show 17 cm 15 cm M (23 9 ) show 17 cm 11 cm M (23 11 ) show 17 cm 7 cm M (24 10 ) show showpage