Gama de color

[galil...@gmail.com]

Aquí ya entré de lleno en el manejo del modo gráfico, y, aunque me las prometía muy felices, en programas posteriores tuve más de un quebradero de cabeza.

Pero, mientras tanto, disfruté (del resultado y de la *"belleza" del código).

^r4/lib/gui.txt

#colores ( 0 ) ( 0 ) ( 255 )

#ancho 256 #alto 256

:b1 0 ( ancho <? )( 2dup setxy 2dup 'colores c!+ c!+ drop colores px!+ 1+ ) drop ; 

:b0 0 ( alto <? )( b1 1+ ) drop ; 

: cls b0 show 'exit >esc< ; 

(*) "La belleza está en los ojos del que mira".