Update of /cvsroot/q-lang/q/modules/ggi/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv11589
Added Files:
font_test.q
Log Message:
Added font test example
--- NEW FILE: font_test.q ---
/* $Id: font_test.q,v 1.1 2003/12/19 21:37:17 agraef Exp $ */
/* font_test.q: Little test script showing how to render text using Q-GGI's
font interface. NOTE: This requires FreeType2 to work. */
import ggi;
def FONT = "/usr/X11R6/lib/X11/fonts/truetype/times.ttf",
FONT_METRIC = (),
INDEX = 0, SIZE = 50, RES = 100,
RED = (0xffff,0,0), GREEN = (0,0xffff,0), BLUE = (0,0,0xffff),
BLACK = (0,0,0), WHITE = (0xffff,0xffff,0xffff);
def VIS = ggi_open (), _ = ggi_set_mode VIS "640x480" ||
ggi_set_foreground VIS WHITE ||
ggi_set_font VIS FONT INDEX ||
ggi_set_font_metric VIS FONT_METRIC ||
ggi_set_char_size VIS SIZE RES;
// set the font size
size SIZE = ggi_set_char_size VIS SIZE RES;
// set antialiasing mode
antialias FLAG = ggi_set_antialias VIS FLAG;
// set transform vector and matrix
transform VECT MATRIX
= ggi_set_transform VIS VECT MATRIX;
// print a sample of the current font
test P MSG = ggi_puts VIS P MSG ||
// draw bounding box
ggi_draw_hline VIS (0,Y) 640 ||
ggi_draw_hline VIS (0,Y+H-1) 640 ||
ggi_draw_vline VIS (X,0) 480 ||
ggi_draw_vline VIS (X+W-1,0) 480
where (X,Y) = P, (W,H) = ggi_get_string_size VIS MSG;
// set foreground and background color
fg COL = ggi_set_foreground VIS COL;
bg COL = ggi_set_background VIS COL;
// clear the display
clr = ggi_clear VIS;
|
