StartColourDefinition
  Dithering(&0)
  LinearField(&FFFF,&0)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&699D)
Phase(&21)
NoiseToBeFiltered(&883A)
CreateOneDimensionalFilter(QuickNoise(&BBBC,&DE))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(FractalNoise(&E8CB,&3B))
SmoothOneDimensionalTransform
OneDimensionalContrast(&37A)
HorizontalWaveWarp(Overwrite)
VerticalShear(&2,Overwrite)
HorizontalShear(&FFFF,Overwrite)
CreateOneDimensionalFilter(Noise(&9C3E,&16E))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&639F,&100))
SmoothOneDimensionalTransform
OneDimensionalContrast(&1D5)
VerticalWaveWarp(SimpleAddition)
HorizontalShear(&FFFC,Overwrite)
CreateOneDimensionalFilter(Noise(&A9D2,&ED))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&C42B,&136))
SmoothOneDimensionalTransform
OneDimensionalContrast(&214)
HorizontalWaveWarp(SimpleAddition)
HorizontalShear(&3,Overwrite)
|
StopMutating
DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
Sculpture(ScaledSignedMultiply(SignedCos(X),SignedSin(LogicalShiftRight(Y,&1))),SignedCos(LogicalShiftRight(Y,&1)),ScaledSignedMultiply(SignedSin(X),SignedSin(LogicalShiftRight(Y,&1))))
TwoDimensionalShift(&0,&8000,Overwrite)
Dithering(&2A45)
MakeSprite
Checksum(&AF74)
End

