| emulation 3d (b3d) mit rot-grün-Brille von ??? |
| Leider habe ich keine 3D Brille, also die mit rot grün gefärbten Glässern... Also testet ihr mal... mit Cousor, sowie Page Up/Down könnt ihr die Welt bewegen... [code:1:d57f564b19] Graphics3D 800,600,32,2 SetBuffer BackBuffer() ;--- piv = CreatePivot() cam = CreateCamera(piv) MoveEntity cam,0,0,-12 AntiAlias 1 ;--- c1 = CreateCube() MoveEntity c1, 0, 0, 2 EntityColor c1, 255, 255, 255 c2 = CreateSphere(6) MoveEntity c2, 3, 2, 0 EntityColor c2, 255, 255, 255 c3 = CreateCone() MoveEntity c3, -2.5, -2, -1 EntityColor c3, 255, 255, 255 WireFrame 1 ;--- While Not KeyHit(1) If KeyDown(200) Then TurnEntity piv, 2, 0, 0 If KeyDown(208) Then TurnEntity piv, -2, 0, 0 If KeyDown(203) Then TurnEntity piv, 0,-2, 0 If KeyDown(205) Then TurnEntity piv, 0, 2, 0 If KeyDown(201) Then MoveEntity cam, 0, 0, 0.2 If KeyDown(209) Then MoveEntity cam, 0, 0,-0.2 i = (i+1) Mod 2 If i=0 Then AmbientLight 255,0,0 MoveEntity cam,0.1,0,0 Else AmbientLight 0,255,0 MoveEntity cam,-0.1,0,0 EndIf TurnEntity c1, 1, 1, 1 TurnEntity c2, 2, 1, 1 TurnEntity c3, -1, 2, 1 UpdateWorld() RenderWorld() Flip Cls Wend [/code:1:d57f564b19] |
| von ??? |
| genial :wink: auf die idee sowas zu machen wär ich ehrlich nich gekommen |
| von ??? |
| hehe ich hab auch erst ein Programm geschrieben das aus 2 Bildern ein 3D-Bild macht :D |
| von ??? |
| naja aber wenn es auch richtige 3D gibt kommt ja nich auf die idee sowas zu machen ;) |
| von ??? |
| Hmm, hättest du dir in den vergangenen 4 Jahren MickyMaus geholt, oder wenigstens ne ZDF-3D-Brille für Tierfilme, hättest nun ne Brille :wink: das ist cool, aber leider kann man sowasdenk ich mal nicht weiter benutzen. Wenn man Wireframe 0 macht klappt das nicht so schön, schade. |
| von ??? |
| Ist ja nur eine Idee die auf fruchtbaren Boden -so hoffe ich- für weitere Ideen hervorhebt. :) Denke mal für einfache technische Sachen lässt es sich bequem damit leben. EDIT: Will ja nicht so sein, hier eine weitere Variante mit ein wenig mehr Tiefenwirkung. Leider habe ich immer noch keine RG-Brille... [code:1:0399156ccc] Graphics3D 800,600,32,2 SetBuffer BackBuffer() ;--- piv = CreatePivot() cam = CreateCamera(piv) MoveEntity cam,0,0,-12 AntiAlias 1 light = CreateLight(cam) TurnEntity light,0,0,-90 ;--- c1 = CreateCube() MoveEntity c1, 0, 0, 2 EntityColor c1, 255, 255, 255 c2 = CreateSphere(6) MoveEntity c2, 3, 2, 0 EntityColor c2, 255, 255, 255 c3 = CreateCone() MoveEntity c3, -2.5, -2, -1 EntityColor c3, 255, 255, 255 WireFrame 0 ;--- While Not KeyHit(1) If KeyDown(200) Then TurnEntity piv, 2, 0, 0 If KeyDown(208) Then TurnEntity piv, -2, 0, 0 If KeyDown(203) Then TurnEntity piv, 0,-2, 0 If KeyDown(205) Then TurnEntity piv, 0, 2, 0 If KeyDown(201) Then MoveEntity cam, 0, 0, 0.2 If KeyDown(209) Then MoveEntity cam, 0, 0,-0.2 i = (i+1) Mod 2 If i=0 Then AmbientLight 255,0,0 MoveEntity cam,0.1,0.1,0 Else AmbientLight 0,255,0 MoveEntity cam,-0.1,-0.1,0 EndIf TurnEntity c1, 1, 1, 1 TurnEntity c2, 2, 1, 1 TurnEntity c3, -1, 2, 1 UpdateWorld() RenderWorld() Flip Cls Wend End [/code:1:0399156ccc] |
| von ??? |
| bastel dir selber eine... :lol: nimm ein grünes glas und ein rotes.. und tada... funzt^^ |
| von ??? |
| 2 transparente Heftschoner reichen auch schon. |
| von ??? |
| Sowas habe ich noch gefunden (farbige Sichtmappen), aber es ist nicht gerade der Hit... Probiert ihr, ich progge ;) |
| von ??? |
| mist, ich hab kein Blitz3D aber ich hab eine 3D-Brille TAUSCHEN WIR??? da du ja doch nicht tauschen willst, würde ich dich bitten mir mal eine Exe upzuloaden ?!? :lol: danke im vorraus cu |
| von ??? |
| Hmmm :) neeee... Aber hier hat EXE-File... hoffe du hast WinRar www.blitzbasic.ch/pub/files/3d-rg-sim.rar Mit Cousor kannst du auf alle Seiten drehen, PageUp/Down zoomen und W kannst du WireFrame ein- und ausschalten. |
| von ??? |
| im codearchiv von bb.com gabs da auch mal nen example, das war auch ganz kuhl.. das ihr ruled aber auch |