7fd59977 |
1 | -- File: DrawFairCurve_MinimalVariation.cdl |
2 | -- Created: Fri Apr 12 11:03:34 1996 |
3 | -- Author: Philippe MANGIN |
4 | -- <pmn@sgi29> |
5 | ---Copyright: Matra Datavision 1996 |
6 | |
7 | class MinimalVariation from DrawFairCurve inherits Batten from DrawFairCurve |
8 | |
9 | ---Purpose: Interactive Draw object of type "MVC" |
10 | |
11 | uses MinimalVariation from FairCurve |
12 | |
13 | is |
14 | Create(TheMVC : Address) |
15 | returns mutable MinimalVariation from DrawFairCurve; |
16 | |
17 | SetCurvature(me: mutable; Side : Integer; Rho : Real); |
18 | SetPhysicalRatio(me: mutable; Ratio : Real); |
19 | GetCurvature(me; Side : Integer) returns Real; |
20 | GetPhysicalRatio(me) returns Real; |
21 | FreeCurvature(me: mutable; Side : Integer); |
22 | |
23 | end MinimalVariation; |
24 | |
25 | |