useless aesthetics -- ascii dragonfly boot splash
Aaron Malone
aaron at munge.net
Mon Jan 5 09:38:11 PST 2004
On Friday 02 January 2004 17:50, Aaron Malone wrote:
> The color version has not been changed -- I actually didn't realize
> the option was there until today. I may learn the color escape
> codes and fix that over the weekend. :)
Thanks for commiting, Jeroen. I just did the color version. There's
not much to it, though, and I don't know if it's worth putting in --
does anyone actually *use* loader_color?
--
Aaron Malone
aaron at xxxxxxxxx
--- beastie.4th.orig Mon Jan 5 17:28:28 2004
+++ beastie.4th Mon Jan 5 17:33:19 2004
@@ -51,25 +51,25 @@
\ The BSD Daemon. He is 19 rows high and 34 columns wide
: technicolor-beastie ( x y -- )
-2dup at-xy ." [1;31m, ," 1+
-2dup at-xy ." /( )`" 1+
-2dup at-xy ." \ \___ / |" 1+
-2dup at-xy ." /- [37m_[31m `-/ '" 1+
-2dup at-xy ." ([37m/\/ \[31m \ /\" 1+
-2dup at-xy ." [37m/ / |[31m ` \" 1+
-2dup at-xy ." [34mO O [37m) [31m/ |" 1+
-2dup at-xy ." [37m`-^--'[31m`< '" 1+
-2dup at-xy ." (_.) _ ) /" 1+
-2dup at-xy ." `.___/` / " 1+
-2dup at-xy ." `-----' /" 1+
-2dup at-xy ." [33m<----.[31m __ / __ \" 1+
-2dup at-xy ." [33m<----|====[31mO)))[33m==[31m) \) /[33m====|" 1+
-2dup at-xy ." [33m<----'[31m `--' `.__,' \" 1+
-2dup at-xy ." | |" 1+
-2dup at-xy ." \ / /\" 1+
-2dup at-xy ." [36m______[31m( (_ / \______/" 1+
-2dup at-xy ." [36m,' ,-----' |" 1+
-at-xy ." `--{__________) [0m" 1+
+2dup at-xy ." " 1+
+2dup at-xy ." " 1+
+2dup at-xy ." ,--, [31m| [37m,--," 1+
+2dup at-xy ." | `-, [31m,^, [37m,-' |" 1+
+2dup at-xy ." `, `-, [32m([31m/ \[32m) [37m,-` ,-'" 1+
+2dup at-xy ." `-, `-,[31m/ \[37m,-` ,-`" 1+
+2dup at-xy ." `------[31m( )[37m------'" 1+
+2dup at-xy ." ,----------[31m( )[37m-----------," 1+
+2dup at-xy ." | _,-[31m( )[37m-,_ |" 1+
+2dup at-xy ." `-,__,-` [31m\ / [37m`-,__,-'" 1+
+2dup at-xy ." [31m| |" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." | |" 1+
+2dup at-xy ." `|'[0m" 1+
+2dup at-xy ." " 1+
+at-xy ."
;
: boring-beastie ( x y -- )
More information about the Submit
mailing list