Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

unifont_LCARS v0.1

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
ShiaPrime



Anmeldungsdatum: 02.10.2011
Beiträge: 2
BeitragVerfasst am: 03.10.2011, 14:01    Titel: unifont_LCARS v0.1 Antworten mit Zitat
Bei diesem Projekt handelt es sich um integrierbare proportionalen Schriftart.
Das Design ist in Anlehnung an den aus Star Trek bekannten LCARS-Style erstellt. Der Quellcode basiert auf dem Code von "Eternal_Pain" für nicht-proportionale Schriftarten. Eine Anpassung macht es nun möglich eigene proportional Schriftarten zu erstellen.
Über den Sub-Aufruf
Code:
ufprint(x, y, "Hallo Welt!", color, backgroundcolor)
lässt sich der Text in jedem Terminalfenster anzeigen. Erforderlich ist lediglich der Betrieb im Grafikmodus sowie in includierte Unifont-Datei. (z.B. unifont_lcars.bi)
Damit die Schrift im ASCII- bzw. ANSI-Modus korrekt angezeigt wird, sind im Bereich der Sonderzeichen Doppelungen vorhanden.
HINWEIS: Beim LCARS-Style gibt es keine kleinen Buchstaben, deshalb sind die Zeichen für Groß- und Kleinschreibung in diesem Fall identisch.

unifont_lcars.bi
Code:

Declare Sub ufprint(ByVal pos_x As Integer,_
                            ByVal pos_y As Integer,_
                   ByVal text As String,_
                   ByVal fcolor As Integer,_
                   ByVal bcolor As Integer)
Dim Shared font(0 TO 255, 16) As Integer

Sub ufprint(ByVal pos_x AS Integer, ByVal pos_y As Integer,_
           ByVal text As String, ByVal fcolor As Integer, ByVal bcolor As Integer)
  Dim As Integer font_line_buffer,_
                        font_line_buffer_background,_
                        letter_chr,_
                         letter_width,_
                         letter_chr_positionX,_
                        i, j, x, y
   For i = 0 To 255
    Read letter_chr
    For y = 0 To 16           
      Read font(letter_chr, y)
    Next
   Next i
  If text = "" Then Exit Sub
  For j = 0 To Len(text) - 1
    letter_chr = Asc(Mid$(text, j + 1, 1))
    '? "chr(" & letter_chr & "), ";
    '?
    If letter_chr > 31 Then
      For y = 0 To 16
         font_line_buffer = font(letter_chr, y)        
        If y = 0 Then
           letter_width = font(letter_chr, y)
        Else
           If bcolor > 0 Then
              font_line_buffer_background = 255 - font_line_buffer
           EndIf
           '? font_line_buffer_background           
          For x = 7 To 0 Step -1
             If font_line_buffer_background - (2^x) > -1 Then
                PSet(pos_x + x + letter_chr_positionX, pos_y + y), bcolor
               font_line_buffer_background = font_line_buffer_background - (2^x)
             EndIf
             If font_line_buffer - (2^x) > -1 Then
                PSet(pos_x + x + letter_chr_positionX, pos_y + y), fcolor
               font_line_buffer = font_line_buffer - (2^x)
             EndIf
          Next
        EndIf
      Next
    EndIf
    letter_chr_positionX = letter_chr_positionX + letter_width
  Next
End Sub
'                 1
'           1 3 6 2
' X 1 2 4 8 6 2 4 8 ---
'
' 1 1 1 1 1 1 1 1 1       255
' 2 0 0 0 0 0 0 0 0     000
' 3 0 0 0 0 0 0 0 0       000
' 4 0 0 0 0 0 0 0 0     000
' 5 0 0 0 0 0 0 0 0     000
' 6 0 0 0 0 0 0 0 0     000
' 7 0 0 0 0 0 0 0 0     000
' 8 0 0 0 0 0 0 0 0     000
' 9 0 0 0 0 0 0 0 0     000
'10 0 0 0 0 0 0 0 0     000
'11 0 0 0 0 0 0 0 0     000
'12 0 0 0 0 0 0 0 0     000
'13 0 0 0 0 0 0 0 0     000
'14 0 0 0 0 0 0 0 0     000
'15 0 0 0 0 0 0 0 0     000
'16 0 0 0 0 0 0 0 0     000
Data 32 ' Space
Data 4, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 33  ' !
Data 3, 000, 000, 003, 003, 003, 003, 003, 003, 003, 000, 003, 003, 000, 000, 000, 000
Data 34  ' "
Data 6, 000, 027, 027, 027, 010, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 35  ' #
Data 8, 000, 000, 054, 054, 127, 054, 054, 054, 054, 127, 054, 054, 000, 000, 000, 000
Data 36  ' $
Data 7, 012, 012, 030, 051, 051, 006, 012, 024, 048, 051, 051, 030, 012, 012, 000, 000
Data 37  ' %
Data 7, 000, 000, 051, 051, 024, 024, 012, 012, 006, 006, 051, 051, 000, 000, 000, 000
Data 38    ' &
Data 8, 000, 000, 028, 054, 054, 028, 110, 059, 051, 051, 051, 110, 000, 000, 000, 000
Data 39  ' '
Data 4, 000, 006, 006, 006, 003, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 40  ' (
Data 5, 000, 000, 012, 006, 003, 003, 003, 003, 003, 003, 006, 012, 000, 000, 000, 000
Data 41  ' )
Data 5, 000, 000, 003, 006, 012, 012, 012, 012, 012, 012, 006, 003, 000, 000, 000, 000
Data 42  ' *
Data 8, 000, 000, 000, 000, 000, 102, 060, 255, 060, 102, 000, 000, 000, 000, 000, 000
Data 43  ' +
Data 7, 000, 000, 000, 000, 000, 012, 012, 063, 012, 012, 000, 000, 000, 000, 000, 000
Data 44  ' ,
Data 4, 000, 000, 000, 000, 000, 000, 000, 000, 000, 006, 006, 006, 003, 000, 000, 000
Data 45  ' -
Data 7, 000, 000, 000, 000, 000, 000, 000, 063, 000, 000, 000, 000, 000, 000, 000, 000
Data 46  ' .
Data 3, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 003, 003, 000, 000, 000, 000
Data 47  ' /
Data 7, 000, 000, 012, 012, 012, 006, 006, 006, 006, 003, 003, 003, 000, 000, 000, 000
Data 48  ' 0
Data 6, 000, 000, 014, 027, 027, 027, 027, 027, 027, 027, 027, 014, 000, 000, 000, 000
Data 49  ' 1
Data 4, 000, 000, 006, 006, 007, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 50  ' 2
Data 7, 000, 000, 030, 051, 051, 048, 024, 014, 003, 003, 003, 063, 000, 000, 000, 000
Data 51    ' 3
Data 7, 000, 000, 030, 051, 051, 048, 028, 048, 048, 051, 051, 030, 000, 000, 000, 000
Data 52  ' 4
Data 8, 000, 000, 048, 056, 060, 054, 051, 127, 048, 048, 048, 048, 000, 000, 000, 000
Data 53  ' 5
Data 7, 000, 000, 063, 003, 003, 003, 031, 048, 048, 051, 051, 030, 000, 000, 000, 000
Data 54  ' 6
Data 7, 000, 000, 028, 006, 003, 003, 031, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 55  ' 7
Data 7, 000, 000, 031, 024, 024, 012, 012, 006, 006, 003, 003, 003, 000, 000, 000, 000
Data 56  ' 8
Data 7, 000, 000, 030, 051, 051, 051, 030, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 57  ' 9
Data 7, 000, 000, 030, 051, 051, 051, 062, 048, 048, 051, 051, 030, 000, 000, 000, 000
Data 58  ' :
Data 3, 000, 000, 000, 000, 003, 003, 000, 000, 000, 003, 003, 000, 000, 000, 000, 000
Data 59  ' ;
Data 4, 000, 000, 000, 000, 006, 006, 000, 000, 000, 006, 006, 003, 000, 000, 000, 000
Data 60  ' <
Data 5, 000, 000, 012, 012, 006, 006, 003, 003, 006, 006, 012, 012, 000, 000, 000, 000
Data 61  ' =
Data 7, 000, 000, 000, 000, 000, 063, 000, 000, 063, 000, 000, 000, 000, 000, 000, 000
Data 62  ' >
Data 5, 000, 000, 003, 003, 006, 006, 012, 012, 006, 006, 003, 003, 000, 000, 000, 000
Data 63  ' ?
Data 7, 000, 000, 030, 051, 051, 048, 024, 012, 012, 000, 012, 012, 000, 000, 000, 000
Data 64  ' @
Data 7, 000, 000, 030, 051, 051, 059, 059, 059, 059, 059, 003, 062, 000, 000, 000, 000
Data 65  ' A
Data 7, 000, 000, 012, 030, 051, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 66  ' B
Data 7, 000, 000, 031, 051, 051, 051, 031, 051, 051, 051, 051, 031, 000, 000, 000, 000
Data 67  ' C
Data 7, 000, 000, 030, 051, 051, 003, 003, 003, 003, 051, 051, 030, 000, 000, 000, 000
Data 68  ' D
Data 7, 000, 000, 031, 051, 051, 051, 051, 051, 051, 051, 051, 031, 000, 000, 000, 000
Data 69  ' E
Data 6, 000, 000, 031, 003, 003, 003, 015, 003, 003, 003, 003, 031, 000, 000, 000, 000
Data 70  ' F
Data 6, 000, 000, 031, 003, 003, 003, 015, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 71  ' G
Data 7, 000, 000, 030, 051, 051, 003, 003, 059, 051, 051, 051, 030, 000, 000, 000, 000
Data 72  ' H
Data 7, 000, 000, 051, 051, 051, 051, 063, 051, 051, 051, 051, 051, 000, 000, 000, 000
Data 73  ' I
Data 3, 000, 000, 003, 003, 003, 003, 003, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 74  ' J
Data 7, 000, 000, 048, 048, 048, 048, 048, 048, 048, 051, 051, 030, 000, 000, 000, 000
Data 75  ' K
Data 7, 000, 000, 51, 051, 027, 027, 015, 027, 027, 051, 051, 051, 000, 000, 000, 000
Data 76  ' L
Data 6, 000, 000, 003, 003, 003, 003, 003, 003, 003, 003, 003, 031, 000, 000, 000, 000
Data 77  ' M
Data 8, 000, 000, 099, 119, 127, 127, 107, 099, 099, 099, 099, 099, 000, 000, 000, 000
Data 78  ' N
Data 8, 000, 000, 099, 103, 111, 127, 123, 115, 099, 099, 099, 099, 000, 000, 000, 000
Data 79  ' O
Data 7, 000, 000, 030, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 80  ' P
Data 7, 000, 000, 031, 051, 051, 051, 031, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 81  ' Q
Data 8, 000, 000, 030, 051, 051, 051, 051, 051, 051, 051, 059, 030, 048, 096, 000, 000
Data 82  ' R
Data 7, 000, 000, 031, 051, 051, 051, 031, 027, 051, 051, 051, 051, 000, 000, 000, 000
Data 83  ' S
Data 7, 000, 000, 030, 051, 051, 006, 012, 024, 048, 051, 051, 030, 000, 000, 000, 000
Data 84  ' T
Data 7, 000, 000, 063, 012, 012, 012, 012, 012, 012, 012, 012, 012, 000, 000, 000, 000
Data 85  ' U
Data 7, 000, 000, 051, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 86  ' V
Data 7, 000, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 012, 000, 000, 000, 000
Data 87    ' W
Data 8, 000, 000, 099, 099, 099, 099, 107, 107, 107, 127, 119, 054, 000, 000, 000, 000
Data 88    ' X
Data 7, 000, 000, 099, 099, 054, 062, 028, 028, 062, 054, 099, 099, 000, 000, 000, 000
Data 89    ' Y
Data 7, 000, 000, 051, 051, 051, 051, 030, 012, 012, 012, 012, 012, 000, 000, 000, 000
Data 90  ' Z
Data 7, 000, 000, 063, 048, 056, 024, 012, 014, 007, 003, 003, 063, 000, 000, 000, 000
Data 91    ' [
Data 5, 000, 000, 015, 003, 003, 003, 003, 003, 003, 003, 003, 015, 000, 000, 000, 000
Data 92  ' \
Data 5, 000, 000, 003, 003, 003, 006, 006, 006, 006, 012, 012, 012, 000, 000, 000, 000
Data 93  ' ]
Data 5, 000, 000, 015, 012, 012, 012, 012, 012, 012, 012, 012, 015, 000, 000, 000, 000
Data 94  ' ^
Data 8, 008, 028, 054, 099, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 95    ' _
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 000, 000
Data 96    ' '
Data 4, 003, 003, 006, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 97  ' a
Data 7, 000, 000, 012, 030, 051, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 98  ' b
Data 7, 000, 000, 031, 051, 051, 051, 031, 051, 051, 051, 051, 031, 000, 000, 000, 000
Data 99  ' c
Data 7, 000, 000, 030, 051, 051, 003, 003, 003, 003, 051, 051, 030, 000, 000, 000, 000
Data 100 ' d
Data 7, 000, 000, 031, 051, 051, 051, 051, 051, 051, 051, 051, 031, 000, 000, 000, 000
Data 101 ' e
Data 6, 000, 000, 031, 003, 003, 003, 015, 003, 003, 003, 003, 031, 000, 000, 000, 000
Data 102 ' f
Data 6, 000, 000, 031, 003, 003, 003, 015, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 103 ' g
Data 7, 000, 000, 030, 051, 051, 003, 003, 059, 051, 051, 051, 030, 000, 000, 000, 000
Data 104 ' h
Data 7, 000, 000, 051, 051, 051, 051, 063, 051, 051, 051, 051, 051, 000, 000, 000, 000
Data 105 ' i
Data 3, 000, 000, 003, 003, 003, 003, 003, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 106 ' j
Data 7, 000, 000, 048, 048, 048, 048, 048, 048, 048, 051, 051, 030, 000, 000, 000, 000
Data 107 ' k
Data 7, 000, 000, 51, 051, 027, 027, 015, 027, 027, 051, 051, 051, 000, 000, 000, 000
Data 108 ' l
Data 6, 000, 000, 003, 003, 003, 003, 003, 003, 003, 003, 003, 031, 000, 000, 000, 000
Data 109 ' m
Data 8, 000, 000, 099, 119, 127, 127, 107, 099, 099, 099, 099, 099, 000, 000, 000, 000
Data 110 ' n
Data 8, 000, 000, 099, 103, 111, 127, 123, 115, 099, 099, 099, 099, 000, 000, 000, 000
Data 111 ' o
Data 7, 000, 000, 030, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 112 ' p
Data 7, 000, 000, 031, 051, 051, 051, 031, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 113 ' q
Data 8, 000, 000, 030, 051, 051, 051, 051, 051, 051, 051, 059, 030, 048, 096, 000, 000
Data 114 ' r
Data 7, 000, 000, 031, 051, 051, 051, 031, 027, 051, 051, 051, 051, 000, 000, 000, 000
Data 115 ' s
Data 7, 000, 000, 030, 051, 051, 006, 012, 024, 048, 051, 051, 030, 000, 000, 000, 000
Data 116 ' t
Data 7, 000, 000, 063, 012, 012, 012, 012, 012, 012, 012, 012, 012, 000, 000, 000, 000
Data 117 ' u
Data 7, 000, 000, 051, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 118 ' v
Data 7, 000, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 012, 000, 000, 000, 000
Data 119 ' w
Data 8, 000, 000, 099, 099, 099, 099, 107, 107, 107, 127, 119, 054, 000, 000, 000, 000
Data 120 ' x
Data 7, 000, 000, 099, 099, 054, 062, 028, 028, 062, 054, 099, 099, 000, 000, 000, 000
Data 121 ' y
Data 7, 000, 000, 051, 051, 051, 051, 030, 012, 012, 012, 012, 012, 000, 000, 000, 000
Data 122 ' z
Data 7, 000, 000, 063, 048, 056, 024, 012, 014, 007, 003, 003, 063, 000, 000, 000, 000
Data 123 ' {
Data 6, 000, 000, 028, 006, 006, 006, 003, 006, 006, 006, 006, 028, 000, 000, 000, 000
Data 124 ' |
Data 3, 000, 000, 003, 003, 003, 003, 000, 003, 003, 003, 003, 003, 000, 000, 000, 000
Data 125 ' }
Data 7, 000, 000, 007, 012, 012, 012, 024, 012, 012, 012, 012, 007, 000, 000, 000, 000
Data 126 ' ~
Data 8, 000, 000, 110, 059, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 127 ' GUI Mittelstück klein
Data 4, 000, 000, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 000, 000, 000, 000
Data 128 ' €
Data 8, 000, 000, 060, 102, 006, 031, 006, 006, 031, 006, 102, 060, 000, 000, 000, 000
Data 129 ' ü
Data 7, 051, 051, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 130 ' é
Data 6, 012, 006, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 131 ' â
Data 7, 012, 018, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 132 ' ä
Data 7, 051, 051, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 133 ' à
Data 7, 006, 012, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 134 ' GUI Bogen klein links
Data 8, 000, 000, 240, 252, 254, 255, 255, 255, 255, 254, 252, 240, 000, 000, 000, 000
Data 135 ' GUI Borgen klein rechts
Data 8, 000, 000, 015, 063, 127, 255, 255, 255, 255, 127, 063, 015, 000, 000, 000, 000
Data 136 ' ê
Data 6, 006, 009, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 137 ' e (mit Doppelpunkt)
Data 6, 027, 027, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 138 ' è
Data 6, 006, 012, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 139 ' i (mit Doppelpunkt)
Data 7, 051, 051, 000, 012, 012, 012, 012, 012, 012, 012, 012, 012, 000, 000, 000, 000
Data 140 ' î
Data 5, 006, 009, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 141 ' ì
Data 5, 006, 012, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 142 ' Ä
Data 7, 051, 051, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 143 ' A ( mit °)
Data 7, 012, 018, 012, 000, 012, 030, 051, 051, 063, 051, 051, 051, 000, 000, 000, 000
Data 144 ' É
Data 6, 012, 006, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 145 ' LCARS Bogen (voll links)
Data 8, 192, 248, 252, 254, 254, 255, 255, 255, 255, 255, 255, 254, 254, 252, 248, 192
Data 146 ' LCARS Bogen (voll rechts)
Data 8, 003, 031, 063, 127, 127, 255, 255, 255, 255, 255, 255, 127, 127, 063, 031, 003
Data 147 ' ô
Data 7, 012, 018, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 148 ' ö
Data 7, 051, 051, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 149 ' ò
Data 7, 006, 012, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 150 ' û
Data 7, 012, 018, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 151 ' ù
Data 7, 006, 012, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 152 ' y (mit Doppelpunkt)
Data 7, 051, 051, 000, 051, 051, 051, 051, 030, 012, 012, 012, 012, 000, 000, 000, 000
Data 153 ' Ö
Data 7, 051, 051, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 154 ' Ü
Data 7, 051, 051, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 155 ' Cent-Zeichen
Data 7, 000, 000, 012, 012, 030, 051, 003, 003, 051, 030, 012, 012, 000, 000, 000, 000
Data 156 ' Pfund-Zeichen
Data 8, 000, 028, 054, 038, 006, 015, 006, 006, 006, 006, 103, 063, 000, 000, 000, 000
Data 157 ' Yen-Zeichen
Data 8, 000, 000, 102, 102, 060, 024, 126, 024, 126, 024, 024, 024, 000, 000, 000, 000
Data 158 ' LCARS-Balken (oben)
Data 8, 255, 255, 255, 255, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 159 ' LCARS-Balken (unten)
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 255, 255, 255, 255
Data 160 ' á
Data 7, 012, 006, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 161 ' í
Data 5, 012, 006, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 162 ' ó
Data 7, 012, 006, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 163 ' ú
Data 7, 012, 006, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 164 ' LCARS-Block (1px)
Data 1, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001, 001
Data 165 ' LCARS-Block (halb)
Data 4, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015, 015
Data 166 ' LCARS-Block (voll)
Data 8, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255
Data 167 ' §
Data 7, 000, 000, 030, 051, 003, 007, 025, 034, 060, 048, 051, 030, 000, 000, 000, 000
Data 168 ' LCARS-Bogen (oben-links I)
Data 8, 000, 000, 000, 192, 224, 240, 248, 248, 252, 254, 254, 254, 255, 255, 255, 255
Data 169 ' LCARS-Bogen (oben-links II)
Data 8, 240, 254, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255
Data 170 ' LCARS-Bogen (oben-rechts I)
Data 8, 031, 127, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255
Data 171 ' LCARS-Bogen (oben-rechts II)
Data 8, 000, 000, 000, 003, 007, 015, 031, 031, 063, 127, 127, 127, 255, 255, 255, 255
Data 172 ' LCARS-Bogen (unten-links I)
Data 8, 255, 255, 255, 255, 254, 254, 254, 252, 248, 248, 240, 224, 192, 000, 000, 000
Data 173 ' LCARS-Bogen (unten-links II)
Data 8, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 254, 240
Data 174 ' LCARS-Bogen (unten-rechts I)
Data 8, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 127, 031
Data 175 ' LCARS-Bogen (unten-rechts II)
Data 8, 255, 255, 255, 255, 127, 127, 127, 063, 031, 031, 015, 007, 003, 000, 000, 000
Data 176 ' °
Data 7, 030, 051, 051, 030, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 177 ' LCARS-Bogen (INNEN oben-rechts)
Data 8, 255, 255, 255, 255, 063, 015, 007, 003, 001, 001, 001, 000, 000, 000, 000, 000
Data 178 ' LCARS-Bogen (INNEN oben-links)
Data 8, 255, 255, 255, 255, 252, 240, 224, 192, 128, 128, 128, 000, 000, 000, 000, 000
Data 179 ' LCARS-Bogen (INNEN unten-rechts)
Data 8, 000, 000, 000, 000, 000, 001, 001, 001, 003, 007, 015, 063, 255, 255, 255, 255
Data 180 ' LCARS-Bogen (INNEN unten-links)
Data 8, 000, 000, 000, 000, 000, 128, 128, 128, 192, 224, 240, 252, 255, 255, 255, 255
Data 181 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 182 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 183 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 184 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 185 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 186 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 187 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 188 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 189 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 190 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 191 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 192 ' À
Data 7, 006, 012, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 193 ' Á
Data 7, 012, 006, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 194 ' Â
Data 7, 012, 018, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 195 ' Â
Data 7, 012, 006, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 196 ' Ä
Data 7, 051, 051, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 197 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 198 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 199 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 200 ' È
Data 6, 006, 012, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 201 ' É
Data 6, 012, 006, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 202 ' Ê
Data 6, 006, 009, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 203 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 204 ' Ì
Data 5, 006, 012, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 205 ' Í
Data 5, 012, 006, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 206 ' Î
Data 5, 006, 009, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 207 ' LCARS-Bogen (INNEN oben-rechts Typ II)
Data 8, 255, 063, 015, 007, 003, 001, 001, 001, 000, 000, 000, 000, 000, 000, 000, 000
Data 208 ' LCARS-Bogen (INNEN oben-links Typ II)
Data 8, 255, 252, 240, 224, 192, 128, 128, 128, 000, 000, 000, 000, 000, 000, 000, 000
Data 209 ' LCARS-Bogen (INNEN unten-rechts Typ II)
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 001, 001, 001, 003, 007, 015, 063, 255
Data 210 ' LCARS-Bogen (INNEN unten-links Typ II)
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 128, 128, 128, 192, 224, 240, 252, 255
Data 211 ' Ó
Data 7, 012, 006, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 244 ' Ô
Data 7, 012, 018, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 213 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 214 ' Ö
Data 7, 051, 051, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 215 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 216 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 217 ' Ù
Data 7, 006, 012, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 218 ' Ú
Data 7, 012, 006, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 219 ' Û
Data 7, 012, 018, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 220 ' Ü
Data 7, 051, 051, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 221 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 222 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 223 ' ß
Data 7, 000, 000, 030, 051, 051, 051, 027, 051, 051, 051, 051, 027, 000, 000, 000, 000
Data 224 ' à
Data 7, 006, 012, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 225 ' á
Data 7, 012, 006, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 226 ' â
Data 7, 012, 018, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 227 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 228 ' ä
Data 7, 051, 051, 000, 012, 030, 051, 051, 063, 051, 051, 051, 051, 000, 000, 000, 000
Data 229 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 230 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 231 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 232 ' è
Data 6, 006, 012, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 233 ' é
Data 6, 012, 006, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 234 ' ê
Data 6, 006, 009, 000, 031, 003, 003, 003, 015, 003, 003, 003, 031, 000, 000, 000, 000
Data 235 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 236 ' ì
Data 5, 006, 012, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 237 ' í
Data 5, 012, 006, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 238 ' î
Data 5, 006, 009, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 239 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 240 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 241 ' î
Data 5, 006, 009, 000, 006, 006, 006, 006, 006, 006, 006, 006, 006, 000, 000, 000, 000
Data 242 ' ò
Data 7, 006, 012, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 243 ' ó
Data 7, 012, 006, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 244 ' ô
Data 7, 012, 018, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 245 ' §
Data 7, 000, 000, 030, 051, 003, 007, 025, 034, 060, 048, 051, 030, 000, 000, 000, 000
Data 246 ' ö
Data 7, 051, 051, 000, 030, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 247 ' Rundungszeichen
Data 8, 000, 000, 000, 000, 110, 059, 000, 000, 110, 059, 000, 000, 000, 000, 000, 000
Data 248 ' °
Data 7, 030, 051, 051, 030, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 249 ' ù
Data 7, 006, 012, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 250 ' ú
Data 7, 012, 006, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 251 ' û
Data 7, 012, 018, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 252 ' ü
Data 7, 051, 051, 000, 051, 051, 051, 051, 051, 051, 051, 051, 030, 000, 000, 000, 000
Data 253 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 254 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000
Data 255 ' FREI
Data 8, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 000

Zur Anzeige aller Schriftzeichen in Tabellenform und CHR-Nummer kann die folgende .bas-Datei verwendet werden:
unifont-chrtable.bas

Code:

Dim As Integer i, x, y
#Include "unifont_lcars.bi"
Screen 12
ufprint(0, 0, Chr(134) & " CHR-Table for Universal-Font 'LCARS V0.2' by ShiaPrime " & Chr(135), 15, 0)
i = 32
For y = 2 To 29 Step 2
  For x = 0 To 15 Step 1
    ufprint(x * 32, y * 16 - 16, i & "", 9, 0)
       ufprint(x * 32, y * 16, Chr(i), 15, 0)
    i += 1 
  Next
Next
Sleep
End


Natürlich ist das Projekt noch nicht fertig. Freue mich aber über Anregungen und Tests auf Nicht-Windows-Systemen.
Viel Spaß damit.

Zuletzt bearbeitet von ShiaPrime am 04.10.2011, 00:05, insgesamt 3-mal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 03.10.2011, 14:32    Titel: Re: unifont_LCARS v0.1 Antworten mit Zitat
Sieht gut aus! lächeln

ShiaPrime hat Folgendes geschrieben:
Freue mich aber über Anregungen und Tests auf Nicht-Windows-Systemen.


Funktioniert auch unter Linux (Debian Squeeze i386) problemlos:


(Zum Vergrößern anklicken)
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
ShiaPrime



Anmeldungsdatum: 02.10.2011
Beiträge: 2
BeitragVerfasst am: 03.10.2011, 14:45    Titel: Antworten mit Zitat
Danke für's testen. Das freut mich. Versuche momentan herauszufinden welche "CHR's" tatsächlich durch die Doppelbelegung nicht tangiert werden um dort die LCARS-bekannten Bögen und Formen zu hinterlegen.

v0.02:
- Hintergrundfarbe ist einstellbar
- einige LCARS-Bögen sind fertig

unifont-example.bas
Code:

#Include "unifont_lcars.bi"
Dim As Integer x
Screen 12
ufprint(8*2, 16, Chr(168)&Chr(169), 1, 0)
For x = 8*4 To 76*8 Step 1
   ufprint(x, 16, Chr(166), 1, 0)
Next
ufprint(8*77, 16, Chr(146), 1, 0)
For x = 8*2 To 12*8 Step 1
   ufprint(x, 16*2, Chr(166), 1, 0)
Next
ufprint(8*13, 16*2, Chr(207), 1, 0)
For x = 8*2 To 12*8 Step 1
   ufprint(x, 16*3+4, Chr(166), 1, 0)
Next
For x = 8*2 To 12*8 Step 1
   ufprint(x, 16*4+4, Chr(166), 1, 0)
Next
For x = 8*2 To 12*8 Step 1
   ufprint(x, 16*5+4, Chr(166), 1, 0)
Next
ufprint(8*8, 16*5+4, " LCARS", 0, 1)
Sleep
End
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Projektvorstellungen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz