home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / postscri / 6135 < prev    next >
Encoding:
Text File  |  1993-01-01  |  4.2 KB  |  126 lines
  1. Newsgroups: comp.lang.postscript
  2. Path: sparky!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!menudo.uh.edu!nuchat!leeweyr!bill
  3. From: bill@leeweyr.sccsi.com (Bill Lee)
  4. Subject: Re: PS holiday files? (Bob Wier: please read)
  5. Message-ID: <1993Jan1.170545.6068@leeweyr.sccsi.com>
  6. Organization: Lee Aerie
  7. Distribution: usa
  8. Date: Fri, 1 Jan 1993 17:05:45 GMT
  9. Lines: 115
  10.  
  11. Sorry for the posting here.
  12.  
  13. Bob Wier: your e-mail address returned
  14.  "Addressee: rrw@cse.nau.edu
  15. Remote system's reason for rejecting: <rrw@cse.nau.edu>... User unknown"
  16.  
  17. -------------------------------------------------------------------------
  18.  
  19. In article <6229@naucse.cse.nau.edu> you write:
  20. >I wonder if anyone can point/post some PS files with a holiday
  21. >theme.  I've gotten the Christmas.cards file, but other than that
  22. >and some snowflakes, I can't seem to find anything. I've searched
  23. >Archie for all the likely keywords I can think of, but not turned
  24. >up any other files.
  25. >
  26. >Please drop me a note or post here.
  27. >
  28. >THANKS
  29. >
  30. >Bob Wier
  31. >
  32. >  ---------- insert favorite standard disclaimers here ----------
  33. >                   College of Engineering
  34. >      Northern Arizona University, Flagstaff Arizona
  35. >  Internet: rrw@naucse.cse.nau.edu | WB5KXH | fax:602 523 2300
  36.  
  37.  
  38. This came across before christmas. I edited it to make an EPS file out 
  39. of it. I thought it was interesting.
  40.  
  41. Regards,
  42.  
  43. Bill Lee
  44. ------------------------------cut here-----------------------------------
  45. %!PS-Adobe-2.0 EPSF-2.0
  46. %%BoundingBox: 0 0 1000 700
  47. %%Pages: 1
  48. %%BeginProlog
  49. %Article 1113 (2 more) in comp.lang.postscript:
  50. %From:  jvr@or.math.lgu.spb.su (Joseph Romanovsky)
  51. %Subject: Happy New Year in Russian style
  52. %Organization: University of St-Petersburg
  53. %Date: Wed, 16 Dec 1992 07:12:27 GMT
  54. %Lines: 69
  55. %
  56. %    Merry Christmas and Happy New Year to all of us
  57. %           Joseph Romanovsky,
  58. %             St-Petersburg University, Russia
  59. %
  60. /N {def}def /m{moveto }N /l{lineto}N /rl{rlineto}N
  61. /rm{rmoveto}N /CP{currentpoint}N /CL{closepath}N
  62. /bp{0 0 m}N /RGBf {setrgbcolor fill}N
  63. /hrl{0 rl}N /vrl{0 exch rl}N /hrm{0 rm}N /vrm{0 exch rm}N
  64. /pneg{neg exch neg exch}N /LW{setlinewidth}N
  65. /dadd{dup add add}N /rot{3 -1 roll}N /rotn{3 1 roll}N
  66. /padd{rot add exch rot add exch}N
  67. /psub{rot sub exch rot sub exch}N
  68. /pmul{dup rotn mul rotn mul exch}N
  69. /pdup{exch dup rot dup rotn}N
  70.  
  71. /arcpop{100 arcto 4 {pop} repeat}N
  72. /REDWh{gsave 1 0 0.05 RGBf grestore stroke}N
  73. /BL{2 LW}N /FL{6 LW}N /Fstr{FL stroke BL}N
  74. /sq3 3 sqrt N /dx {dy sq3 mul} N /n 5 N
  75. /ct 0.001 N  /xt 1 N
  76.  
  77. bp 1100 hrl 800 vrl -1100 hrl CL 0.2501 dup 1 RGBf
  78. usertime srand
  79.  
  80. /fll { /x 0 N /y 0 N
  81.  n {/x x dx dadd N /y y dy dadd N dx dy rm dup vrl x neg hrm
  82.     dup neg dup vrl y neg vrm vrl x hrm dup vrl y vrm n 1 roll} repeat
  83.   x y -0.5 pmul rm xb dup vrm dup -2 mul vrl vrm } N
  84. /flake { gsave translate SC
  85.    /xb rand 60 mod rand 60 mod mul 60 mod 20 add xt mul N
  86.    /coef xb ct mul N /dy xb n 1 add div 0.45 mul N
  87.    1 1 n{neg n add 3 add coef mul rand 100 mod mul}for
  88.    bp 3{fll 120 rotate} repeat stroke n{pop} repeat grestore}N
  89. /st { bl m gsave 80 vrl 20 hrl -80 vrl CL
  90.    REDWh grestore 10 20 rm star 45 vrm star } N
  91. /star { CP flake} N
  92. /letM {pdup m /bl exch N 20 75 rm 80 -110 -30 -110 50 0 rcurveto Fstr
  93.    dup bl m 40 hrm star dup st 70 add st } N
  94. /carc {CP 10 -24 padd 24 90 250 arcn}N
  95. %%EndProlog
  96. %%Page: 1 1
  97. %90 rotate 0 -612 translate .8 .8 scale
  98. BL /SC {1 setgray} N SC
  99. 30 { rand 800 mod rand 480 mod 200 200 padd flake} repeat
  100.  
  101. FL 200 100 m
  102. 800 100 200 100 800 500 800 200 100 500 200 500
  103. 100 100 100 200 4 {arcpop} repeat
  104. CL gsave 0.18 0.18 1 RGBf grestore stroke
  105.  
  106. BL /SC {1 1 0 setrgbcolor}N  /xt 0.15 N
  107. 380 300 325 150 490 150
  108. 3{ m gsave 50 vrm CP 30 0 padd 30 180 0 arcn -20 vrl CP -30 0 padd
  109.    30 0 180 arcn CL Fstr grestore 30 hrm star} repeat
  110. 270 230 m 40 hrl -20 -30 rl
  111. 450 150 m 80 vrl -40 -80 rl -20 vrm -20 20 rl 80 hrl -20 -20 rl
  112. 480 376 m CP 18 sub 18 90 270 arcn carc
  113. 560 340 m carc
  114. 320 340 m 20 hrl Fstr
  115. 655 300 letM 300 340 460 540 610 5 {st} repeat
  116. 570 150 letM 250 st 450 st
  117. 250 370 m 40 vrl 190 410 60 0 180 arc -60 vrl
  118. 130 260 180 250 190 180 curveto 20 hrl
  119. 210 240 220 240 240 280 curveto -10 30 rl
  120. -35 -60 rl 180 285 162 290 162 330 curveto 70 vrl
  121. CP exch 30 add exch 30 180 0 arcn -30 vrl CL REDWh
  122. 200 220 230 280 170 250 150 300 145 370
  123. 240 400 150 420 200 445 8 {m star} repeat
  124.   showpage
  125. %%Trailer
  126.