StartColourDefinition
  LinearField(&E000,&FFFF)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColours(RGB)
EndColourDefinition

Seed(&1B52)
Phase(&30)
StopAnimating
NoiseToBeFiltered(&5F)
CreateTwoDimensionalFilter(FractalNoise(Or(ShiftedNoise(&94BD,&834,&18C,&11C),ShiftedNoise(&6A1,&4E4,&104,&128)),&20))
SmoothTwoDimensionalTransform
TwoDimensionalEqualization
Percentage(&30)
MakeVirtualSprite(Overwrite,Overwrite,Overwrite)
StartAnimating
SetColour(RGB,&7FFF,&7FFF,&5FFF)
DefineLightSource(Gourad,Add(AnimationFrameNumber,&6000),&C000)
SetColour(RGB,&7FFF,&4FFF,&1FFF)
DefineLightSource(Gourad,Add(AnimationFrameNumber,&A000),&E000)
ShineLightOnVirtualSprite
Percentage(&40)
Dithering(FloydSteinberg)
MakeSpriteFromVirtualSprite
Checksum(&FE68)
End

