Author Topic: New Command need ,neuer Befehl gewünscht : Make_VR // Make_STEREO  (Read 1040 times)

Offline uwe_gl

  • Mc. Print
  • *
  • Posts: 5
    • View Profile
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