StartColourDefinition
  Seed(&A13B)
  Dithering(&0)
  DitheringOne(&0)
  DitheringTwo(&2000)
  LinearField(&30E,&9894)
  OneDimensionalStoreBufferTwo
  LinearField(&EC7F,&CC9F)
  OneDimensionalStoreBufferOne
  LinearField(&EEA5,&811A)
  CreateColoursUsingHSVData
EndColourDefinition

Seed(&76B)
Phase(&21)
NoiseToBeFiltered(&9DDF)
CreateOneDimensionalFilter(QuickNoise(QuickNoise(QuickNoise(&9E64,&C4),&CD),&DA))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(QuickNoise(&B90E,&100),&FF))
SmoothOneDimensionalTransform
OneDimensionalContrast(&38A)
HorizontalWaveWarp(Overwrite)
VerticalShear(&3,Overwrite)
HorizontalShear(&2,Overwrite)
CreateOneDimensionalFilter(Noise(QuickNoise(QuickNoise(&A2E2,&DA),QuickNoise(&BEC4,&B4)),&151))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(QuickNoise(QuickNoise(QuickNoise(&A33E,&B9),&121),&BC),&F3))
SmoothOneDimensionalTransform
OneDimensionalContrast(&1D5)
VerticalWaveWarp(SimpleAddition)
HorizontalShear(&FFFD,Overwrite)
CreateOneDimensionalFilter(Noise(QuickNoise(QuickNoise(&C923,&E9),QuickNoise(&CE24,&103)),&E4))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(QuickNoise(&AC91,&D7),&CF))
SmoothOneDimensionalTransform
OneDimensionalContrast(&27A)
HorizontalWaveWarp(SimpleAddition)
HorizontalShear(&0,Overwrite)
|
StopMutating
DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
Sculpture(ScaledMultiply(Cos(X),Sin(LogicalShiftRight(Y,&1))),Cos(LogicalShiftRight(Y,&1)),Combine(ScaledMultiplication,Sin(X),Sin(LogicalShiftRight(Y,&1))))
Dithering(&2A45)
MakeSprite
Checksum(&1CB5)
End
