ZXGrafico

[galil...@gmail.com]

El primer microordenador personal con el que programé fue un ZX Spectrum. En una fantástica revista que se publicaba en la década prodigiosa de esta máquina me encontré con un sencillito programa para confeccionar un gráfico muy vistoso (bueno, hay que verlo con los ojos de aquella época: la informática doméstica acababa de nacer y todo era maravilloso).

¡Quién me iba a decir entonces el quebradero de cabeza que supondría su adaptación a reda4 treinta años después! Cosas de no conocer todas las características del lenguaje. El caso es que, tras darle muchas vueltas y no conseguir que funcionase, tuve que recurrir al creador de este lenguaje para que me iluminara. Gracias a él pude confeccionar esta versión simplificada:

^r4/lib/gui.txt

:cx pick2 over sin *. 200 + ;

:cy pick2 pick2 cos *. 200 + ;

:bucle 0 ( 1.0 <? )( cx cy swap pix! 0.002 + ) drop 10 - swap 10 + swap ;

: $ffffff paper negro cls 0 80 ( bucle -? ) 2drop waitkey waitkey ;