Winter.ps

/gs{gsave}def /gr{grestore}def gs .1 setlinewidth /l{lineto}def /m{l stroke}def /n{moveto}def /r{rand 2 31 exp div mul}def /t{translate}def /s{gs t 30 5 r .1 add div sqrt dup scale 6{0 0 n 1 0 m .9 .3 n .5 0 l .9 -.3 m 60 rotate}repeat gr}def /c{setrgbcolor}def /a{gs 8 r 4 sub rotate 0 0 n 0 200 m 40{5 5 n 0 0 l -5 5 m 3 5 n 0 0 l -3 5 m 0 5 t}repeat gr}def /b{gs 1 .6 scale 40{gs 0 -800 t 110 rotate 28{a 5 rotate}repeat gr .9 .95 scale}repeat gr}def /sky{1 -.001 .9{.8 exch .8 exch c 800 r 800 r 100 r 0 360 arc fill}for}def .8 .8 1 c 0 0 800 800 rectfill sky .8 .8 .8 c 0 0 800 200 rectfill .8 .02 1.2{gs dup 700 r exch 300 mul 350 add t dup scale .2 .2 r .5 add .2 r .1 add c b gr}for 1 1 1 c 900{700 r 800 r s }repeat showpage gr