2 Turbo Pascal interface to the MODEX library
\r
3 Copyright (c) 1993,1994 by Alessandro Scotti
\r
36 OP_MOVE = 0; (* Alias for OP_SET *)
\r
38 procedure mxBitBlt( SX, SY: integer; Width, Height: word; DX, DY: integer );
\r
39 procedure mxCircle( CX, CY: integer; Radius: word; Color: byte );
\r
40 procedure mxChangeMode( Mode: word );
\r
41 procedure mxColorToGray( ColorPalette, GrayPalette: pointer; Count: word );
\r
42 procedure mxFadePalette( Palette: pointer; Cmd, Start, Count, R, G, B: word );
\r
43 procedure mxFillBox( X, Y: integer; Width, Height: word; Color: byte; Op: word );
\r
44 procedure mxGammaCorrect( ColorPalette, GammaPalette: pointer; Count: word );
\r
45 procedure mxGetAspect( var AspectX, AspectY: word );
\r
46 function mxGetClipRegion( var X1, Y1, Width, Height: word ): boolean;
\r
47 function mxGetClip: boolean;
\r
48 procedure mxGetImage( Image: pointer; X, Y: integer; Width, Height: word );
\r
49 procedure mxGetPalette( Palette: pointer; Start, Count: word );
\r
50 function mxGetPixel( X, Y: word ): byte;
\r
51 procedure mxGetScreenSize( var Width, Height: word );
\r
52 procedure mxGetTextStep( var DeltaX, DeltaY: integer );
\r
53 function mxGetVersion: word;
\r
54 procedure mxGetVirtualScreen( var Width, Height: word );
\r
56 procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word );
\r
57 procedure mxOutChar( X, Y: integer; C: char );
\r
58 procedure mxOutText( X, Y: integer; S: pointer );
\r
59 procedure mxPan( X, Y: word );
\r
60 procedure mxPutImage( Image: pointer; X, Y: integer; Width, Height, Op: word );
\r
61 procedure mxPutPixel( X, Y: word; C: byte );
\r
62 procedure mxPutTile( Tile: pointer; X, Y: integer; Width, Height: word );
\r
63 procedure mxReadPlane( Plane: byte );
\r
64 procedure mxRotatePalette( Palette: pointer; Count: word; Step: integer );
\r
65 procedure mxRowAddress( RowAddress: byte );
\r
66 function mxSetClip( Clip: boolean ): boolean;
\r
67 procedure mxSetClipRegion( X1, Y1, Width, Height: word );
\r
68 procedure mxSetColor( Index, R, G, B: word );
\r
69 procedure mxSetFont( Font: pointer; Width, Height: word );
\r
70 procedure mxSetMode( Mode: word );
\r
71 procedure mxSetPalette( Palette: pointer; Start, Count: word );
\r
72 procedure mxSetTextColor( Color, Op: word );
\r
73 procedure mxSetTextStep( DeltaX, DeltaY: integer );
\r
74 procedure mxSetVirtualScreen( Width, Height: word );
\r
75 procedure mxStretchImage( Image: pointer; X, Y: integer; Width, Height, NewWidth, NewHeight, Op: word );
\r
76 procedure mxSplitScreen( Line: word );
\r
77 procedure mxStartAddress( StartAddress: word );
\r
78 procedure mxStartLine( Line: word );
\r
80 procedure mxTransPutTile( Tile: pointer; X, Y: integer; Width, Height: word );
\r
81 procedure mxWaitDisplay;
\r
82 procedure mxWaitRetrace;
\r
83 procedure mxWriteMode( Mode: byte );
\r
84 procedure mxWritePlane( Plane: byte );
\r
86 procedure mxFillPoly( Count: word; var Map, Points; Color: word );
\r
87 procedure mxGouraudPoly( Count: word; var Map, Points, Colors; BaseColor: word );
\r
88 procedure mxTexturePoly( Count: word; var Map, Points, ImgPoints, Texture; Width: word );
\r
90 procedure mxOutStr( X, Y: integer; S: string );
\r
94 procedure mxBitBlt; external;
\r
95 procedure mxChangeMode( Mode: word ); external;
\r
96 procedure mxCircle; external;
\r
97 procedure mxColorToGray; external;
\r
98 procedure mxFadePalette; external;
\r
99 procedure mxFillBox; external;
\r
100 procedure mxGammaCorrect; external;
\r
101 procedure mxGetAspect( var AspectX, AspectY: word ); external;
\r
102 function mxGetClipRegion; external;
\r
103 function mxGetClip: boolean; external;
\r
104 procedure mxGetImage; external;
\r
105 procedure mxGetPalette( Palette: pointer; Start, Count: word ); external;
\r
106 function mxGetPixel( X, Y: word ): byte; external;
\r
107 procedure mxGetScreenSize( var Width, Height: word ); external;
\r
108 procedure mxGetTextStep( var DeltaX, DeltaY: integer ); external;
\r
109 function mxGetVersion: word; external;
\r
110 procedure mxGetVirtualScreen( var Width, Height: word ); external;
\r
111 procedure mxInit; external;
\r
112 procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word ); external;
\r
113 procedure mxOutChar( X, Y: integer; C: char ); external;
\r
114 procedure mxOutText( X, Y: integer; S: pointer ); external;
\r
115 procedure mxPan( X, Y: word ); external;
\r
116 procedure mxPutImage; external;
\r
117 procedure mxPutPixel( X, Y: word; C: byte ); external;
\r
118 procedure mxPutTile; external;
\r
119 procedure mxReadPlane( Plane: byte ); external;
\r
120 procedure mxRotatePalette; external;
\r
121 procedure mxRowAddress( RowAddress: byte ); external;
\r
122 function mxSetClip( Clip: boolean ): boolean; external;
\r
123 procedure mxSetClipRegion( X1, Y1, Width, Height: word ); external;
\r
124 procedure mxSetColor( Index, R, G, B: word ); external;
\r
125 procedure mxSetFont( Font: pointer; Width, Height: word ); external;
\r
126 procedure mxSetMode( Mode: word ); external;
\r
127 procedure mxSetPalette( Palette: pointer; Start, Count: word ); external;
\r
128 procedure mxSetTextColor( Color, Op: word ); external;
\r
129 procedure mxSetTextStep( DeltaX, DeltaY: integer ); external;
\r
130 procedure mxSetVirtualScreen( Width, Height: word ); external;
\r
131 procedure mxSplitScreen( Line: word ); external;
\r
132 procedure mxStartAddress( StartAddress: word ); external;
\r
133 procedure mxStartLine; external;
\r
134 procedure mxStretchImage; external;
\r
135 procedure mxTerm; external;
\r
136 procedure mxTransPutTile; external;
\r
137 procedure mxWaitDisplay; external;
\r
138 procedure mxWaitRetrace; external;
\r
139 procedure mxWriteMode( Mode: byte ); external;
\r
140 procedure mxWritePlane( Plane: byte ); external;
\r
142 procedure mxFillPoly; external;
\r
143 procedure mxGouraudPoly; external;
\r
144 procedure mxTexturePoly; external;
\r
185 Prints a Turbo Pascal string.
\r
186 Note: BP 7.0 supports ASCIIZ strings (PChar type).
\r
188 procedure mxOutStr;
\r
191 mxOutText( X, Y, @S[1] );
\r