FreeBASIC Graphics Library questions:
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.
Back to top
What about the fbgfx.bi header file?
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.
Back to top
How are GET/PUT arrays managed?
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 .
Back to top
Why is BSAVE/BLOAD crashing?
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 .
Back to top
How can I get the red, green, blue, or alpha component of a color?
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"
Back to top
Can't run programs using SCREEN 13 or 14 in fullscreen !
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.
Back to top
See also