Raylib Wrapper Help

[Lefty]

Hello All,

I am trying to make a wrapper for QB64 with Raylib. Its going along smoothly except for getting the color part right. When I run the program, I get a red screen, so I'm on the right path, just can't figure out what I'm doing wrong. I assume there's a way to convert bytes to ints, but I'm unsure how in QB64. I know most other coding languages have a simple function, is there some steps for doing how? I want the background to be green. Also, on a side note how would I disable the default screen from coming up when calling a window from an external library?

EDIT: I thought I should probably mention in the raylib.h file, the Color struct are defined as unsigned chars. Like this:

typedef struct Color {
    unsigned char r;
    unsigned char g;
    unsigned char b;
    unsigned char a;
} Color;

'Bi File (Flags)

Code: QB64: [Select]

1. TYPE rColor
2.     r AS _UNSIGNED _BYTE
3.     g AS _UNSIGNED _BYTE
4.     b AS _UNSIGNED _BYTE
5.     a AS _UNSIGNED _BYTE
6. END TYPE
7.  
8.  

'Bi file (Function)

Code: QB64: [Select]

1.   SUB ClearBackground (BYVAL rColor AS _UNSIGNED _BYTE)  
2.  

'Sample Program

Code: QB64: [Select]

1. 'Raylib Basic Simple Window
2. REM $include: 'raylib.bi'
3.  
4. LET w = 800
5. LET h = 600
6.  
7. CALL InitWindow(w, h, "Simple")
8.  
9. SetTargetFPS (60)
10.  
11. DIM SHARED Col AS rColor
12.  
13. Col.r = 0
14. Col.g = 255
15. Col.b = 0
16. Col.a = 255
17.  
18. DO
19.     BeginDrawing
20.  
21.     CALL ClearBackground(Col.g)
22.  
23.     'CALL DrawText("Hello World" + CHR$(0), 10, 50, 20, 255, 255, 255, 255) 'ignore for now
24.  
25.     CALL DrawFPS(10, 10)
26.  
27.     EndDrawing
28.  
29. LOOP UNTIL WindowShouldClose
30.  
31. CloseWindow
32.  
33.  

[Petr]

Hi.

32bit colors are _Unsigned _Long type. (4 bytes). Use _RED32, _GREEN32, _BLUE32, _ALPHA32 for read some bytes, or MEM functions. Then if you use mem, then is byte order ARGB.

For saving values to memory use _MEMFILL or _MEMPUT or PSET, LINE.... for reading values use _MEMGET or POINT (or very old GET method)...

You write color values with C++, right? If is so, try shift bytes order to ARGB.

The color background in QB64 would simply be as follows (pseudo code):

SCREEN _NEWIMAGE (1024,768,32)
CLS,  _RGBA32 (0, 255, 0, 255)

or the same thing else

CLS, &HFF00FF00 'alpha, red, green, blue hexadecimal

[SMcNeill]

Hi.

32bit colors are _Unsigned _Long type. (4 bytes). Use _RED32, _GREEN32, _BLUE32, _ALPHA32 for read some bytes, or MEM functions. Then if you use mem, then is byte order ARGB.

For saving values to memory use _MEMFILL or _MEMPUT or PSET, LINE.... for reading values use _MEMGET or POINT (or very old GET method)...

You write color values with C++, right? If is so, try shift bytes order to ARGB.

The color background in QB64 would simply be as follows (pseudo code):

SCREEN _NEWIMAGE (1024,768,32)
CLS,  _RGBA32 (0, 255, 0, 255)

or the same thing else

CLS, &HFF00FF00 'alpha, red, green, blue hexadecimal

If you read memory directly, the colors are stored Blue-Green-Red-Alpha.  If you get them as a long (or unsigned long), it doesn’t matter, but if you want to work with them byte by byte, it does.

[Lefty]

Thanks for the tips, but I still can't get the screen to color correctly(I want the background to change green).

Code: QB64: [Select]

1. TYPE rColor
2.     r AS _UNSIGNED LONG
3.     g AS _UNSIGNED LONG
4.     b AS _UNSIGNED LONG
5.     a AS _UNSIGNED LONG
6. END TYPE
7.  

Code: QB64: [Select]

1.    SUB ClearBackground (BYVAL rColor AS _UNSIGNED LONG)    
2.  

Code: QB64: [Select]

1. 'Raylib Basic Simple Window
2. REM $include: 'raylib.bi'
3.  
4. LET w = 800
5. LET h = 600
6.  
7. CALL InitWindow(w, h, "Simple") 'this brings up the window from Raylib
8.  
9. SetTargetFPS (60)
10.  
11. DIM SHARED Col AS rColor
12.  
13. Col.r = 0
14. Col.g = 255
15. Col.b = 0
16. Col.a = 255
17.  
18. DO
19.     BeginDrawing
20.  
21.     CALL ClearBackground(Col.r+Col.g+col.b+col.a) 'Still not changing the screent o green
22.  
23.     'CALL DrawText("Hello World" + CHR$(0), 10, 50, 20, 255, 255, 255, 255)
24.  
25.     CALL DrawFPS(10, 10)
26.  
27.     EndDrawing
28.  
29. LOOP UNTIL WindowShouldClose
30.  
31. CloseWindow
32.  
33.  

[SMcNeill]

Is there a DECLARE LIBRARY statement missing?  I don’t see where you’re using the Raylib library at all.

[Petr]

Hi again. Please return your definitions for TYPE (struct) rColor all as _UNSIGNED _BYTE (one color R or G or B or Alpha, one byte, max value = 255). This all colors in one are defined as _UNSIGNED LONG. So my next tip is try:

   CALL ClearBackground (_RGBA32(0,255,0,255)) if this create green background.

Maybe help you this example:

Code: QB64: [Select]

1. DIM P AS _UNSIGNED LONG
2. SCREEN _NEWIMAGE(800, 600, 32) 'create screen
3. LINE (300, 200)-(500, 400), _RGBA32(0, 255, 0, 255), BF
4. P = POINT(400, 300)
5. 'next four colors all are _UNSIGNED _BYTE TYPE
6. PRINT "Alpha channel for point in 400,300 is"; _ALPHA32(P)
7. PRINT "RED channel for point in 400,300 is"; _RED32(P)
8. PRINT "GREEN channel for point in 400,300 is"; _GREEN32(P)
9. PRINT "BLUE channel for point in 400,300 is"; _BLUE32(P)
10. 'this is the same color for all channels in one and is _UNSIGNED LONG TYPE
11. PRINT "Unsigned Long color for point 400,300 is:"; P
12. PRINT "This color can be also written as "; _RGBA32(_RED32(P), _GREEN32(P), _BLUE32(P), _ALPHA32(P))
13.  

[Lefty]

Hi again. Please return your definitions for TYPE (struct) rColor all as _UNSIGNED _BYTE (one color R or G or B or Alpha, one byte, max value = 255). This all colors in one are defined as _UNSIGNED LONG. So my next tip is try:

   CALL ClearBackground (_RGBA32(0,255,0,255)) if this create green background.

Maybe help you this example:

Code: QB64: [Select]

1. DIM P AS _UNSIGNED LONG
2. SCREEN _NEWIMAGE(800, 600, 32) 'create screen
3. LINE (300, 200)-(500, 400), _RGBA32(0, 255, 0, 255), BF
4. P = POINT(400, 300)
5. 'next four colors all are _UNSIGNED _BYTE TYPE
6. PRINT "Alpha channel for point in 400,300 is"; _ALPHA32(P)
7. PRINT "RED channel for point in 400,300 is"; _RED32(P)
8. PRINT "GREEN channel for point in 400,300 is"; _GREEN32(P)
9. PRINT "BLUE channel for point in 400,300 is"; _BLUE32(P)
10. 'this is the same color for all channels in one and is _UNSIGNED LONG TYPE
11. PRINT "Unsigned Long color for point 400,300 is:"; P
12. PRINT "This color can be also written as "; _RGBA32(_RED32(P), _GREEN32(P), _BLUE32(P), _ALPHA32(P))
13.  

Thanks. After trying this, I got it!

NOTE: I have the Declare Library function for Raylib inside of another .bi file.

Code: QB64: [Select]

1. 'Raylib Basic Simple Window
2. REM $include: 'raylib.bi'
3.  
4. LET w = 800
5. LET h = 600
6.  
7. CALL InitWindow(w, h, "Simple")
8.  
9. SetTargetFPS (60)
10.  
11. DIM SHARED Col AS rColor
12.  
13. Col.r = 0
14. Col.g = 255
15. Col.b = 0
16. Col.a = 255
17.  
18. DO
19.     BeginDrawing
20.  
21.     CALL ClearBackground(_RGBA32(Col.r, Col.g, Col.b, Col.a))
22.  
23.     'CALL DrawText("Hello World" + CHR$(0), 10, 50, 20, 255, 255, 255, 255)
24.  
25.     CALL DrawFPS(10, 10)
26.  
27.     EndDrawing
28.  
29. LOOP UNTIL WindowShouldClose
30.  
31. CloseWindow
32.  
33.