You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
417 lines
9.9 KiB
417 lines
9.9 KiB
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
%
|
|
% "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/.
|
|
%
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
%
|
|
% Panel penguin entry.
|
|
%
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Show help window.
|
|
%
|
|
% ( ) => ( )
|
|
%
|
|
/panel.ptheme {
|
|
/panel panel.short def
|
|
penguin_about_popup
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Return width of panel entry.
|
|
%
|
|
% ( ) => ( width )
|
|
%
|
|
/panel.ptheme.width {
|
|
"About" strsize pop
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Redraw panel entry.
|
|
%
|
|
% ( panel ) => ( )
|
|
%
|
|
/panel.ptheme.update {
|
|
panel.text.moveto
|
|
"About" show
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
% Show penguin theme 'about' box.
|
|
%
|
|
% ( ) ==> ( )
|
|
%
|
|
/penguin_about_popup {
|
|
window.dialog
|
|
|
|
dup .title "About" put
|
|
dup .text
|
|
"Penguin theme originally made by Raphael Quinet <quinet@gamers.org>.
|
|
|
|
See http://www.gamers.org/~quinet/lilo/.
|
|
|
|
Modernized for openSUSE by Steffen Winterfeldt <snwint@suse.de>"
|
|
|
|
put
|
|
dup .buttons [
|
|
button.ok button.default actRedraw button.setaction
|
|
] put
|
|
dup window.init
|
|
window.show
|
|
} def
|
|
|
|
|
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
%
|
|
% 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
|
|
|
|
|