Red Cyan 3d

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|517\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Paul	Created : 11 July 2007 Language : Blitz Red Cyan 3d
copy this to your blitz3d editor and have a go, no extra files required Graphics3D 1024,768 SetBuffer BackBuffer() Global camera2d=CreateCamera();camera For bouth sprites And 3d CameraRange(camera2d,0.149,1000);set the range so it works with the spites Global plane=CreatePlane(1,camera2d);make a something pickable PositionEntity plane,0,0,.15;and stick it in the correct place RotateEntity plane,-90,0,0;... EntityAlpha plane,0;... EntityPickMode plane,2;... tree=LoadMesh("tress\tree.3ds") If tree<>0 EntityTexture(tree,LoadTexture("tress\tree.tga",5)) RotateEntity(tree,-90,0,0) EndIf Global Rsprite=CreateSprite();create the BLUSE sprite Global Bsprite=CreateSprite();create the RED sprite EntityColor Bsprite,255,0,0 ; set the colour filter for bouth of them EntityColor Rsprite,0,255,255;... sizesprite(Rsprite,1024,1024); resice them to fit the screen sizesprite(Bsprite,1024,1024);... Global Rtex=CreateTexture(1024,1024):EntityTexture(Rsprite,Rtex);create and texture them Global Btex=CreateTexture(1024,1024):EntityTexture(Bsprite,Btex);... EntityAlpha Bsprite,1 EntityBlend Bsprite,3;Add the textures to each other so the final imge blends EntityOrder Rsprite,-1;make sure the sprites are rendered last EntityOrder Bsprite,-2;... Global FPoint=CreatePivot();create a focus point for the camera light=CreateLight() PositionEntity(light,-100,-100,-100) Global debugstring$ For i=0 To 1000 cube=CreateCube() PositionEntity(cube,Rnd(10,200),Rnd(10,200),Rnd(10,200)) RotateEntity(cube,Rnd(0,359),Rnd(0,359),Rnd(0,359)) EntityColor cube,Rand(255),Rand(255),Rand(255) EntityPickMode cube,2 Next Global cubemax=4 Dim cubes(cubemax) For i=0 To cubemax cubes(i)=CreateCube() PositionEntity(cubes(i),-i10,-i10,-i10) ScaleEntity(cubes(i),Rnd(1,10),Rnd(1,10),Rnd(1,10)) EntityPickMode cubes(i),2 Next Global sp=CreateSphere():ScaleEntity(sp,1,1,1) While Not KeyHit(1) For i=0 To cubemax TurnEntity(cubes(i),(i Mod 4)4,(i Mod 3)3+1 ,(i Mod 2)4) Next mouselook(camera2d) render3d(.1,50) Flip Cls Wend Function mouselook(cam) TurnEntity(cam,300-MouseY(),400-MouseX(),0) MoveMouse(400,300) If KeyDown(200) Then MoveEntity(cam,0,0,1) If KeyDown(208) Then MoveEntity(cam,0,0,-1) MoveEntity(cam,KeyDown(205)-KeyDown(203),0,KeyDown(200)-KeyDown(208)) TurnEntity(cam,0,0,-EntityRoll(cam)) End Function Function render3d(dist#=0.5,focusRange#=50);ahh the interesting bit HideEntity(Rsprite);hide the sprites while rendering the scene HideEntity(Bsprite) rt=MilliSecs() Local spitch#=EntityPitch#(camera2d);save the old camera angle Local syaw#=EntityYaw#(camera2d) Local sroll#=EntityRoll#(camera2d) MoveEntity(camera2d,0,0,focusRange#);... place the pivot at <pivotrange> infront of the camera Local x#=EntityX(camera2d);... Local y#=EntityY(camera2d);... Local z#=EntityZ(camera2d);... PositionEntity(FPoint,x,y,z);... RotateEntity(FPoint,spitch,syaw,sroll);... MoveEntity(camera2d,dist/2,0,-focusRange#) PointEntity(camera2d,FPoint);get the camera to focus twoards fpoint RenderWorld(); draw the first view CopyRect 0,0,1024,768,0,0,BackBuffer(),TextureBuffer(Rtex);copy it to a texture(slow) RotateEntity(camera2d,spitch,syaw,sroll);and reset the camera ;now the camera again for the second view MoveEntity(camera2d,-dist,0,0) PointEntity(camera2d,FPoint) ;focus the camera RenderWorld();draw CopyRect 0,0,1024,768,0,0,BackBuffer(),TextureBuffer(Btex);copy to texture(slow) MoveEntity(camera2d,dist/2,0,0) ;and reset the camera RotateEntity(camera2d,spitch,syaw,sroll);... ShowEntity(Rsprite);show the sprites ShowEntity(Bsprite);... positionsprite(Rsprite,512,512);position them in front of the screen positionsprite(Bsprite,512,512);... RenderWorld();render the final image :) Return MilliSecs()-rt; and retrun the time it took End Function ;--------------- Function positionsprite(sprite,x,y) Local picked=CameraPick(camera2d,x,y) If picked<>0 PositionEntity(sprite,PickedX(),PickedY(),PickedZ()) EndIf End Function Function sizesprite(sprite,sizex#,sizey#) ScaleSprite sprite,sizex#/5330,sizey#/5330 End Function --v

Comments
Thursday, 12 July 2007, 18:21
JL235	So is this the effect, or is my graphics card still not working properly?
Friday, 13 July 2007, 04:58
svrman	um, I think you need one of those novelty 3d vision glasses to see the effects.
Friday, 13 July 2007, 04:59
Paul	yup, you need red/cyan glases to see it properly. something like theese https://www.dewijs-3d.com/accesiores_services/anaglyph_UK.html btw, the effect is called, Anaglyph. //Paul
Monday, 01 October 2007, 04:47
spinal	Dammit, I've lost my 3d glasses! does anyone know where i can get some for free?
Monday, 01 October 2007, 04:50
Jayenkai	Not exactly "free" but this month's issue of Nintendo Magazine (UK) has some..

Comments