PureBasic Forums - English

Restored from previous forum. Originally posted by dmoc.

Hi all!

just got PB last night. I obviously liked what I saw but what sold me was Fred's active participation in these forums and the helpful attitude of everyone here. So keep it up as I'm sure others will feel the same way and also sign up.

Q: Straight in at the deep end, I'm trying to convert a large chunk of OpenGL code. As a start I have a much smaller program I use as a quick test. Specifically it makes calls to gluPerspective and gluSphere. I've figured out that natively PB is not supporting calls involving floats, correct? So I got hold of glu32f but now need to know where to dump the files and how PB will find the new library? Any help appreciated.

Restored from previous forum. Originally posted by Kale.

for development any external .dlls should be placed within the 'compilers' folder so they can be found when the program is run from the editor, then included with your program's executable for distribution.

--Kale

New to PureBasic and falling in Love!

Restored from previous forum. Originally posted by dmoc.

Hi Kale, thanks for the advice but no dll involved. In the end I dropped the glu32f files in each directory in turn and restarted PB until it didn't complain. Ended up in the "UserLibraries" dir which, ahem, makes sense

Good news is my little tester worked! I don't claimed to be the original coder of this. It was a c file I got from one of the many demo crew sites and was named "512B.c" which I think denotes attempts at the best gfx effect done in 512 bytes (maybe source code size, I dunno). Anyway here it is for anyone who's interested... roll of drums... my first PB program (or more exactly "conversion")...

IncludeFile "OpenGL.pbi"

w.l = CreateWindowEx_(#WS_EX_TOPMOST,@"EDIT",@" ",#WS_VISIBLE+#WS_POPUP,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),0,0,0,0)
hdc = GetDC_(w)

Entry:

SetPixelFormat_(hdc,4,0)
hglrc = wglCreateContext_(hdc)
wglMakeCurrent_(hdc,hglrc)

glMatrixMode_(#GL_PROJECTION)
gluPerspectivef_(100.0, 1.0, 1.0, 100.0)
glMatrixMode_(#GL_MODELVIEW)

glEnable_(#GL_BLEND)
glEnable_(#GL_TEXTURE_2D)
glBlendFunc_(#GL_SRC_ALPHA, #GL_ONE_MINUS_SRC_ALPHA)
glColor4f_(1.0, 1.0, 1.0, 0.06)

gluBuild2DMipmaps_(#GL_TEXTURE_2D,4,16,16,#GL_RGBA,#GL_UNSIGNED_BYTE,?Entry)

quad.l = gluNewQuadric_()
gluQuadricTexture_(quad,#GL_TRUE)

t.f = 0.0

While (GetAsyncKeyState_(#VK_ESCAPE)=0)
; glClear(#GL_COLOR_BUFFER_BIT | #GL_DEPTH_BUFFER_BIT)

glLoadIdentity_()

glRotatef_(t, 1.0, 0.0, 0.0)
glRotatef_(t, 0.0, 1.0, 1.0)
glRotatef_(t, 0.0, 0.0, 1.0)
gluSpheref_(quad, 100.0, 10.0, 10.0)

t = t + 0.03
wglSwapBuffers_(hdc)
Wend

wglMakeCurrent_(0, 0)
wglDeleteContext_(hglrc)
DestroyWindow_(w)

Restored from previous forum. Originally posted by Kale.

thanks for the advice but no dll involved

aha! yeah the 'UserLibraries' folder should be the one then

--Kale

New to PureBasic and falling in Love!

Restored from previous forum. Originally posted by WolfgangS.

HI !
uh, nice ... looks like a "LSD" effect

MFG
WolfgangS

Restored from previous forum. Originally posted by dmoc.

Hi all, I changed the CreateWindow call to what follows based on advice in other thread. Surprised it did not crash with the @'s, go figure. @Wolfgang: yeah, nice effect for a short piece of code. I never did get around to figuring it out and when I first saw it I was relunctant to run it because of the last parameter in the gluBuild2DMipmaps call.

w.l = CreateWindowEx_(#WS_EX_TOPMOST,"EDIT"," ",#WS_VISIBLE|#WS_POPUP,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),0,0,0,0)

Restored from previous forum. Originally posted by ebs.

dmoc,

VERY nice effect for a 3.5KB program (after compression)! I added a line of code to hide the mouse cursor and I'm using it as my screen saver.

Thanks,
Eric

Originally posted by dmoc

Hi all, I changed the CreateWindow call to what follows based on advice in other thread. Surprised it did not crash with the @'s, go figure. @Wolfgang: yeah, nice effect for a short piece of code. I never did get around to figuring it out and when I first saw it I was relunctant to run it because of the last parameter in the gluBuild2DMipmaps call.

w.l = CreateWindowEx_(#WS_EX_TOPMOST,"EDIT"," ",#WS_VISIBLE|#WS_POPUP,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),0,0,0,0)