This was created by someone called jvi a while ago:
rem "Warp" stars by jvi
rem use arrow keys
sync on
hide mouse
autocam off
create bitmap 1,256,1024:set current bitmap 1
ink rgb(255,255,255),0
for n=1 to 5
make object cylinder n,20
scale object n,250-20*n,6000,250-20*n
xrotate object n,270:position object n,0,0,0
set object n,1,0,0,1
cls 0:for i=1 to 1000
x=rnd(256):y=rnd(1024):ink rgb(255,255,255),0:line x,y,x,y+n/2
for j=1 to 4:k=255-60*j:ink rgb(k,k,k),0:dot x,y+n/2+j:next j
next i
get image n,0,0,255,1023:texture object n,n
next n
position camera 0,0,0:point camera 0,0,0
set ambient light 100:color backdrop 0:backdrop on
fog color rgb(0,0,0):fog distance 150:fog on
do
s#=0.0003
for n=1 to 5
if leftkey()=1 then turn camera left 1
if rightkey()=1 then turn camera right 1
scroll object texture n,0,s#
s#=s#+0.0003
next n
sync
loopYou are the
th person to view this signature.
Programmers don't die, they just
Gosub without
return....
