//:::: RESULTS (FPS) ::::
//Celeron D:
//  (-Os) 390
//  (-O3) 470
//iPAQ 3850 200 mHz, 8bit color:
//  (-Os) 19
//  (-O3) 25
//iPAQ 3850 200 mHz, 16bit color:
//  (-Os) 15
//  (-O3) 20
//Palm TungstenT 140 mHz, 8bit color:
//  (-Os) 26
//  (-O3) 40
//Palm TungstenT 140 mHz, 16bit color:
//  (-Os) 20
//  (-O3) 30

resize_pixi( 0, 240, 160 )

s = 16000
cube = new_array( 8 * 8 )
cube[ 0 * 8 + 0 ] = -s
cube[ 0 * 8 + 1 ] = -s
cube[ 0 * 8 + 2 ] = -s
cube[ 1 * 8 + 0 ] = s
cube[ 1 * 8 + 1 ] = -s
cube[ 1 * 8 + 2 ] = -s
cube[ 2 * 8 + 0 ] = s
cube[ 2 * 8 + 1 ] = s
cube[ 2 * 8 + 2 ] = -s
cube[ 3 * 8 + 0 ] = -s
cube[ 3 * 8 + 1 ] = s
cube[ 3 * 8 + 2 ] = -s
cube[ 4 * 8 + 0 ] = -s
cube[ 4 * 8 + 1 ] = -s
cube[ 4 * 8 + 2 ] = s
cube[ 5 * 8 + 0 ] = s
cube[ 5 * 8 + 1 ] = -s
cube[ 5 * 8 + 2 ] = s
cube[ 6 * 8 + 0 ] = s
cube[ 6 * 8 + 1 ] = s
cube[ 6 * 8 + 2 ] = s
cube[ 7 * 8 + 0 ] = -s
cube[ 7 * 8 + 1 ] = s
cube[ 7 * 8 + 2 ] = s
cube_t = new_array( 12 * 8 )
cube_t[ 0 * 8 + 0 ] = 0
cube_t[ 0 * 8 + 1 ] = 1
cube_t[ 0 * 8 + 2 ] = 2
cube_t[ 0 * 8 + 3 ] = #809070
cube_t[ 0 * 8 + 4 ] = 256
cube_t[ 1 * 8 + 0 ] = 0
cube_t[ 1 * 8 + 1 ] = 2
cube_t[ 1 * 8 + 2 ] = 3
cube_t[ 1 * 8 + 3 ] = #506070
cube_t[ 1 * 8 + 4 ] = 256
cube_t[ 2 * 8 + 0 ] = 4
cube_t[ 2 * 8 + 1 ] = 5
cube_t[ 2 * 8 + 2 ] = 6
cube_t[ 2 * 8 + 3 ] = #90A0B0
cube_t[ 2 * 8 + 4 ] = 256
cube_t[ 3 * 8 + 0 ] = 4
cube_t[ 3 * 8 + 1 ] = 6
cube_t[ 3 * 8 + 2 ] = 7
cube_t[ 3 * 8 + 3 ] = #D0C0A0
cube_t[ 3 * 8 + 4 ] = 256
cube_t[ 4 * 8 + 0 ] = 0
cube_t[ 4 * 8 + 1 ] = 7
cube_t[ 4 * 8 + 2 ] = 4
cube_t[ 4 * 8 + 3 ] = #809070
cube_t[ 4 * 8 + 4 ] = 256
cube_t[ 5 * 8 + 0 ] = 0
cube_t[ 5 * 8 + 1 ] = 3
cube_t[ 5 * 8 + 2 ] = 7
cube_t[ 5 * 8 + 3 ] = #6090E0
cube_t[ 5 * 8 + 4 ] = 256
cube_t[ 6 * 8 + 0 ] = 1
cube_t[ 6 * 8 + 1 ] = 2
cube_t[ 6 * 8 + 2 ] = 5
cube_t[ 6 * 8 + 3 ] = #FFFFFF
cube_t[ 6 * 8 + 4 ] = 256
cube_t[ 7 * 8 + 0 ] = 2
cube_t[ 7 * 8 + 1 ] = 5
cube_t[ 7 * 8 + 2 ] = 6
cube_t[ 7 * 8 + 3 ] = #FF9080
cube_t[ 7 * 8 + 4 ] = 256
cube_t[ 8 * 8 + 0 ] = 0
cube_t[ 8 * 8 + 1 ] = 1
cube_t[ 8 * 8 + 2 ] = 5
cube_t[ 8 * 8 + 3 ] = #D0E0C0
cube_t[ 8 * 8 + 4 ] = 256
cube_t[ 9 * 8 + 0 ] = 0
cube_t[ 9 * 8 + 1 ] = 4
cube_t[ 9 * 8 + 2 ] = 5
cube_t[ 9 * 8 + 3 ] = #40E0F0
cube_t[ 9 * 8 + 4 ] = 256
cube_t[ 10 * 8 + 0 ] = 3
cube_t[ 10 * 8 + 1 ] = 2
cube_t[ 10 * 8 + 2 ] = 7
cube_t[ 10 * 8 + 3 ] = #909090
cube_t[ 10 * 8 + 4 ] = 256
cube_t[ 11 * 8 + 0 ] = 2
cube_t[ 11 * 8 + 1 ] = 6
cube_t[ 11 * 8 + 2 ] = 7
cube_t[ 11 * 8 + 3 ] = #FFFFFF
cube_t[ 11 * 8 + 4 ] = 256

start_timer( 0 )

st:

transp( 256 )
clear( BLACK )

t = get_timer( 0 ) / 32
c = get_color( csin( t ) + 168, ccos( t ) + 180, csin( t / 2 ) + 198 )

sc2 = 0

again:

t_reset
t_scale( 256, 256, 256 )
t_rotate_z( t, 0, 0 )
t_rotate_x( t * 2, 0, 0 )
t_rotate_y( t * 3, 0, 0 )

transp( 128 )
sort_triangles( cube, cube_t )
triangles3d( cube, cube_t )

t_reset
transp( 256 )
f = fps
print( "fps: $f", -78, -78, #FFFFFF )

frame( 0 )
go st