Thanks,
with this help i chnage the code. It works now for me.
with this help i chnage the code. It works now for me.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
GLOBAL a$="Test\\//Test"
PRINT a$,10,30
PRINT KONV(a$),10,100
SHOWSCREEN
MOUSEWAIT
END
// ------------------------------------------------------------- //
// --- KONV ---
// ------------------------------------------------------------- //
FUNCTION KONV: wert1$
// Diese Variablen sind als LOCAL definiert:
// wert1$
LOCAL wert2$
FOR t=0 TO LEN(wert1$)-1
IF MID$(wert1$,t,1)="/"
wert2$=wert2$+CHR$(92)
ELSE
wert2$=wert2$+MID$(wert1$,t,1)
ENDIF
NEXT
PRINT wert2$,10,50
RETURN wert2$
ENDFUNCTION // KONV
// --------------------------------- //
// 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