Sorry your browser is not supported!

set display mode 640,480,16
backdrop on : color backdrop 53: sync on: sync rate 0
HIDE MOUSE
AUTOCAM ON

CREATE BITMAP 1, 256, 256
SET CURRENT BITMAP 1
FOR i=1 TO 200
INK RGB(255,RND(255),255), RGB(255,255,255)
CIRCLE RND(256), RND(256), RND(256)
NEXT i
GET IMAGE 1, 0,0,256,256
SET CURRENT BITMAP 0

FOR i= 1 TO 100
MAKE OBJECT SPHERE i, i / 2 +1
SET OBJECT CULL i, 1
POSITION OBJECT i, -40 + i*0.001, 0, 0
POSITION CAMERA 0, -40, 20, -150
COLOR OBJECT i, RGB(10+(10)*i, 100+i, i+i)
GHOST OBJECT ON i, 2
SET CAMERA FOV 45
TEXTURE OBJECT i, 1

NEXT i

DO

FOR i = 1 TO 100

ROTATE OBJECT i, OBJECT ANGLE X(i)+2+sin(i), OBJECT ANGLE Y(i)+2, OBJECT ANGLE Z(i)+2

COLOR OBJECT i, RGB(RND(10+(10)*i), rnd(100+i), RND(i+i))
NEXT i

SYNC

LOOP