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

SCM Repository

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

Annotation of /sml/trunk/src/eXene/lib/graph-util/ellipse-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)

1 : monnier 2 (* ellipse-sig.sml
2 :     *
3 :     * COPYRIGHT (c) 1992 by AT&T Bell Laboratories
4 :     *
5 :     * Code for producing rotated ellipses.
6 :     *
7 :     * Based on an ellipse generator, written by James Tough, 7th May 92
8 :     *
9 :     *)
10 :    
11 :     signature ELLIPSE =
12 :     sig
13 :     structure G : GEOMETRY
14 :    
15 :     exception BadAxis
16 :    
17 :     val ellipse : (G.point * int * int * real) -> G.point list
18 :     (* ellipse (pt, a, b, phi) produces a list of points
19 :     * describing the ellipse x^2 / a^2 + y^2 / b^2 = 1
20 :     * translated to point pt and rotated phi radians
21 :     * counterclockwise. If a = 0 or b = 0, it returns [].
22 :     * Raises BadAxis if a < 0 or b < 0.
23 :     *)
24 :    
25 :     end; (* ELLIPSE *)

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