Hi Eric,
Am I correct that all of the BIG letters aren't in the latest font1? If so I can fill them in.
I found that if a gap is left at the end of a message, between the last digit and ", then the text clears the screen.
C.
hi C,
I built the big fonts only for a few characters for the demo.
You will need to add the rest.
I found that if a gap is left at the end of a message, between the last digit and ", then the text clears the screen.
That is another bug in the Oshonsoft.
Also when using MidStr, start at number 1,.
To avoid having more than one Font Table I use a simple routine to increase the Font size being displayed.
E
Clip from the 9225 program you could use a similar method in your LCD. [remove the color coding]
'direct write of text to lcd, Rem; set Font size
Proc msg2lcd(x0 As Word, y0 As Word, msg1 As String, color As Word, bg As Word)
'size 0=33 , 1= 17, 2 = 11, 3 = 8, 4 = 7, 5 = 6 chars/line
sx = x0
sy = y0
str_len = Len(msg1) 'num chrs in message
strbit_len = str_len * 6 'num of font bytes to read
lcd_mode = 1 'data
For wr_chr = 1 To str_len 'select char for display
ascval = MidStr(msg1, wr_chr, 1)
Gosub chr2tft 'get array bytes from font table
For fnt1 = 0 To 5 ''strbit_len
font_bit = ary(fnt1) 'get all bytes in chr font sequence
For xrpt = 0 To size 'font size
sy = y0
For bit_cnt = 7 To 0 Step -1
If font_bit.bit_cnt = 1 Then
For yrpt = 0 To size
Call setpixel(sx, sy, color)
sy = sy + 1
Next yrpt
Else
For yrpt = 0 To size
Call setpixel(sx, sy, bg)
sy = sy + 1
Next yrpt
Endif
Next bit_cnt
sx = sx + 1
Next xrpt
Next fnt1
Next wr_chr
ss = 1
End Proc