/(/ Color pallet . execute each line to create / ------------ I created this to have a numerical pallet I could understand . /)/ .R : _d d2h : { "0123456789ABCDEF" @ 16 16 _vs x } d2h..h : " format integers as hex " Pallet.colors : ( 0 , 3 + 4 * ! 25 ) */: 10000 100 1 / K's R G B encoding , 0 - 99 each , stepping by 4 . Pallet.colors..bg : Pallet.colors / Set background colors to the same values Pallet.colors..k : " .[ `ci ; _i 0 ; : ; _v . _i ] ; " / set cursor klik to update "color index" `ci . Pallet.ci : 3 # 0 0 0 / initialize color index holder Pallet.ci..t : " hexcolor..bg : color..bg : color : +/ ci " / set trigger to update `color , etc , to sum of ci . Pallet.scalecolor : { _ ( ( 3 # 100 ) _vs x ) * 255 % 99 } Pallet.hexcolor..d : " ,/ ( .R `d2h )' scalecolor color " Pallet..c : `form / display class is `form . Pallet..a : ( `color `hexcolor ; `colors ) / arrangment `show $ `Pallet |