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
|
