get rid of some easter eggs (esp. penguins)

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