src/StepVisual/StepVisual_ColourRgb.cdl

   1 -- File:        ColourRgb.cdl
   2 -- Created:     Fri Dec  1 11:11:16 1995
   3 -- Author:      EXPRESS->CDL V0.2 Translator
   4 -- Copyright:   Matra-Datavision 1993
   5
   6
   7 class ColourRgb from StepVisual
   8
   9 inherits ColourSpecification from StepVisual
  10
  11 uses
  12
  13         Real from Standard,
  14         HAsciiString from TCollection
  15 is
  16
  17         Create returns mutable ColourRgb;
  18         ---Purpose: Returns a ColourRgb
  19
  20
  21         Init (me : mutable;
  22               aName : mutable HAsciiString from TCollection) is redefined;
  23
  24         Init (me : mutable;
  25               aName : mutable HAsciiString from TCollection;
  26               aRed : Real from Standard;
  27               aGreen : Real from Standard;
  28               aBlue : Real from Standard) is virtual;
  29
  30         -- Specific Methods for Field Data Access --
  31
  32         SetRed(me : mutable; aRed : Real);
  33         Red (me) returns Real;
  34         SetGreen(me : mutable; aGreen : Real);
  35         Green (me) returns Real;
  36         SetBlue(me : mutable; aBlue : Real);
  37         Blue (me) returns Real;
  38
  39 fields
  40
  41         red : Real from Standard;
  42         green : Real from Standard;
  43         blue : Real from Standard;
  44
  45 end ColourRgb;