Answers to Rec 12
NOTE: There are many possible alternative answers.
------------------------------------------
A. This is straightforward
------------------------------------------
B. Circles
Here is one answer:
%!PS-Adobe-2.0
/n 40 def
/r 100 def
/s 100 def
/inch { 72 mul } def
/Black { 0 0 0 1 setcmykcolor } def
/Red { 0 1 1 0 setcmykcolor } def
/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}def
4 setlinewidth
/circles {
CornflowerBlue
newpath 0 0 s 0 360 arc stroke
Red
/incr 360 n div def
0 incr 360 {
/th exch def
newpath th cos s mul th sin s mul r 0 360 arc stroke
2 setlinewidth
Black
} for
} def
8.5 2 div inch 11 2 div inch translate
circles
showpage
Setting n, r, and s to different values gives the different
answersss to this problem.
------------------------------------------
C. Business Card
Lots of variations here.