Group: comp.lang.forth · Group Profile · Search for Pal3 in comp.lang.forth
Author: Tim Trussell
Date: Dec 8, 2006 08:03
...the work palette create Pal2[] here 256 3 * dup allot 0 fill \ the original palette create Pal3[] here 256 3 * dup allot 0 fill \ a temp work palette \ This declares the Pal1 ...R@ .red C@ R@ .green C@ .blue C@ \ copy Pal1[] to Pal3[] Pal1[] Pal3[] 256 3 * cmove \ copy Pal3[1..199] to Pal1[2..200] Pal3[] 3 + Pal1[] 6 + 199 3 * cmove \ we're leaving color 0 set to 0,0,...
|