Nice utility guys, will be very useful!
Here’s a few script lines for a TINT button that modifies the Main palette by the current color: It adds more tint to the palette each time you press the button.
I inserted it in your code just after the wheel_16 button (both for Main and Secondary palettes)
//------------------------------------------------------------------
// BEGIN TINT Main palette colors
//------------------------------------------------------------------
[VarDef,TintPercent,256/20] // sets the degree of tinting
[PenMove,4]
[SectionBegin,“tint”,0,“Tint Main colors by current color”,
// OPEN COMMANDS
[iUnPress,0]
[VarSet,RR,[IGet,Color:R]]
[VarSet,GG,[IGet,Color:G]]
[VarSet,BB,[IGet,Color:B]]
[VarSet,i,0]
[Loop,16,
[VarInc,i]
[VarSet,MColorR(i),MColorR(i)+(RR-MColorR(i)/TintPercent)]
[VarSet,MColorG(i),MColorG(i)+(GG-MColorG(i)/TintPercent)]
[VarSet,MColorB(i),MColorB(i)+(BB-MColorB(i)/TintPercent)]
]
// CLOSE COMMANDS
[iUnPress,0],
]
[SectionEnd]
// END TINT main palette colors
Sven