Thanks mm0zct, i will look at that
I have started a small 3d test, i have not yet started the 3d drawing since i need some help on how to do it.
I was thinking making a function that gets 2 images and adds a transparent overlay of their colors (left:red,right:cyan) and then setting one of the images to be 50% transparent and drawing that on top and the other below it.
Those 2 things i dont know how to achieve.
Some help on doing it would be good.
Btw, this is what i have so far:
REM Project: Red-Cyan_3D
REM Created: 27.07.2008 01:48:04
REM
REM ***** Main Source File *****
REM
global eyedistance = 3
global eyedepth = 20
sync on
sync rate 60
hide mouse
autocam off
global main = 0
global red = 1
global cyan = 2
load image "mediared.bmp",red
load image "mediacyan.bmp",cyan
load image "mediafloor.bmp",4
load image "mediawall.bmp",5
load image "mediarock.bmp",6
load image "mediaroof.bmp",7
load image "mediawallb.tga",8
load effect "mediastencilshadow.fx",1,0
load effect "mediabump.fx",2,1
make object box 10,200,2,200
position object 10,0,-1,0
texture object 10,4
scale object texture 10,15.0,15.0
make object box 11,200,50,1
position object 11,0,25,100
texture object 11,5
set bump mapping on 11,8
scale object texture 11,5.0,5.0
make object box 12,200,50,1
position object 12,0,25,-100
texture object 12,5
set bump mapping on 12,8
scale object texture 12,5.0,5.0
make object box 13,1,50,200
position object 13,100,25,0
texture object 13,5
set bump mapping on 13,8
scale object texture 13,5.0,5.0
make object box 14,1,50,200
position object 14,-100,25,0
texture object 14,5
set bump mapping on 14,8
scale object texture 14,5.0,5.0
make object box 15,200,2,200
position object 15,0,25,0
texture object 15,7
scale object texture 15,15.0,15.0
for r = 16 to 116
make object sphere r,3+rnd(6)
position object r,-100+rnd(200),rnd(9),-100+rnd(200)
texture object r,6
set shadow shading on r
scale object texture r,2,2
next r
position camera main,0,5,0
make light 2
set light range 2,60
color light 2,rgb(190,180,120)
do
if inkey$() = "1" then dec eyedistance
if inkey$() = "2" then inc eyedistance
if inkey$() = "3" then dec eyedepth
if inkey$() = "4" then inc eyedepth
position light 2,camera position x(),camera position y(),camera position z()
control camera using arrowkeys main,1,2
d3d()
sync
loop
function d3d()
x# = camera position x()
y# = camera position y()
z# = camera position z()
a# = camera angle y()
position camera newxvalue(x#,a#-90,eyedistance),y#,newzvalue(z#,a#-90,eyedistance)
point camera newxvalue(x#,a#,20),y#,newzvalue(z#,a#,20)
set camera to image 0,red,screen width(),screen height()
position camera newxvalue(x#,a#+90,eyedistance),y#,newzvalue(z#,a#+90,eyedistance)
point camera newxvalue(x#,a#,eyedepth),y#,newzvalue(z#,a#,eyedepth)
set camera to image 0,cyan,screen width(),screen height()
position camera x#,y#,z#
rotate camera 0,a#,0
endfunction
