Titik Programming Language/Interpreter SDL2 Draw Text

test.ttk

if(!(s_it())) # init ttf
	abt('Unable to init ttf...')
fi

if(!(s_i(S_E))) # init sdl
	abt('Unable to initialize SDL...')
fi

win = s_cw("Test", S_WP_U, S_WP_U, 800, 600, S_W_S) #create window
if(win == Nil)
	abt('Unable to create window...')
fi

fnt = s_oft("test.ttf", 32) #open font

if(fnt == Nil)
	abt('Unable to initialize font...')
fi

text = s_rft(fnt, "Hello, World!", 255, 191, 0, 255) #render font (amber color)

if(text == Nil)
	abt('Unable to create text...')
fi

surface = s_gsw(win) #get window surface
if(surface == Nil)
	abt('Unable to get window surface...')
fi

dd = s_gdsw(text) #get surface dimension
xx = 400 - (dd['width'] / 2)
yy = 300 - (dd['height'] / 2)

rct = s_cr(xx, yy, 0, 0) #create rectangle

s_bsw(text, "", surface, rct) #text blit

s_usw(win)

wl(T)
	event = s_pe()
	event_type = s_gte(event)
	if(event_type == S_E_Q)
		brk
	fi

	s_d(16)
	s_ce(event)
lw

s_fsw(text) #free surface
s_cft(fnt) #close font
s_dw(win) #destroy window
s_qt() #quit ttf
s_q() #quit sdl