- 4.51.2.4. -
Table of Contents
4. Standard Units
4.51. ObjGfx40 - ObjectGraphics 4.0 Unit
4.51.2. ObjGfx40 Unit Object Types
4.51.2.4. ogSurface object
4.51.2.4. ogSurface object
Targets: MS-DOS, Win32 console
ObjGfx40 Unit
type
ogSurface = object
public
function ogAlias(var srcObject:ogSurface; x1, y1, x2, y2:uInt32):boolean; virtual;
procedure ogArc(xCenter, yCcenter:int32; radius, sAngle, eAngle, colour:uInt32);
function ogAvail:boolean; virtual;
procedure ogBSpline(numPoints: uInt32; var points:array of ogPoint2d; segments, colour:uInt32);
procedure ogCircle(xCenter, yCenter:int32; radius, colour:uInt32);
procedure ogClear(colour:uInt32); virtual;
function ogClone(var srcObject:ogSurface):boolean; virtual;
procedure ogCopy(var srcObject:ogSurface);
procedure ogCopyLineTo(dX, dY:uInt32; from:pointer; size:uInt32); virtual;
procedure ogCopyLineFrom(sX, sY:uInt32; to:pointer; size:uInt32); virtual;
procedure ogCopyBuf(dX1, dY1:int32; var srcObject:ogSurface; sX1, sY1, sX2, sY2:int32);
procedure ogCopyPal(var srcObject:ogSurface); virtual;
function ogCreate(xRes, yRes: uInt32; pixFormat:ogPixelFmt):boolean; virtual;
procedure ogCubicBezierCurve(x1, y1, x2, y2, x3, y3, x4, y4:int32; segments:uInt32; colour:uInt32);
procedure ogCurve(x1, y1, x2, y2, x3, y3:int32; segments:uInt32; colour:uInt32);
destructor ogDone; virtual;
procedure ogFillCircle(xCenter, yCenter:int32; radius, colour:uInt32);
procedure ogFillGouraudPolygon(numPoints:uInt32; var polyPoints:array of ogPoint2d; var colours:array of ogRGBA8);
procedure ogFillPolygon(numPoints:uInt32; var polyPoints:array of ogPoint2d; colour:uInt32);
procedure ogFillRect(x1, y1, x2, y2:int32; colour:uInt32);
procedure ogFillTriangle(x1, y1, x2, y2, x3, y3:int32; colour:uInt32);
function ogGetAlpha:uInt32;
function ogGetAlphaMasker:uInt32;
function ogGetBPP:uInt32;
function ogGetBytesPerPix:uInt32;
function ogGetDataState:ogDataState;
function ogGetLastError:ogErrorCode;
function ogGetMaxX:uInt32;
function ogGetMaxY:uInt32;
procedure ogGetPal(var pal:ogPal);
function ogGetPixel(x, y:int32):uInt32; virtual;
procedure ogGetPixFmt(var pixFmt:ogPixelFmt);
function ogGetPtr(x, y:uInt32):pointer; virtual;
function ogGetTransparentColor:uInt32;
procedure ogHFlip;
procedure ogHLine(x1, x2, y:int32; colour:uInt32); virtual;
constructor ogInit;
function ogIsAntiAliasing:boolean;
function ogIsBlending:boolean;
procedure ogLine(x1, y1, x2, y2:int32;colour:uInt32);
function ogLoadPal(const palfile:string):boolean; virtual;
procedure ogPolygon(numPoints:uInt32; var polyPoints:array of ogPoint2d; colour:uInt32);
procedure ogRect(x1, y1, x2, y2:int32; colour:uInt32);
function ogRGB(red, green, blue:uInt8):uInt32;
function ogRGBA(red, green, blue, alpha:uInt8):uInt32;
function ogSavePal(const palFile:string):boolean;
procedure ogScale(var srcObject:ogSurface);
procedure ogScaleBuf(dX1, dY1, dX2, dY2:int32; var srcObject:ogSurface; sX1, sY1, sX2, sY2:Int32);
function ogSetAlpha(alpha:uInt32):uInt32;
function ogSetAntiAliasing(antiAlias:boolean):boolean;
function ogSetBlending(blending:uInt32):boolean;
function ogSetLastError(latestError:ogErrorCode):ogErrorCode; virtual;
procedure ogSetPal(var newPalette:ogPal); virtual;
procedure ogSetPixel(x, y:int32; colour:uInt32); virtual;
procedure ogSetPixelRGBA(x, y:int32; red, green, blue, alpha:uInt8); virtual;
procedure ogSetRGBPalette(colour, red, green, blue:uInt8); virtual;
procedure ogSetRGBAPalette(colour, red, green, blue, alpha:uInt8); virtual;
function ogSetTransparentColor(colour:uInt32):uInt32;
procedure ogSpline(numPoints: uInt32; varpoints: array of ogPoint2d; segments, colour:uInt32);
procedure ogTriangle(x1, y1, x2, y2, x3, y3:int32; colour:uInt32);
procedure ogUnpackRGB(colour:uInt32; var red, green, blue:uInt8);
procedure ogUnpackRGBA(colour:uInt32; var red, green, blue, alpha:uInt8);
procedure ogVFlip;
procedure ogVLine(x, y1, y2:int32; colour:uInt32); virtual;
end;
- 4.51.2.4. -
