Code: Select all
set_pixel_size( WINDOW_XSIZE / DESIRED_WIDTH )
resize( get_screen(), WINDOW_XSIZE, WINDOW_YSIZE )Code: Select all
$scale = 2
t_scale( $scale, $scale, $scale )
print( txt )
t_reset()Code: Select all
//Call this function to show the log on the screen:
fn show_log()
{
scr = get_screen()
xsize = get_xsize( scr )
ysize = get_ysize( scr )
hxsize = xsize div 2
hysize = ysize div 2
set_pixel_size( xsize / 2 )
resize( get_screen(), xsize , ysize )
$l = get_system_log()
clear()
print( $l, -hxsize, hysize, WHITE, BOTTOM | LEFT )
frame()
remove( $l )
while 1 //Wait for the EVT_QUIT event:
{
while( get_event() ) { if EVT[ EVT_TYPE ] == EVT_QUIT { halt } }
frame()
}
}
logf( "\n" )
Code: Select all
fn show_log()
{
set_pixel_size( 2 )
resize( get_screen(), WINDOW_XSIZE, WINDOW_YSIZE )
scr = get_screen()
xsize = get_xsize( scr )
ysize = get_ysize( scr )
hxsize = xsize div 2
hysize = ysize div 2
$l = get_system_log()
clear()
print( $l, -hxsize, hysize, WHITE, BOTTOM | LEFT )
frame()
remove( $l )
while 1 //Wait for the EVT_QUIT event:
{
while( get_event() ) { if EVT[ EVT_TYPE ] == EVT_QUIT { halt } }
frame()
}
}