From: bill@leeweyr.sccsi.com (Bill Lee)
Subject: Re: PS holiday files? (Bob Wier: please read)
Organization: Lee Aerie
Distribution: usa
Date: Fri, 1 Jan 1993 17:05:45 GMT

Sorry for the posting here.

Bob Wier: your e-mail address returned
 "Addressee: rrw@cse.nau.edu
Remote system's reason for rejecting: <rrw@cse.nau.edu>... User unknown"

-------------------------------------------------------------------------

In article <6229@naucse.cse.nau.edu> you write:
>I wonder if anyone can point/post some PS files with a holiday
>theme.  I've gotten the Christmas.cards file, but other than that
>and some snowflakes, I can't seem to find anything. I've searched
>Archie for all the likely keywords I can think of, but not turned
>up any other files.
>
>Please drop me a note or post here.
>
>THANKS
>
>Bob Wier
>
>  ---------- insert favorite standard disclaimers here ----------
>                   College of Engineering
>      Northern Arizona University, Flagstaff Arizona
>  Internet: rrw@naucse.cse.nau.edu | WB5KXH | fax:602 523 2300


This came across before christmas. I edited it to make an EPS file out 
of it. I thought it was interesting.

Regards,

Bill Lee
------------------------------cut here-----------------------------------
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 0 0 1000 700
%%Pages: 1
%%BeginProlog
%Article 1113 (2 more) in comp.lang.postscript:
%From:  jvr@or.math.lgu.spb.su (Joseph Romanovsky)
%Subject: Happy New Year in Russian style
%Organization: University of St-Petersburg
%Date: Wed, 16 Dec 1992 07:12:27 GMT
%Lines: 69
%
%    Merry Christmas and Happy New Year to all of us
%           Joseph Romanovsky,
%             St-Petersburg University, Russia
%
/N {def}def /m{moveto }N /l{lineto}N /rl{rlineto}N
/rm{rmoveto}N /CP{currentpoint}N /CL{closepath}N
/bp{0 0 m}N /RGBf {setrgbcolor fill}N
/hrl{0 rl}N /vrl{0 exch rl}N /hrm{0 rm}N /vrm{0 exch rm}N
/pneg{neg exch neg exch}N /LW{setlinewidth}N
/dadd{dup add add}N /rot{3 -1 roll}N /rotn{3 1 roll}N
/padd{rot add exch rot add exch}N
/psub{rot sub exch rot sub exch}N
/pmul{dup rotn mul rotn mul exch}N
/pdup{exch dup rot dup rotn}N

/arcpop{100 arcto 4 {pop} repeat}N
/REDWh{gsave 1 0 0.05 RGBf grestore stroke}N
/BL{2 LW}N /FL{6 LW}N /Fstr{FL stroke BL}N
/sq3 3 sqrt N /dx {dy sq3 mul} N /n 5 N
/ct 0.001 N  /xt 1 N

bp 1100 hrl 800 vrl -1100 hrl CL 0.2501 dup 1 RGBf
usertime srand

/fll { /x 0 N /y 0 N
 n {/x x dx dadd N /y y dy dadd N dx dy rm dup vrl x neg hrm
    dup neg dup vrl y neg vrm vrl x hrm dup vrl y vrm n 1 roll} repeat
  x y -0.5 pmul rm xb dup vrm dup -2 mul vrl vrm } N
/flake { gsave translate SC
   /xb rand 60 mod rand 60 mod mul 60 mod 20 add xt mul N
   /coef xb ct mul N /dy xb n 1 add div 0.45 mul N
   1 1 n{neg n add 3 add coef mul rand 100 mod mul}for
   bp 3{fll 120 rotate} repeat stroke n{pop} repeat grestore}N
/st { bl m gsave 80 vrl 20 hrl -80 vrl CL
   REDWh grestore 10 20 rm star 45 vrm star } N
/star { CP flake} N
/letM {pdup m /bl exch N 20 75 rm 80 -110 -30 -110 50 0 rcurveto Fstr
   dup bl m 40 hrm star dup st 70 add st } N
/carc {CP 10 -24 padd 24 90 250 arcn}N
%%EndProlog
%%Page: 1 1
%90 rotate 0 -612 translate .8 .8 scale
BL /SC {1 setgray} N SC
30 { rand 800 mod rand 480 mod 200 200 padd flake} repeat

FL 200 100 m
800 100 200 100 800 500 800 200 100 500 200 500
100 100 100 200 4 {arcpop} repeat
CL gsave 0.18 0.18 1 RGBf grestore stroke

BL /SC {1 1 0 setrgbcolor}N  /xt 0.15 N
380 300 325 150 490 150
3{ m gsave 50 vrm CP 30 0 padd 30 180 0 arcn -20 vrl CP -30 0 padd
   30 0 180 arcn CL Fstr grestore 30 hrm star} repeat
270 230 m 40 hrl -20 -30 rl
450 150 m 80 vrl -40 -80 rl -20 vrm -20 20 rl 80 hrl -20 -20 rl
480 376 m CP 18 sub 18 90 270 arcn carc
560 340 m carc
320 340 m 20 hrl Fstr
655 300 letM 300 340 460 540 610 5 {st} repeat
570 150 letM 250 st 450 st
250 370 m 40 vrl 190 410 60 0 180 arc -60 vrl
130 260 180 250 190 180 curveto 20 hrl
210 240 220 240 240 280 curveto -10 30 rl
-35 -60 rl 180 285 162 290 162 330 curveto 70 vrl
CP exch 30 add exch 30 180 0 arcn -30 vrl CL REDWh
200 220 230 280 170 250 150 300 145 370
240 400 150 420 200 445 8 {m star} repeat
  showpage
%%Trailer
Newsgroups: comp.lang.postscript