Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|546\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Dan	Created : 18 November 2018 Edited : 23 November 2018 System : Windows Language : Blitzbasic Bitmapfont as text
Bitmap fonts as easy as text. Color is changeable with the color statement. This was made only for one font (at time), but can be expanded to use multiple fonts. For example, replacing img_font, img_char and Fontstring$ for arrays. This is for monospaced fonts only. Here is a sample bitmap font ;==================================================================== ; Project: Use Bitmapfonts to replace text ; Version: 1.0 ; Author: Dan ; Email: ... ; Copyright: PD ; Description: As simple as text x,y,txt$. ; Replace Text To textf. ; Use Color r,g,b to change the font Color ; Create fonts with the FontString$ (for example with fony: http://hukka.ncn.fi/?fony ) ; Textf function is using the backbuffer to render text. Change this on need. ;==================================================================== Global FontString$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!?$%^&()_+-=;'#:@~,./<>?\\|" Global img_font, img_char img_font=LoadAnimImage("MyAmigaFont8x8x89.png",8,8,0,89) img_char=CreateImage(ImageWidth(img_font),ImageHeight(img_font)) MaskImage img_font,$ff,$ff,$ff ;Set Foreground color (of the font) as mask, so the font color can be changed with color statement ! MaskImage img_char,$ff,0,$ff ;Here use the transparent color of the loaded image. Function textf(x,y,txt$) Local tmptxt$,tmpchar,tmpx,CR,CG,CB,imgw,imgh imgw=ImageWidth(img_char) imgh=ImageHeight(img_char) CR=ColorRed():CG=ColorGreen():CB=ColorBlue() ;Get the current color If CR=$ff And CG=0 And CB=$ff ;If textcolor is same as transparent color, change it Color $fe,0,$ff EndIf For tmpx=1 To Len(txt$) tmptxt$=Mid$(txt$,tmpx,1) tmpchar=Instr(FontString$,tmptxt$) If tmpchar>0 SetBuffer ImageBuffer(img_char) Rect 0,0,imgw,imgh,1 DrawImage img_font,0,0,tmpchar-1 SetBuffer BackBuffer() DrawImage img_char,x+((tmpx-1)imgw),y EndIf Next End Function --v and a demo: Graphics 800,600,0,2 Graphics 320,240,0,3 Include "textf.bb" flashtimer=MilliSecs() rr=Rand(1,255): gg=Rand(1,255) : bb=Rand(1,255) Repeat Cls Color $ff,$ff,$ff textf 10,10,"Hello there this is a bitmap font demo" textf 1,80,"1234567890Ã¼Ã¤Ã¶AbCdEf < nonexistant chars" textf 2,88,"are displayed as spaces" If MilliSecs()-flashtimer>1000 Then rr=Rand(1,255): gg=Rand(1,255) : bb=Rand(1,255) : flashtimer=MilliSecs() Color rr,gg,bb textf 1,30,"flashing text" textf 1,40,"flashing text" textf 1,50,"flashing text" Color $ff,$ff,0 textf 1,100,"Yellow" Color $ff,0,0 textf 60,100,"Red" Color $0,$0,$ff textf 100,100,"Blue" Color $ff,0,$ff textf 1,120,"Transparent collor is used ?!?!" Color $ff,$ff,0 For x=-1 To 1 For y=-1 To 1 Text 4+x,140+y,"Trying to outline" Next Next Color $80,$80,0 Text 4,140,"Trying to outline - Superb !" Flip Delay 25 Until KeyDown(1) End --v

Comments

Bitmapfont as text

Comments