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

Seed(&A21B)
Phase(&21)
NoiseToBeFiltered(&883A)
CreateOneDimensionalFilter(QuickNoise(QuickNoise(&AFF5,&EC),&DE))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(&AFF5,&EC))
SmoothOneDimensionalTransform
OneDimensionalContrast(&37A)
HorizontalWaveWarp(Overwrite)
VerticalShear(&2,Overwrite)
HorizontalShear(&FFFF,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&AFF5,&EC))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(&AFF5,&EC))
SmoothOneDimensionalTransform
OneDimensionalContrast(&1D5)
VerticalWaveWarp(SimpleAddition)
HorizontalShear(&FFFC,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&AFF5,&EC))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(QuickNoise(&AFF5,&EC),&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(&AFD5)
End

