r30 in svn...
core:
- new string_ptoa more efficient and same result in different SO.
- check constants already defined as variable
- Fix variant arg for pointer vars
- Fix unsigned comparations
modules:
- 32 bits drawing alpha support (alpha-pixel and drawing_alpha)
- speed up some drawing functions
- write_var pointer vars support
sample:
import "mod_draw"
import "mod_wm"
import "mod_key"
import "mod_video"
import "mod_text"
import "mod_say"
import "mod_rand"
import "mod_map"
Process Main()
private
unsigned int ga = 255;
unsigned int r = 255, g = 255, b = 255;
unsigned int a = 255;
char * rgba;
Begin
set_mode(640,480,32);
write(0,10,10,0,"drawing_alpha:"); write_var(0,110,10,0,ga);
write(0,10,20,0,"r:"); write_var(0,110,20,0,r);
write(0,10,30,0,"g:"); write_var(0,110,30,0,g);
write(0,10,40,0,"b:"); write_var(0,110,40,0,b);
write(0,10,50,0,"alpha"); write_var(0,110,50,0,a);
write(0,10,60,0,"color32:"); write_var(0,110,60,0,rgba);
Repeat
if (key(_1) and ga>0) drawing_alpha(ga--); end
if (key(_2) and ga<255) drawing_alpha(ga++); end
if (key(_q) and r>0) drawing_color(rgba(r--,g,b,a)); end
if (key(_a) and r<255) drawing_color(rgba(r++,g,b,a)); end
if (key(_w) and g>0) drawing_color(rgba(r,g--,b,a)); end
if (key(_s) and g<255) drawing_color(rgba(r,g++,b,a)); end
if (key(_e) and b>0) drawing_color(rgba(r,g,b--,a)); end
if (key(_d) and b<255) drawing_color(rgba(r,g,b++,a)); end
if (key(_r) and a>0) drawing_color(rgba(r,g,b,a--)); end
if (key(_f) and a<255) drawing_color(rgba(r,g,b,a++)); end
if (key(_SPACE)) draw_box(rand(0,640),rand(0,480),rand(0,640),rand(0,480)); end
rgba = rgba(r,g,b,a);
frame;
Until(exit_status||key(_ESC))
End