--m.stone September 26, 1980  5:12 PM--PointDefs -- Last Edited by: Stone, January 26, 1983 4:22 pmDIRECTORY	ControllerDefs: FROM "ControllerDefs",	PointDefs: FROM "PointDefs",	XFormDefs: FROM "XFormDefs",	Real: FROM "Real",	GriffinMemoryDefs USING [CZone];PointFns: PROGRAMIMPORTS Real,XFormDefs,ControllerDefs, GriffinMemoryDefsEXPORTS PointDefs=BEGIN OPEN PointDefs, GriffinMemoryDefs;xyzw: INTEGER;ScrToObjMatrix: XFormDefs.XFMDescriptor _ CZone.NEW[XFormDefs.XFormMatrix];ObjToScrMatrix: XFormDefs.XFMDescriptor _ CZone.NEW[XFormDefs.XFormMatrix];ValScale: REAL;OutOfRange: PUBLIC SIGNAL[value: REAL] = CODE;--real space to screen space.  Float will return an error if pt is out of range of 32 bits--This will signal if pt is not in [32767..-32768].  ie, inside 16 bits, 2's complimentObjValToScrVal: PUBLIC PROCEDURE [val: REAL] RETURNS [INTEGER] =BEGINint: INTEGER;val _ val*ValScale;	int _  Real.RoundI[val];RETURN[int];END;ObjToScr: PUBLIC PROCEDURE [pt: ObjPt] RETURNS [ScrPt] =BEGINscr: ScrPt;pt _ XFormDefs.XFormPt[pt,ObjToScrMatrix];scr[X] _ Real.RoundI[pt[X]];scr[Y] _ Real.RoundI[pt[Y]];RETURN[scr];END;ScrValToObjVal: PUBLIC PROCEDURE [val: INTEGER] RETURNS [REAL] =BEGINreal: REAL _ val/ValScale;RETURN[real];END;ScrToObj: PUBLIC PROCEDURE [pt: ScrPt] RETURNS [ObjPt] =BEGINobj: ObjPt;FOR xyzw IN [X..NDIM] DO	obj[xyzw] _ pt[xyzw];	--convert to REAL	ENDLOOP;obj _ XFormDefs.XFormPt[obj,ScrToObjMatrix];RETURN[obj];END;InitPointFns: PUBLIC PROCEDURE =BEGIN OPEN XFormDefs;DController: ControllerDefs.DisplayController _ ControllerDefs.ReadDisplayController[];HController: ControllerDefs.HardcopyController _ ControllerDefs.ReadHardcopyController[];realpt,dcenterobj: ObjPt;hcenterscr: ScrPt;BEGIN OPEN DController,HController;	--only for open	InitXForms[ObjToScrMatrix];	Translate[[0,dheight],ObjToScrMatrix];	Scale[[1,-1],ObjToScrMatrix];	--flip it	Scale[[dxscale,dyscale],ObjToScrMatrix];	ValScale _ dxscale;	--arbitrary choice	InitXForms[ScrToObjMatrix];	Scale[[1/dxscale,1/dyscale],ScrToObjMatrix];	Translate[[0,dheight],ScrToObjMatrix];	Scale[[1,-1],ScrToObjMatrix];	--flip it	dcenterobj _ XFormPt[[dxcenter,dycenter],ScrToObjMatrix];	realpt _ [hxcenter,hycenter];	hcenterscr _ ObjToScr[realpt];	Translate[[dcenterobj[X]-hxcenter,dcenterobj[Y]-hycenter],ObjToScrMatrix];	Translate		[[hcenterscr[X]-INTEGER[dxcenter],hcenterscr[Y]-INTEGER[dycenter]],ScrToObjMatrix];	END;END;ObjToScrReal: PUBLIC PROCEDURE [pt: ObjPt] RETURNS [ObjPt] =BEGINobj: ObjPt _ XFormDefs.XFormPt[pt,ObjToScrMatrix];RETURN[obj];END;END.     Э╩Ч  Ш JЪ╕╧cf╧k	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ2ЮЬЮЬЮЬ%ЮЬ2ЮЬIЮЬ#ЮЬЮЬЮЬЮЬЮЬЭ│╧nЬЮЬЮ	ЬЮЬЮЬЮЬЮЬЮЬ0ЮЬЮЬЯЬЮЬЮ	ЬЮЬЮЬ<ЮЬЮЬЮЬЮЬЮЬЮЬЯЬЮЬЮ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЯЬЮЬЮ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЭЬЮЬ/ЮЬЮЬЯЬЮЬЮ	ЬЮЬЮЬьЮЬЮЬЭЬdЭ
Ь@ЭЬУЭ
ЬТЮЬЮЬ7ЮЬЮЬЮЬЮЬЮЬЮЬЯЬЮЬЮ	ЬЮЬЮЬ4ЮЬЮЬЮЬШ╝Ч ЕЧ    
>  █  