Menu

Show posts

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

Messages - uwe_gl

#1
Thanks,
with this help i chnage the code. It works now for me.
:)
#2
Hallo,
Eine Funktion zum ersetzen der "\" mit "/" (zum Dateinamenumwandeln für SHELLCMD) gibt keinen Wert zurück wenn der String Sonderzeichen wie "\" oder "/" enthält. Es wird auch nur ein "\" in der Funktion umgewandelt, das 2. verschwindet ....

Code (glbasic) Select

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

#3
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
#4
Ok, i solved the problem.
The error was by my.  :nw:
I changed the programm for output the string to file. Suddenly the value of len() was ok. It was an error by printing the value.
Thanks to all.
Greatings Uwe
#5
Hello,
I use the len() function with  a variable is filled with the SOCK_RECV Command. len() tells me that the String has 45 Chars. But the String has 220 Chars. In the String are more Chars with an value less then 30.

Hallo,
Die Len() Funktion gibt eine falsche Zeichenanzahl zurück bei einen mit SOCK_RECV Empfangenen String der ASC-Zeichen kleiner 30 enthält.