OpenEuphoria

1. EuTigr Released!

• Posted by Icy_Viking Jul 29, 2024
• 1247 views

Hi all,

I've finished my wrapper of the TIGR library for Euphoria. Note you'll need to use the 64-bit version of Euphoria to run it.

Grab it from here: https://github.com/gAndy50/EuTigr

include tigr.e 
 
procedure main() 
 
	atom screen = tigrWindow(100,100,"Hello World - Use arrow keys to change background color",TIGR_AUTO) 
	sequence colors = {0,0,0} 
	 
	while not tigrClosed(screen) and not tigrKeyDown(screen,TK_ESCAPE) do 
	 
		if tigrKeyDown(screen,TK_LEFT) then 
			colors = {255,0,0} 
			elsif tigrKeyDown(screen,TK_RIGHT) then 
				colors = {0,255,0} 
				elsif tigrKeyDown(screen,TK_UP) then 
					colors = {0,0,255} 
					elsif tigrKeyDown(screen,TK_DOWN) then 
						colors = {0,0,0} 
		end if 
		 
		tigrClear(screen,colors) 
		 
		tigrUpdate(screen) 
		 
	end while 
	 
	tigrFree(screen) 
	 
end procedure 

3. Re: EuTigr Released!

• Posted by Icy_Viking Jul 30, 2024
• 1208 views

CFLAGS += -Os -s 
LDFLAGS += -shared 
TARGET = $(LIBPRE)tigr$(LIBEXT) 
ifeq ($(OS),Windows_NT) 
	CFLAGS += -DTIGR_SHARED 
	LDLIBS += -lopengl32 -lgdi32 
	LIBEXT := .dll 
else 
	CFLAGS += -fPIC 
	LIBPRE := lib 
	UNAME_S := $(shell uname -s) 
	ifeq ($(UNAME_S),Darwin) 
		LDLIBS += -framework OpenGL -framework Cocoa 
		LIBEXT := .dylib 
	else 
		LDLIBS += -lGLU -lGL -lX11 
		LIBEXT := .so 
	endif 
endif 
 
$(TARGET): tigr.c 
	gcc $(CFLAGS) -DTIGR_BUILDSHARED $(LDFLAGS) -o $@ $< $(LDLIBS) 

mingw32-make CFLAGS=-m32 TARGET=tigr32.dll 

mingw32-make CFLAGS=-m64 TARGET=tigr64.dll 

include tigr.e 
 
procedure main() 
 
	atom screen = tigrWindow(100,100,"Hello World - Use arrow keys to change background color",TIGR_AUTO) 
	sequence colors = {0,0,0} 
	 
	while not tigrClosed(screen) and not tigrKeyDown(screen,TK_ESCAPE) do 
	 
		if tigrKeyDown(screen,TK_LEFT) then 
			colors = {255,0,0} 
			elsif tigrKeyDown(screen,TK_RIGHT) then 
				colors = {0,255,0} 
				elsif tigrKeyDown(screen,TK_UP) then 
					colors = {0,0,255} 
					elsif tigrKeyDown(screen,TK_DOWN) then 
						colors = {0,0,0} 
		end if 
		 
		tigrClear(screen,colors) 
		 
		tigrUpdate(screen) 
		 
	end while 
	 
	tigrFree(screen) 
	 
end procedure 

Thanks Greg. I made the indents so the code would be eaiser to read.

5. Re: EuTigr Released!

• Posted by jmduro 3 days ago
• 126 views

The font was built with tigrFront from one of these: https://github.com/IT-Studio-Rech/bdf-fonts

7. Re: EuTigr Released!

• Posted by Icy_Viking 2 days ago
• 97 views

Okay, I got it to work. I had to add some helper functions to Euphoria. You'll also need to use a little different approach to make it work with Euphoria.

--These have been added to the wrapper 
public function tigrRGB(atom r,atom g,atom b) 
	return {r,g,b,#FF} 
end function 
 
public function tigrRGBA(atom r,atom g,atom b,atom a) 
	return {r,g,b,a} 
end function 
 
--use built-in tfont 
 
public atom tfont_var_addr = define_c_var(tigr,"tfont") 
public atom tfont = peek_pointer(tfont_var_addr) 

--example 
include std/ffi.e 
include tigr.e 
 
procedure main() 
 
    -- 1. Enlarge window so (120, 110) fits, or use smaller print coordinates 
    atom screen = tigrWindow(320, 240, "Hello World", TIGR_AUTO) 
     
    -- 2. Include the 4th value (Alpha) in your TPixel sequences 
    sequence colors = {#80, #90, #A0, #FF} 
    sequence font_colors = {#FF, #FF, #00, #FF} -- Bright yellow (R=255, G=255, B=0, A=255) 
     
    while not tigrClosed(screen) and not tigrKeyDown(screen, TK_ESCAPE) do 
     
        tigrClear(screen, colors) 
         
        -- Print inside window bounds (120, 110 fits inside 320x240) 
        tigrPrint(screen, tfont, 120, 110, font_colors, "Hello World", NULL) 
         
        tigrUpdate(screen) 
         
    end while 
     
    tigrFree(screen) 
     
end procedure 
 
main() 
 

I got the openGL example to work

[https://github.com/gAndy50/Misc/tree/master/GL] - I made a simple wrapper for openGL

include std/ffi.e 
include tigr.e 
include openGL.e 
 
atom win = tigrWindow(320,240,"Win",TIGR_AUTO) 
atom win2 = tigrWindow(320,240,"Win 2",TIGR_AUTO) 
 
sequence win_colors = {#80,#90,#A0,#FF} 
 
sequence font_colors = {#FF,#FF,#00,#FF} 
 
while win or win2 do	 
	if win then 
		tigrClear(win,win_colors) 
		tigrPrint(win,tfont,120,110,font_colors,"Hello World",NULL) 
		tigrUpdate(win) 
	 
		if tigrClosed(win) or tigrKeyDown(win,TK_ESCAPE) then 
			tigrFree(win) 
			win = NULL 
		end if 
	end if 
	 
	if win2 then 
		if tigrBeginOpenGL(win2) then 
			glClearColor(1,0,1,0) 
			glClear(GL_COLOR_BUFFER_BIT) 
		end if 
		 
		tigrClear(win2,{0,0,0,0}) 
		tigrPrint(win2,tfont,120,110,font_colors,"Hello World 2",NULL) 
		tigrUpdate(win2) 
		 
		if tigrClosed(win) or tigrKeyDown(win2,TK_ESCAPE) then 
			tigrFree(win2) 
			win2 = NULL 
		end if 
	end if 
end while 

9. Re: EuTigr Released!

• Posted by jmduro 2 days ago
• 75 views

On Linux, OpenGL example fails on glClearColor.

/usr/local/euphoria-4.1.0-Linux-x64/include/std/ffi.e:1011 in function c_func()  
c_proc/c_func: bad routine number (1)  
    rid = 1 
    args = {1,0,1,0} 
    fn = <no value> 
    cif = <no value> 
    name = <no value> 
    nargs = <no value> 
    parg_types = <no value> 
    rtype = <no value> 
    pargs = <no value> 
    pfree = <no value> 
    arg_types = <no value> 
    i = 1 
    parg = <no value> 
    rtype_size = <no value> 
    prvalue = <no value> 
    rvalue = <no value> 
    i = 3 
 
... called from /home/duro/Data/Euphoria/v4/EuTigr-main/example/openGL.e:693 in procedure glClearColor()   
    r = 1 
    g = 0 
    b = 1 
    a = 0 
    void (from inlined routine 'c_proc' at 20) = <no value> 
    args (from inlined routine 'c_proc' at 17) = {1,0,1,0} 

openGL.e has been modified as here:

ifdef WINDOWS then 
	gl = open_dll("opengl32.dll") 
elsifdef LINUX then 
	gl = open_dll("libOpenGL.so.0") 
end ifdef 

Jean-Marc

11. Re: EuTigr Released!

• Posted by jmduro 2 days ago
• 76 views

I found the error. There was a space behind +glClearColor:

public constant xglClearColor = define_c_proc(gl,"+glClearColor ",{C_FLOAT,C_FLOAT,C_FLOAT,C_FLOAT}) 

I removed it then it ran.

Jean-Marc