OpenEuphoria

Re: EuTigr Released!

• Posted by jmduro 3 days ago
• 112 views

I wanted to play with EuTigr with following example:

include tigr.e 
 
procedure main() 
 
	atom screen = tigrWindow(320, 240, "Hello", 0) 
	atom bitmap = tigrLoadImage("9x18.png") 
	atom tfont = tigrLoadFont(bitmap,TCP_ASCII) 
	while not tigrClosed(screen) and not tigrKeyDown(screen,TK_ESCAPE) do 
	 
        tigrClear(screen, {#00, #00, #00}) 
        tigrPrint(screen, tfont, 120, 110, {#F0, #F0, #F0}, "Hello, world.", 0) 
		tigrUpdate(screen) 
		 
	end while 
	tigrFreeFont(tfont) 
	tigrFree(screen) 
	 
end procedure 
 
main() 

No text appears in the window as expected with tigrPrint.

Jean-Marc