442 lines
19 KiB
ObjectPascal
442 lines
19 KiB
ObjectPascal
{
|
|
Copyright 2005-2012 Sandy Barbour and Ben Supnik
|
|
|
|
All rights reserved. See license.txt for usage.
|
|
|
|
X-Plane SDK Version: 2.1.1
|
|
}
|
|
|
|
UNIT XPLMGraphics;
|
|
INTERFACE
|
|
{
|
|
Graphics routines for X-Plane and OpenGL.
|
|
|
|
A few notes on coordinate systems:
|
|
|
|
X-Plane uses three kinds of coordinates. Global coordinates are specified
|
|
as latitude, longitude and elevation. This coordinate system never changes
|
|
but is not very precise.
|
|
|
|
OpenGL (or 'local') coordinates are cartesian and shift with the plane.
|
|
They offer more precision and are used for 3-d OpenGL drawing. The X axis
|
|
is aligned east-west with positive X meaning east. The Y axis is aligned
|
|
straight up and down at the point 0,0,0 (but since the earth is round it is
|
|
not truly straight up and down at other points). The Z axis is aligned
|
|
north-south at 0, 0, 0 with positive Z pointing south (but since the earth
|
|
is round it isn't exactly north-south as you move east or west of 0, 0, 0).
|
|
One unit is one meter and the point 0,0,0 is on the surface of the earth
|
|
at sea level for some latitude and longitude picked by the sim such that
|
|
the user's aircraft is reasonably nearby.
|
|
|
|
Cockpit coordinates are 2d, with the X axis horizontal and the Y axis
|
|
vertical. The point 0,0 is the bottom left and 1024,768 is the upper right
|
|
of the screen. This is true no matter what resolution the user's monitor is
|
|
in; when running in higher resolution, graphics will be scaled.
|
|
|
|
Use X-Plane's routines to convert between global and local coordinates. Do
|
|
not attempt to do this conversion yourself; the precise 'roundness' of
|
|
X-Plane's physics model may not match your own, and (to make things
|
|
weirder) the user can potentially customize the physics of the current
|
|
planet.
|
|
}
|
|
|
|
USES XPLMDefs;
|
|
{$A4}
|
|
{$IFDEF MSWINDOWS}
|
|
{$DEFINE DELPHI}
|
|
{$ENDIF}
|
|
{___________________________________________________________________________
|
|
* X-PLANE GRAPHICS
|
|
___________________________________________________________________________}
|
|
{
|
|
These routines allow you to use OpenGL with X-Plane.
|
|
}
|
|
|
|
|
|
|
|
{
|
|
XPLMTextureID
|
|
|
|
XPLM Texture IDs name well-known textures in the sim for you to use. This
|
|
allows you to recycle textures from X-Plane, saving VRAM.
|
|
}
|
|
TYPE
|
|
XPLMTextureID = (
|
|
{ The bitmap that contains window outlines, button outlines, fonts, etc. }
|
|
xplm_Tex_GeneralInterface = 0
|
|
|
|
{ The exterior paint for the user's aircraft (daytime). }
|
|
,xplm_Tex_AircraftPaint = 1
|
|
|
|
{ The exterior light map for the user's aircraft. }
|
|
,xplm_Tex_AircraftLiteMap = 2
|
|
|
|
);
|
|
PXPLMTextureID = ^XPLMTextureID;
|
|
|
|
{
|
|
XPLMSetGraphicsState
|
|
|
|
XPLMSetGraphicsState changes OpenGL's graphics state in a number of ways:
|
|
|
|
inEnableFog - enables or disables fog, equivalent to: glEnable(GL_FOG);
|
|
|
|
inNumberTexUnits - enables or disables a number of multitexturing units. If
|
|
the number is 0, 2d texturing is disabled entirely, as in
|
|
glDisable(GL_TEXTURE_2D); Otherwise, 2d texturing is enabled, and a
|
|
number of multitexturing units are enabled sequentially, starting with
|
|
unit 0, e.g. glActiveTextureARB(GL_TEXTURE0_ARB); glEnable
|
|
(GL_TEXTURE_2D);
|
|
|
|
inEnableLighting - enables or disables OpenGL lighting, e.g.
|
|
glEnable(GL_LIGHTING); glEnable(GL_LIGHT0);
|
|
|
|
inEnableAlphaTesting - enables or disables the alpha test per pixel, e.g.
|
|
glEnable(GL_ALPHA_TEST);
|
|
|
|
inEnableAlphaBlending - enables or disables alpha blending per pixel, e.g.
|
|
glEnable(GL_BLEND);
|
|
|
|
inEnableDepthTesting - enables per pixel depth testing, as in
|
|
glEnable(GL_DEPTH_TEST);
|
|
|
|
inEnableDepthWriting - enables writing back of depth information to the
|
|
depth bufffer, as in glDepthMask(GL_TRUE);
|
|
|
|
The purpose of this function is to change OpenGL state while keeping
|
|
X-Plane aware of the state changes; this keeps X-Plane from getting
|
|
surprised by OGL state changes, and prevents X-Plane and plug-ins from
|
|
having to set all state before all draws; XPLMSetGraphicsState internally
|
|
skips calls to change state that is already properly enabled.
|
|
|
|
X-Plane does not have a 'default' OGL state to plug-ins; plug-ins should
|
|
totally set OGL state before drawing. Use XPLMSetGraphicsState instead of
|
|
any of the above OpenGL calls.
|
|
|
|
WARNING: Any routine that performs drawing (e.g. XPLMDrawString or widget
|
|
code) may change X-Plane's state. Always set state before drawing after
|
|
unknown code has executed.
|
|
}
|
|
PROCEDURE XPLMSetGraphicsState(
|
|
inEnableFog : integer;
|
|
inNumberTexUnits : integer;
|
|
inEnableLighting : integer;
|
|
inEnableAlphaTesting: integer;
|
|
inEnableAlphaBlending: integer;
|
|
inEnableDepthTesting: integer;
|
|
inEnableDepthWriting: integer);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMBindTexture2d
|
|
|
|
XPLMBindTexture2d changes what texture is bound to the 2d texturing target.
|
|
This routine caches the current 2d texture across all texturing units in
|
|
the sim and plug-ins, preventing extraneous binding. For example, consider
|
|
several plug-ins running in series; if they all use the 'general interface'
|
|
bitmap to do UI, calling this function will skip the rebinding of the
|
|
general interface texture on all but the first plug-in, which can provide
|
|
better frame rate son some graphics cards.
|
|
|
|
inTextureID is the ID of the texture object to bind; inTextureUnit is a
|
|
zero-based texture unit (e.g. 0 for the first one), up to a maximum of 4
|
|
units. (This number may increase in future versions of x-plane.)
|
|
|
|
Use this routine instead of glBindTexture(GL_TEXTURE_2D, ....);
|
|
}
|
|
PROCEDURE XPLMBindTexture2d(
|
|
inTextureNum : integer;
|
|
inTextureUnit : integer);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMGenerateTextureNumbers
|
|
|
|
This routine generates unused texture numbers that a plug-in can use to
|
|
safely bind textures. Use this routine instead of glGenTextures;
|
|
glGenTextures will allocate texture numbers in ranges that X-Plane reserves
|
|
for its own use but does not always use; for example, it might provide an
|
|
ID within the range of textures reserved for terrain...loading a new .env
|
|
file as the plane flies might then cause X-Plane to use this texture ID.
|
|
X-Plane will then overwrite the plug-ins texture. This routine returns
|
|
texture IDs that are out of X-Plane's usage range.
|
|
}
|
|
PROCEDURE XPLMGenerateTextureNumbers(
|
|
outTextureIDs : Pinteger;
|
|
inCount : integer);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMGetTexture
|
|
|
|
XPLMGetTexture returns the OpenGL texture enumeration of an X-Plane texture
|
|
based on a generic identifying code. For example, you can get the texture
|
|
for X-Plane's UI bitmaps. This allows you to build new gauges that take
|
|
advantage of x-plane's textures, for smooth artwork integration and also
|
|
saving texture memory. Note that the texture might not be loaded yet,
|
|
depending on what the plane's panel contains.
|
|
|
|
OPEN ISSUE: We really need a way to make sure X-Plane loads this texture if
|
|
it isn't around, or at least a way to find out whether it is loaded or not.
|
|
}
|
|
FUNCTION XPLMGetTexture(
|
|
inTexture : XPLMTextureID) : integer;
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMWorldToLocal
|
|
|
|
This routine translates coordinates from latitude, longitude, and altitude
|
|
to local scene coordinates. Latitude and longitude are in decimal degrees,
|
|
and altitude is in meters MSL (mean sea level). The XYZ coordinates are in
|
|
meters in the local OpenGL coordinate system.
|
|
}
|
|
PROCEDURE XPLMWorldToLocal(
|
|
inLatitude : real;
|
|
inLongitude : real;
|
|
inAltitude : real;
|
|
outX : Preal;
|
|
outY : Preal;
|
|
outZ : Preal);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMLocalToWorld
|
|
|
|
This routine translates a local coordinate triplet back into latitude,
|
|
longitude, and altitude. Latitude and longitude are in decimal degrees,
|
|
and altitude is in meters MSL (mean sea level). The XYZ coordinates are in
|
|
meters in the local OpenGL coordinate system.
|
|
|
|
NOTE: world coordinates are less precise than local coordinates; you should
|
|
try to avoid round tripping from local to world and back.
|
|
}
|
|
PROCEDURE XPLMLocalToWorld(
|
|
inX : real;
|
|
inY : real;
|
|
inZ : real;
|
|
outLatitude : Preal;
|
|
outLongitude : Preal;
|
|
outAltitude : Preal);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMDrawTranslucentDarkBox
|
|
|
|
This routine draws a translucent dark box, partially obscuring parts of the
|
|
screen but making text easy to read. This is the same graphics primitive
|
|
used by X-Plane to show text files and ATC info.
|
|
}
|
|
PROCEDURE XPLMDrawTranslucentDarkBox(
|
|
inLeft : integer;
|
|
inTop : integer;
|
|
inRight : integer;
|
|
inBottom : integer);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{___________________________________________________________________________
|
|
* X-PLANE TEXT
|
|
___________________________________________________________________________}
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
{
|
|
XPLMFontID
|
|
|
|
X-Plane features some fixed-character fonts. Each font may have its own
|
|
metrics.
|
|
|
|
WARNING: Some of these fonts are no longer supported or may have changed
|
|
geometries. For maximum copmatibility, see the comments below.
|
|
|
|
Note: X-Plane 7 supports proportional-spaced fonts. Since no measuring
|
|
routine is available yet, the SDK will normally draw using a fixed-width
|
|
font. You can use a dataref to enable proportional font drawing on XP7 if
|
|
you want to.
|
|
}
|
|
TYPE
|
|
XPLMFontID = (
|
|
{ Mono-spaced font for user interface. Available in all versions of the SDK. }
|
|
xplmFont_Basic = 0
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_Menus = 1
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_Metal = 2
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_Led = 3
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_LedWide = 4
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_PanelHUD = 5
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_PanelEFIS = 6
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_PanelGPS = 7
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosGA = 8
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosBC = 9
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosHM = 10
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosGANarrow = 11
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosBCNarrow = 12
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_RadiosHMNarrow = 13
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_Timer = 14
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_FullRound = 15
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_SmallRound = 16
|
|
|
|
{ Deprecated, do not use. }
|
|
,xplmFont_Menus_Localized = 17
|
|
|
|
{$IFDEF XPLM200}
|
|
{ Proportional UI font. }
|
|
,xplmFont_Proportional = 18
|
|
{$ENDIF}
|
|
|
|
);
|
|
PXPLMFontID = ^XPLMFontID;
|
|
|
|
{
|
|
XPLMDrawString
|
|
|
|
This routine draws a NULL termianted string in a given font. Pass in the
|
|
lower left pixel that the character is to be drawn onto. Also pass the
|
|
character and font ID. This function returns the x offset plus the width of
|
|
all drawn characters. The color to draw in is specified as a pointer to an
|
|
array of three floating point colors, representing RGB intensities from 0.0
|
|
to 1.0.
|
|
}
|
|
PROCEDURE XPLMDrawString(
|
|
inColorRGB : Psingle;
|
|
inXOffset : integer;
|
|
inYOffset : integer;
|
|
inChar : Pchar;
|
|
inWordWrapWidth : Pinteger; { Can be nil }
|
|
inFontID : XPLMFontID);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMDrawNumber
|
|
|
|
This routine draws a number similar to the digit editing fields in
|
|
PlaneMaker and data output display in X-Plane. Pass in a color, a
|
|
position, a floating point value, and formatting info. Specify how many
|
|
integer and how many decimal digits to show and whether to show a sign, as
|
|
well as a character set. This routine returns the xOffset plus width of the
|
|
string drawn.
|
|
}
|
|
PROCEDURE XPLMDrawNumber(
|
|
inColorRGB : Psingle;
|
|
inXOffset : integer;
|
|
inYOffset : integer;
|
|
inValue : real;
|
|
inDigits : integer;
|
|
inDecimals : integer;
|
|
inShowSign : integer;
|
|
inFontID : XPLMFontID);
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{
|
|
XPLMGetFontDimensions
|
|
|
|
This routine returns the width and height of a character in a given font.
|
|
It also tells you if the font only supports numeric digits. Pass NULL if
|
|
you don't need a given field. Note that for a proportional font the width
|
|
will be an arbitrary, hopefully average width.
|
|
}
|
|
PROCEDURE XPLMGetFontDimensions(
|
|
inFontID : XPLMFontID;
|
|
outCharWidth : Pinteger; { Can be nil }
|
|
outCharHeight : Pinteger; { Can be nil }
|
|
outDigitsOnly : Pinteger); { Can be nil }
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
|
|
{$IFDEF XPLM200}
|
|
{
|
|
XPLMMeasureString
|
|
|
|
This routine returns the width in pixels of a string using a given font.
|
|
The string is passed as a pointer plus length (and does not need to be null
|
|
terminated); this is used to allow for measuring substrings. The return
|
|
value is floating point; it is possible that future font drawing may allow
|
|
for fractional pixels.
|
|
}
|
|
FUNCTION XPLMMeasureString(
|
|
inFontID : XPLMFontID;
|
|
inChar : Pchar;
|
|
inNumChars : integer) : single;
|
|
{$IFDEF DELPHI}
|
|
cdecl; external 'XPLM.DLL';
|
|
{$ELSE}
|
|
cdecl; external '';
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
IMPLEMENTATION
|
|
END.
|