drawcontext/src/RealPoint.m3


 Copyright (c) 2000 California Institute of Technology 
 All rights reserved. See the file COPYRIGHT for a full description. 
 $Id: RealPoint.m3,v 1.2 2001-09-19 15:30:31 wagner Exp $ 

MODULE RealPoint;
IMPORT Point;

PROCEDURE FromPoint(p: Point.T): T =
  BEGIN
    RETURN T{FLOAT(p.h), FLOAT(p.v)};
  END FromPoint;

PROCEDURE Round(p: T): Point.T =
  BEGIN
    RETURN Point.T{ROUND(p.h), ROUND(p.v)};
  END Round;

BEGIN
END RealPoint.

interface RealPoint is in: