DIRECTORYImagerPixelMaps USING [DeviceRectangle, Function, PixelMap];ImagerScanConverter: CEDAR DEFINITIONS~ BEGINDeviceRectangle: TYPE ~ ImagerPixelMaps.DeviceRectangle;PixelMap: TYPE ~ ImagerPixelMaps.PixelMap;Function: TYPE ~ ImagerPixelMaps.Function;DevicePath: TYPE ~ REF DevicePathRep;PathProc: TYPE ~ PROC [move: PROC [s, f: REAL],line: PROC [s, f: REAL],curve: PROC [s1, f1, s2, f2, s3, f3: REAL]];CreatePath: PROC [pathProc: PathProc,clipBox: DeviceRectangle,scratch: DevicePath _ NIL -- for re-use of storage] RETURNS [DevicePath];BoundingBox: PROC [devicePath: DevicePath] RETURNS [DeviceRectangle];NumberOfRuns: PROC [devicePath: DevicePath] RETURNS [numberOfRuns: INT];ConvertToRuns: PROC [devicePath: DevicePath,runProc: PROC [sMin, fMin: INTEGER, fSize: NAT],clipBox: DeviceRectangle,parityFill: BOOLEAN _ FALSE];ConvertToPixels: PROC [devicePath: DevicePath,pixelMap: PixelMap,value: CARDINAL _ 1,parityFill: BOOLEAN _ FALSE,function: Function _ [null, null]];ConvertToManhattanPolygon: PROC [devicePath: DevicePath,clipBox: DeviceRectangle,parityFill: BOOLEAN _ FALSE] RETURNS [LIST OF DeviceRectangle];DevicePathRep: PRIVATE TYPE ~ RECORD [scanLineCrossings: INT,sMin, sMax, fMin, fMax: INTEGER,pointTable: PointTable,bucketTable: BucketTable,segmentList: LIST OF SegmentRep,pieceList: LIST OF PieceRep];PointTable: PRIVATE TYPE ~ REF PointTableRec;PointTableRec: PRIVATE TYPE ~ RECORD [SEQUENCE maxLength: NAT OF Point];Point: TYPE ~ MACHINE DEPENDENT RECORD [fRel: NAT, -- relative to devicePath.fMindirection: Direction];Direction: TYPE ~ {increasing, decreasing};BucketTable: PRIVATE TYPE ~ REF BucketTableRec;BucketTableRec: PRIVATE TYPE ~ RECORD [length: NAT, seq: SEQUENCE maxLength: NAT OF INTEGER];SegmentRep: PRIVATE TYPE ~ RECORD [sFirstScan: INTEGER, -- sFirstScan + 1/2 defines the first scan line that crosses this segment.direction: Direction,scanCount: NAT, -- number of scan lines that cross this segment.s0, f0, s1, f1: REAL];PieceRep: PRIVATE TYPE ~ RECORD [sOrg, fOrg: INTEGER, -- in device unitssScale: CARDINAL,sOffset: CARDINAL,sFirstScan: INTEGER, -- sFirstScan + 1/2 defines the first scan line that crosses this piece.scanCount: CARDINAL, -- number of scan lines that cross this piece.direction: Direction,iterationsUntilFlat: NAT,f0: CARDINAL,s1, f1: CARDINAL,s2, f2: CARDINAL,s3, f3: CARDINAL];END.     ImagerScanConverter.mesaMichael Plass, February 6, 1984 1:28:15 pm PSTEdited by Doug Wyatt, November 22, 1983 11:19 amcontrol points of a bezier cubicNot always as tight as possible, but should be pretty close.Guaranteed to be an upper bound, should be close to the actual.Satisfies assertion for an ImagerManhattan.Polygon.Implementor private stuff1 word long, ordered so it can be sorted like a cardinalIn device coordinates, the coordinates of point i is(fi/fScale + 1/2 + fOrg, (si+sOffset)/sScale + sOrg)Э╩ш  Ш JЪЬЩJЩ.JЩ0JШ Ъ╧k	Ш	JЪЬЭЬ'Ш<ЧJШ JЪЬЭШ&JЪЬЭШIunitЪЬЭЬ#Ш8KЪЬ
ЭЬШ*KЪЬ
ЭЬШ*KЪЬЭЬЭЬШ%Ъ╧nЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬЭЬШЪЬЭЬЭЬШ*JЩ ЧJЪЬШЧЪЮ
ЬЭЬШJШJШJЪЬЭЬ╧cШ2JЪЬЭЬШЧЪЮЬЭЬЭЬШEJЩ<ЧЪЮЬЭЬЭЬЭЬШHJЩ?ЧЪЮЬЭЬШJЪЬШJЪЬ	ЭЬЭЬ	ЭЬШ0JШJЪЬЭЬЭШJЪЬШЧЪЮЬЭЬШJЪЬШJЪЬШJЪЬЭЬШJЪЬЭЬЭЬШJЪЬ!Ш!JЪЬШЧЪЮЬЭЬШ!JЪЬШJШJЪЬЭЬЭШЪЬЭЬЭЬЭЬШ$JЩ3ЧJШ ЧЩЪЬЭЬЭЬЭЬШ&JЪЬЭЬШJЪЬЭЬШ JЪЬШJЪЬШJЪЬЭЬЭЬШ JЪЬЭЬЭЬ	ШJШЧJЪЬЭЬЭЬЭЬШ-ЪЬЭЬЭЬЭЬШ&JЪЭЬЭЬЭЬШ JШЧЪ	ЬЭЬЭЬЭ	ЬЭЬШ(JЩ8JЪЬЭЬЯШ)JЪЬШJШЧJЪЬЭЬШ+JЪЬЭЬЭЬЭЬШ/JЪЬЭЬЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬШ]ЪЬЭЬЭЬЭЬШ#JЪЬЭЬЯJШ_JЪЬШJЪЬЭЬЯ0Ш@JЪЬЭШJШЧЪЬ
ЭЬЭЬЭЬШ!JЪЬЭЬЯШ'JЪЬЭЬШJЪЬ	ЭЬШJЪЬЭЬЯHШ]JЪЬЭЬЯ.ШCJЪЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШЪЬЭШЪЬ4Щ4JЪЬ4Щ4ЧЧJШЧЧKЪЭЬШЧ ЕЧ    	z  p  