[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Groff] A little Greetings card
From: |
Ted Harding |
Subject: |
[Groff] A little Greetings card |
Date: |
Mon, 28 Dec 2009 20:19:26 -0000 (GMT) |
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 ------------------------------
- [Groff] A little Greetings card,
Ted Harding <=