From: sparky4 Date: Mon, 26 May 2014 20:48:56 +0000 (-0500) Subject: deleted: 16/lib/MODEX.PAS X-Git-Url: http://4ch.mooo.com/gitweb/?a=commitdiff_plain;h=ef18524eeb1d90569410f3660f8a7c7a7defdf1d;p=16.git deleted: 16/lib/MODEX.PAS deleted: 16/lib/x0.7z --- diff --git a/16/lib/MODEX.PAS b/16/lib/MODEX.PAS deleted file mode 100644 index 7d9d26ed..00000000 --- a/16/lib/MODEX.PAS +++ /dev/null @@ -1,194 +0,0 @@ -(* - Turbo Pascal interface to the MODEX library - Copyright (c) 1993,1994 by Alessandro Scotti -*) -unit ModeX; -interface - -const - (* Video modes *) - MX_TEXT = 0; - MX_320x175 = 1; - MX_320x200 = 2; - MX_320x240 = 3; - MX_320x350 = 4; - MX_320x400 = 5; - MX_320x480 = 6; - MX_360x175 = 7; - MX_360x200 = 8; - MX_360x240 = 9; - MX_360x350 = 10; - MX_360x400 = 11; - MX_360x480 = 12; - MX_400x600 = 13; - - (* Fade effects *) - MX_FADEIN = 0; - MX_FADEOUT = 1; - - (* Raster ops *) - OP_SET = 0; - OP_AND = 1; - OP_OR = 2; - OP_XOR = 3; - OP_TRANS = 4; - OP_ADD = 5; - OP_MOVE = 0; (* Alias for OP_SET *) - -procedure mxBitBlt( SX, SY: integer; Width, Height: word; DX, DY: integer ); -procedure mxCircle( CX, CY: integer; Radius: word; Color: byte ); -procedure mxChangeMode( Mode: word ); -procedure mxColorToGray( ColorPalette, GrayPalette: pointer; Count: word ); -procedure mxFadePalette( Palette: pointer; Cmd, Start, Count, R, G, B: word ); -procedure mxFillBox( X, Y: integer; Width, Height: word; Color: byte; Op: word ); -procedure mxGammaCorrect( ColorPalette, GammaPalette: pointer; Count: word ); -procedure mxGetAspect( var AspectX, AspectY: word ); -function mxGetClipRegion( var X1, Y1, Width, Height: word ): boolean; -function mxGetClip: boolean; -procedure mxGetImage( Image: pointer; X, Y: integer; Width, Height: word ); -procedure mxGetPalette( Palette: pointer; Start, Count: word ); -function mxGetPixel( X, Y: word ): byte; -procedure mxGetScreenSize( var Width, Height: word ); -procedure mxGetTextStep( var DeltaX, DeltaY: integer ); -function mxGetVersion: word; -procedure mxGetVirtualScreen( var Width, Height: word ); -procedure mxInit; -procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word ); -procedure mxOutChar( X, Y: integer; C: char ); -procedure mxOutText( X, Y: integer; S: pointer ); -procedure mxPan( X, Y: word ); -procedure mxPutImage( Image: pointer; X, Y: integer; Width, Height, Op: word ); -procedure mxPutPixel( X, Y: word; C: byte ); -procedure mxPutTile( Tile: pointer; X, Y: integer; Width, Height: word ); -procedure mxReadPlane( Plane: byte ); -procedure mxRotatePalette( Palette: pointer; Count: word; Step: integer ); -procedure mxRowAddress( RowAddress: byte ); -function mxSetClip( Clip: boolean ): boolean; -procedure mxSetClipRegion( X1, Y1, Width, Height: word ); -procedure mxSetColor( Index, R, G, B: word ); -procedure mxSetFont( Font: pointer; Width, Height: word ); -procedure mxSetMode( Mode: word ); -procedure mxSetPalette( Palette: pointer; Start, Count: word ); -procedure mxSetTextColor( Color, Op: word ); -procedure mxSetTextStep( DeltaX, DeltaY: integer ); -procedure mxSetVirtualScreen( Width, Height: word ); -procedure mxStretchImage( Image: pointer; X, Y: integer; Width, Height, NewWidth, NewHeight, Op: word ); -procedure mxSplitScreen( Line: word ); -procedure mxStartAddress( StartAddress: word ); -procedure mxStartLine( Line: word ); -procedure mxTerm; -procedure mxTransPutTile( Tile: pointer; X, Y: integer; Width, Height: word ); -procedure mxWaitDisplay; -procedure mxWaitRetrace; -procedure mxWriteMode( Mode: byte ); -procedure mxWritePlane( Plane: byte ); - -procedure mxFillPoly( Count: word; var Map, Points; Color: word ); -procedure mxGouraudPoly( Count: word; var Map, Points, Colors; BaseColor: word ); -procedure mxTexturePoly( Count: word; var Map, Points, ImgPoints, Texture; Width: word ); - -procedure mxOutStr( X, Y: integer; S: string ); - -implementation - -procedure mxBitBlt; external; -procedure mxChangeMode( Mode: word ); external; -procedure mxCircle; external; -procedure mxColorToGray; external; -procedure mxFadePalette; external; -procedure mxFillBox; external; -procedure mxGammaCorrect; external; -procedure mxGetAspect( var AspectX, AspectY: word ); external; -function mxGetClipRegion; external; -function mxGetClip: boolean; external; -procedure mxGetImage; external; -procedure mxGetPalette( Palette: pointer; Start, Count: word ); external; -function mxGetPixel( X, Y: word ): byte; external; -procedure mxGetScreenSize( var Width, Height: word ); external; -procedure mxGetTextStep( var DeltaX, DeltaY: integer ); external; -function mxGetVersion: word; external; -procedure mxGetVirtualScreen( var Width, Height: word ); external; -procedure mxInit; external; -procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word ); external; -procedure mxOutChar( X, Y: integer; C: char ); external; -procedure mxOutText( X, Y: integer; S: pointer ); external; -procedure mxPan( X, Y: word ); external; -procedure mxPutImage; external; -procedure mxPutPixel( X, Y: word; C: byte ); external; -procedure mxPutTile; external; -procedure mxReadPlane( Plane: byte ); external; -procedure mxRotatePalette; external; -procedure mxRowAddress( RowAddress: byte ); external; -function mxSetClip( Clip: boolean ): boolean; external; -procedure mxSetClipRegion( X1, Y1, Width, Height: word ); external; -procedure mxSetColor( Index, R, G, B: word ); external; -procedure mxSetFont( Font: pointer; Width, Height: word ); external; -procedure mxSetMode( Mode: word ); external; -procedure mxSetPalette( Palette: pointer; Start, Count: word ); external; -procedure mxSetTextColor( Color, Op: word ); external; -procedure mxSetTextStep( DeltaX, DeltaY: integer ); external; -procedure mxSetVirtualScreen( Width, Height: word ); external; -procedure mxSplitScreen( Line: word ); external; -procedure mxStartAddress( StartAddress: word ); external; -procedure mxStartLine; external; -procedure mxStretchImage; external; -procedure mxTerm; external; -procedure mxTransPutTile; external; -procedure mxWaitDisplay; external; -procedure mxWaitRetrace; external; -procedure mxWriteMode( Mode: byte ); external; -procedure mxWritePlane( Plane: byte ); external; - -procedure mxFillPoly; external; -procedure mxGouraudPoly; external; -procedure mxTexturePoly; external; -{$L MXPB} -{$L MXPF} -{$L MXPG} -{$L MXPT} - -{$L MXBB} -{$L MXCC} -{$L MXCG} -{$L MXCL} -{$L MXCR} -{$L MXFB} -{$L MXFP} -{$L MXGI} -{$L MXGM} -{$L MXGP} -{$L MXGV} -{$L MXHL} -{$L MXIT} -{$L MXLN} -{$L MXOT} -{$L MXPI} -{$L MXPN} -{$L MXPP} -{$L MXRA} -{$L MXRP} -{$L MXSA} -{$L MXSC} -{$L MXSI} -{$L MXSL} -{$L MXSM} -{$L MXSP} -{$L MXSS} -{$L MXTL} -{$L MXVS} -{$L MXWD} -{$L MXWM} -{$L MXWP} -{$L MXWR} - -(* - Prints a Turbo Pascal string. - Note: BP 7.0 supports ASCIIZ strings (PChar type). -*) -procedure mxOutStr; -begin - S := S + #0; - mxOutText( X, Y, @S[1] ); -end; - -end. diff --git a/16/lib/x0.7z b/16/lib/x0.7z deleted file mode 100644 index 29e0fa5e..00000000 Binary files a/16/lib/x0.7z and /dev/null differ