[Groff] A little Greetings card

[Ted Harding]

Hi Folks,
The following draws a pretty picture, which I send you
with all my best wishes, hoping you had a good Christmas
and will have a good New Year.
Ted.

.ds RED \X'ps: exec 1    0   0   setrgbcolor'
.ds GR0 \X'ps: exec 0    0.5 0   setrgbcolor'
.ds YEL \X'ps: exec 0    0   1 0 setcmykcolor'
.ds CY0 \X'ps: exec 0.25 0   0 0 setcmykcolor'
.blm
.PS
pi = 4*atan2(1,1)
for i=0 to 11 do {
  t = 2*pi*i/24
  x0 = 2*cos(t) ; y0 = 2*sin(t)
  line invis from (-x0,-y0) to (x0,y0) \
  "\*[RED]\v'-0.22m'\D'E 2.0i 0.5i'\v'0.22m'" aligned
}
for i=0 to 11 do {
  t = 2*pi*i/24
  x0 = 2*cos(t) ; y0 = 2*sin(t)
  line invis from (-x0,-y0) to (x0,y0) \
  "\*[CY0]\v'-0.22m'\D'e 2.0i 0.5i'\v'0.22m'" aligned
}
# circle rad 0.24i colour "white" at (0,0)
line invis from (-1,0) to (1,0) "\v'-0.22m'\*[YEL]\D'C 0.50i'\v'0.22m'"
for i=0 to 11 do { 
  t = 2*pi*i/24
  x0 = 2*cos(t) ; y0 = 2*sin(t)
  line invis from (-x0,-y0) to (x0,y0) \ 
  "\*[GR0]\v'-0.22m'\D'e 0.5i 0.125i'\v'0.22m'" aligned
} 
.PE




--------------------------------------------------------------------
E-Mail: (Ted Harding) <address@hidden>
Fax-to-email: +44 (0)870 094 0861
Date: 28-Dec-09                                       Time: 20:19:23
------------------------------ XFMail ------------------------------