RetroBASIC

Retrogamecoding(.org) => Pulsar2D => Topic started by: Cybermonkey on December 26, 2015, 05:58:21 PM

Title: Second font
Post by: Cybermonkey on December 26, 2015, 05:58:21 PM
Just wanted to let you know that I just implemented a second built-in font which is more Serif like. See yourself the attached screenshot...
It's not uploaded, yet, but soon.
Fonts can be accessed with the texttype function. Here's the code of the shown screenshot:
Code: [Select]
-- Test of built-in fonts ...

win = openwindow ("Fonttest",-1,-1,800,600)
setactivewindow (win)
cls()
color (255,0,0,255)
drawtext ("Sans Serif Default Font",0,0)
texttype (2)
color (255,255,0,255)
drawtext ("Serif Font",0,10)
textsize (2)
color (0,255,0,255)
drawtext ("Serif Font x2 (0123456789)",0,50)
texttype (1)
color (0,255,255,255)
drawtext ("Sans Serif Font x2 (0123456789)",0,100)
redraw()
inkey()
closewindow (win)
closeapplication()