--------------------------------Linux Guide---------------------------------- by Ingo Blechschmidt (c) 2002 ----------------------------------------------------------------------------- ------------------------- Große Buchstaben für die Konsole ------------------------- Fre Jun 29 21:58:19 MEST 2001 ------------------------- Buchstaben große Konsole Textmodus cap.pl Capital ----------------------------------------------------------------------------- Sie wollen einen Schriftzug, sechs Zeilen hoch, auf die Konsole zeichnen, z.B. als Willkommensschriftzug. ----------------------------------------------------------------------------- Folgendes Perl-Programm hilft, siehe <"down/cap.pl">Download: --------CODE--------: cap.pl #!/usr/bin/perl -w # cap.pl - Zeichnet einen Schriftzug sechs Zeilen hoch # Copyright (C) Fre Jun 29 21:58:19 MEST 2001 by Ingo Blechschmidt @b = ("AAAAAAAA|BBBBBB | CCCCCC|DDDDDD |EEEEEEEE|FFFFFFFF| GGGG |HH HH| I I | JJ|KK KK|LL |MM MM|NN NN| OOOO |PPPPPP | QQQQ |RRRRRR | SSSS |TTTTTTTT|UU UU|VV VV|WW WW|XX XX|YY YY|ZZZZZZZZ|", "AA AA|BB BB|CC |DD DD |EE |FF |GG GG|HH HH| II | JJ|KK KK |LL |MMM MMM|NNN NN| OO OO |PP PP| QQ QQ |RR RR|SS SS| TT |UU UU|VV VV|WW WW| XX XX | YY YY | ZZ|", "AA AA|BB BB|CC |DD DD|EE |FF |GG |HH HH| II | JJ|KKKK |LL |MM MM MM|NN NN NN|OO OO|PP PP|QQ QQ|RR RR| SSS | TT |UU UU|VV VV|WW WW| XX XX | YY YY | ZZZ |", "AAAAAAAA|BBBBBBBB|CC |DD DD|EEEEEE |FFFFFF |GG GGGG|HHHHHHHH| II | JJ|KKKK |LL |MM MM|NN NN NN|OO OO|PPPPPP |QQ Q QQ|RRRRRR | SSS | TT |UU UU|VV VV|WW WW WW| XXXX | YY | ZZZ |", "AA AA|BB BB|CC |DD DD |EE |FF |GG GG|HH HH| II |JJ JJ|KK KK |LL |MM MM|NN NNN| OO OO |PP | QQ QQ |RR RR |SS SS| TT | UU UU | VV VV |WWW WWW| XX XX | YY |ZZ |", "AA AA|BBBBBB | CCCCCC|DDDDDD |EEEEEEEE|FF | GGGG |HH HH| I I | JJJJ |KK KK|LLLLLLLL|MM MM|NN NN| OOOO |PP | QQQQ Q|RR RR| SSSS | T T | UUUU | VV |WW WW|XX XX| YY |ZZZZZZZZ|"); @d = (); @a = split("", $ARGV[0]); foreach $akt (@a) { $d[0] .= substr($b[0], (ord($akt) - 65) * 9, 8) . ' '; $d[1] .= substr($b[1], (ord($akt) - 65) * 9, 8) . ' '; $d[2] .= substr($b[2], (ord($akt) - 65) * 9, 8) . ' '; $d[3] .= substr($b[3], (ord($akt) - 65) * 9, 8) . ' '; $d[4] .= substr($b[4], (ord($akt) - 65) * 9, 8) . ' '; $d[5] .= substr($b[5], (ord($akt) - 65) * 9, 8) . ' '; } foreach $bb (@d) { print "$bb\n"; } --------/CODE-------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- This document is distributed under the terms of the GNU Free Documentation License.