#!/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
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Arberstraße 5
# 86179 Augsburg
# E-Mail: iblech@web.de, http://www.way.to/uselinux/
# Tel.: +49 / 821 882955
#
# 

@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";
}
