7fd59977 |
1 | -- File: BElips.cdl |

2 | -- Created: Fri Oct 4 16:40:04 1991 |

3 | -- Author: Remi GILET |

4 | -- <reg@phobox> |

5 | ---Copyright: Matra Datavision 1991 |

6 | |

7 | |

8 | class BElips from GccInt |

9 | |

10 | inherits Bisec from GccInt |

11 | |

12 | ---Purpose: Describes an ellipse as a bisecting curve between two |

13 | -- 2D geometric objects (such as circles or points). |

14 | |

15 | uses Elips2d from gp, |

16 | IType from GccInt |

17 | |

18 | is |

19 | |

20 | Create(Ellipse : Elips2d) returns mutable BElips; |

21 | ---Purpose: |

22 | -- Constructs a bisecting curve whose geometry is the 2D ellipse Ellipse. |

23 | |

24 | Ellipse(me) returns Elips2d from gp |

25 | is redefined; |

26 | ---Purpose: Returns a 2D ellipse which is the geometry of this bisecting curve. |

27 | |

28 | ArcType(me) returns IType from GccInt |

29 | is static; |

30 | ---Purpose: Returns GccInt_Ell, which is the type of any GccInt_BElips bisecting curve. |

31 | |

32 | fields |

33 | |

34 | eli : Elips2d from gp; |

35 | ---Purpose: The bisecting line. |

36 | |

37 | end BElips; |

38 | |