Happy New Year in Russian style

Thread View: comp.lang.postscript

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Joseph Romanovsky Wed, 16 Dec 1992 07:12

#5950

Author: Joseph Romanovsky
Date: Wed, 16 Dec 1992 07:12

67 lines
2982 bytes

%    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

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads