/(/ 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