src/IntTools/IntTools_Range.cdl

   1 -- Created on: 2000-05-18
   2 -- Created by: Peter KURNEV
   3 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
   4 --
   5 -- The content of this file is subject to the Open CASCADE Technology Public
   6 -- License Version 6.5 (the "License"). You may not use the content of this file
   7 -- except in compliance with the License. Please obtain a copy of the License
   8 -- at http://www.opencascade.org and read it completely before using this file.
   9 --
  10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  12 --
  13 -- The Original Code and all software distributed under the License is
  14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  15 -- Initial Developer hereby disclaims all such warranties, including without
  16 -- limitation, any warranties of merchantability, fitness for a particular
  17 -- purpose or non-infringement. Please see the License for the specific terms
  18 -- and conditions governing the rights and limitations under the License.
  19
  20
  21
  22 class Range from IntTools
  23
  24         ---Purpose: The class describes the  1-d range
  25         --          [myFirst, myLast].
  26
  27 --uses
  28 is
  29     Create
  30         returns  Range from IntTools ;
  31         ---Purpose:
  32         --- Empty constructor
  33         ---
  34
  35     Create  (aFirst:Real  from  Standard;  aLast:Real  from  Standard)
  36         returns  Range from IntTools ;
  37         ---Purpose:
  38         --- Initialize me by range boundaries
  39         ---
  40
  41     SetFirst(me:out; aFirst:Real  from  Standard);
  42         ---Purpose:
  43         --- Modifier
  44         ---
  45
  46     SetLast (me:out; aLast:Real  from  Standard);
  47         ---Purpose:
  48         --- Modifier
  49         ---
  50
  51     First   (me)
  52         returns  Real  from  Standard;
  53         ---Purpose:
  54         --- Selector
  55         ---
  56
  57     Last   (me)
  58         returns  Real  from  Standard;
  59         ---Purpose:
  60         --- Selector
  61         ---
  62
  63     Range  (me; aFirst:out Real  from  Standard;
  64                 aLast :out Real  from  Standard);
  65         ---Purpose:
  66         --- Selector
  67         ---
  68
  69 fields
  70     myFirst:  Real  from  Standard;
  71     myLast :  Real  from  Standard;
  72 end Range;