My Daily Gist | Ferdinand Silva


Titik Programming Language/Interpreter SDL2 Draw Text

 
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
view raw test.ttk hosted with ❤ by GitHub