diff options
Diffstat (limited to 'src/penguin.inc')
| -rw-r--r-- | src/penguin.inc | 351 |
1 files changed, 351 insertions, 0 deletions
diff --git a/src/penguin.inc b/src/penguin.inc new file mode 100644 index 0000000..66ac9b0 --- /dev/null +++ b/src/penguin.inc @@ -0,0 +1,351 @@ +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% +% "Penguins" boot screen. +% +% Copyright (C) 2001-2002, Raphael Quinet <quinet@gamers.org> +% Copyright (C) 2005 Steffen Winterfeldt <snwint@suse.de> +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 2 of the License, or +% (at your option) any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +% Revision history: +% 2001-11-15 - (xray-blue.config) file derived from xray-green.config +% 2002-01-04 - file derived from xray-blue.config +% 2002-01-05 - keystrokes can influence penguins, added timeout message +% 2002-01-10 - adjusted the speed of the penguins +% 2005-08-21 - reworked graphics for 800x600 @ 16 bit color +% - reimplemented to fit to current openSUSE layout +% +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% +% Original comment by Raphael: +% +% This script is based on those included in SuSE 7.2 and SuSE 7.3, modified +% by Raphael Quinet. The walking penguins were extracted from the program +% "xpenguins" (http://xpenguins.seul.org/), which had borrowed them from the +% game "Pingus" (http://pingus.seul.org/). The original "walker" was created +% by Joel Fauche <joel.fauche@wanadoo.fr>, the "tumbler" was created by Craig +% Timpany <timpany@es.co.nz>, the "reader" and the "superpenguin" were +% created by Rob Gietema <tycoon@planetdescent.com>, Robin Hogan +% <R.J.Hogan@reading.ac.uk> and Brian Chu <chub@stuy.yi.org>. +% +% Requires the patched syslinux version included in openSUSE 10.0 or later. +% +% For more information on the original work done by Raphael, see: +% http://www.gamers.org/~quinet/lilo/. +% +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% +% penguin animations +% +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +/p.xmas.xmin 192 def +/p.xmas.xmax 556 def +/p.xmas.x 500 def +/p.xmas.y 89 def +/p.xmas.dx -4 def +/p.xmas.frame 0 def +/p.xmas.frames 8 def +/p.xmas.src.x 252 def +/p.xmas.src.y 0 def +/p.xmas.src.w 32 def +/p.xmas.src.h 45 def + + +/p.walk.xmin 80 def +/p.walk.xmax 720 def +/p.walk.x 200 def +/p.walk.y 523 def +/p.walk.dx 4 def +/p.walk.frame 0 def +/p.walk.frames 8 def +/p.walk.src.x 3 def +/p.walk.src.y 1 def +/p.walk.src.w 30 def +/p.walk.src.h 30 def + +/p.read.timer 0 def +/p.read.frame 0 def +/p.read.frames 4 def +/p.read.src.x 515 def +/p.read.src.y 1 def + + +/p.fall.ymax 520 def +/p.fall.ymin -31 def +/p.fall.x 762 def +/p.fall.y 0 def +/p.fall.frame 0 def +/p.fall.frames 8 def +/p.fall.src.x 3 def +/p.fall.src.y 65 def +/p.fall.src.w 30 def +/p.fall.src.h 25 def +/p.fall.dy -4 def % for super penguin + +/p.super false def % show super penguin +/p.super.frames 2 def +/p.super.src.x 644 def +/p.super.src.y 0 def +/p.super.src.h 31 def + + +/ptheme.init { + currentimage + + "panim.jpg" findfile dup setimage 0 0 image.size unpackimage /panim.img exch def free + "panim_a.jpg" findfile dup setimage 0 0 image.size unpackimage /panim_a.img exch def free + + setimage + + + % xmas penguin + + % save drawing background + p.xmas.xmin p.xmas.y moveto + /p.xmas.back + p.xmas.xmax p.xmas.xmin sub p.xmas.src.w add p.xmas.dx abs add + p.xmas.src.h savescreen + def + + % it just needs the right size + /p.xmas.single 0 0 moveto p.xmas.src.w p.xmas.dx abs add p.xmas.src.h savescreen def + + + % walking penguin + + % save drawing background + p.walk.xmin p.walk.y moveto + /p.walk.back + p.walk.xmax p.walk.xmin sub p.walk.src.w add p.walk.dx abs add + p.walk.src.h savescreen + def + + % it just needs the right size + /p.walk.single 0 0 moveto p.walk.src.w p.walk.dx abs add p.walk.src.h savescreen def + + + % falling penguin + + % save drawing background + /p.fall.back p.fall.x 10 moveto p.fall.src.w p.fall.src.h savescreen def + + % one background line + /p.fall.back1 p.fall.x 10 moveto p.fall.src.w 1 savescreen def + + % it just needs the right size + /p.fall.single 0 0 moveto p.fall.src.w p.fall.src.h savescreen def + +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Draw next Xmas penguin frame. +% +% ( ) ==> ( ) +% +/p.xmas.animate { + p.xmas.dx 0 lt { + p.xmas.dx p.xmas.x add p.xmas.xmin lt { + /p.xmas.dx p.xmas.dx neg def + } if + } { + p.xmas.dx p.xmas.x add p.xmas.xmax gt { + /p.xmas.dx p.xmas.dx neg def + } if + } + ifelse + + /p.xmas.x p.xmas.x p.xmas.dx add def + /p.xmas.frame p.xmas.frame 1 add p.xmas.frames mod def + + % copy background + p.xmas.x p.xmas.xmin sub 0 moveto + p.xmas.back 0xff p.xmas.single blend + + % add penguin + p.xmas.src.x p.xmas.src.w p.xmas.frame mul add + p.xmas.src.y p.xmas.dx 0 gt { p.xmas.src.h add } if moveto + panim.img panim_a.img p.xmas.single blend + + % draw + p.xmas.x p.xmas.y moveto p.xmas.single restorescreen +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Draw next walking penguin frame. +% +% ( ) ==> ( ) +% +/p.walk.animate { + /p.read.timer p.read.timer 1 add 0 min def + + p.read.timer 0 lt { + % slow down reading + p.read.timer 2 mod 0 eq { return } if + /p.read.frame p.read.frame 1 add p.read.frames mod def + } { + p.walk.dx 0 lt { + p.walk.dx p.walk.x add p.walk.xmin lt { + /p.walk.dx p.walk.dx neg def + } if + } { + p.walk.dx p.walk.x add p.walk.xmax gt { + /p.walk.dx p.walk.dx neg def + } if + } + ifelse + + /p.walk.x p.walk.x p.walk.dx add def + /p.walk.frame p.walk.frame 1 add p.walk.frames mod def + } ifelse + + % copy background + p.walk.x p.walk.xmin sub 0 moveto + p.walk.back 0xff p.walk.single blend + + p.read.timer 0 lt { + % add penguin + p.read.src.x p.walk.src.w p.read.frame mul add + p.read.src.y + } { + % add penguin + p.walk.src.x p.walk.src.w p.walk.frame mul add + p.walk.src.y p.walk.dx 0 gt { p.walk.src.h add } if + } ifelse + moveto + panim.img panim_a.img p.walk.single blend + + % draw + p.walk.x p.walk.y moveto p.walk.single restorescreen +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Draw next super penguin frame. +% +% ( ) ==> ( ) +% +/p.super.animate { + p.fall.y p.fall.dy add p.fall.ymin lt { + /p.fall.y 0 def + + /p.super false def + + return + } if + + /p.fall.y p.fall.y p.fall.dy add def + /p.fall.frame p.fall.frame 1 add p.fall.frames mod def + + % copy background + 0 0 moveto + p.fall.back 0xff p.fall.single blend + + % add penguin + p.fall.src.x + p.fall.src.y p.fall.src.h p.fall.frame mul add moveto + panim.img panim_a.img p.fall.single blend + + % draw + p.fall.x p.fall.y moveto p.fall.single restorescreen +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Draw falling penguin. +% +% ( timeout time ) ==> ( ) +% +/p.timeout.animate { + dup 0 le { + pop pop + + % it vanishes... + p.fall.x p.fall.y moveto p.fall.back restorescreen + + p.call.super + + return + } if + + over sub neg p.fall.ymax mul exch div + + dup p.fall.y gt { + p.fall.y 1 2 index 1 sub { + p.fall.x exch moveto p.fall.back1 restorescreen + } for + } if + /p.fall.y exch def + /p.fall.frame p.fall.frame 1 add p.fall.frames mod def + + % copy background + 0 0 moveto + p.fall.back 0xff p.fall.single blend + + % add penguin + p.fall.src.x p.fall.src.w p.fall.frame mul add + p.fall.src.y moveto + panim.img panim_a.img p.fall.single blend + + % draw + p.fall.x p.fall.y moveto p.fall.single restorescreen + +} def + + +% call super penguin +/p.call.super { + p.super { return } if + + /p.super true def + + p.fall.y 0 le { + /p.fall.y p.fall.ymax def + } if + + % super penguin has different height + /p.fall.src.x p.super.src.x def + /p.fall.src.y p.super.src.y def + /p.fall.src.h p.super.src.h def + + % and less frames + /p.fall.frames p.super.frames def + + % change them + p.fall.back free + /p.fall.back p.fall.x 10 moveto p.fall.src.w p.fall.src.h savescreen def + + p.fall.single free + /p.fall.single 0 0 moveto p.fall.src.w p.fall.src.h savescreen def +} def + + +ptheme { + % ( time ) ==> ( ) + /Timer { + dup 3 mod 0 eq { p.xmas.animate } if + dup 3 mod 1 eq { p.walk.animate } if + pop + p.super { p.super.animate } if + } def + +} if + + |