Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /eXene/trunk/graph-util/ellipse-sig.sml
ViewVC logotype

View of /eXene/trunk/graph-util/ellipse-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2098 - (download) (annotate)
Thu Nov 2 15:53:59 2006 UTC (12 years, 7 months ago) by blume
File size: 644 byte(s)
moved eXene to toplevel
(* ellipse-sig.sml
 *
 * COPYRIGHT (c) 1992 by AT&T Bell Laboratories
 *
 * Code for producing rotated ellipses.
 *
 * Based on an ellipse generator, written by James Tough, 7th May 92
 *
 *)

signature ELLIPSE =
  sig
    structure G : GEOMETRY

    exception BadAxis

    val ellipse : (G.point * int * int * real) -> G.point list
      (* ellipse (pt, a, b, phi) produces a list of points
       * describing the ellipse x^2 / a^2 + y^2 / b^2 = 1
       * translated to point pt and rotated phi radians 
       * counterclockwise.  If a = 0 or b = 0, it returns [].
       * Raises BadAxis if a < 0 or b < 0.
       *)

  end; (* ELLIPSE *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0