mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 03:39:40 +01:00
345 lines
15 KiB
ObjectPascal
345 lines
15 KiB
ObjectPascal
{****************************************************************************
|
|
|
|
$Id$
|
|
|
|
DIVE interface unit
|
|
FPC Pascal Runtime Library for OS/2
|
|
Copyright (c) 1999-2000 by Karoly Balogh (aka Charlie/INQ)
|
|
|
|
The FPC Pascal runtime library is distributed under the Library GNU Public
|
|
License v2. So is this unit. The Library GNU Public License requires you to
|
|
distribute the source code of this unit with any product that uses it.
|
|
Because the EMX library isn't under the LGPL, we grant you an exception to
|
|
this, and that is, when you compile a program with the Free Pascal Compiler,
|
|
you do not need to ship source code with that program, AS LONG AS YOU ARE
|
|
USING UNMODIFIED CODE! If you modify this code, you MUST change the next
|
|
line:
|
|
|
|
<This an official, unmodified Free Pascal source code file.>
|
|
|
|
Send us your modified files, we can work together if you want!
|
|
|
|
Free Pascal is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Library GNU General Public License for more details.
|
|
|
|
You should have received a copy of the Library GNU General Public License
|
|
along with Free Pascal; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA.
|
|
|
|
****************************************************************************}
|
|
|
|
Unit DIVE;
|
|
|
|
{Warning: This code is alfa. Future versions of this unit will propably
|
|
not be compatible.}
|
|
|
|
Interface
|
|
|
|
Uses OS2Def, PMWin;
|
|
|
|
Const Max_Dive_Instances = 64;
|
|
|
|
DIVE_Success = $00000000;
|
|
DIVE_Err_Invalid_Instance = $00001000;
|
|
DIVE_Err_Source_Format = $00001001;
|
|
DIVE_Err_Destination_Format = $00001002;
|
|
DIVE_Err_Blitter_Not_Setup = $00001003;
|
|
DIVE_Err_Insufficient_Length = $00001004;
|
|
DIVE_Err_Too_Many_Instances = $00001005;
|
|
DIVE_Err_No_Direct_Access = $00001006;
|
|
DIVE_Err_Not_Bank_Switched = $00001007;
|
|
DIVE_Err_Invalid_Bank_Number = $00001008;
|
|
DIVE_Err_FB_Not_Acquired = $00001009;
|
|
DIVE_Err_FB_Already_Acquired = $0000100A;
|
|
DIVE_Err_Acquire_Failed = $0000100B;
|
|
DIVE_Err_Bank_Switch_Failed = $0000100C;
|
|
DIVE_Err_Deacquire_Failed = $0000100D;
|
|
DIVE_Err_Invalid_Palette = $0000100E;
|
|
DIVE_Err_Invalid_Destination_RECTL = $0000100F;
|
|
DIVE_Err_Invalid_Buffer_Number = $00001010;
|
|
DIVE_Err_SSMDD_Not_Installed = $00001011;
|
|
DIVE_Err_Buffer_Already_Accessed = $00001012;
|
|
DIVE_Err_Buffer_Not_Accessed = $00001013;
|
|
DIVE_Err_Too_Many_Bufffers = $00001014;
|
|
DIVE_Err_Allocation_Error = $00001015;
|
|
DIVE_Err_Invalid_Linesize = $00001016;
|
|
DIVE_Err_Fatal_Exception = $00001017;
|
|
DIVE_Err_Invalid_Conversion = $00001018;
|
|
DIVE_Err_VSD_Error = $00001019;
|
|
DIVE_Err_Color_Support = $0000101A;
|
|
DIVE_Err_Out_Of_Range = $0000101B;
|
|
DIVE_Warn_No_Size = $00001100;
|
|
|
|
DIVE_Buffer_Screen = $00000000;
|
|
DIVE_Buffer_Graphics_Plane = $00000001;
|
|
DIVE_Buffer_Alternate_Plane = $00000002;
|
|
|
|
DIVE_Fully_Visible = $FFFFFFFF;
|
|
|
|
{ * Use either of the two defines as the bRGB2Entries pointer to have DIVE * }
|
|
{ * query and set the physical or default palette as source or destination. * }
|
|
|
|
DIVE_Palette_Physical = $00000000;
|
|
DIVE_Palette_Default = $FFFFFFFF;
|
|
|
|
Type FourCC = cardinal;
|
|
HDIVE = cardinal;
|
|
|
|
{ * Blitter setup structures * }
|
|
TSetup_Blitter = Record
|
|
ulStructLen : cardinal; { * ulStructLen tells how much of the structure is used. * }
|
|
{ * Comments here show appropriate values, so don't count ;) * }
|
|
|
|
fInvert : cardinal; { * Image is inverted on blit * }
|
|
{ * fInvert use: * }
|
|
{ * %0001 = 01 = $01 horizontal flip * }
|
|
{ * %0010 = 02 = $02 vertical flip * }
|
|
|
|
{ * This is the mark for 8 bytes * }
|
|
|
|
fccSrcColorFormat : FourCC; { * Source data format * }
|
|
ulSrcWidth : cardinal; { * Width in pels * }
|
|
ulSrcHeight : cardinal; { * Height in pels * }
|
|
{ * The following are for displaying a sub-portion of the image. * }
|
|
ulSrcPosX : cardinal; { * X Position of source data * }
|
|
ulSrcPosY : cardinal; { * Y Position of source data * }
|
|
|
|
{ * This is the mark for 28 bytes * }
|
|
|
|
ulDitherType : cardinal; { * Dither type * }
|
|
|
|
{ * 32 byte mark * }
|
|
|
|
fccDstColorFormat : FourCC; { * Destination color format * }
|
|
ulDstWidth : cardinal; { * Destination width in pels * }
|
|
ulDstHeight : cardinal; { * Destination height in pels * }
|
|
lDstPosX : LongInt;
|
|
lDstPosY : LongInt;
|
|
|
|
{ * 52 byte mark * }
|
|
|
|
lScreenPosX : LongInt;
|
|
lScreenPosY : LongInt;
|
|
|
|
{ * 60 byte mark * }
|
|
|
|
ulNumDstRects : cardinal;
|
|
pVisDstRects : PRectl; { * This is a pointer to an array of visible rectangles. * }
|
|
|
|
{ * 68 bytes = fully used * }
|
|
End;
|
|
|
|
PSetup_Blitter = ^TSetup_Blitter;
|
|
|
|
{ * Stuff for DiveQueryCaps() * }
|
|
TDIVE_CAPS = Record
|
|
ulStructLen : cardinal; { * SizeOf(TDIVE_CAPS) * }
|
|
ulPlaneCount : cardinal; { * Number of defined planes * }
|
|
|
|
{ * Following info applies to ulPlaneID * }
|
|
fScreenDirect : cardinal; { * Direct screen access (was type BOOL in C) * }
|
|
fBankSwitched : cardinal; { * VRAM bank-switched? (was type BOOL in C) * }
|
|
ulDepth : cardinal; { * Number of bits per pixel * }
|
|
ulHorizontalResolution : cardinal;
|
|
ulVerticalResolution : cardinal;
|
|
ulScanLineBytes : cardinal;
|
|
fccColorEncoding : FourCC;
|
|
ulApertureSize : cardinal;
|
|
|
|
ulInputFormats : cardinal; { * Number of input color formats * }
|
|
ulOutputFormats : cardinal;
|
|
ulFormatLength : cardinal; { * Length of format buffer * }
|
|
pFormatData : Pointer; { * Pointer to format buffer of FOURCC's * }
|
|
End;
|
|
|
|
PDIVE_CAPS = ^TDIVE_CAPS;
|
|
|
|
Function DiveQueryCaps(Var DiveCaps : PDIVE_CAPS; ulPlaneBufNum : cardinal) : cardinal; cdecl;
|
|
|
|
Function DiveOpen(Var phDiveInst : cardinal; fNonScreenInstance : cardinal;
|
|
Var ppFrameBuffer : Pointer) : cardinal; cdecl;
|
|
Function DiveClose(hDiveInst : cardinal) : cardinal; cdecl;
|
|
|
|
Function DiveSetupBlitter(hDiveInst : cardinal; pSetupBlitter : PSetup_Blitter) : cardinal; cdecl;
|
|
Function DiveBlitImage(hDiveInst : cardinal; ulSrcBufNumber : cardinal; ulDstBufNumber : cardinal) : cardinal; cdecl;
|
|
|
|
Function DiveAcquireFrameBuffer(hDiveInst : cardinal; prectlDst : PRectl) : cardinal; cdecl;
|
|
Function DiveDeacquireFrameBuffer(hDiveInst : cardinal) : cardinal; cdecl;
|
|
Function DiveCalcFrameBufferAddress(hDiveInst : cardinal;
|
|
prectlDest : PRectl;
|
|
Var pDestinationAddress : Pointer;
|
|
Var ulBankNumber : cardinal;
|
|
Var ulRemLinesInBank : cardinal) : cardinal; cdecl;
|
|
Function DiveSwitchBank(hDiveInst : cardinal; ulBankNumber : cardinal) : cardinal; cdecl;
|
|
|
|
{ Notes on DiveAllocImageBuffer:
|
|
If pbImageBuffer is not NULL, the buffer is associated rather than
|
|
allocated. If pbImageBuffer is not NULL and the buffer number
|
|
pointed to by pulBufferNumber is non-zero, a new buffer pointer is
|
|
associated with the buffer number. Even though no memory is
|
|
allocated by DiveAllocImageBuffer when user-allocated buffers are
|
|
associated, DiveFreeImageBuffer should be called to release the
|
|
buffer association to avoid using up available buffer indexes.
|
|
The specified line size will be used if a buffer is allocated in
|
|
system memory, or if a user buffer is associated. If the
|
|
specified line size is zero, the allocated line size is rounded up
|
|
to the nearest DWORD boundry. }
|
|
|
|
Function DiveAllocImageBuffer(hDiveInst : cardinal;
|
|
Var ulBufferNumber : cardinal;
|
|
fccColorSpace : FourCC;
|
|
ulWidth : cardinal;
|
|
ulHeight : cardinal;
|
|
ulLineSizeBytes : cardinal;
|
|
Var bImageBuffer : Pointer) : cardinal; cdecl;
|
|
Function DiveFreeImageBuffer(hDiveInst : cardinal; ulBufferNumber : cardinal) : cardinal; cdecl;
|
|
|
|
Function DiveBeginImageBufferAccess(hDiveInst : cardinal;
|
|
ulBufferNumber : cardinal;
|
|
Var pbImageBuffer : Pointer;
|
|
Var ulBufferScanLineBytes : cardinal;
|
|
Var ulBufferScanLines : cardinal) : cardinal; cdecl;
|
|
Function DiveEndImageBufferAccess(hDiveInst : cardinal; ulBufferNumber : cardinal) : cardinal; cdecl;
|
|
|
|
|
|
{/* Notes on palettes:
|
|
Neither DiveSetSourcePalette nor DiveSetDestinationPalette API's will set
|
|
the physical palette. If your application MUST set the PHYSICAL palette,
|
|
try using no more than 236 entries (the middle 236: 10-245, thus leaving
|
|
the top and bottom 10 entries for the Workplace Shell). If your
|
|
application MUST use ALL 256 entries, it must do so as a full-screen
|
|
(i.e. maximized) application. Remember, No WM_REALIZEPALETTE message
|
|
will be sent to other running applications, meaning they will not redraw
|
|
and their colors will be all wrong. It is not recommended that a
|
|
developer use these commands:
|
|
|
|
To set physical palette, do the following:
|
|
hps = WinGetPS ( HWND_DESKTOP );
|
|
hdc = GpiQueryDevice ( hps );
|
|
GpiCreateLogColorTable ( hps, LCOL_PURECOLOR | LCOL_REALIZABLE,
|
|
LCOLF_CONSECRGB, 0, 256, (PLONG)plRGB2Entries );
|
|
Gre32EntrY3 ( hdc, 0L, 0x000060C6L );
|
|
WinInvalidateRect ( HWND_DESKTOP, (PRECTL)NULL, TRUE );
|
|
WinReleasePS ( hps );
|
|
|
|
To reset physical palette, do the following:
|
|
hps = WinGetPS ( HWND_DESKTOP );
|
|
hdc = GpiQueryDevice ( hps );
|
|
Gre32EntrY3 ( hdc, 0L, 0x000060C7L );
|
|
WinInvalidateRect ( HWND_DESKTOP, (PRECTL)NULL, TRUE );
|
|
WinReleasePS ( hps );
|
|
*/}
|
|
|
|
Function DiveSetDestinationPalette(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulNumEntries : cardinal;
|
|
Var bRGB2Entries : Pointer) : cardinal; cdecl;
|
|
|
|
Function DiveSetSourcePalette(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulNumEntries : cardinal;
|
|
Var bRGB2Entries : Pointer) : cardinal; cdecl;
|
|
|
|
Function DiveSetTransparentBlitMode(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulValue1 : cardinal;
|
|
ulValue2 : cardinal) : cardinal; cdecl;
|
|
|
|
Implementation
|
|
|
|
Function DiveQueryCaps(Var DiveCaps : PDIVE_CAPS; ulPlaneBufNum : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 1;
|
|
|
|
Function DiveOpen(Var phDiveInst : cardinal; fNonScreenInstance : cardinal; Var ppFrameBuffer : Pointer) : cardinal; cdecl;
|
|
External 'DIVE' Index 2;
|
|
|
|
Function DiveClose(hDiveInst : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 3;
|
|
|
|
Function DiveSetupBlitter(hDiveInst : cardinal; pSetupBlitter : PSetup_Blitter) : cardinal; cdecl;
|
|
External 'DIVE' Index 4;
|
|
|
|
Function DiveBlitImage(hDiveInst : cardinal; ulSrcBufNumber : cardinal; ulDstBufNumber : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 5;
|
|
|
|
Function DiveAcquireFrameBuffer(hDiveInst : cardinal; prectlDst : PRectl) : cardinal; cdecl;
|
|
External 'DIVE' Index 6;
|
|
|
|
Function DiveDeacquireFrameBuffer(hDiveInst : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 8;
|
|
|
|
Function DiveCalcFrameBufferAddress(hDiveInst : cardinal;
|
|
prectlDest : PRectl;
|
|
Var pDestinationAddress : Pointer;
|
|
Var ulBankNumber : cardinal;
|
|
Var ulRemLinesInBank : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 11;
|
|
|
|
Function DiveSwitchBank(hDiveInst : cardinal; ulBankNumber : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 7;
|
|
|
|
|
|
Function DiveAllocImageBuffer(hDiveInst : cardinal;
|
|
Var ulBufferNumber : cardinal;
|
|
fccColorSpace : FourCC;
|
|
ulWidth : cardinal;
|
|
ulHeight : cardinal;
|
|
ulLineSizeBytes : cardinal;
|
|
Var bImageBuffer : Pointer) : cardinal; cdecl;
|
|
External 'DIVE' Index 12;
|
|
|
|
Function DiveFreeImageBuffer(hDiveInst : cardinal;
|
|
ulBufferNumber : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 13;
|
|
|
|
Function DiveBeginImageBufferAccess(hDiveInst : cardinal;
|
|
ulBufferNumber : cardinal;
|
|
Var pbImageBuffer : Pointer;
|
|
Var ulBufferScanLineBytes : cardinal;
|
|
Var ulBufferScanLines : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 14;
|
|
|
|
Function DiveEndImageBufferAccess(hDiveInst : cardinal; ulBufferNumber : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 15;
|
|
|
|
Function DiveSetDestinationPalette(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulNumEntries : cardinal;
|
|
Var bRGB2Entries : Pointer) : cardinal; cdecl;
|
|
External 'DIVE' Index 9;
|
|
|
|
Function DiveSetSourcePalette(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulNumEntries : cardinal;
|
|
Var bRGB2Entries : Pointer) : cardinal; cdecl;
|
|
External 'DIVE' Index 10;
|
|
|
|
Function DiveSetTransparentBlitMode(hDiveInst : cardinal;
|
|
ulStartIndex : cardinal;
|
|
ulValue1 : cardinal;
|
|
ulValue2 : cardinal) : cardinal; cdecl;
|
|
External 'DIVE' Index 18;
|
|
|
|
Begin
|
|
End.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 2000-02-09 16:59:33 peter
|
|
* truncated log
|
|
|
|
Revision 1.3 2000/01/09 20:51:03 hajny
|
|
* FPK changed to FPC
|
|
|
|
Revision 1.2 2000/01/07 16:41:45 daniel
|
|
* copyright 2000
|
|
|
|
Revision 1.1 1999/10/01 11:17:09 hajny
|
|
+ initial version
|
|
|
|
|
|
}
|