\ Copyright 1989 NerveWare
\ No portion of this code may used for commercial purposes,
\ nor may any executable version of this code be disributed for 
\ commercial purposes without the author's express written permission.
\ This code is shareware, all rights reserved.

\ Nick Didkovsky -- lookup colors from table instead of calculating them

anew task-colorlookup

variable color-lookup mandelmax 1+ allot

: BUILD.LOOKUP ( -- )
  mandelmax 0 do
     i mandel-num-colors @ 1- mod 1+ 	( -- colornum)
     i color-lookup + c! 		( -- )
  loop
  0 mandelmax color-lookup + c!
;