Sorry your browser is not supported!

sync on
sync rate 60
color backdrop 0
autocam off
position camera 0,0,-60

#constant sphereball = 1
#constant graphplain = 2
#constant graphplain1 = 3
#constant graphplain2 = 4
global sw = 0

makeobjectgraph()

X1 = 15
Y1 = -5
Z1 = 0
`hide object sphereball
do
    inc sw,1
    drawgraphic(sw,x1,y1,z1)
    wait 50
    sync
loop

function drawgraphic(s,x,y,z)
if s< 100
    scale object graphplain,s,100,100
    position object graphplain, object size x(graphplain,1)/2,y,z
endif
if s<155
    scale object graphplain1,s,100,100
    position object graphplain1, object size x(graphplain1,1)/2,y-0.05,z+0.5
endif
scale object graphplain2,s,100,100
position object graphplain2, object size x(graphplain2,1)/2,y-.3,z+2
if s>= 185 then sw =0
ink 0,0
for i = 1 to 200 step 5
    line screen width()/2+object position x(sphereball)+i,screen height()/2+y-object position y(sphereball),screen width()/2+object position x(sphereball)+i,screen height()/2+object position y(sphereball)-y+65
next i
endfunction


function makeobjectgraph()
make object sphere sphereball,20,50,50
color object sphereball,rgb(0,0,0)
make object plain graphplain,15,10
color object graphplain,rgb(255,255,0)
make object plain graphplain1,15,10
color object graphplain1,rgb(0,255,0)
make object plain graphplain2,15,10
color object graphplain2,rgb(255,0,0)
position object graphplain,2.5,-2.5,0

scale object sphereball,270,100,100
SET OBJECT DIFFUSE sphereball,255
SET OBJECT SPECULAR POWER sphereball,255
SET OBJECT EMISSIVE graphplain,RGB(255,255,0)
SET OBJECT EMISSIVE graphplain1,RGB(0,255,0)
SET OBJECT EMISSIVE graphplain2,RGB(255,0,0)

ghost object on sphereball,3
endfunction