Avances, Diario de...

blostec · March 13, 2009, 09:25:45 AM

No se si lo has hecho a propósito o es un descuido, pero en esta release falta el describe.bat.

SplinterGU · March 13, 2009, 09:07:12 PM

r29 in svn...

SplinterGU · March 13, 2009, 09:07:49 PM

Quote from: blostec on March 13, 2009, 09:25:45 AM
No se si lo has hecho a propósito o es un descuido, pero en esta release falta el describe.bat.

no me di cuenta... gracias... lo incluire en la proxima... me esta costando mucho subir las releases...

SplinterGU · March 15, 2009, 12:05:01 AM

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:

Code Select


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

Drumpi · March 18, 2009, 10:13:03 AM

Por curiosidad ¿cuando sacas los binarios? cuando ya se ha probado como estable, cuando trabajas en la siguiente revisión, al poco tiempo...
Es que hay ganas :D :D :D :D

splinter_work · March 18, 2009, 12:42:45 PM

hoy a la noche generare todo...

blostec · March 18, 2009, 01:31:14 PM

splinter_work? a que se debe ese nuevo nick?

splinter_work · March 18, 2009, 02:35:15 PM

a que estoy en el trabajo... mi otro nick es solo para uso en zona militarizada...

HaCkZJuaNN · March 18, 2009, 05:29:14 PM

Quote from: splinter_work on March 18, 2009, 02:35:15 PMen zona militarizada...

???

MythomizeR · March 20, 2009, 09:35:38 AM

Gran trabajo con las últimas optimizaciones/incorporaciones al lenguaje con cosas tales como "new string_ptoa more efficient and same result in different SO", "speed up some drawing functions", "write_var pointer vars support"... me gustan esas cosas...

Por cierto, puesto que ya diste soporte de fade en 32bits, ya se podría eliminar la línea que hace referencia a ello en la sección "a completar (urgencia media)" del hilo "TODO", así como quizás actualizar alguna cosa de ese hilo...

Saludos.

izubiaurre · March 20, 2009, 06:46:04 PM

Quote from: SplinterGU on March 15, 2009, 12:05:01 AM
(...)

Code Select Expand
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

Una cosa, ¿el código no se tendría que ver con colores?

izubiaurre · March 20, 2009, 06:49:26 PM

Bueno, me respondo a mí mismo:

[code language="bennu"]
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
[/code]

SplinterGU · March 20, 2009, 10:34:52 PM

Quote from: MythomizeR on March 20, 2009, 09:35:38 AM
Gran trabajo con las últimas optimizaciones/incorporaciones al lenguaje con cosas tales como "new string_ptoa more efficient and same result in different SO", "speed up some drawing functions", "write_var pointer vars support"... me gustan esas cosas...

Por cierto, puesto que ya diste soporte de fade en 32bits, ya se podría eliminar la línea que hace referencia a ello en la sección "a completar (urgencia media)" del hilo "TODO", así como quizás actualizar alguna cosa de ese hilo...

Saludos.

gracias... hoy hay nuevas mejoras, en un rato las subo...
cierto...

MythomizeR · March 20, 2009, 11:45:35 PM

A ti por la labor, estaré pendiente de esas novedades ;-)

Windgate · March 21, 2009, 09:49:39 AM

Arg, siento decir que desde Windows, copiando y pegando ese codigo y pulsando F6 (Compilar+Ejecutar) el programa se me cierra solo...

¿Me falta actualizar una DLL verdad? Me ha pasado varias veces en los ultimos meses. Si usa alguna DLL nueva de las ultimas 3-4 semanas tiene que ser eso. Confirmadme!