Hi all, After making 3D lines (link http://forum.thegamecreators.com/?m=forum_view&t=45364&b=6)
I decided to make a screensaver out of it, so, here it is:
Rem Project: 3D Lines
Rem Created: 15/01/2005 21:43:15
Rem Created by BIGGADD
Rem ***** Main Source File *****
sync on
sync rate 60
radius=120
set camera range 10,5000
position camera 100,300,300
point camera 0,0,0
autocam off
move camera 150
w=1000
do
set cursor 0,0
print sc
set cursor 0,20
print screen fps()
inc angle
if w=1000
sc=RND(10)
w=0
endif
inc w
if sc=0
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,0,x,x,y+x/10,y+x,0,100,255)
next n
endif
if sc=1
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,0,x,x,y+x,y,0,100,255)
next n
endif
if sc=2
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,0,x,x,0,y,0,100,255)
next n
endif
if sc=3
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(x,0,y,x,y+x,y,0,100,255)
next n
endif
if sc=4
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(x,0,x,x,y+y,y,0,100,255)
next n
endif
if sc=5
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,0,y,y,y+y,y,0,100,255)
next n
endif
if sc=6
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(x,0,y+x,x*5,y+y,x,0,100,255)
next n
endif
if sc=7
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(x,0,y,x,100,y,0,100,255)
next n
endif
if sc=8
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,0,x,x,100,y,0,100,255)
next n
endif
if sc=9
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(y,x,x,x,y+50,y,0,100,255)
next n
endif
if sc=10
for n=1 to 10
x =(cos(angle+(n*10))*radius)
y =(sin(angle+(n*10))*radius)
3dLine(x,0,x,x,100,x+y,0,100,255)
next n
endif
color backdrop 0
sync
loop
Function 3DLine(LineX1,LineY1,LineZ1,LineX2,LineY2,LineZ2,colourred,colourgreen,colourblue)
if object exist (1)=0 then Make object sphere 1,0.1
if object exist (2)=0 then Make object sphere 2,0.1
color object 1,rgb(colourred,colourgreen,colourblue)
color object 2,rgb(colourred,colourgreen,colourblue)
ink rgb(colourred,colourgreen,colourblue),0
position object 1,LineX1,LineY1,LineZ1
position object 2,LineX2,LineY2,LineZ2
if object in screen(1)+object in screen(2)=0
else
line object screen X(1),object screen Y(1),object screen X(2),object screen Y(2)
endif
endfunction
Please tell me what you think!!
