<> <> <> <> DIRECTORY ImagerOps USING [], Real USING [RealException, RoundLI], Vector2 USING [VEC]; ImagerOpsImpl: CEDAR PROGRAM IMPORTS Real EXPORTS ImagerOps ~ BEGIN VEC: TYPE ~ Vector2.VEC; <<>> DRound: PUBLIC PROC[v: VEC] RETURNS[VEC] ~ { Round: PROC[r: REAL] RETURNS[REAL] ~ { RETURN[Real.RoundLI[r]] }; v.x _ Round[v.x ! Real.RealException => CONTINUE]; v.y _ Round[v.y ! Real.RealException => CONTINUE]; RETURN[v]; }; END.