Degradado en gris

9 views

Skip to first unread message

galil...@gmail.com

unread,

Apr 1, 2016, 1:24:50 PM4/1/16

to reda4

Después del anterior programa me sentía muy osado, así que me dije "Vamos a probar más cosas. ¿Y si ...?". El resultado es otro trocito de código "bonito", que, además, refiné en el último momento eliminando los últimos vestigios de variables que usaba antes. Es lo que más me gusta de los Forth (y, por extensión, de reda4): que da la impresión de que los programas siempre se pueden optimizar un poquito más.

Helo aquí.

^r4/lib/gui.txt

: cls $000000 ink sh $ff / 1+ sh
	( 0 >? )( 1- dup pick2 mod 0? ( ink@ $010101 + ink ) drop
	dup 0 swap op dup sw swap line ) drop
	show 'exit >esc< ;