Colin Watson
19 years ago
parent
fa2c9ce0c1
commit
e999544a81
|
Before Width: | Height: | Size: 29 KiB |
@ -1,416 +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/.
|
||||
%
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
|
||||
|
||||
|
||||
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
%
|
||||
% 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
|
||||
|
||||
|
||||
@ -1,12 +0,0 @@
|
||||
all: high
|
||||
|
||||
high:
|
||||
pngtopnm -background black pback.png | cjpeg -optimize -quality 95 >pback.jpg
|
||||
pngtopnm -background black panim.png | cjpeg -optimize -quality 95 >panim.jpg
|
||||
pngtopnm -alpha panim.png | pgmtoppm white | cjpeg -optimize -quality 95 >panim_a.jpg
|
||||
|
||||
low:
|
||||
pngtopnm -background black pback.png | cjpeg -optimize -quality 85 >pback.jpg
|
||||
pngtopnm -background black panim.png | cjpeg -optimize -quality 85 >panim.jpg
|
||||
pngtopnm -alpha panim.png | pgmtoppm white | cjpeg -optimize -quality 85 >panim_a.jpg
|
||||
|
||||
|
Before Width: | Height: | Size: 35 KiB |
|
Before Width: | Height: | Size: 119 KiB |
Binary file not shown.
Loading…
Reference in new issue