summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/common.inc115
-rw-r--r--src/dia_about.inc2
-rw-r--r--src/main.bc3
-rw-r--r--src/menu.inc2
-rw-r--r--src/timeout.inc2
5 files changed, 3 insertions, 121 deletions
diff --git a/src/common.inc b/src/common.inc
index 53f616d..e7ee848 100644
--- a/src/common.inc
+++ b/src/common.inc
@@ -145,24 +145,6 @@
500 20 moveto dup print " " print
} if
- ptheme {
- % reverse direction
- /p.xmas.dx p.xmas.dx neg def
-
- key keyF9 eq
- key keyF7 eq or {
- % call super penguin
- p.call.super
- } {
- key keyF1 ge
- key keyF10 le and {
- % read something
- /p.read.timer rand 0x31 and neg -30 add def
- } if
- } ifelse
-
- } if
-
% some special keys
debug.input
@@ -1015,8 +997,6 @@
/init {
0 0 moveto currentpoint clip.size image
- ptheme { ptheme.init } if
-
% set default language
"lang" findfile dup {
/tmp over length 1 add 2 max string def
@@ -1069,36 +1049,6 @@
moveto setcolor
} if
- dup keyF8 eq syslinux and {
- kroete.file .undef eq { /kroete.file "kroete.dat" findfile def } if
- kroete.file kroete.dir idle
- /kroete.dir kroete.dir 1 xor def
- } if
-
- dup keyF9 eq syslinux and {
- /v_impaired inc
-
- v_impaired 1 eq config.talk not and {
- /config.talk true def
- load_talk_dialog
- menu.texts menu.idx get menuitemmap speak
- } {
- sound.getsamplerate { sound.getsamplerate sound.setsamplerate } if
- } ifelse
-
- config.livecd not {
- xmenu.video .xm_current 0 put
- % redraw unless another menu is still open
- window.current {
- window.current .xmenu get .undef eq { video.update } if
- } if
- } if
-
- .undef 0 idle
- kroete.file free /kroete.file .undef def
- pop 0
- } if
-
dup keyShiftF3 eq syslinux and debug 3 ge and {
currentcolor black setcolor
currentpoint 0 0 moveto
@@ -1147,39 +1097,6 @@
/debug debug 1 add def
} if
- dup keyShiftF11 eq {
- 400 0 moveto "ani_%04d.jpg" play_movie
- } if
-
- dup keyShiftF1 eq {
- /transp transp 0x10 sub 0 max def
-
- /player 0 def
- player "hapysuse.mod" findfile dup
- {
- mod.load
- config.volume sound.setvolume
- player 0 mod.play
- /player player 1 add 3 and def
- } {
- pop
- } ifelse
-
- pop 0
- } if
-
- dup keyShiftF3 eq {
- "fsfsong.wav" findfile dup
- {
- config.volume sound.setvolume
- wav.play
- } {
- pop
- } ifelse
-
- pop 0
- } if
-
dup keyShiftF4 eq {
% sound test XXXXXXXX
@@ -1414,37 +1331,7 @@ screen.fallback {
} if
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Figure out whether to use penguin theme.
-%
-
-/config.penguin "penguin" 0 gfxconfig.set.int
-
-% more likely during winter...
-config.penguin -1 eq {
- date
- 0
-
- over month 12 eq { 5 add } if
- over month 1 le { 5 add } if
- over weekday 5 eq { 2 mul } if
- over weekday 6 eq { 4 mul } if
- over dup month 12 eq exch day dup 24 ge exch 6 eq or and { pop 100 } if
- over dup month 1 eq exch day 1 eq and { pop 100 } if
-
- /config.penguin exch def
- pop
-} if
-
-/ptheme rand pop rand 100 mod config.penguin lt def
-
-0x417 cvp getbyte 0x40 and 0 ne { /ptheme true def } if
-0x417 cvp getbyte 0x10 and 0 ne { /ptheme false def } if
-
-% prepend penguin section to layout section list
-ptheme {
- /gfxconfig.layout [ "penguin" gfxconfig.layout { } forall ] gfxconfig.layout free def
-} if
+/ptheme false def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
diff --git a/src/dia_about.inc b/src/dia_about.inc
index 2055ea6..a754d29 100644
--- a/src/dia_about.inc
+++ b/src/dia_about.inc
@@ -64,7 +64,7 @@
/about.msg {
/about.msg
- ptheme { "pabout.txt" } { "about.txt" } ifelse findfile dup .undef ne {
+ "about.txt" findfile dup .undef ne {
dup length string dup cvp rot dup length memcpy
} if
def
diff --git a/src/main.bc b/src/main.bc
index abbb584..fa1b98b 100644
--- a/src/main.bc
+++ b/src/main.bc
@@ -25,6 +25,3 @@
%% include keytables.inc
%% include locale.inc
%% include speech.inc
-
-%% include penguin.inc
-
diff --git a/src/menu.inc b/src/menu.inc
index 2f957c1..7426cb4 100644
--- a/src/menu.inc
+++ b/src/menu.inc
@@ -343,7 +343,7 @@
window.current .font get setfont
- /boot.ed.width screen.size pop boot.pos.x boot.pos.y pop sub ptheme { 60 } { 20 } ifelse sub def
+ /boot.ed.width screen.size pop boot.pos.x boot.pos.y pop sub 20 sub def
/boot.ed.height fontheight 2 add def
/boot.window window.current def
diff --git a/src/timeout.inc b/src/timeout.inc
index f1bb716..bc75bc2 100644
--- a/src/timeout.inc
+++ b/src/timeout.inc
@@ -15,8 +15,6 @@
% first time
timeout.current .undef eq { over timeout.init } if
- ptheme { over over p.timeout.animate } if
-
% no counter
timeout.steps .undef eq { return } if