New Command need ,neuer Befehl gewünscht : Make_VR // Make_STEREO

Previous topic - Next topic

uwe_gl

Hallo,
beim programmieren fehlt mir ein Befehl für einen Splitscreen mit 2 verbundenen Cameras ( wie man Sie für Stereo / VR braucht ). Es lässt sich zwar von "Hand" machen, aber der Aufwand ist recht hoch (alle Elemente müssen gespeichert werden, es muss 2x gezeichnet werden). Auf der Seite von GL-Basic ( Intern ) ist das weniger ein Problem. Die 3-D Objekte liegen bereits vor und müssten nur 2x auf dem Screen ausgegeben werden.
mfG Uwe

Hello,
I need a Command how make a Splitscreen to make VR or Stereo. In the moment we can make this with Splitscreen manualy. For do this i must save eatch 3D-Object in a List for rendering the cene. This List exist on GL-Basic in the "Make 3D" Function. This can be used for make the new Function.
Uwe
 

Code (glbasic) Select


// --------------------------------- //
// Project: VR
// Start: Saturday, July 28, 2018
// IDE Version: 15.238


// SETCURRENTDIR("Media") // go to media files

GLOBAL vaugenabstand=5, vx%, vy%, phi, iphi
LOCAL mx,my,b1,b2
GLOBAL winkel=120, boden=5, wi2=360
GLOBAL camx,camy,vsync%

// Beide Vies ein wenig auseinandernehmen für Stereo
vx3%=vx3%-vaugenabstand
vx4%=vx4%+vaugenabstand

LIMITFPS 30, vsync%=TRUE

GETDESKTOPSIZE vx%,vy%
SETSCREEN vx%,vy%,1
GLOBAL vx2%=vx%/2, vx3%=vx2%/2, vx4%=vx2%/2


X_OBJSTART 1
  X_OBJADDVERTEX  0, 0, 0, 0,0, RGB(255,05,255)
  X_OBJADDVERTEX  1, 1, 0, 1,1, RGB(255,05,255)
  X_OBJADDVERTEX  0, 1, 0, 0,1, RGB(255,05,255)
X_OBJEND

X_OBJSTART 2
  X_OBJADDVERTEX  SIN(0)*boden, 0,COS( 0)*boden, 0,0, RGB(255,255,255)
  X_OBJADDVERTEX  SIN(winkel)*boden, 0, COS(winkel)*boden, 1,1, RGB(255,255,255)
  X_OBJADDVERTEX  SIN(winkel*2)*boden, 0, COS(winkel*2)*boden, 0,1, RGB(255,255,255)
X_OBJEND



WHILE TRUE


MOUSESTATE mx,my,b1,b2

phi=phi+0.628
iphi=iphi-0.628

// Linkes Auge zeichnen

VIEWPORT 0,0,vx2%,vy%
PRINT "Test", 0, 0
X_MAKE3D 1, 100, 65
X_CAMERA -1,5,10, 0,0,0

// und wieder alle Objekte setzen ..
GOSUB Scene


// Rechte Auge zeichnen

VIEWPORT vx2%,0,vx2%,vy%
PRINT phi, 0, 0
X_MAKE3D 1, 100, 65
X_CAMERA 1,5,10, 0,0,0

// und wieder alle Objekte setzen ..
GOSUB Scene


// Stereo / VR Anzeigen  ...
SHOWSCREEN
WEND

SUB Scene:
X_ROTATION wi2, 0, 1, 0
X_DRAWOBJ 2, 0
X_ROTATION phi, 0, 1, 0
X_DRAWOBJ 1, 0

X_DRAWAXES 0,0,0
wi2=wi2-.1
ENDSUB // SCENE