🚀 go-pugleaf

%    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