(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(* *)
(* by Stephen Harrison and Steve Glassman *)
(* *)
(* Last modified on Thu Jul  9 17:13:49 PDT 1992 by harrison                 *)

INTERFACE ShapeUtils;

IMPORT RealPath;

PROCEDURE RegularPolygon(sides: CARDINAL := 3; radius := 1.0): RealPath.T;
  (* Return a "RealPath.T" representing the regular polygon centered at the origin, with given "radius" and number of "sides". *)

END ShapeUtils.