src/IntTools/IntTools_Range.cdl

   1 -- Created on: 2000-05-18
   2 -- Created by: Peter KURNEV
   3 -- Copyright (c) 2000-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and/or modify it under
   8 -- the terms of the GNU Lesser General Public License version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 class Range from IntTools
  17
  18         ---Purpose: The class describes the  1-d range
  19         --          [myFirst, myLast].
  20
  21 --uses
  22 is
  23     Create
  24         returns  Range from IntTools ;
  25         ---Purpose:
  26         --- Empty constructor
  27         ---
  28
  29     Create  (aFirst:Real  from  Standard;  aLast:Real  from  Standard)
  30         returns  Range from IntTools ;
  31         ---Purpose:
  32         --- Initialize me by range boundaries
  33         ---
  34
  35     SetFirst(me:out; aFirst:Real  from  Standard);
  36         ---Purpose:
  37         --- Modifier
  38         ---
  39
  40     SetLast (me:out; aLast:Real  from  Standard);
  41         ---Purpose:
  42         --- Modifier
  43         ---
  44
  45     First   (me)
  46         returns  Real  from  Standard;
  47         ---Purpose:
  48         --- Selector
  49         ---
  50
  51     Last   (me)
  52         returns  Real  from  Standard;
  53         ---Purpose:
  54         --- Selector
  55         ---
  56
  57     Range  (me; aFirst:out Real  from  Standard;
  58                 aLast :out Real  from  Standard);
  59         ---Purpose:
  60         --- Selector
  61         ---
  62
  63 fields
  64     myFirst:  Real  from  Standard;
  65     myLast :  Real  from  Standard;
  66 end Range;