From ba42f5be52d6f48ccc0830400184db64fc0fd23a Mon Sep 17 00:00:00 2001
From: Scott Long <scottl@FreeBSD.org>
Date: Sat, 13 Sep 2003 18:35:01 +0000
Subject: [PATCH] Apply Aleksander Fafula's crayons to the beastie.  Add the
 this line to /boot/loader.conf to see the pretty colors =-)

loader_color="YES"
---
 sys/boot/forth/beastie.4th | 39 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th
index 415f1005b8e8..7fa2043fce2f 100644
--- a/sys/boot/forth/beastie.4th
+++ b/sys/boot/forth/beastie.4th
@@ -1,4 +1,5 @@
 \ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
+\ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
 \ All rights reserved.
 \
 \ Redistribution and use in source and binary forms, with or without
@@ -48,7 +49,29 @@ variable rebootkey
 46 constant dot
 
 \ The BSD Daemon.  He is 19 rows high and 34 columns wide
-: print-beastie ( x y -- )
+: technicolor-beastie ( x y -- )
+2dup at-xy ."               ,        ," 1+
+2dup at-xy ."              /(        )`" 1+
+2dup at-xy ."              \ \___   / |" 1+
+2dup at-xy ."              /- _  `-/  '" 1+
+2dup at-xy ."             (/\/ \ \   /\" 1+
+2dup at-xy ."             / /   | `    \" 1+
+2dup at-xy ."             O O   ) /    |" 1+
+2dup at-xy ."             `-^--'`<     '" 1+
+2dup at-xy ."            (_.)  _  )   /" 1+
+2dup at-xy ."             `.___/`    /       " 1+
+2dup at-xy ."               `-----' /" 1+
+2dup at-xy ."  <----.     __ / __   \" 1+
+2dup at-xy ."  <----|====O)))==) \) /====|" 1+
+2dup at-xy ."  <----'    `--' `.__,' \" 1+
+2dup at-xy ."               |        |" 1+
+2dup at-xy ."                \       /       /\" 1+
+2dup at-xy ."           ______( (_  / \______/" 1+
+2dup at-xy ."         ,'  ,-----'   |" 1+
+at-xy ."         `--{__________) " 1+
+;
+
+: boring-beastie ( x y -- )
 	2dup at-xy ."              ,        ," 1+
 	2dup at-xy ."             /(        )`" 1+
 	2dup at-xy ."             \ \___   / |" 1+
@@ -70,6 +93,20 @@ variable rebootkey
 	     at-xy ."        `--{__________)"
 ;
 
+: print-beastie ( x y -- )
+	s" loader_color" getenv
+	dup -1 = if
+		drop
+		boring-beastie
+		exit
+	then
+	s" YES" compare-insensitive 0<> if
+		boring-beastie
+		exit
+	then
+	technicolor-beastie
+;
+
 : acpienabled? ( -- flag )
 	s" acpi_load" getenv
 	dup -1 = if