|
| Black and white stripes
|

StartColourDefinition
  Dithering(Zero)
  LinearSegment(&FFFF,&E000,&0,&FFFF,Overwrite)
  LinearSegment(&DFFF,&C000,&FFFF,&0,Overwrite)
  LinearSegment(&BFFF,&A000,&0,&FFFF,Overwrite)
  LinearSegment(&9FFF,&8000,&FFFF,&0,Overwrite)
  LinearSegment(&7FFF,&6000,&0,&FFFF,Overwrite)
  LinearSegment(&5FFF,&4000,&FFFF,&0,Overwrite)
  LinearSegment(&3FFF,&2000,&0,&FFFF,Overwrite)
  LinearSegment(&1FFF,&0,&FFFF,&0,Overwrite)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

|
| Black and white stripey
|
Seed(&84)
Phase(&2E)
NoiseToBeFiltered(&FFFF)
CreateTwoDimensionalFilter(QuickNoise(&D405,&68))
TwoDimensionalTransform
For(&C)
  AddToPercentage(&7)
  CreateOneDimensionalFilter(FractalNoise(&FFFF,&27))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  CreateOneDimensionalFilter(FractalNoise(&FFFF,&26))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
|
StopMutating
| Use "QuickTwoDimensionalPoint" in the following line to see its aliasing effects...
DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
Sculpture(ScaledSignedMultiply(SignedCos(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))),SignedCos(LogicalShiftRight(Y,&1)),ScaledSignedMultiply(SignedSin(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))))
Dithering(Zero)
MakeSprite
Checksum(&583A)
End

