
DIRECTORY Atom, G2dZoom, Imager, ImagerInterpress, ImagerTransformation, IO, Process, Real, RefTab, Rope, TIPUser, ViewerClasses, ViewerOps, Vector2;

G2dZoomImpl: CEDAR PROGRAM
IMPORTS Atom, Imager, ImagerInterpress, ImagerTransformation, IO, Process, Real, RefTab, Rope, ViewerOps
EXPORTS G2dZoom

~ BEGIN
Rectangle:		TYPE ~ Imager.Rectangle;
Transformation:	TYPE ~ Imager.Transformation;
STREAM:			TYPE ~ IO.STREAM;
ROPE:				TYPE ~ Rope.ROPE;
VEC:				TYPE ~ Vector2.VEC;
Viewer:			TYPE ~ ViewerClasses.Viewer;
ViewerClass:		TYPE ~ ViewerClasses.ViewerClass;

Data:				TYPE ~ REF DataRep;
DataRep:			TYPE ~ RECORD [m: Transformation];
Hijack: PUBLIC PROC [viewer: Viewer] ~ {
IF viewer # NIL AND Atom.GetPropFromList[viewer.class.props, $Hijacked] = NIL THEN {
old: ATOM ~ viewer.class.flavor;
new: ATOM ~ Atom.MakeAtom[Rope.Concat[Atom.GetPName[old], "Zoom"]];
viewer.class м IF RefTab.Fetch[x: flavorCache, key: new].found
THEN NARROW[RefTab.Fetch[x: flavorCache, key: new].val]
ELSE MakeFlavor[old, new];
Reset[viewer, FALSE];	-- reset transform in case viewer was previously commandeered 
};
};

Release: PUBLIC PROC [viewer: Viewer] ~ {
IF viewer = NIL THEN RETURN;
WITH Atom.GetPropFromList[viewer.class.props, viewer.class.flavor] SELECT FROM
oldClass: ViewerClass => {		-- restore to the previous class
viewer.class м oldClass;
Repaint[viewer];
};
ENDCASE => NULL;
};

SetTransform: PUBLIC PROC [viewer: Viewer, m: Transformation, repaint: BOOL м TRUE] ~ {
GetData[viewer].m м m;
IF repaint THEN Repaint[viewer];
};

Transform: PUBLIC PROC [
viewer: Viewer,
translate: VEC,
scale, rotate: REAL,
repaint: BOOL м TRUE]
~ {
Reset[viewer, FALSE];
Rotate[viewer, rotate, FALSE];
Scale[viewer, scale, FALSE];
Translate[viewer, [translate.x, translate.y], repaint];
};

Scale: PUBLIC PROC [viewer: Viewer, s: REAL, repaint: BOOL м TRUE] ~ {
ImagerTransformation.ApplyPreScale[GetData[viewer].m, s];
IF repaint THEN Repaint[viewer];
};

Translate: PUBLIC PROC [viewer: Viewer, v: VEC, repaint: BOOL м TRUE] ~ {
ImagerTransformation.ApplyPostTranslate[GetData[viewer].m, [72.0*v.x, 72.0*v.y]];
IF repaint THEN Repaint[viewer];
};

Rotate: PUBLIC PROC [viewer: Viewer, degrees: REAL, repaint: BOOL м TRUE] ~ {
ImagerTransformation.ApplyPreRotate[GetData[viewer].m, degrees];
IF repaint THEN Repaint[viewer];
};

Reset: PUBLIC PROC [viewer: Viewer, repaint: BOOL м TRUE] ~ {
GetData[viewer].m м ImagerTransformation.Scale[1];
IF repaint THEN Repaint[viewer];
};
flavorCache: RefTab.Ref ~ RefTab.Create[];		-- cache newly created viewer classes

MakeFlavor: PROC [old, new: ATOM] RETURNS [class: ViewerClass] ~ {
oldClass: ViewerClass ~ ViewerOps.FetchViewerClass[old];
class м NEW[ViewerClasses.ViewerClassRec м oldClassн];
class.props м Atom.PutPropOnList[propList: class.props, prop: new, val: oldClass];
class.props м Atom.PutPropOnList[propList: class.props, prop: $Hijacked, val: $True];
class.flavor м new;
class.notify м MyNotify;
class.paint м MyPaint;
class.bltV м none;	-- disable bitBlts, since Tioga would be confused as to what's on screen
class.bltH м none;
ViewerOps.RegisterViewerClass[flavor: new, class: class];
[] м RefTab.Store[x: flavorCache, key: new, val: class];		-- cache class for future use
};

GetData: PROC [v: Viewer] RETURNS [d: Data] ~ {
IF v # NIL
THEN WITH ViewerOps.FetchProp[viewer: v, prop: v.class.flavor] SELECT FROM
data: Data => d  м data;
ENDCASE => {
d м NEW[DataRep м [m: ImagerTransformation.Scale[1]]];
ViewerOps.AddProp[viewer: v, prop: v.class.flavor, val: d];
}
ELSE d м NEW[DataRep м [m: ImagerTransformation.Scale[1]]];
};

GetClass: PROC [v: Viewer] RETURNS [ViewerClass] ~ {
IF v = NIL THEN RETURN[NIL];
RETURN[NARROW[Atom.GetPropFromList[propList: v.class.props, prop: v.class.flavor]]];
};

Repaint: PROC [v: Viewer] ~ TRUSTED {
Process.Detach[FORK ViewerOps.PaintViewer[viewer: v, hint: client, clearClient: TRUE]];
};

MyNotify: ViewerClasses.NotifyProc ~ {
oldClass: ViewerClass ~ GetClass[self];
IF oldClass = NIL THEN RETURN;
FOR l: LIST OF REF ANY м input, l.rest UNTIL l = NIL DO
WITH l.first SELECT FROM
coords: TIPUser.TIPScreenCoords => {	-- xform coordinates to pre-commandeered state
old: VEC ~ [coords.mouseX, coords.mouseY];
data: Data ~ GetData[self];
new: VEC ~ ImagerTransformation.InverseTransform[data.m, old];
coords.mouseX м Real.Round[new.x];
coords.mouseY м Real.Round[new.y];
};
ENDCASE => NULL;
ENDLOOP;
oldClass.notify[self, input];	-- and pass on to original notify proc
};

MyPaint: ViewerClasses.PaintProc ~ {
oldClass: ViewerClass ~ GetClass[self];
Inner: PROC ~ {
d: Data ~ GetData[self];
Imager.ConcatT[context: context, m: d.m];					-- add our own transformation
quit м oldClass.paint[self, context, whatChanged, clear];	-- paint with original paint proc
};
IF oldClass # NIL THEN Imager.DoSave[context: context, action: Inner];
};
WriteTransform: PUBLIC PROC [viewer: Viewer, out: STREAM] ~ {
m: Transformation м GetData[viewer].m;
f: ImagerTransformation.FactoredTransformation м ImagerTransformation.Factor[m];
IO.PutF[out, "%lViewer Transformation%l\n", IO.rope["b"], IO.rope["B"]];
IO.PutF1[out, "\tRotate:\t%g\n", IO.real[f.r1]];
IO.PutF1[out, "\tScale:\t%g\n", IO.real[f.s.x]];
IO.PutF[out, "\tTranslate:\t%g, %g\n", IO.real[f.t.x], IO.real[f.t.y]];
};

ReadTransform: PUBLIC PROC [in: STREAM] RETURNS [m: Transformation] ~ {
ENABLE IO.EndOfStream => CONTINUE;
Eq: PROC [r1, r2: ROPE] RETURNS [b: BOOL] ~ {b м Rope.Equal[r1, r2, FALSE]};
m м ImagerTransformation.Scale[1.0];
DO
rope: ROPE м IO.GetCedarTokenRope[in].token;
SELECT  TRUE FROM
Eq[rope, "Rotate"] => m м ImagerTransformation.PreRotate[m, IO.GetReal[in]];
Eq[rope, "Scale"] => m м ImagerTransformation.PreScale[m, IO.GetReal[in]];
Eq[rope, "Translate"] => {
dx: REAL м IO.GetReal[in];
dy: REAL м IO.GetReal[in];
m м ImagerTransformation.PostTranslate[m, [dx, dy]];
};
ENDCASE;
ENDLOOP;
};

IPOut: PUBLIC PROC [viewer: Viewer, fileName: ROPE] ~ {
IF viewer # NIL AND fileName # NIL THEN {
d: Data ~ GetData[viewer];
oldClass: ViewerClass ~ GetClass[viewer];
ref: ImagerInterpress.Ref м ImagerInterpress.Create[fileName];
ContextProc: PROC [context: Imager.Context] ~ {
Imager.ScaleT[context, Imager.metersPerPoint];
Imager.SetStrokeWidth[context, 1.0];
Imager.SetStrokeEnd[context, round];
Imager.TranslateT[context, [0.0, 0.5*11.0*Imager.pointsPerInch]];
Imager.ConcatT[context: context, m: d.m];		-- add our own transformation
[] м oldClass.paint[viewer, context, NIL, TRUE]; -- original paint proc
};
ImagerInterpress.DoPage[ref, ContextProc];
ImagerInterpress.Close[ref];
};
};

END.
..

MyScroll: PROC ViewerClasses.ScrollProc ~ {
oldClass: ViewerClass ~ GetClass[self];
d: Data ~ GetData[self];
r: Rectangle ~ ImagerTransformation.InverseTransformRectangle[d.m, [0, 0, self.cw, self.ch]];
self.cw м Real.Ceiling[r.w];
self.ch м Real.Ceiling[r.h];
[top, bottom] м oldClass.scroll[self, op, amount, shift, control];
};
   ╓  
G2dZoomImpl.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Written by M. Plass, February 27, 1989
Bloomenthal, July 2, 1992 4:54 pm PDT
Types
Pan/Zoom a Viewer
Override a viewer's paint and notify procs.
New class's flavor depends on old class's flavor, check cache of flavorCache:
Support
class.scroll _ MyScroll;
We'd like to be able to get the scrolling right, but haven't yet:
save: ARRAY [0..2) OF INTEGER ~ [self.cw, self.ch];
r: Rectangle ~ ImagerTransformation.InverseTransformRectangle[d.m, [0, 0, self.cw, self.ch]];
self.cw _ Real.Ceiling[r.w];
self.ch _ Real.Ceiling[r.h];
self.cw _ save[0];
self.ch _ save[1];
IO
A transformation is stored to or read from a stream according to the following format:
Rotate:	<degrees: REAL>
Scale:		<scale: REAL>
Translate:	<[x, y: REAL]>

The scrolling doesn't work right; neither did this attempted correction:
save: ARRAY [0..2) OF INTEGER ~ [self.cw, self.ch];
self.cw _ save[0];
self.ch _ save[1];
 Э╩-  Ц"cedarcode" styleХNewlineDelimiter
Щ ЩJЪЬ	╧eЬ6ЩBJЩ&JЩ%ЧШ Ъ╧k	Ь@ЮЬJШХJШ ЧЧЪ╨lnЬЮЬЮШJЪЮЬ7ЮЬ(ШhЪЮЬШJШ ЧЧJЪЬЮШheadЪ╧lЩJЪЬЮЬШ$JЪЬЮЬШ-JЪЮЬЮЬЮЬЮЬШJЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬШJЪЬ
ЮЬШ&ЪЬЮЬШ/JШ ЧJЪЬ	ЮЬЮЬ	ШJЪЬЮЬЮЬШ-ЧЪаЩЪ╧nЬЮЬЮЬШ(JЩ+Ъ
ЮЬ
ЮЬЮЬ7ЮЬЮЬШTJЪЬЮЬШ JХStartOfExpansion([base: ROPE _ NIL, rest: ROPE _ NIL]ЪЬЮЬ:ШCJЩMЪЬЮЬ-Ш>JЪЮЬЮЬ,Ш7JЪЮЬШЧJЪЬЮЬ╧c>ШTJШЧJЪЬШJШ ЧЪбЬЮЬЮЬШ)JЪЮЬ
ЮЬЮЬЮЬШЪЮЬ?ЮЬЮШNЪЬв Ш<JШJШJЪЬШЧJЪЮЬЮЬШЧJЪЬШJШ ЧЪ
бЬЮЬЮЬ.ЮЬЮЬШWJЦ5[m: ImagerTransformation.Transformation, s: REAL]ШJЦ{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ЪЮЬ	ЮЬШ JЪЬШJШ ЧЪб	ЬЮЬЮЬШJЪЬШJЪЬЮЬШJЪЬЮЬШJЪЬ	ЮЬЮЬШJШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬ7Ш7JШJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШFJЦ5[m: ImagerTransformation.Transformation, s: REAL]ЪЬ9Ш9JЦ{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ЪЮЬ	ЮЬШ JЪЬШJШ ЧЪб	ЬЮЬЮЬЮЬЮЬЮЬШIJЦ4[m: ImagerTransformation.Transformation, t: VEC]ЪЬQШQJЦ{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ЪЮЬ	ЮЬШ JЪЬШJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШMJЦ4[m: ImagerTransformation.Transformation, t: VEC]ЪЬ@Ш@JЦ{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ЪЮЬ	ЮЬШ JЪЬШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШ=JЦ4[m: ImagerTransformation.Transformation, t: VEC]Ш2JЦ{[viewer: ViewerClasses.Viewer, hint: ViewerClasses.PaintHint, clearClient: BOOL _ TRUE, whatChanged: REF ANY _ NIL]ЪЮЬ	ЮЬШ JЪЬШЧЧЪаЩЪЬ,в%ШQJШ ЧЪб
ЬЮЬЮЬЮЬШBJЪЬ8Ш8JЪЬЮЬ+Ш6JЦ<[propList: Atom.PropList, prop: REF ANY, val: REF ANY]ШRJЦ<[propList: Atom.PropList, prop: REF ANY, val: REF ANY]ШUJШJШJШJЦ4[flavor: ATOM, class: ViewerClasses.ViewerClass]ЪЬвHШ[JЦ4[flavor: ATOM, class: ViewerClasses.ViewerClass]ШJЪЬЩJЪЬ9Ш9JЦ7[x: RefTab.Ref, key: RefTab.Key, val: RefTab.Val]ЪЬ:вШWJЪЬШJШ ЧЪбЬЮЬЮЬШ/ЪЮЬЮШ
ЪЮЬЮЬ6ЮЬЮШJJШЪЮЬШJЪЬЮЬ/Ш6JЦ>[viewer: ViewerClasses.Viewer, prop: ATOM, val: REF ANY]ЪЬ;Ш;JЪЬШЧЧJЪЮЬЮЬ/Ш;ЧJЪЬШJШ ЧЪбЬЮЬЮЬШ4JЪ
ЮЬЮЬЮЬЮЬЮЬШJЪЮЬЮЬGШTJШJШ ЧЪбЬЮЬЮЬШ%JЪЬЮЬ=ЮЬШWJШJШ ЧЪбЬШ&JЪЬ'Ш'JЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮШ7ЪЮЬ	ЮЬЮШЪЬ%в.ШSJЪЬЮЬ"Ш*JШJЪЬЮЬ6Ш>JШ"JШ"JЪЬШЧJЪЮЬЮЬШЧJЪЮЬШЧJЪЬв&ШDJЪЬШJШ ЧЪбЬШ$JЪЬ'Ш'ЪбЬЮЬШJШJЦE[context: Imager.Context, m: ImagerTransformation.Transformation]ЩAJЪЬЮЬЮЬЮЬЩ3JЦD[m: ImagerTransformation.Transformation, r: ImagerBox.Rectangle]ЪЬ╧sЬ	гЬгЬ3гЬгЬгЬгЬ
Щ]JЪЬЩJЪЬЩJЪЬ.вШKJЪЬ:в!Ш[JЪЬЩJЪЬЩJЪЬШЧJЦ+[context: Imager.Context, action: PROC]ЪЮЬЮЬЮЬ0ШFJЪЬШЧЧЪ╨klЩЩVJЪЬЮЬЩJЪЬЮЬЩJЪЬЮЬЩJЩ ЧЪбЬЮЬЮЬЮЬШ=JШ&JШPJЪЮЬ*ЮЬЮЬШHJЪЮЬЮЬШ0JЪЮЬЮЬШ0JЪЮЬ%ЮЬЮЬШGJШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШGJЪЮЬЮЬЮЬШ"JЪбЬЮЬ
ЮЬЮЬЮЬЮЬШLJШ$ЪЮШJЪЬЮЬЮЬШ,ЪЮЬЮЬЮШJЪЬ<ЮЬШLJЪЬ:ЮЬШJЪЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJШ4JШЧJЪЮЬШЧJЪЮЬШЧJШJШ ЧЪбЬЮЬЮЬЮЬШ7Ъ
ЮЬ
ЮЬЮЬЮЬЮЬШ)JЪЬШJЪЬ)Ш)JШ>ЪбЬЮЬШ/JЪЬ.Ш.JШ$JШ$JЪЬAШAJЪЬ+вШHJЪЬ%ЮЬЮЬвШGJЪЬШЧJЪЬ*Ш*JЪЬШJШЧJШЧЧJШ JЪЮЬШШJШ JЩHЪбЬЮЬШ+JЪЬ'Ш'JШJЦE[context: Imager.Context, m: ImagerTransformation.Transformation]ЪЬЮЬЮЬЮЬЩ3JЦD[m: ImagerTransformation.Transformation, r: ImagerBox.Rectangle]ЪЬ]Ш]JШJШJШBJЪЬЩJЪЬЩJЪЬШЧЧЧ ЕЧ    р  -у  