This is something that someone can use to produce a simple but cool effect for a background or whatever.
It is fairly simple: a small texture is applied and scaled on a sphere that is flattened to become a disk, and then scrolled around to make the magic.
´code]
SYNC ON : SYNC RATE 60
DO
CLS
SC = RND(5)+3
W = RND(5)+2 : H = RND(8)+3
C = 0 : CLIMIT = RND((W*H)/3) + ((W*H)/4)
REPEAT
X = RND(W)+1
Y = RND(H-1)+2
DOT X,Y
INC C
Until C = 10
GET IMAGE 1,1,1,W,H,1
MAKE OBJECT SPHERE 1,30
SET OBJECT CULL 1,0
SET OBJECT TEXTURE 1,1,1
SET OBJECT LIGHT 1,0
TEXTURE OBJECT 1,1
SET OBJECT TRANSPARENCY 1,1
SCALE OBJECT TEXTURE 1,SC,1
SCALE OBJECT 1,100,0,100
PITCH OBJECT UP 1,90
COLOR BACKDROP 0
TURN# = 0.01 * (RND(5) - RND(5))
ZOOM# = 0.01 * (RND(5) - RND(5))
REPEAT
SCROLL OBJECT TEXTURE 1,TURN#,ZOOM#
SYNC
UNTIL SPACEKEY() = 1
DELETE OBJECT 1
DELETE IMAGE 1
Loop
This example is fairly self-explanative. Just press SPACEBAR to shift between the thousands of possible effect layouts.
If someone has some ideas to improve it, feel free to share them down below.
[size=+2]Forever and one[/size]
