From: ezez@sun.soe.clarkson.edu (009)
Subject: Happy New Year!
Keywords: Happy New Year!
Organization: Clarkson University
Date: Thu, 31 Dec 1992 04:28:19 GMT

Lines:150

Say Happy New Year to all my Chinese friends, esp., whom graduated from
Tianjin University. To express my best wish, I would like to dedicate
a Postscript "HAPPY NEW YEAR". 

============CUT FROM HERE ================
%!
%    Happy New Year to all of you guys
%           Enying Zhang
%		   CEE Dept., Clarkson University.
%

/G /grestore load def
/I /imagemask load def
/M /moveto load def
/S /show load def


%/Courier findfont [16.74 0 0 30.00 0 0] makefont setfont
/H {moveto gsave currentpoint translate 100 100 scale 24 24 true [24 0 0 -24 0 24]}def

8.5 72 mul 0 translate
90 rotate
.75 .75 scale

/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

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

200 330 H {<01800001c00000c0600030f001f1c00fc70000660006460002f63c07f7fc7d066061b66007f6603d846001c46019ec6019a860319860379060032060010060000060000060000060>} I G
300 330 H {<00e00000e00000c3c000df8001fc00030c00060c00040fc0027fc003ec00010c00010c18010ffe07fffe7f0c00700c00000c00000c00000c00000c00000c00000c00000800000800>} I G
400 330 H {<000c000c0e000e06000606000406000404c0040fe0073ce0258cc0240cc0640cc0640cfc65fffc45fc00041a00041b000411000c31800c60e00cc0f80d807e0c0000000000000000>} I G
500 330 H {<000000000700000f80003e0003e0000300000338000318000318e0021ff007fe000f98000c18000018000219800618e00618700e18381c181818f800007800003800001000000000>} I G

582 350 moveto
/Time-Roman findfont 100 scalefont setfont
(!) show

330 180 H {<00040000070001870001c60000c7c000ffc003fc0000c40000c4c0005fe007fc000f840001c20001a1000331c00330e006307c8c313f1b3d9c333cc06636c006f440047000003000>} I G
430 180 H {<001000001800001800001bc000ffc007f800001800007f8001f00000038003ffc0018180018f0000f98001838000c30c805fffbfffff7c0000001fc003f1c00181c001818000ff80>} I G
530 180 H {<0000000038000018000019c00630e0073060063180063fc00ff8000e600008400000cf0000ff0001870003c600036600061c000c0c00181e0030330060e1e00781fe80007f000000>} I G
630 180 H {<0000000000e000006001e0601f70601860600b606e0b61fe0b7fe00b78e00b61e00b61e01b61601b63601a666007066006cc600cf8601860603021606001e00000e0000060000000>} I G

712 200 moveto
/Time-Roman findfont 100 scalefont setfont
(!) show
/Time-Roman findfont 20 scalefont setfont
630 50 moveto
(From ezez@sun.soe.clarkson.edu) show
  showpage