
DIRECTORY Commander, Controls, Draw2d, G2dBasic, G2dMatrix, G2dTool, G2dVector, ImagerBackdoor, ImagerSample, RealFns, Rope, ViewerOps;

G2dTransformCmdImpl: CEDAR PROGRAM
IMPORTS Controls, Draw2d, G2dMatrix, G2dTool, G2dVector, ImagerBackdoor, ImagerSample, RealFns, ViewerOps

~ BEGIN

Pair:						TYPE ~ G2dBasic.Pair;
PairSequence:			TYPE ~ G2dBasic.PairSequence;
Triple:					TYPE ~ G2dBasic.Triple;
TripleSequence:			TYPE ~ G2dBasic.TripleSequence;
Matrix:					TYPE ~ G2dMatrix.Matrix;

Data:						TYPE ~ REF DataRep;
DataRep:					TYPE ~ RECORD [
s, sx, sy, r, tx, ty:				Controls.Control м NIL,
vmin, vmax:						Pair м [0.0, 0.0],
outerData:						Controls.OuterData м NIL,
outer, graphics:					Controls.Viewer м NIL,
buf:								ImagerSample.SampleMap м NIL,
nPts:								NAT м 5,
pts, nrms:						PairSequence м NIL,
lines:								TripleSequence м NIL
];

TransformCmd: Commander.CommandProc ~ {
d: Data м NEW[DataRep];
d.tx м Controls.NewControl[name: "TX", proc: T, clientData: d, min: -10., max: 10.0, init: 0];
d.ty м Controls.NewControl[name: "TY", proc: T, clientData: d, min: -10., max: 10.0, init: 0];
d.sx м Controls.NewControl[name: "SX", proc: T, clientData: d, min: -10., max: 10.0, init: 1];
d.s м Controls.NewControl[name: "S", proc: S, clientData: d, min: -10., max: 10.0, init: 1];
d.sy м Controls.NewControl[name: "SY", proc: T, clientData: d, min: -10., max: 10.0, init: 1];
d.r м Controls.NewControl[name: "R", proc: T, clientData: d, max: 360.0, init: 0.0];
d.outerData м Controls.OuterViewer[
name: "2d Transform",
buttons: LIST[
Controls.ClickButton["IP Out", IPOut, d],
Controls.ClickButton["NPts", NPts, d],
Controls.ClickButton["Reset", Reset, d]],
controls: LIST[d.tx, d.ty, d.sx, d.s, d.sy, d.r],
typescriptHeight: 18,
graphicsHeight: 300,
drawProc: Draw,
clientData: d
];
d.outer м d.outerData.parent;
d.graphics м d.outerData.graphics;
Init[d];
};

Init: PROC [d: Data] ~ {
IF d.pts = NIL OR d.pts.maxLength < d.nPts THEN {
d.pts м NEW[G2dBasic.PairSequenceRep[d.nPts]];
d.nrms м NEW[G2dBasic.PairSequenceRep[d.nPts]];
d.lines м NEW[G2dBasic.TripleSequenceRep[d.nPts]];
};
FOR i: NAT IN [0..d.nPts) DO
a: REAL м (2.0*3.141592)*REAL[i]/REAL[d.nPts];
c: Pair м d.nrms[i] м d.pts[i] м [RealFns.Cos[a], RealFns.Sin[a]];
d.lines[i] м [c.x, c.y, -c.x*c.x-c.y*c.y];
ENDLOOP;
};

T: Controls.ControlProc ~ {Repaint[NARROW[control.clientData, Data], $Slider]};

S: Controls.ControlProc ~ {
d: Data м NARROW[control.clientData];
Controls.SetSliderDialValue[d.sx, control.value];
Controls.SetSliderDialValue[d.sy, control.value];
Repaint[d, $Slider];
};

Rotate: PROC [m: Matrix, degrees: REAL] RETURNS [Matrix] ~ {
cosDeg: REAL м RealFns.CosDeg[degrees];
sinDeg: REAL м RealFns.SinDeg[degrees];
RETURN[G2dMatrix.Mul[m, [[cosDeg, sinDeg, 0.0], [-sinDeg, cosDeg, 0.0], [0.0, 0.0, 1.0]]]];
};

Reset: Controls.ClickProc ~ {
d: Data м NARROW[clientData];
Controls.Reset[d.sx, d.sy, d.s, d.r, d.tx, d.ty];
Repaint[d, $Init];
};

Repaint: PROC [d: Data, r: REF ANY] ~ {ViewerOps.PaintViewer[d.graphics, client, FALSE, r]};

Draw: Controls.DrawProc ~ {
Buffer: PROC [op: {save, restore}] ~ {
Save: PROC [pm: Imager.PixelMap] ~ {d.buf м ImagerSample.Copy[pm[0]]};
Restore: PROC [pm: Imager.PixelMap] ~ {ImagerSample.Transfer[pm[0], d.buf]};
r: Imager.Rectangle м ImagerBackdoor.GetBounds[context];
ImagerBackdoor.AccessBufferRectangle[context, IF op = save THEN Save ELSE Restore, r];
};
InvViewPt: PROC [p: Pair] RETURNS [q: Pair] ~ {q м [(p.x-200.0)/50.0, (p.y-200.0)/50.0]};
ViewPt: PROC [p: Pair] RETURNS [q: Pair] ~ {q м [200.0+50.0*p.x, 150.0+50.0*p.y]};
Segment: PROC [p1, p2: Pair] ~ {Draw2d.Line[context, ViewPt[p1], ViewPt[p2], type]};
Arrow:PROC[p,v:Pair]~{Draw2d.Arrow[context,ViewPt[p],ViewPt[G2dVector.Add[p,v]],type]};
DrawLine: PROC [l: Triple] ~ {
IF ABS[l.y] < 0.0001
THEN IF ABS[l.x] < 0.0001
THEN RETURN
ELSE Segment[[-l.z/l.x, 2*d.vmin.y], [-l.z/l.x, d.vmax.y]]
ELSE Segment[[d.vmin.x,(-l.z-l.x*(d.vmin.x))/l.y], [d.vmax.x,(-l.z-l.x*d.vmax.x)/l.y]];
};
PreMultiplyNormal: PROC [n: Pair, i: Matrix] RETURNS [Pair] ~ {
RETURN[[i.row1.x*n.x+i.row1.y*n.y, i.row2.x*n.x+i.row2.y*n.y]];
};
PreMultiplyLine: PROC [l: Triple, i: Matrix] RETURNS [Triple] ~ {
RETURN[[
i.row1.x*l.x+i.row1.y*l.y+i.row1.z*l.z,
i.row2.x*l.x+i.row2.y*l.y+i.row2.z*l.z,
i.row3.x*l.x+i.row3.y*l.y+i.row3.z*l.z]];
};
XformPt: PROC [p: Pair, i: Matrix] RETURNS [Pair] ~ {
xHP: Triple м G2dMatrix.Transform[[p.x, p.y, 1.0], i];
RETURN[[xHP.x/xHP.z, xHP.y/xHP.z]];
};
Action: PROC ~ {
DrawTransformed: PROC ~ {
x: Matrix м G2dMatrix.Translate[
Rotate[
G2dMatrix.Scale[
G2dMatrix.Identity[],
[d.sx.value, d.sy.value]],
d.r.value],
[d.tx.value, d.ty.value]];
adjoint: Matrix м G2dMatrix.Adjoint[x];
xP0: Pair м XformPt[d.pts[d.nPts-1], x];
FOR i: NAT IN [0..d.nPts) DO
xP1: Pair м XformPt[d.pts[i], x];
n: Pair м d.nrms[i];
xHN: Triple м G2dMatrix.Transform[[n.x, n.y, 0.0], x];
type м dashed; Arrow[xP1, [xHN.x, xHN.y]]; type м solid;
Arrow[xP1, PreMultiplyNormal[d.nrms[i], adjoint]];
Segment[xP0, xP1];
xP0 м xP1;
ENDLOOP;
};
DrawOriginal: PROC ~ {
FOR i: NAT IN [0..d.nPts) DO
p1: Pair м d.pts[i];
Arrow[p1, d.nrms[i]];
Segment[p1, d.pts[(i+1) MOD d.nPts]];
ENDLOOP;
};
SELECT whatChanged FROM
$IPOut => DrawTransformed[];
$Slider => {Buffer[restore]; DrawTransformed[]};
ENDCASE => {
d.vmin м InvViewPt[[viewer.wx, viewer.wy]];
d.vmax м InvViewPt[[viewer.wx+viewer.ww, viewer.wy+viewer.wh]];
DrawOriginal[];
Buffer[save];
IF whatChanged = $Init THEN DrawTransformed[];
};
};
d: Data м NARROW[clientData];
type: Draw2d.DrawType м solid;
Draw2d.DoWithBuffer[context, Action];
};

NPts: Controls.ClickProc ~ {
d: Data м NARROW[clientData];
d.nPts м Controls.GetNat[d.outerData.typescript, "# points: ", d.nPts];
Init[d];
Repaint[d, $Init];
};

IPOut: Controls.ClickProc ~ {
d: Data м NARROW[clientData];
fileName: Rope.ROPE м Controls.TypescriptReadFileName[d.outerData.typescript];
IF fileName # NIL THEN Draw2d.IPOut[fileName, Draw, d];
};

G2dTool.Register["Transform", TransformCmd, "2d transformations test"];
END.

    ╪  
G2dTransformCmdImpl.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 20, 1992 1:09 pm PDT
type _ dashed; DrawLine[PreMultiplyLine[d.lines[i], adjoint]]; type _ solid;

Э╩T  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ&ЧШ Ъ╧k	Ь~ШЗJШ ЧЧЪ╨lnЬЮЬЮШ"ЪЮЬbШiJШ ЧЧЪЬЮШJШ JЪЬЮЬШ JЪЬЮЬШ-JЪЬЮЬШ#JЪЬЮЬШ1ЪЬЮЬШ$JШ ЧJЪЬ	ЮЬЮЬ	ШЪЬЮЬЮЬШJЪЬ,ЮЬШ0JШ#JЪЬ%ЮЬШ)JЪЬ'ЮЬШ+JЪЬ%ЮЬШ)JЪЬЮЬШJЪЬЮЬШ#JЪЬЮШ"JЪЬШJШ ЧЪ╨bnЬШ'JЪЬ
ЮЬ
ШJЪЬ╧sЬбЬ"бЬШ^JЪЬбЬбЬ"бЬШ^JЪЬбЬбЬ"бЬШ^JЪЬбЬбЬ"бЬШ\JЪЬбЬбЬ"бЬШ^JЪЬбЬNШTШ#JЪЬШЪЬ	ЮЬШJЪЬ)Ш)JЪЬ&Ш&JЪЬ)Ш)ЧJЪЬ
ЮЬ#Ш1JШJШJШJШJШЧJШJШ"JШJШJШ ЧЪ╧nЬЮЬШЪЮЬ	ЮЬЮЬЮЬШ1JЪЬЮЬ#Ш.JЪЬ	ЮЬ#Ш/JЪЬ
ЮЬ%Ш2JШЧЪЮЬЮЬЮЬЮШJЪЬЮЬЮЬЮЬ	Ш.JШBJШ*JЪЮЬШЧJШJШ ЧЪаЬ"ЮЬ&ШOJШ ЧЪ╧bЬШJЪЬ
ЮЬШ%JЪЬ1Ш1JЪЬ1Ш1JШJЪЬШJШ ЧЪвЬЮЬЮЬЮЬШ<JЪЬЮЬШ'JЪЬЮЬШ'JЪЮЬUШ[JШJШ ЧЪвЬШJЪЬ
ЮЬШJЪЬ1Ш1JШJШJШ ЧЪ
вЬЮЬЮЬЮЬ/ЮЬШ\JШ ЧЪвЬШЪвЬЮЬШ&JЪвЬЮЬ<ШFJЪ
вЬЮЬбЬбЬбЬШLJШ8JЪЬ.ЮЬЮЬЮЬШVJШЧJЪв	ЬЮЬЮЬ8ШYJЪвЬЮЬЮЬ4ШRJЪвЬЮЬGШTJЪвЬЮЬбЬAШWЪвЬЮЬШЪЮЬЮЬШЪЮЬЮЬЮЬШJЪЮЬЮШJЪЮбЬ5Ш:JЪЮбЬ-бЬ$ШWЧЧJШЧЪвЬЮЬЮЬШ?JЪЮЬ9Ш?JШЧЪвЬЮЬЮЬШAЪЮЬШJЪЬ'Ш'JЪЬ'Ш'JЪЬ)Ш)ЧJШЧЪвЬЮЬЮЬШ5JШ6JЪЮЬШ#JШЧЪвЬЮЬШЪвЬЮЬШШ ШШJШJШЧJШЧJШЧJШ'JШ(ЪЮЬЮЬЮЬЮШJШ!JШJШ6JЪЬLЩLJШ8JЪЬ2Ш2JЪЬШJШ
JЪЮЬШЧJШЧЪвЬЮЬШЪЮЬЮЬЮЬЮШJШJЪЬШJЪЬЮЬ
Ш%JЪЮЬШЧJШЧЪЮЬЮШJЪЬШJШ0ЪЮЬШJШ+JШ?JЪЬШJЪЬШJЪЮЬЮЬШ.JШЧЧJШЧJЪЬ
ЮЬШJШJЪЬ%Ш%JШJШ ЧЪвЬШJЪЬ
ЮЬШJШGJЪЬШJШJШJШ ЧЪвЬШJЪЬ
ЮЬШJЪЬЮЬ;ШNJЪЮЬЮЬЮЬ!Ш7JШJШ ЧJШGJЩ ЧJЪЮЬШJШ Ч ЕЧ    И  ┤  