DIRECTORYBasics					USING [LongMult],ImagerBasic			USING [IntPair],ImagerPixelMaps		USING [PixelMap, Function];ImagerPixelMapsExtras: CEDAR DEFINITIONSIMPORTS Basics~ BEGINPixelMap: TYPE ~ ImagerPixelMaps.PixelMap;Function: TYPE ~ ImagerPixelMaps.Function;IntPair: TYPE ~ ImagerBasic.IntPair;ByteSequence: TYPE ~ RECORD [PACKED SEQUENCE length: CARDINAL OF [0..256)];FillConstantTrap: PROC [destination: PixelMap, 		-- trapezoid, constant color								top, bottom, leftTop, leftBot, rightTop, rightBot: NAT,								pxlValue: CARDINAL, function: Function _ [null, null]];FillSmoothTrap: PROC [ destination: PixelMap, 	-- trapezoid, bilinear interpolated 8-bit color							  top, bottom, leftTop, leftBot, rightTop, rightBot: NAT,							  leftTopVal, leftBotVal, rightTopVal, rightBotVal: NAT ];DrawLine: PUBLIC PROC [destination: PixelMap, 		-- fast line, constant color							   p1, p2: IntPair, 							   pxlValue: NAT, function: Function _ [null, null]];DrawBltLine: PUBLIC PROC [destination: PixelMap, -- fast line using BitBLT, constant color							   		p1, p2: IntPair, 							   		pxlValue: NAT, function: Function _ [null, null]];LoadScanSeg: PUBLIC PROC[destination: PixelMap, 								   s, f: INTEGER, length: NAT,								   segment: LONG POINTER, offset: NAT _ 0];StoreScanSeg: PUBLIC PROC [source: PixelMap, 								   s, f: INTEGER, length: NAT, 								   segment: LONG POINTER, offset: NAT _ 0];SetPixel: PROC [destination: PixelMap, s, f: INTEGER, value: NAT];SetBit: PROC [dest: PixelMap, s, f: INTEGER, value: CARDINAL] ~ TRUSTED INLINE {LOOPHOLE[dest.refRep.pointer + Basics.LongMult[(s - dest.sOrigin), dest.refRep.rast],LONG POINTER TO PACKED ARRAY [0..0) OF [0..2)][f - dest.fOrigin] _ value;};Set2Bits: PROC [dest: PixelMap, s, f: INTEGER, value: CARDINAL] ~ TRUSTED INLINE { LOOPHOLE[dest.refRep.pointer + Basics.LongMult[(s - dest.sOrigin), dest.refRep.rast],LONG POINTER TO PACKED ARRAY [0..0) OF [0..4)][f - dest.fOrigin] _ value;};Set4Bits: PROC [dest: PixelMap, s, f: INTEGER, value: CARDINAL] ~ TRUSTED INLINE { LOOPHOLE[dest.refRep.pointer + Basics.LongMult[(s - dest.sOrigin), dest.refRep.rast],LONG POINTER TO PACKED ARRAY [0..0) OF [0..16)][f - dest.fOrigin] _ value;};Set8Bits: PROC [dest: PixelMap, s, f: INTEGER, value: CARDINAL] ~ TRUSTED INLINE { LOOPHOLE[dest.refRep.pointer + Basics.LongMult[(s - dest.sOrigin), dest.refRep.rast],LONG POINTER TO PACKED ARRAY [0..0) OF [0..256)][f - dest.fOrigin] _ value;};Set16Bits: PROC [dest: PixelMap, s, f: INTEGER, value: CARDINAL] ~ TRUSTED INLINE { LOOPHOLE[dest.refRep.pointer + Basics.LongMult[(s - dest.sOrigin), dest.refRep.rast],LONG POINTER TO PACKED ARRAY [0..0) OF CARDINAL][f - dest.fOrigin] _ value;};END.     ImagerPixelMapsExtras.mesaCopyright c 1984 by Xerox Corporation.  All rights reserved.Frank Crow, August 16, 1984 9:13:01 am PDTFancy operations on two-dimensional arrays of pixels.Last Edited by: Stone, August 15, 1984 7:07:11 pm PDTType DefinitionsPixel operationsRaises bounds fault if the point is not in the window.The following inline versions of SetPixel assume that the client already knows the number of bits per pixel, and they do not do a bounds check, since the worst that can happen is an address fault. Э╩╠  Ш JЪЬЩЪЬ
╧mЬ1Щ<JЩ*JЩ5JЩ5JЩ ЧЪ╧k	Ш	JЪЬЮЬШJЪЬЮЬШJЪЬЮЬШ,ЧJШ ЪЬЮЬЮШ(JЪЮЬШЧJЪЬЮШhead2ЪЬЩIunitЪЬ
ЮЬШ*JЪЬ
ЮЬШ*JЪЬ	ЮЬШ$JЪЬЮЬЮЬЮЬЮЬ	ЮЬЮЬШKЧЩLЪ╧nЬЮЬ╧cШMIaЪЬ;ЮЬШ?MЪЬЮЬ%Ш?LЪЯЬЮЬа/Ш^MЪЬ<ЮЬШ@MЪЬ;ЮЬШALЪЯЬЮЬаШLMЪЬШMЪЬЮЬ%Ш<LЪЯЬЮЬа)ШZMЪЬШMЪЬЮЬ%Ш>LЪЯЬЮЬЮЬШ0MЪЬЮЬ
ЮЬШ&MЪЬЮЬЮЬ
ЮЬШ3LЪЯЬЮЬШ-MЪЬЮЬ
ЮЬШ'MЪЬЮЬЮЬ
ЮЬШ3ЪЯЬЮЬЮ	ЬЮЬШBJЩ6JЩ JЪЬ!ЯЬЫЩ─ЪЯЬЮЬЮ	ЬЮЬЮЬЮЬШPЪЮЬШ	JЪЬLШLJЪЮЬЮЬЮЬЮЬЮЬЮЬШ.ЧJЪЬШJЪЬШЧЪЯЬЮЬЮ	ЬЮЬЮЬЮЬЮШSЪЮЬШ	JЪЬLШLJЪЮЬЮЬЮЬЮЬЮЬЮЬШ.ЧJЪЬШJЪЬШЧЪЯЬЮЬЮ	ЬЮЬЮЬЮЬШSЪЮЬШ	JЪЬLШLJЪЮЬЮЬЮЬЮЬЮЬЮЬ	Ш/ЧJЪЬШJЪЬШЧЪЯЬЮЬЮ	ЬЮЬЮЬЮЬШSЪЮЬШ	JЪЬLШLJЪЮЬЮЬЮЬЮЬЮЬЮЬ
Ш0ЧJЪЬШJЪЬШЧЪЯ	ЬЮЬЮ	ЬЮЬЮЬЮЬШTЪЮЬШ	JЪЬLШLJЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ0ЧJЪЬШJЪЬШJШ ЧЧЧJЪЮЬШЧ ЕЧ    
╩  м  