Whoa that's pretty cool Rich. Plus the Png to display it all is so tiny. I added a couple lines of code to yours to make it generate random gradients. Good work!
[SetDisplayAspect(-1)
` first color
gradientSprite1 = LoadSprite("SmallAlphaGradient.png")
SetSpriteSize(gradientSprite1, 100, 100)
SetSpriteColor(gradientSprite1, 255, 0, 0, 255)
` second color
gradientSprite2 = CloneSprite(gradientSprite1)
SetSpriteColor(gradientSprite2, 0, 0, 25, 255)
SetSpriteAngle(gradientSprite2, 180)
do
if GetPointerPressed()= 1
SetSpriteColor(gradientSprite1, Random(0,255),Random(0,255) , Random(0,255), 255)
SetSpriteColor(gradientSprite2, Random(0,255), Random(0,255), Random(0,255), 255)
endif
Sync()
loop