-- Created on: 2000-10-05 -- Created by: Andrey BETENEV -- Copyright (c) 2000-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. class ActorWrite from STEPCAFControl inherits ActorWrite from STEPControl ---Purpose: Extends ActorWrite from STEPControl by analysis of -- whether shape is assembly (based on information from DECAF) uses Shape from TopoDS, MapOfShape from TopTools is Create returns mutable ActorWrite; IsAssembly (me; S: in out Shape from TopoDS) returns Boolean is redefined; ---Purpose: Check whether shape S is assembly -- Returns True if shape is registered in assemblies map SetStdMode (me: mutable; stdmode: Boolean = Standard_True); ---Purpose: Set standard mode of work -- In standard mode Actor (default) behaves exactly as its -- ancestor, also map is cleared ClearMap (me: mutable); ---Purpose: Clears map of shapes registered as assemblies RegisterAssembly (me: mutable; S: Shape from TopoDS); ---Purpose: Registers shape to be written as assembly -- The shape should be TopoDS_Compound (else does nothing) fields myStdMode: Boolean; myMap: MapOfShape from TopTools; end ActorWrite;