OpenEuphoria

1. RGFW Wrapper and Partial OpenGL Wrapper

• Posted by Icy_Viking 5 days ago
• 206 views

Hi all,

Yesterday I started work on a wrapper for RGFW.

[https://github.com/ColleagueRiley/RGFW] - An alternative to GLFW

In order to make the example work I had to wrap some of OpenGL. I haven't completed the openGL wrapper, but a handful of functions are wrapped. The RGFW wrapper is finished. If anyone is interested let me know and I can post it.

--Sample clipping from wrapper 
public constant RGFW_monitor = define_c_struct({ 
	C_INT32, 		 --x 
	C_INT32,         --y 
	{C_CHAR,128},    --name[128] 
	C_FLOAT,	     --scaleX 
	C_FLOAT,	     --scaleY 
	C_FLOAT,	     --physW 
	C_FLOAT,	     --physH 
	RGFW_monitorMode --mode 
}) 
 
public constant xRGFW_getMonitors = define_c_func(rgfw,"+RGFW_getMonitors",{C_POINTER},C_POINTER) 
 
public function RGFW_getMonitors(atom len) 
 
	atom plen = allocate_data(sizeof(C_SIZE_T)) 
	 
	if c_func(xRGFW_getMonitors,{plen}) then 
		len = peek_type(plen,C_SIZE_T)	 
	end if 
	 
	free(plen) 
	 
	return {len} 
	 
end function 
 
public constant xRGFW_createWindow = define_c_func(rgfw,"+RGFW_createWindow",{C_STRING,RGFW_rect,C_INT},C_POINTER) 
 
public function RGFW_createWindow(sequence name,sequence rect,atom flags) 
	return c_func(xRGFW_createWindow,{name,rect,flags}) 
end function 
 

include std/ffi.e 
include std/machine.e 
 
include rgfw.e 
include opengl.e 
 
--RGFW_setClassName("Example") 
 
atom win = RGFW_createWindow("Test Win",{100,100,640,480},RGFW_windowCenter) 
 
while not RGFW_window_shouldClose(win) do 
 
	while RGFW_window_checkEvent(win) do 
		if win = RGFW_quit then 
			exit 
		end if 
		if RGFW_isPressed(win,RGFW_escape) then 
			exit 
		end if 
	end while 
	 
	glClearColor(0.1,0.1,0.1,1.0) 
	glClear(GL_COLOR_BUFFER_BIT) 
	 
	glBegin(GL_TRIANGLES) 
	glColor3f(1.0,0.0,0.0) glVertex2f(-0.6,-0.75) 
	glColor3f(0.0,1.0,0.0) glVertex2f(0.6,-0.75) 
	glColor3f(0.0,0.0,1.0) glVertex2f(0.0,0.75) 
	glEnd() 
	 
	RGFW_window_swapBuffers(win) 
	 
end while 
 
RGFW_window_close(win) 
 

3. Re: RGFW Wrapper and Partial OpenGL Wrapper

• Posted by Icy_Viking 3 days ago
• 119 views

Hi Chris, thanks for showing interest. I'll post it in a bit.

You'll need 64-bit version of Euphoria

[https://github.com/gAndy50/EuRGFW]

5. Re: RGFW Wrapper and Partial OpenGL Wrapper

• Posted by Icy_Viking 3 days ago
• 100 views

I have both 32 and 64-bit Eu installed on my machine. When I want run 32-bit, I use eui program.ex when I want to use 64-bit, I use eui64 program.ex I have slightly changed the names to make it easier for me to distinguish between 32 and 64-bit. I also have paths set on my machine (I use Windows mainly, with WSL installed).

UPDATE: I built a 32-bit version of the DLL rgfw32.dll

You'll have to change it from rgfw.dll to rgfw32.dll in the code, but its easy.

7. Re: RGFW Wrapper and Partial OpenGL Wrapper

• Posted by ghaberek (admin) 2 days ago
• 83 views

The issue isn't the libraries themselves, it's the structures -- offset counting gets messy when it's all four-or-eight bytes aligned.

That's why Win32Lib in particular is so challenging to port to 64-bit: hundreds of places where pointers are assumed to be four bytes wide.

The good news is, adding structure support with libffi helps that immensely. It's not perfect but it significantly reduces the complexity.

I'm getting pretty close to having std/ffi.e complete enough to release it for testing.

That depends on what you're trying to do. Which libraries do you use that don't yet work on 64-bit? (Aside from the aforementioned Win32Lib.)

-Greg

9. Re: RGFW Wrapper and Partial OpenGL Wrapper

• Posted by ghaberek (admin) 23 hours ago
• 59 views

My first though is that we should probably wrap Win32 API first, keeping as close to the original design as possible.

However, it's so structure-heavy that we might be better off waiting until we implement actual structs (and classes).

-Greg

11. Re: RGFW Wrapper and Partial OpenGL Wrapper

• Posted by jmduro 4 hours ago
• 13 views

I have a list of more than 4300 windows routines described as here:

"wtsapi32", "WTSQuerySessionInformationA", {pointer, uint32, pointer, pointer, pointer}, int32 
"wtsapi32", "WTSQuerySessionInformationW", {pointer, uint32, pointer, pointer, pointer}, int32 
"wtsapi32", "WTSQueryUserToken", {ulong, pointer}, int32 
"wtsapi32", "WTSRegisterSessionNotification", {pointer, uint32}, int32 
"wtsapi32", "WTSUnRegisterSessionNotification", {pointer}, int32 
"wtsapi32", "WTSWaitSystemEvent", {pointer, uint32, pointer}, int32 

It could help. If needed I can provide it by private mail because of its size.

Jean-Marc