OpenEuphoria

Type check failure (New problem now)

• Posted by Icy_Viking Jul 03, 2019
• 1101 views

Hello,

I was writing some examples for my raylib wrapper and I got this error. type_check failure, str is 44541448. The help files in the raylib says it uses the default text when using the DrawText command. I'm not sure what is causing the error.

--Wrapper code 
public constant xDrawText = define_c_proc(ray,"+DrawText",{C_POINTER,C_INT,C_INT,C_INT,C_UCHAR,C_UCHAR,C_UCHAR,C_UCHAR}) 
 
public procedure DrawText(sequence text,atom x,atom y,atom size,atom r,atom g,atom b,atom a) 
 
 --sequence str = allocate_string(text,1) --I figured out the error, I had this as a sequence, when I should have had it as a atom. 
 atom str = allocate_string(text,1) --correct code 
  
 c_proc(xDrawText,{str,x,y,size,r,g,b,a}) 
	 
end procedure 

--Example Code 
without warning 
 
include std/machine.e 
include flags.e 
include Euraylib.ew 
 
atom width = 800 
atom height = 450 
 
InitWindow(width,height,"Input") 
 
SetTargetFPS(60) 
 
while not WindowShouldClose() do 
 
	BeginDrawing() 
	 
	ClearBackground(0) 
	 
   DrawText("Move ball with arrow keys",10,10,20,255,255,255,255) 
	 
	EndDrawing() 
	 
end while 
 
CloseWindow() 

Ok now I can't figure out why the color won't work. I have them assigned as r,g,b,a values, but only red appears to be working.

--Wrapper code 
public constant xClearBackground = define_c_proc(ray,"+ClearBackground",{C_UCHAR,C_UCHAR,C_UCHAR,C_UCHAR}) 
 
public procedure ClearBackground(atom r,atom g,atom b,atom a) 
 
 c_proc(xClearBackground,{r,g,b,a}) 
	 
end procedure 

--Example 
without warning 
 
include std/machine.e 
include flags.e 
include Euraylib.ew 
 
atom width = 800 
atom height = 450 
 
InitWindow(width,height,"Input") 
 
SetTargetFPS(60) 
 
while not WindowShouldClose() do 
 
	BeginDrawing() 
	 
        --r,g,b,a for 255,0,0,0 
	ClearBackground(100,0,0,0) --only the r variable seems to be being ready, the g,b,a don't seem to effect it at all. 
	--changing it to 255,255,255,255 makes it blank, when it should appear white 
	EndDrawing() 
	 
end while