Frequently Asked FreeBASIC Graphics Library Questions

FreeBASIC Graphics Library questions:

- How can I link/use Gfxlib?
- What about the fbgfx.bi header file?
- How are GET/PUT arrays managed?
- Why is BSAVE/BLOAD crashing?
- How can I get the red, green, blue, or alpha component of a colour?
- How can I make the 'x' button in the window header close my application?
- Can't run programs using SCREEN 13 or 14 in fullscreen !

FreeBASIC Graphics Library questions

How can I link/use Gfxlib?

Gfxlib is "built in" into the language, it is not necessary to include any .bi file or to link any library explicitly. FreeBASIC detects you want to use Gfxlib when it finds a Screen or ScreenRes instruction. So to use Gfxlib, just start a graphics screen mode and use the graphics commands.

The fbgfx.bi header file is available for inclusion by your program, and contains constant and type definitions that may be helpful to the programmer when using Gfxlib. You do not have to explicitly include this file to use Gfxlib however; the header is only available as an aid. Contents include Screen / ScreenRes mode flag constants, definitions of Keyboard scancodes and more.

In FreeBASIC, images can be used as arrays (as in QB) or as pointers. Either way, the image data is contained in one continuous chunk. The chunk consists of an header followed by the image data. The header can be of two types (old-style and new-style) and determines the format of the following image data, for details see GfxInternalFormats .

BSAVE/BLOAD can only be used to load and save graphics screens in FreeBASIC. It can't be used to save a text mode screen. To load and save an array check this snippet using file GET/PUT .

Each byte in a color attribute corresponds with the red, green, blue, and alpha components. The following example shows how to extract the component values from a 16, 24, or 32 bit color attribute.

#define rgb_a(x) ((x) Shr 24) #define rgb_r(x) ((x) Shr 16 And 255) #define rgb_g(x) ((x) Shr 8 And 255) #define rgb_b(x) ((x) And 255) Dim As UInteger c Dim As Integer x, y Dim As UByte red, green, blue, Alpha '' Assume a 16, 24, or 32 bit screen mode has been set c = Point(x, y) red = rgb_r(c) green = rgb_g(c) blue = rgb_b(c) Alpha = rgb_a(c)

Back to top

How can I make the 'x' button in the window header close my application?

In windowed graphics mode you can test for the press of the window's X (close) button with Inkey. This applies to Win32 and Linux, in DOS there is no "X" button.

Here is a small example:

'' "X" close button example , Win32 and Linux only Dim As String key Screen 13 Do Print "Click the 'x' to close this app." Sleep key = Inkey Loop Until key = Chr(27) Or key = Chr(255, 107) 'escape or x-button

NOTE: If you use an old version of FreeBASIC, you may have to use Chr( 255 ) + "X"

It's a hardware/driver limitation (Win32 and Linux only ?). Video cards don't implement those low resolution graphic modes nowadays. If fullscreen is required you should rewrite it using at least SCREEN 17 or 18, or a resolution of 640x480 or higher to be sure modern hardware can handle it.