src/Draw/Draw_Marker2D.cdl

   1 -- Created on: 1994-04-18
   2 -- Created by: Modelistation
   3 -- Copyright (c) 1994-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and/or modify it under
   9 -- the terms of the GNU Lesser General Public License version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class Marker2D from Draw inherits Drawable2D from Draw
  18
  19         ---Purpose:
  20
  21 uses
  22     Pnt2d from gp,
  23     Color from Draw,
  24     MarkerShape from Draw,
  25     Display from Draw
  26
  27 is
  28     Create(P : Pnt2d from gp; T : MarkerShape from Draw; C : Color from Draw;
  29         Size : Integer = 5) returns mutable Marker2D from Draw;
  30
  31     Create(P : Pnt2d from gp; T : MarkerShape from Draw; C : Color from Draw;
  32         RSize : Real) returns mutable Marker2D from Draw;
  33
  34     ChangePos(me : mutable) returns Pnt2d from gp;
  35     ---C++: return &
  36     ---Purpose: myPos field
  37
  38     DrawOn(me; dis : in out Display from Draw);
  39
  40     PickReject(me; X,Y,Prec : Real) returns Boolean
  41         ---Purpose: Returs always false
  42     is redefined;
  43
  44
  45 fields
  46     myPos : Pnt2d from gp;
  47     myCol : Color from Draw;
  48     myTyp : MarkerShape from Draw;
  49     mySiz : Integer;
  50
  51 end Marker2D;