mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
3946774d9e
Windows: Exporting non-inline methods that provide info about the current state of OCCT renderer. Minor tweak: fixing incomplete handle/dynamic type for OpenGl_Resource vuserdraw command added to test UserDraw basic operation Separate source file ViewerTest_OpenGlCommands.cxx added for commands testing low-level TKOpenGl functionality
177 lines
6.2 KiB
Plaintext
Executable File
177 lines
6.2 KiB
Plaintext
Executable File
-- Created on: 1997-07-23
|
|
-- Created by: Henri JEANNIN
|
|
-- Copyright (c) 1997-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 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.
|
|
--
|
|
-- 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.
|
|
--
|
|
-- 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.
|
|
|
|
|
|
|
|
|
|
package ViewerTest
|
|
|
|
---Purpose:
|
|
|
|
uses
|
|
Draw,
|
|
TCollection,
|
|
TColStd,
|
|
TopAbs,
|
|
TopTools,
|
|
TopoDS,
|
|
V3d,
|
|
AIS,
|
|
NIS,
|
|
MMgt
|
|
|
|
is
|
|
|
|
class Tool;
|
|
---Purpose: to build a context and set a given context as current
|
|
-- for ViewerTest.
|
|
|
|
|
|
|
|
class EventManager;
|
|
---Purpose: used to manage mouse event (move,select,shiftselect)
|
|
-- By default the events are transmitted to interactive context.
|
|
|
|
|
|
class DoubleMapOfInteractiveAndName instantiates DoubleMap
|
|
from TCollection ( Transient from Standard,
|
|
AsciiString from TCollection,
|
|
MapTransientHasher from TColStd,
|
|
AsciiString from TCollection);
|
|
|
|
|
|
-- ----------------------------------------------------------------------
|
|
-- Package methods
|
|
-- ----------------------------------------------------------------------
|
|
|
|
Factory (theDI : out Interpretor from Draw);
|
|
---Purpose: Loads all Draw commands of V2d & V3d. Used for plugin.
|
|
|
|
---Category: Create the viewer....
|
|
|
|
ViewerInit ( thePxLeft, thePxTop : Integer from Standard = 0;
|
|
thePxWidth, thePxHeight : Integer from Standard = 0);
|
|
---Purpose:
|
|
-- implemented in ViewerTest_ViewerCommands.cxx
|
|
|
|
---Category: Selection in the viewer....
|
|
|
|
|
|
WClass returns TShared from MMgt is private;
|
|
---C++: return const &
|
|
---Purpose: Returns a window class that implements standard behavior of
|
|
-- all windows of the ViewerTest. This includes usual Open CASCADE
|
|
-- view conventions for mouse buttons (e.g. Ctrl+MB1 for zoom,
|
|
-- Ctrl+MB2 for pan, etc) and keyboard shortcuts.
|
|
-- This method is relevant for MS Windows only and respectively
|
|
-- returns WNT_WClass handle.
|
|
|
|
PickShape (aType : ShapeEnum from TopAbs;
|
|
MaxPick : Integer from Standard = 5) returns Shape from TopoDS;
|
|
---Purpose: waits until a shape of type <aType> is picked in the AIS Viewer and returns it.
|
|
-- if <aType> == TopAbs_Shape, any shape can be picked...
|
|
-- MaxPick is the Max number before exiting, if no pick is successfull
|
|
|
|
|
|
PickShapes (aType : ShapeEnum from TopAbs;
|
|
thepicked : in out HArray1OfShape from TopTools;
|
|
MaxPick : Integer from Standard = 5)
|
|
returns Boolean from Standard;
|
|
---Purpose: wait until the array is filled with picked shapes.
|
|
-- returns True if the array is filled.
|
|
-- exit if number of unsuccesfull picks = <MaxPick>
|
|
|
|
PickObject(Type : KindOfInteractive from AIS = AIS_KOI_None;
|
|
Signature : Integer from Standard = -1;
|
|
MaxPick : Integer from Standard = 5)
|
|
returns InteractiveObject from AIS;
|
|
---Purpose: waits until an interactive object of a given Type
|
|
-- and signature is picked (defaut values authorize
|
|
-- selection of any Interactive Object)
|
|
-- exit if number of unsuccesfull picks = <MaxPick>
|
|
|
|
PickObjects(thepicked : in out HArray1OfTransient from TColStd;
|
|
Type : KindOfInteractive from AIS = AIS_KOI_None;
|
|
Signature : Integer from Standard = -1;
|
|
MaxPick : Integer from Standard = 5)
|
|
returns Boolean from Standard;
|
|
---Purpose: selection of several interactive objects. Number is given
|
|
-- by the size of <thepicked>
|
|
-- exit if number of unsuccesfull picks = <MaxPick>
|
|
|
|
|
|
Commands (theCommands : in out Interpretor from Draw);
|
|
AviCommands(theCommands :in out Interpretor from Draw);
|
|
ViewerCommands(theCommands :in out Interpretor from Draw);
|
|
MyCommands (theCommands : in out Interpretor from Draw); -- My Own Com-s
|
|
RelationCommands(theCommands :in out Interpretor from Draw);
|
|
ObjectCommands(theCommands :in out Interpretor from Draw);
|
|
FilletCommands(theCommands :in out Interpretor from Draw);
|
|
VoxelCommands(theCommands :in out Interpretor from Draw);
|
|
OpenGlCommands(theCommands :in out Interpretor from Draw);
|
|
|
|
GetMousePosition(xpix,ypix: out Integer from Standard);
|
|
|
|
GetViewerFromContext returns Viewer from V3d;
|
|
|
|
GetCollectorFromContext returns Viewer from V3d;
|
|
|
|
GetAISContext returns InteractiveContext from AIS;
|
|
|
|
GetNISContext returns InteractiveContext from NIS;
|
|
---C++: return &
|
|
|
|
SetAISContext (aContext: InteractiveContext from AIS);
|
|
|
|
SetNISContext (aContext: InteractiveContext from NIS);
|
|
|
|
CurrentView returns View from V3d;
|
|
|
|
CurrentView (aViou:View from V3d);
|
|
|
|
Clear ;
|
|
|
|
---Category: Change behaviour on move,select,... events.
|
|
|
|
SetEventManager (aMgr:EventManager from ViewerTest);
|
|
---Purpose: puts <aMgr> as current eventmanager (the
|
|
-- move,select,...will be applied to <aMgr>
|
|
|
|
UnsetEventManager;
|
|
---Purpose: removes the last EventManager from the list.
|
|
|
|
ResetEventManager;
|
|
---Purpose: clear the list of EventManagers and
|
|
-- sets the default EventManager as current
|
|
|
|
CurrentEventManager returns EventManager from ViewerTest;
|
|
|
|
|
|
---Category: privateMethods...
|
|
|
|
|
|
RemoveSelected;
|
|
|
|
StandardModeActivation(Mode : Integer from Standard);
|
|
|
|
|
|
|
|
end;
|