include "draw.m"; draw := load Draw Draw->PATH; Point: adt { x: int; y: int; add: fn(p: self Point, q: Point): Point; sub: fn(p: self Point, q: Point): Point; mul: fn(p: self Point, i: int): Point; div: fn(p: self Point, i: int): Point; eq: fn(p: self Point, q: Point): int; in: fn(p: self Point, r: Rect): int; };
DRAW-POINT(2 ) | Rev: Thu Feb 15 14:43:27 GMT 2007 |