home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&3B6D,&12C)
- OneDimensionalStoreBufferTwo
- LinearField(&EE15,&FCAE)
- OneDimensionalStoreBufferOne
- LinearField(&E713,&6960)
- CreateColoursUsingHSVData
- EndColourDefinition
-
- |
- | A simple kaleidoscopic mandala.
- |
- Seed(&41A2)
- Phase(&27)
- NoiseToBeFiltered(&96AA)
- LinearField(&4,&C97E)
- OneDimensionalContrast(&5BB)
- OneDimensionalStoreBufferOne
- CreateOneDimensionalFilter(Noise(&C407,&87A))
- SmoothOneDimensionalTransform
- OneDimensionalContrast(&137)
- HorizontalWaveWarp(Overwrite)
- OneDimensionalContrast(&132)
- VerticalWaveWarp(SimpleAddition)
- For(&10)
- SlowRotateAbout(&100,&E000,&E000,HalvingAddition)
- Next
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&C932)
- End
-