BitBlt.mesa (last edited by: Plass, August 31, 1984 11:44:08 am PDT)
Cedar PilotBridge version
Copyright (C) Xerox Corporation 1982. All rights reserved.
DIRECTORY
PrincOps USING [BBptr, BBTable, BBTableAlignment, BBTableSpace, BitAddress, BitBltFlags, Direction, DstFunc, GrayParm, SrcDesc, SrcFunc],
PrincOpsUtils USING [AlignedBBTable, BITBLT];
BitBlt:
DEFINITIONS
IMPORTS PrincOpsUtils =
BEGIN
Types used to make up a BitBltTable
BitAddress: TYPE = PrincOps.BitAddress;
BitBltFlags:
TYPE = PrincOps.BitBltFlags;
Direction: TYPE = PrincOps.Direction;
DstFunc: TYPE = PrincOps.DstFunc;
GrayParm:
TYPE = PrincOps.GrayParm;
SrcDesc:
TYPE = PrincOps.SrcDesc;
SrcFunc: TYPE = PrincOps.SrcFunc;
BitBlt and BBTable
BBptr, BitBltTablePtr: TYPE = PrincOps.BBptr;
BBTable, BitBltTable:
TYPE = PrincOps.BBTable;
BITBLT:
PROCEDURE [ptr: BBptr] = PrincOpsUtils.
BITBLT;
alignment issues
BBTableAlignment: CARDINAL = PrincOps.BBTableAlignment;
BBTableSpace: TYPE = PrincOps.BBTableSpace;
AlignedBBTable:
PROCEDURE [ip:
POINTER
TO BBTableSpace]
RETURNS [b: BBptr] =
INLINE {RETURN[PrincOpsUtils.AlignedBBTable[ip]]};
END.
LOG
Time: April 11, 1980 11:09 AM By: Forrest Action: Trimmed log to Amargosa; converted to PrincOps BitBlt.
Time: April 16, 1980 1:26 PM By: Forrest Action: formatting/spelling corections. Changed BBTableSpace to [1.. from [0..
Time: April 17, 1980 12:07 AM By: Forrest Action: Move BitAddress to Environment
Time: July 17, 1980 4:03 PM By: Karlton Action: Add defaults to Flags record
Time: August 31, 1984 11:44:03 am PDT By: Plass Action: Created Cedar PilotBridge version from version of 12-Nov-81 09:49:05 PST
Time: timeStamp By: yourName Action: shortDescription