Author Topic: Second font  (Read 348 times)

Cybermonkey

  • Administrator
  • Hero Member
  • *****
  • Posts: 574
    • View Profile
    • Home of EGSL
Second font
« on: 26. December 2015, 18:58:21 »
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()

Best regards,
Cybermonkey