Author Topic: Second font  (Read 2020 times)

Cybermonkey

  • Administrator
  • *****
  • Posts: 0
Second font
« 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()