freepascal.compiler/rtl/os2/pmord.pas

{****************************************************************************

                   Copyright (c) 1993,94 by Florian Kl„mpfl
                  
 ****************************************************************************}
unit pmord;

  interface
  
    uses
       os2def,pmgpi;

{$PACKRECORDS 1}

    type
       RECT1S = record
          xLeft : SHORT;
          yBottom : SHORT;
          xRight : SHORT;
          yTop : SHORT;
       end;

       ODPOINT = record
          dx : CHAR;
          dy : CHAR;
       end;

       SIZES = record
          cx : SHORT;
          cy : SHORT;
       end;

       SWPUSHORT = record
          HiByte : UCHAR;
          LoByte : UCHAR;
       end;

    const
       OCODE_GNOP1 = $00;
       OCODE_GESD = $FF;
       OCODE2_1 = $80;
       OCODE2_2 = $88;

    type
       ORDER = record
          idCode : UCHAR;
          uchData : UCHAR;
       end;

    const
       OCODE_GBAR = $68;
       OCODE_GCFIG = $7D;
       OCODE_GEEL = $49;
       OCODE_GEPTH = $7F;
       OCODE_GEPROL = $3E;
       OCODE_GPOP = $3F;
       OCODE_GSBMX = $0D;
       OCODE_GPSBMX = $4D;
       OCODE_GSCD = $3A;
       OCODE_GPSCD = $7A;
       OCODE_GSCR = $39;
       OCODE_GPSCR = $79;
       OCODE_GSCS = $38;
       OCODE_GPSCS = $78;
       OCODE_GSCOL = $0A;
       OCODE_GPSCOL = $4A;
       OCODE_GSLE = $1A;
       OCODE_GPSLE = $5A;
       OCODE_GSLJ = $1B;
       OCODE_GPSLJ = $5B;
       OCODE_GSLT = $18;
       OCODE_GPSLT = $58;
       OCODE_GSLW = $19;
       OCODE_GPSLW = $59;
       OCODE_GSMP = $3B;
       OCODE_GPSMP = $7B;
       OCODE_GSMS = $3C;
       OCODE_GPSMS = $7C;
       OCODE_GSMT = $29;
       OCODE_GPSMT = $69;
       OCODE_GSMX = $0C;
       OCODE_GPSMX = $4C;
       OCODE_GSPS = $08;
       OCODE_GPSPS = $48;
       OCODE_GSPT = $28;
       OCODE_GPSPT = $09;
       GBAR_RESERVED = $80;
       GBAR_BOUNDARY = $C0;
       GBAR_NOBOUNDARY = $80;
       GBAR_WINDING = $A0;
       GBAR_ALTERNATE = $80;
       GSCR_PRECISION = $0F;
       OCODE_VLONG = $FE;
       LORDER_ML = 253;

    type
       LORDER = record
          idCode : UCHAR;
          uchLength : UCHAR;
          uchData : array[0..LORDER_ML-1] of UCHAR;
       end;

    const
       OCODE_GEAR = $60;
       OCODE_GEIMG = $93;
       OCODE_GCCHST = $83;
       GCCHST_MC = 255;
       OCODE_GCHST = $C3;
       GCHST_SMC = 251;
       GCHST_LMC = 247;
       OCODE_GCCHSTM = $B1;
       GCCHSTM_MC = 255;
       OCODE_GCHSTM = $F1;
       GCHSTM_SMC = 251;
       GCHSTM_LMC = 247;
       OCODE_GCOMT = $01;
       GCOMT_ML = 255;
       OCODE_GIMD = $92;
       GIMD_ML = 255;
       OCODE_GCFARC = $87;
       OCODE_GFARC = $C7;
       OCODE_GLABL = $D3;
       OCODE_GSCP = $21;
       OCODE_GPSCP = $61;
       OCODE_GCBEZ = $A5;
       GCBEZ_SMB = 21;
       GCBEZ_LMB = 10;
       OCODE_GBEZ = $E5;
       GBEZ_SMB = 20;
       GBEZ_LMB = 10;
       OCODE_GCFLT = $85;
       GCFLT_SMP = 63;
       GCFLT_LMP = 31;
       OCODE_GFLT = $C5;
       GFLT_SMP = 62;
       GFLT_LMP = 30;
       OCODE_GCLINE = $81;
       GCLINE_SMP = 63;
       GCLINE_LMP = 31;
       OCODE_GLINE = $C1;
       GLINE_SMP = 62;
       GLINE_LMP = 30;
       OCODE_GCMRK = $82;
       GCMRK_SMP = 63;
       GCMRK_LMP = 31;
       OCODE_GMRK = $C2;
       GMRK_SMP = 62;
       GMRK_LMP = 30;
       OCODE_GCRLINE = $A1;
       GCRLINE_MP = 127;
       OCODE_GRLINE = $E1;
       GRLINE_SMP = 125;
       GRLINE_LMP = 123;
       OCODE_GSBCOL = $25;
       OCODE_GPSBCOL = $65;
       OCODE_GSECOL = $26;
       OCODE_GPSECOL = $66;
       SECOL_DEFAULT0 = $0000;
       SECOL_DEFAULT1 = $FF00;
       SECOL_NEUTRAL = $FF07;
       SECOL_RESET = $FF08;
       OCODE_GSCA = $34;
       OCODE_GPSCA = $74;
       OCODE_GSCH = $35;
       OCODE_GPSCH = $75;
       OCODE_GSFLW = $11;
       OCODE_GPSFLW = $51;
       OCODE_GSPIK = $43;
       OCODE_GPSPIK = $23;
       OCODE_GCARC = $86;
       OCODE_GARC = $C6;

    type
       ORDERS_GCARC = record
          ptInter : POINTS;
          ptEnd : POINTS;
       end;

       ORDERL_GCARC = record
          ptInter : POINTL;
          ptEnd : POINTL;
       end;

    const
       OCODE_GBEL = $D2;
       GBEL_DL = 251;

    type
       ORDER_GBEL = record
          lElementType : LONG;
          achDesc : array[0..GBEL_DL-1] of CHAR;
       end;

    const
       OCODE_GCBIMG = $91;
       OCODE_GBIMG = $D1;

    type
       ORDER_GCBIMG = record
          uchFormat : UCHAR;
          uchReserved : UCHAR;
          cx : SWPUSHORT;
          cy : SWPUSHORT;
       end;

    const
       OCODE_GBPTH = $D0;

    type
       ORDER_GBPTH = record
          usReserved : USHORT;
          idPath : LONG;
       end;

    const
       OCODE_GCBOX = $80;
       OCODE_GBOX = $C0;

    type
       ORDERS_GCBOX = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptCorner : POINTS;
          hAxis : SHORT;
          vAxis : SHORT;
       end;

       ORDERL_GCBOX = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptCorner : POINTL;
          hAxis : LONG;
          vAxis : LONG;
       end;

    const
       GCBOX_FILL = $40;
       GCBOX_BOUNDARY = $20;
       OCODE_GCALLS = $07;

    type
       ORDER_GCALLS = record
          sReserved : USHORT;
          idSegment : LONG;
       end;

    const
       OCODE_GFPTH = $D7;

    type
       ORDER_GFPTH = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          idPath : LONG;
       end;

    const
       GFPTH_ALTERNATE = $00;
       GFPTH_WINDING = $40;
       GFPTH_MODIFY = $20;
       OCODE_GOPTH = $D4;

    type
       ORDER_GOPTH = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          idPath : LONG;
       end;

    const
       OCODE_GMPTH = $D8;

    type
       ORDER_GMPTH = record
          uchMode : UCHAR;
          uchReserved : UCHAR;
          idPath : LONG;
       end;

    const
       GMPTH_STROKE = $06;
       OCODE_GCPARC = $A3;
       OCODE_GPARC = $E3;

    type
       ORDERS_GCPARC = record
          ptCenter : POINTS;
          ufx88Multiplier : FIXED88;
          usStartAngle : LONG;
          usSweepAngle : LONG;
       end;

       ORDERL_GCPARC = record
          ptCenter : POINTL;
          ufxMultiplier : FIXED;
          usStartAngle : LONG;
          usSweepAngle : LONG;
       end;

    const
       OCODE_GSCPTH = $B4;

    type
       ORDER_GSCPTH = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          idPath : LONG;
       end;

    const
       GSCPTH_ALTERNATE = $00;
       GSCPTH_WINDING = $40;
       GSCPTH_RESET = $00;
       GSCPTH_INTERSECT = $20;
       OCODE_GSAP = $22;
       OCODE_GPSAP = $62;

    type
       ORDERS_GSAP = record
          p : SHORT;
          q : SHORT;
          r : SHORT;
          s : SHORT;
       end;

       ORDERL_GSAP = record
          p : LONG;
          q : LONG;
          r : LONG;
          s : LONG;
       end;

    const
       OCODE_GSBICOL = $A7;
       OCODE_GPSBICOL = $E7;
       OCODE_GSICOL = $A6;
       OCODE_GPSICOL = $E6;

    type
       ORDER_GSBICOL = record
          fbFlags : UCHAR;
          auchColor : array[0..3-1] of UCHAR;
       end;

    const
       SICOL_SPECIFY = $00;
       SICOL_SPECIAL = $40;
       SICOL_DEFAULT = $80;
       SICOL_BLACK = 1;
       SICOL_WHITE = 2;
       SICOL_ONES = 4;
       SICOL_ZEROES = 5;
       OCODE_GSCC = $33;
       OCODE_GPSCC = $03;

    type
       ORDERS_GSCC = record
          cxInt : SHORT;
          cyInt : SHORT;
          cxFract : USHORT;
          cyFract : USHORT;
          fbFlags : UCHAR;
          uchReserved : UCHAR;
       end;

       ORDERL_GSCC = record
          cxInt : LONG;
          cyInt : LONG;
          cxFract : USHORT;
          cyFract : USHORT;
          fbFlags : UCHAR;
          uchReserved : UCHAR;
       end;

    const
       GSCC_ZERODEF = $00;
       GSCC_ZEROZERO = $80;
       OCODE_GSMC = $37;
       OCODE_GPSMC = $77;

    type
       ORDERS_GSMC = record
          cx : SHORT;
          cy : SHORT;
          fbFlags : UCHAR;
          uchReserved : UCHAR;
       end;

       ORDERL_GSMC = record
          cx : LONG;
          cy : LONG;
          fbFlags : UCHAR;
          uchReserved : UCHAR;
       end;

    const
       GSMC_ZERODEF = $00;
       GSMC_ZEROZERO = $80;
       OCODE_GSPRP = $A0;
       OCODE_GPSPRP = $E0;

    type
       ORDERS_GSPRP = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptPos : POINTS;
       end;

       ORDERL_GSPRP = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptPos : POINTL;
       end;

    const
       GSPRP_DEFAULT = $80;
       GSPRP_SPECIFY = $00;
       OCODE_GSIA = $14;
       OCODE_GPSIA = $54;
       GSIA_VL = 3;

    type
       ORDER_GSIA = record
          uchAttrType : UCHAR;
          uchPrimType : UCHAR;
          fbFlags : UCHAR;
          auchValue : array[0..GSIA_VL-1] of UCHAR;
       end;

    const
       GSIA_COLOR = $01;
       GSIA_BCOLOR = $02;
       GSIA_MIX = $03;
       GSIA_BMIX = $04;
       GSIA_LINE = $01;
       GSIA_CHAR = $02;
       GSIA_MARKER = $03;
       GSIA_PATTERN = $04;
       GSIA_IMAGE = $05;
       GSIA_SPECIFY = $00;
       GSIA_SPECIAL = $40;
       GSIA_DEFAULT = $80;
       GSIA_BLACK = 1;
       GSIA_WHITE = 2;
       GSIA_ONES = 4;
       GSIA_ZEROES = 5;
       OCODE_GSTM = $24;
       OCODE_GPSTM = $64;
       OCODE_GSTV = $31;
       GSTM_ML = 16;

    type
       ORDERS_GSTM = record
          uchReserved : UCHAR;
          fbFlags : UCHAR;
          fsMask : USHORT;
          asMatrix : array[0..GSTM_ML-1] of SHORT;
       end;

       ORDERL_GSTM = record
          uchReserved : UCHAR;
          fbFlags : UCHAR;
          fsMask : USHORT;
          alMatrix : array[0..GSTM_ML-1] of LONG;
       end;

    const
       GSTM_M11 = $8000;
       GSTM_M12 = $4000;
       GSTM_M13 = $2000;
       GSTM_M14 = $1000;
       GSTM_M21 = $0800;
       GSTM_M22 = $0400;
       GSTM_M23 = $0200;
       GSTM_M24 = $0100;
       GSTM_M31 = $0080;
       GSTM_M32 = $0040;
       GSTM_M33 = $0020;
       GSTM_M34 = $0010;
       GSTM_M41 = $0008;
       GSTM_M42 = $0004;
       GSTM_M43 = $0002;
       GSTM_M44 = $0001;
       GSTM_UNITY = $00;
       GSTM_AFTER = $01;
       GSTM_BEFORE = $02;
       GSTM_OVERWRITE = $03;
       GSTV_OVERWRITE = $00;
       GSTV_AFTER = $04;
       OCODE_GSSB = $32;
       OCODE_GSVW = $27;
       OCODE_GPSVW = $67;
       GSSB_ML = 4;

    type
       ORDERS_GSSB = record
          fbFlags : UCHAR;
          fbMask : UCHAR;
          alMatrix : array[0..GSSB_ML-1] of SHORT;
       end;

       ORDERL_GSSB = record
          fbFLags : UCHAR;
          fbMask : UCHAR;
          alMatrix : array[0..GSSB_ML-1] of LONG;
       end;

    const
       GSSB_XLEFT = $20;
       GSSB_XRIGHT = $10;
       GSSB_YBOTTOM = $08;
       GSSB_YTOP = $04;
       GSVW_INTERSECT = $00;
       GSVW_REPLACE = $80;
       OCODE_GSGCH = $04;
       GSGCH_ML = 254;

    type
       ORDER_GSGCH = record
          uchIdent : UCHAR;
          auchData : array[0..GSGCH_ML-1] of UCHAR;
       end;

    const
       OCODE_GSSLW = $15;
       OCODE_GPSSLW = $55;

    type
       ORDERS_GSSLW = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          LineWidth : SHORT;
       end;

       ORDERL_GSSLW = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          LineWidth : LONG;
       end;

    const
       GSSLW_DEFAULT = $80;
       GSSLW_SPECIFY = $00;
       OCODE_GCSFLT = $A4;
       OCODE_GSFLT = $E4;
       GCSFLT_SMF = 21;
       GSFLT_SMF = 20;
       GCSFLT_SMF2 = GCSFLT_SMF*2;

    type
       ORDERS_GCSFLT = record
          apt : array[0..GCSFLT_SMF2-1] of POINTS;
          afxSharpness : array[0..GCSFLT_SMF-1] of FIXED;
       end;

    const
       GCSFLT_LMF = 12;
       GSFLT_LMF = 12;
       GCSFLT_LMF2 = GCSFLT_LMF*2;

    type
       ORDERL_GCSFLT = record
          apt : array[0..GCSFLT_LMF2-1] of POINTL;
          afxSharpness : array[0..GCSFLT_LMF-1] of FIXED;
       end;

    const
       OCODE_GBBLT = $D6;

    type
       ORDERS_GBBLT = record
          fsFlags : USHORT;
          usMix : USHORT;
          hbmSrc : HBITMAP;
          lOptions : LONG;
          rcsTargetRect : RECT1S;
          rclSourceRect : RECTL;
       end;

       ORDERL_GBBLT = record
          fsFlags : USHORT;
          usMix : USHORT;
          hbmSrc : HBITMAP;
          lOptions : LONG;
          rclTargetRect : RECTL;
          rclSourceRect : RECTL;
       end;

    const
       OCODE_GSCE = $17;
       OCODE_GPSCE = $57;
       OCODE_GSCBE = $05;
       OCODE_GPSCBE = $45;

    type
       ORDER_GSCBE = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ufxextra : FIXED;
       end;

    const
       OCODE_GESCP = $D5;
       GESCP_ML = 253;

    type
       ORDER_GESCP = record
          uchType : UCHAR;
          uchIdent : UCHAR;
          auchData : array[0..GESCP_ML-1] of UCHAR;
       end;

    const
       GESCP_REG = $80;
       GEBB_REGID = $02;
       ETYPE_GEBB = $800200D5;
       GEBB_LMP = 29;

    type
       ORDERL_GEBB = record
          fbFlags : UCHAR;
          usMix : USHORT;
          cPoints : UCHAR;
          hbmSrc : HBITMAP;
          lReserved : LONG;
          lOptions : LONG;
          aptPoints : array[0..GEBB_LMP-1] of POINTL;
       end;

    const
       GEPEL_REGID = $01;
       ETYPE_GEPEL = $800100D5;
       GEDB_REGID = $04;
       ETYPE_GEDB = $800400D5;

    type
       ORDERL_GEDB = record
          fsFlags : USHORT;
          usMix : USHORT;
          pBits : PVOID;
          pbmi : PBITMAPINFO2;
          lOptions : LONG;
          rclTargetRect : RECTL;
          rclSourceRect : RECTL;
       end;

    const
       GEFF_REGID = $03;
       ETYPE_GEFF = $800300D5;

    type
       ORDERL_GEFF = record
          fsFlags : UCHAR;
          auchColor : array[0..3-1] of UCHAR;
       end;

    const
       ETYPE_LINEBUNDLE = $0000FD01;
       ETYPE_CHARBUNDLE = $0000FD02;
       ETYPE_MARKERBUNDLE = $0000FD03;
       ETYPE_AREABUNDLE = $0000FD04;
       ETYPE_IMAGEBUNDLE = $0000FD05;
       VORDER_ML = 65531;

    type
       VORDER = record
          idCode : UCHAR;
          uchQualifier : UCHAR;
          uchLength : SWPUSHORT;
          uchData : array[0..VORDER_ML-1] of UCHAR;
       end;

    const
       OCODEQ_GCCHSTE = $B0;
       OCODEQ_GCHSTE = $F0;
       ETYPE_GCCHSTE = $0000FEB0;
       ETYPE_GCHSTE = $0000FEF0;

    type
       ORDERS_GCCHSTE = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptRect : array[0..2-1] of POINTS;
          cchString : SWPUSHORT;
          achString : array[0..1-1] of CHAR;
          adx : array[0..1-1] of SHORT;
       end;

       ORDERL_GCCHSTE = record
          fbFlags : UCHAR;
          uchReserved : UCHAR;
          ptRect : array[0..2-1] of POINTL;
          cchString : SWPUSHORT;
          achString : array[0..1-1] of CHAR;
          adx : array[0..1-1] of LONG;
       end;

    const
       GCCHSTE_DRAWRECT = $80;
       GCCHSTE_NORECT = $00;
       GCCHSTE_CLIP = $40;
       GCCHSTE_NOCLIP = $00;
       GCCHSTE_DEEMPHASIZE = $20;
       GCCHSTE_NODEEMPHASIZE = $00;
       GCCHSTE_LEAVEPOS = $10;
       GCCHSTE_MOVEPOS = $00;
       GCCHSTE_UNDERSCORE = $08;
       GCCHSTE_NOUNDERSCORE = $00;
       GCCHSTE_STRIKEOUT = $04;
       GCCHSTE_NOSTRIKEOUT = $00;
       OCODEQ_GEESCP = $D5;
       GEESCP_ML = 65533;

    type
       ORDER_GEESCP = record
          uchType : UCHAR;
          uchIdent : UCHAR;
          auchData : array[0..GEESCP_ML-1] of UCHAR;
       end;

{$PACKRECORDS NORMAL}

  implementation

end.