CPlots

[galil...@gmail.com]

Una nueva conversión de un programa realizado en Yabasic a reda4. No es gran cosa, pero realizar estas tareas me sirve para practicar (ya se sabe: la práctica hace al maestro).

^r4/lib/gui.txt

:colorin | n --

  dup 256 / swap 256 mod | azul

  swap dup 256 / swap 256 mod | verde

  swap 256 mod | rojo

  8 << or 8 << or

  ink ;

| Probar diferentes formulas para obtener otros efectos

:p1 over 300 - dup * over 300 - dup * + 3 * ;

:p2 over 300 - over 300 - 0? ( 0.1 + ) /. abs 300 *. ;

:p3 over 1 + over 0.01 - /. ;

:rutina

  1 ( 600 <? )( 1 ( 600 <? )( p1 colorin 2dup pix! 1+ ) drop 1+ ) drop ;

: clrscr rutina show 'exit >esc< ;

[Pablo Hugo Reda]

256 / es igual a 8 >>

256 mod es igual a $ff and

en algun momento el compilador lo va a convertir automaticamente.

la diferencia de velocidad es que la division usa 80 ciclos de reloj mas o menos y el shift y el and solo 1 o menos

​

[galil...@gmail.com]

Enmendado. Gracias.