03-06-2006, 12:36 AM
0,0,0,1,0,0,0
0,0,1,0,1,0,0
0,1,1,1,1,1,0
0,1,0,0,0,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
That would be A and B and you could figure ot the rest
This will give you a fast font routine. I have an even faster routine somewhere, I'll look for it for you.
0,0,1,0,1,0,0
0,1,1,1,1,1,0
0,1,0,0,0,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
1,0,0,0,0,0,1
1,0,0,0,0,0,1
1,1,1,1,1,1,0
That would be A and B and you could figure ot the rest
Code:
'make the arrays
DIM font(25) as integer ptr '26 letters
FOR i = 0 TO 25
font(25) = imagecreate(7,7)
NEXT
'load the file
OPEN "font.fnt" FOR INPUT AS #1
FOR i = 0 TO 25
For x = 0 TO 6
For y = 0 To 6
INPUT #1, a
PSET font(i), (x, y), a
Next
Next
Next
'place an A on the screen
Screenres 640, 480, 32
PUT (10, 10), font(1), TRANS
'important! don't let the program leak memory
FOR i = 0 TO 25
imagedestroy font(i)
NEXT
This will give you a fast font routine. I have an even faster routine somewhere, I'll look for it for you.
f you play a Microsoft CD backwards you can hear demonic voices. The scary part is that if you play it forwards it installs Windows.