StartColourDefinition
  Dithering(&300)
  DitheringOne(&600)
  DitheringTwo(&600)
  LinearField(&1,&3F3A)
  OneDimensionalStoreBufferTwo
  LinearField(&F09A,&954E)
  OneDimensionalStoreBufferOne
  LinearField(&F63E,&A202)
  CreateColours(HSV)
EndColourDefinition

|
| Simulated brickwork
|
Seed(&F1F5)
Phase(&3C)
NoiseToBeFiltered(&7E48)
Percentage(&0)
CreateOneDimensionalFilter(QuickNoise(&BFC0,&17A))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
AddToPercentage(&A)
CreateOneDimensionalFilter(Noise(&F059,&16D))
SmoothOneDimensionalTransform
OneDimensionalContrast(&850)
OneDimensionalShift(&1B8F,SimpleSubtraction)
HorizontalWaveWarp(Overwrite)
HorizontalShear(&1,SimpleAddition)
HorizontalWaveWarp(SimpleAddition)
SetVariable(&1,&0)
SetVariable(&0,&0)
For(&7)
  For(&3)
    AddToPercentage(&2)
    Rectangle(&3BBB,Variable(&0),Variable(&1),Add(Variable(&0),&3800),Combine(UnboundedAddition,Variable(&1),&1800),Minimise)
    SetVariable(&0,Add(Variable(&0),&4000))
  Next
  SetVariable(&0,Add(Variable(&0),&2000))
  SetVariable(&1,Add(Variable(&1),&2000))
Next
Dithering(&2800)
MakeSprite
Checksum(&85B0)
End

