summaryrefslogtreecommitdiff
path: root/info/examples/tlc2/rosette.ps
blob: fa4ccc736174cfc3665bdadcee84a268f0294381 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
%!PS-Adobe-3.0
%%BoundingBox: 1 1. 44. 44.
% Cookbook Example Program from First Printing, Revised 7 Jan 1985
% Program: Repeated Shapes     Number: 6
/inch {10 mul} def
/wedge
  { newpath
      0 0 moveto
      1 0 translate
      15 rotate
      0 15 sin translate
      0 0 15 sin -90 90 arc
    closepath
  } def
gsave
  2.25 inch 2.25 inch translate
  1.75 inch 1.75 inch scale
  0.02 setlinewidth
  2 1 13
   {13 div setgray
     gsave
       wedge
       gsave
	 fill
       grestore
       0 setgray stroke
     grestore
     30 rotate
   } for
grestore