%
% Date: Tue, 27 Jun 89 12:29:26 EDT
% From: alexis%yummy@gateway.mitre.org
% To: NeWS-makers@brillig.umd.edu
% Subject: Another rework of the psPyro
%
% Yet another remake/tweek of the psPyro program, making it more
% worthy of a workstation (read as "it sucks us cpu cycles"). This
% version has lots of colors, more interesting explosions, more than
% one firecracker in the air at once (I have it set to 3, but it's
% just a variable), and general tweeking (they fly faster, explode
% slower, etc). This just assumes you're running on a color machine.
%
% alexis wieland
% alexis%yummy@gateway.mitre.org
%
% --------------------------- cut here ----------------------
%
% psPyro, a user extensible fireworks display screen saver.
%
%
% Physical screen dimensions ------------------------------------------
%
/screen_width 0 def
/screen_height 0 def
%
% Heuristics for firework creation and display (user configurable) ----
%
/unusable_screen_width 0.1 def % set to percent of physical screen width
/unusable_screen_height 0.1 def % set to percent of physical screen height
/minimum_trail_height 0.75 def % set to percent of physical screen height
/minimum_explosion_angle 100 def
/maximum_explosion_angle 150 def
/minimum_#_explosions 10 def
/maximum_#_explosions 20 def
/trail_length 5 def % the length of the firework trail
/n-in-air-at-once 7 def % number of fireworks at any time
/multiple_explosion_radius 200 def % radius of multiple explosions from original
%% For Color systems use this
/setacolor { % num -> -
{
0 { 0 setgray }
1 { random random random setrgbcolor }
2 { 1 .1 0 setrgbcolor } % Red Rocket trail
3 { .86 .86 0 setrgbcolor } % Yellow ground flash
/Default { random random random setrgbcolor }
} case
} def
%% For Technicolor displays that dont fade from memory!
%% Note: It would help to clear the display now and then.
%% Just uncomment the next three lines.
/setacolor { % num -> -
pop random random random setrgbcolor
} def
%% For Black & White (Monocrome machines) uncomment the next 7 lines
%/setacolor { % num -> -
% {
% 0 { 0 setgray }
% 1 2 3 { 1 setgray }
% /Default { random setgray }
% } case
%} def
/colortable [
1 1 1 rgbcolor
1 0 0 rgbcolor
0 1 0 rgbcolor
0 0 1 rgbcolor
1 1 0 rgbcolor
0 1 1 rgbcolor
1 .5 0 rgbcolor
1 0 .5 rgbcolor
.8 .5 .2 rgbcolor
.92 .68 .92 rgbcolor
.86 .44 .86 rgbcolor
] def
% randomly set color
/randcolor {
colortable random colortable length 1 sub mul floor cvi get setcolor
} def
%
% Firework explosion definitions
%
% array to keep the names of the different explosions in
/explosion_kinds [
/dots_explosion /circle_explosion
/star_explosion /colored_circle_explosion
] def
%
% Dots explosion.
/draw_one_quarter {
30 0 moveto 2 -2 rlineto 2 2 rlineto -2 2 rlineto closepath fill
20 10 3 3 rectpath fill 10 20 3 3 rectpath fill
} def
/dots_explosion { % x y => -
gsave
translate
360 random mul rotate
8 random mul cvi 2 add
.5 random add dup scale
gsave
5 {
randcolor
dup {
draw_one_quarter
360 1 index div rotate
} repeat
1.3 1.3 scale
big_delay
} repeat
grestore
gsave
5 {
0 setacolor
dup {
draw_one_quarter
360 1 index div rotate
} repeat
1.3 1.3 scale
big_delay
} repeat
pop
grestore
grestore
} def % dots_explosion
%
% Circle explosion.
%
/draw_circle { % - => -
0 0 10 0 360 arc stroke
} def
/circle_explosion { % x y => -
gsave
translate
.5 random add dup scale
gsave
6 {
1.4 dup scale
randcolor
big_delay
draw_circle
} repeat
grestore
gsave
6 {
1.4 dup scale
0 setacolor
big_delay
draw_circle
} repeat
grestore
grestore
} def
%
% Star explosion.
%
/draw_star { % n-lines => n-lines
gsave
cvi dup {
-30 0 moveto
60 0 rlineto stroke
360 1 index div rotate
} repeat
grestore
} def
/star_explosion { % x y => -
gsave
translate
.5 random add dup scale
360 random mul rotate
10 random mul 4 add
gsave
4 {
1.4 dup scale
randcolor
big_delay
draw_star
} repeat
grestore
gsave
4 {
1.4 dup scale
0 setacolor
big_delay
draw_star
} repeat
grestore
pop
grestore
} def
%
% Colored circle explosion.
%
/draw_dot { % - => -
0 0 10 0 360 arc fill
} def
/colored_circle_explosion { % x y => -
gsave
translate
.5 random add dup scale
gsave
10 {
1.2 dup scale
randcolor
big_delay
draw_dot
} repeat
0 setacolor
big_delay big_delay
draw_dot
grestore
grestore
} def
%
% Support utilities ---------------------------------------------------
%
%
% Delay loops.
%
/big_delay {
1 2048 div sleep
} def
%
% Draw one instance of a firework trail from:
% angle to angle
% theta theta + trail_length - 1
%
/draw_trail { % theta => -
/theta exch def
% erase the first degree from the previous trail
0 setacolor
0 0 1 theta 1 sub theta newpath arc stroke
1 setacolor
theta 1 theta trail_length add 1 sub {
0 0 1
4 -1 roll
dup 1 add newpath arc stroke
} for
} def
%
% Animate the entire firework trail up until the explosion.
%
/animate_trail { % - => -
% draw the first trail instance
1 setacolor
0 1 trail_length 1 sub {
0 0 1
4 -1 roll
dup 1 add newpath arc stroke
} for
% draw the rest of the trail
1 1 explosion_angle {
draw_trail
pause
} for
% remove the last trail instance
0 setacolor
explosion_angle 1 explosion_angle trail_length add 1 sub {
0 0 1
4 -1 roll
dup 1 add newpath arc stroke
} for
} def
%
% Determine the characterictics of the next firework.
%
/determine_firework_characteristics { % - => -
% randomly pick the starting position to fire the firework from
/trail_start_x screen_width random mul store
%
% pick the direction of the firework trail
%
% if the picked starting position is too close to a screen
% edge, force the direction to be towards the opposite screen
% side, otherwise randomly pick the direction
%
trail_start_x unusable_screen_width le {
/trail_going_left? false store
} {
trail_start_x screen_width unusable_screen_width sub ge {
/trail_going_left? true store
} {
% randomly pick the direction
/trail_going_left? random round 0 eq store
} ifelse
} ifelse
% randomly pick the width of the firework trail
trail_going_left? {
/trail_width trail_start_x random mul store
} {
/trail_width screen_width trail_start_x sub random mul store
} ifelse
% randomly pick the height of the firework trail
/trail_height screen_height random mul store
trail_height minimum_trail_height le {
/trail_height minimum_trail_height store
} if
% randomly pick the ending angle of the firework explosion
/explosion_angle
maximum_explosion_angle minimum_explosion_angle sub
random mul
minimum_explosion_angle add round store
} def
%
% Animate a firework explosion.
%
/animate_explosion { % explosion_x explosion_y #explosions => -
/#explosions exch cvi store
/explosion_y exch store
/explosion_x exch store
% randomly pick which explosion to use
/which_explosion explosion_kinds explosion_kinds length random mul floor cvi get def
% explode the first of the explosions
explosion_x explosion_y which_explosion cvx exec
% explode the remaining number of explosions (possible none),
% randomly picking each location based upon the initial explosion
% location
#explosions 1 sub {
% randomly pick another explosion location
360 random mul dup
cos multiple_explosion_radius mul
explosion_x add
exch
sin multiple_explosion_radius mul
explosion_y add
which_explosion cvx exec
} repeat
} def
/do-it { gsave
/trail_width 0 def
/trail_height 0 def
/trail_start_x 0 def
/trail_going_left? true def
/explosion_angle 0 def
/#explosions null store
/explosion_y null store
/explosion_x null store
/which_explosion null store
initmatrix
sky setcanvas
% create a new firework
determine_firework_characteristics
% translate to the center of the firework trail arc
trail_start_x unusable_screen_width add
trail_width 2 div
trail_going_left? { sub } { add } ifelse
0 translate
trail_going_left? not { -1 1 scale } if
% create the firing of the firework
randcolor
trail_width 2 div 0 20 0 180 arc fill
3 { big_delay } repeat
0 setacolor
trail_width 2 div 0 20 0 180 arc fill
% create the firework trail
trail_width 2 div trail_height scale
animate_trail
% calculate the location of the firework explosion
initmatrix
trail_start_x unusable_screen_width add
trail_width 2 div
trail_going_left? { sub } { add } ifelse
explosion_angle trail_length add cos trail_width 2 div mul
trail_going_left? { add } { sub } ifelse
explosion_angle trail_length add sin trail_height mul
% calculate the number of explosions for the firework
maximum_#_explosions random mul round
minimum_#_explosions max
% create the explosion!
animate_explosion
grestore
} def
%
% Continually make fireworks.
%
/make_fireworks { % - => -
{
n-in-air-at-once {
{ 32 dict begin
{ do-it } loop
end
} fork
} repeat
} fork
} def
%
% Main ----------------------------------------------------------
%
% get the dimensions of the physical screen
clippath pathbbox
/screen_height exch def
/screen_width exch def
clear
% calculate the actual values of the firework creation and display heuristics
/unusable_screen_width screen_width unusable_screen_width mul def
/unusable_screen_height screen_height unusable_screen_height mul def
/minimum_trail_height screen_height minimum_trail_height mul def
% calculate the usable screen area
/screen_height screen_height unusable_screen_height sub def
/screen_width screen_width unusable_screen_width dup add sub def
% create the black sky
clippath pathbbox
rectpath
/sky framebuffer newcanvas def
sky reshapecanvas
sky /Mapped true put
sky setcanvas
0 fillcanvas
% remove the cursor
/nouse /nouse_m sky setstandardcursor
% start the fireworks display
make_fireworks
% wait for a mouse movement or click to end the fireworks display
createevent dup begin
/Name [
/LeftMouseButton
/MiddleMouseButton
/RightMouseButton
%/MouseDragged
] def
/Action /DownTransition def
%/Canvas sky def
end expressinterest
awaitevent pop
(Melting!\n) print flush
%!
%
% Date: Tue, 26 Jul 88 21:25:03 EDT
% To: NeWS-makers@brillig.umd.edu
% Subject: NeWS meltdown
% From: eagle!icdoc!Ist!jh@ucbvax.Berkeley.EDU (Jeremy Huxtable)
%
% I thought it was time one of these appeared as well....
% NeWS screen meltdown
%
% Jeremy Huxtable
%
% Mon Jul 25 17:36:06 BST 1988
% The procedure "melt" implements the ever-popular screen meltdown feature.
% Modified for X11/NeWS by Don Hopkins
/melt {
10 dict begin
/t currenttime def
/c framebuffer newcanvas def
framebuffer setcanvas clippath c reshapecanvas
clippath pathbbox /height exch def /width exch def pop pop
c /Transparent true put
c /EventsConsumed /NoEvents put
c /Mapped true put
c setcanvas
3000 {
/w random 200 mul 5 add def
/h random 200 mul 5 add def
/x width w sub random mul def
/y height h sub random mul def
newpath
% x y w h rectpath
x y w h ovalpath
%gsave random random random setrgbcolor stroke grestore
20 random mul 10 sub
-20 random mul
copyarea
pause
} repeat
framebuffer setcanvas
c /Mapped false put
/c null def
end
} def
{melt} fork
10 60 div sleep
awaitevent pop
killprocessgroup