-- Created on: 1992-01-17
-- Created by: GG
-- Copyright (c) 1992-1999 Matra Datavision
--- Copyright (c) 1999-2012 OPEN CASCADE SAS
+-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
--- The content of this file is subject to the Open CASCADE Technology Public
--- License Version 6.5 (the "License"). You may not use the content of this file
--- except in compliance with the License. Please obtain a copy of the License
--- at http://www.opencascade.org and read it completely before using this file.
+-- This file is part of Open CASCADE Technology software library.
--
--- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
--- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+-- This library is free software; you can redistribute it and/or modify it under
+-- the terms of the GNU Lesser General Public License version 2.1 as published
+-- by the Free Software Foundation, with special exception defined in the file
+-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+-- distribution for complete text of the license and disclaimer of any warranty.
--
--- The Original Code and all software distributed under the License is
--- distributed on an "AS IS" basis, without warranty of any kind, and the
--- Initial Developer hereby disclaims all such warranties, including without
--- limitation, any warranties of merchantability, fitness for a particular
--- purpose or non-infringement. Please see the License for the specific terms
--- and conditions governing the rights and limitations under the License.
+-- Alternatively, this file may be used under the terms of Open CASCADE
+-- commercial license or contractual agreement.
-- Update: FDA Oct 15 1994
-- ZOV - Mars 30 1998
--- GG IMP230300 Add SetColor() and Color() methods
-- GG - 23/11/00 Add IsDisplayed() method
deferred class Light from V3d
---Purpose: Defines services on Light type objects..
-
+ -- (base class for AmbientLight and PositionLight)
inherits
Structure from Graphic3d
raises
- BadValue from Viewer
+ BadValue from V3d
is
- Initialize( VM : mutable Viewer ) ;
+ Initialize( VM : Viewer ) ;
--------------------------------------------------------
---Category: Methods to modify the attributes of the Light
---Level: Public
---Purpose: returns true if the light is a headlight
+ SetHeadlight( me : mutable; theValue : Boolean from Standard ) is static;
+ ---Level: Public
+ ---Purpose: Setup headlight flag.
+
+ SetIntensity ( me : mutable;
+ theValue : Real from Standard )
+ ---Level: Public
+ ---Purpose: Modifies the intensity of light source.
+ is static;
+
+ Intensity ( me ) returns Real from Standard is static;
+ ---Level: Public
+ ---Purpose: returns the intensity of light source
+
+ Smoothness ( me ) returns Real from Standard is static;
+ ---Level: Public
+ ---Purpose: returns the smoothness of light source
+
IsDisplayed( me ) returns Boolean from Standard;
---Level: Public
---Purpose: Returns TRUE when a light representation is displayed
-- on the sphere of center "Center" and radius "Radius".
-- VX,VY,VZ is the project vector of view.
- Light ( me ) returns mutable Light from Visual3d is static private ;
+ Light ( me ) returns Light from Visual3d is static private ;
---Level: Internal
---Purpose: Returns the Light of the associated Visual3d.