<<>> <> <> <> DIRECTORY Commander, Controls, ControlsPrivate, FS, G2dBasic, G2dContour, G2dTool, Imager, IO, Rope, TIPUser, ViewerClasses, ViewerOps; G2dContourCmdsImpl: CEDAR PROGRAM IMPORTS Controls, ControlsPrivate, FS, G2dContour, G2dTool, Imager, IO, TIPUser, ViewerOps ~ BEGIN <> Control: TYPE ~ Controls.Control; IntegerPair: TYPE ~ G2dBasic.IntegerPair; IntegerPairSequence: TYPE ~ G2dBasic.IntegerPairSequence; Pair: TYPE ~ G2dBasic.Pair; Contour: TYPE ~ G2dContour.Contour; ROPE: TYPE ~ Rope.ROPE; ProgramData: TYPE ~ REF ProgramDataRec; ProgramDataRec: TYPE ~ RECORD [ outerData: Controls.OuterData Ź NIL, -- some good stuff here alpha: Control Ź NIL, -- contour interpolator scaler: Control Ź NIL, -- contour scaler contour: Control Ź NIL, -- the contour control contour0: Control Ź NIL, -- key contour one contour1: Control Ź NIL, -- key contour two save: IntegerPairSequence Ź NIL, -- permit undo center: Pair Ź [0, 0], -- of contour normals: BOOL Ź FALSE -- show contour normals? ]; <> ContoursTest: Commander.CommandProc ~ { p: ProgramData Ź NEW[ProgramDataRec]; p.contour Ź Controls.NewControl[ name: "Contour and Normals", type: contour, clientData: p, w: 180, flavor: $Normals]; p.scaler Ź Controls.NewControl["Scale", vSlider, p, 0.0, 5.0, 1.0, Scale,,,,,,, 138]; p.outerData Ź Controls.OuterViewer[ name: "Contours Test", column: left, controls: LIST[p.contour, p.scaler], buttons: LIST[ Controls.ClickButton["Normals-Off", ToggleNormals, p, 0], Controls.ClickButton["Read", Read, p, 0], Controls.ClickButton["Write", Write, p, 0], Controls.ClickButton["Undo", Undo, p, 1], Controls.ClickButton["Center", Center, p, 1], Controls.ClickButton["Thin", Thin, p, 1], Controls.ClickButton["Smooth", Smooth, p, 1]], typescriptHeight: 18, clientData: p]; }; Scale: Controls.ControlProc ~ { p: ProgramData Ź NARROW[control.clientData]; IF control.mouse.state = down THEN { ips: IntegerPairSequence Ź Controls.GetContour[p.contour]; IF ips # NIL AND (p.save = NIL OR p.save.length # ips.length) THEN { p.save Ź Controls.GetContour[p.contour]; p.center Ź G2dContour.Centroid[G2dContour.FromIntegerPairs[p.save, TRUE]]; }; }; IF p.save # NIL THEN { c: Contour Ź G2dContour.FromIntegerPairs[p.save, TRUE]; c Ź G2dContour.Offset[c, [-p.center.x, -p.center.y]]; c Ź G2dContour.Scale[c, [p.scaler.value, p.scaler.value]]; c Ź G2dContour.Offset[c, p.center]; ToControl[p.contour, c]; }; }; Center: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; p.center Ź [p.contour.w/2, p.contour.h/2]; ToControl[p.contour,G2dContour.Offset[G2dContour.Center[FromControl[p.contour]],p.center]]; p.save Ź Controls.GetContour[p.contour]; }; Thin: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; p.save Ź Controls.GetContour[p.contour]; ToControl[p.contour, G2dContour.Thin[FromControl[p.contour]]]; }; Smooth: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; p.save Ź Controls.GetContour[p.contour]; ToControl[p.contour, G2dContour.Smooth[FromControl[p.contour]]]; }; Undo: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; Controls.SetContour[p.contour, p.save, TRUE]; p.center Ź G2dContour.Centroid[FromControl[p.contour]]; }; ToggleNormals: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; Controls.ButtonToggle[p.outerData, p.normals Ź NOT p.normals, "Normals-On", "Normals-Off"]; ViewerOps.PaintViewer[p.contour.viewer, client, FALSE, NIL]; }; PaintNormals: ViewerClasses.PaintProc ~ { control: Control Ź NARROW[self.data]; p: ProgramData Ź NARROW[control.clientData]; IF p.normals THEN { contour: Contour Ź FromControl[p.contour]; IF contour = NIL THEN RETURN; contour.normals Ź G2dContour.Normals[contour]; G2dContour.Paint[contour, context, TRUE]; } ELSE [] Ź ControlsPrivate.PaintContour[self, context, whatChanged, clear]; }; Read: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; ts: Controls.Typescript Ź p.outerData.typescript; name: ROPE Ź Controls.TypescriptReadFileName[ts]; IF name # NIL THEN { stream: IO.STREAM Ź FS.StreamOpen[name ! FS.Error => GOTO Bad]; ToControl[p.contour, G2dContour.Read[stream]]; EXITS Bad => Controls.TypescriptWrite[ts, IO.PutFR1["Can't open %g\n", IO.rope[name]]]; }; }; Write: Controls.ClickProc ~ { p: ProgramData Ź NARROW[clientData]; r: ROPE Ź Controls.TypescriptReadFileName[p.outerData.typescript]; IF r # NIL THEN G2dContour.Write[FS.StreamOpen[r, $create], FromControl[p.contour]]; }; FromControl: PROC [control: Control, t: REAL Ź 0.0] RETURNS [contour: Contour] ~ { ips: IntegerPairSequence Ź Controls.GetContour[control]; IF ips # NIL THEN contour Ź G2dContour.FromIntegerPairs[ips, TRUE, t]; }; ToControl: PROC [control: Control, contour: Contour, repaint: BOOL Ź TRUE] ~ { IF contour = NIL THEN Controls.Reset[control] ELSE Controls.SetContour[ control, G2dContour.IntegerPairsFromPairs[contour.pairs], TRUE, repaint]; }; <> ContoursInterpolate: Commander.CommandProc ~ { p: ProgramData Ź NEW[ProgramDataRec]; p.alpha Ź Controls.NewControl["Alpha", vSlider, p, 0.0, 1.0, 0.5, Interpolate,,,,,,, 120]; p.contour0 Ź Controls.NewControl[type: contour, w: 160, proc: Interpolate, clientData: p]; p.contour1 Ź Controls.NewControl[type: contour, w: 160, proc: Interpolate, clientData: p]; p.contour Ź Controls.NewControl[type: contour, w: 160, clientData: p]; p.outerData Ź Controls.OuterViewer[ name: "Contours Interpolate", controls: LIST[p.contour0, p.contour1, p.contour, p.alpha], clientData: p ]; }; Interpolate: Controls.ControlProc ~ { IF control.mouse.state # up THEN { p: ProgramData Ź NARROW[control.clientData]; contour0: Contour Ź FromControl[p.contour0]; contour1: Contour Ź FromControl[p.contour1]; ToControl[p.contour, G2dContour.Interpolate[contour0, contour1, p.alpha.value]]; }; }; <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<];>> <<>> <> <> <> <> <> <<};>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <<};>> <<>> <> <> <> <> <<};>> <<>> <> <> <<};>> <<>> <> <> <> <> <<}>> <> <> <> <<};>> <<>> <> <> <> <> <> <> <<};>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <> <> <> <> < Controls3d.SetCamera[d.cam];>> < NULL;>> <> <<};>> <<>> <> <> <> <> <<};>> <<>> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <> <<};>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <<>> <> <> <> <<>> <> <> <> <<>> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<];>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<["Recurse", Recurse], ["Randomize", Randomize],>> <<["PickToggle", PickToggle], ["Reset", Reset], ["PrintC", PrintC]],>> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <<};>> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> < 0 THEN Draw3d.PP[p, q, context, d.view];>> <

> <> <<}>> <> <> <> <> <> <<};>> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <<>> <> <> <> <> <> <> <> <<>> <> <> <<>> <> <<>> <> <> <<>> <> <> <> <<>> <> <> <> <> <> <<>> <> <<};>> <<>> <> <> <> <> <> <> <<};>> <> <> <> < 0 AND roots.r1 IN [0.0..1.0] THEN CheckI[roots.r1];>> < 1 AND roots.r2 IN [0.0..1.0] THEN CheckI[roots.r2];>> <<};>> <<>> <> <> <<};>> <<>>