diff options
Diffstat (limited to 'src/penguin.inc')
| -rw-r--r-- | src/penguin.inc | 351 |
1 files changed, 0 insertions, 351 deletions
diff --git a/src/penguin.inc b/src/penguin.inc deleted file mode 100644 index 66ac9b0..0000000 --- a/src/penguin.inc +++ /dev/null @@ -1,351 +0,0 @@ -% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -% -% "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 - - |