1 -- Created on: 2001-05-31
2 -- Created by: Peter KURNEV
3 -- Copyright (c) 2001-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
25 --- auxiliary class to display intermediate results
26 --- in Draw's winowds for the debugging purposes
30 ListOfShape from TopTools,
35 DrawListOfShape (myclass;
36 aList : ListOfShape from TopTools;
37 aName : CString from Standard);
39 --- Display in 3D-view shapes from the ListOfShape <aList>
40 --- aName is base name of shape. Actual name for each
41 --- subsequent shape will be aName+"_#", where
42 --- # - is ordered index of the shape in <aList>
44 DrawListOfEdgesWithPC (myclass;
45 aFace : Face from TopoDS;
46 aList : ListOfShape from TopTools;
47 aName : CString from Standard);
49 --- Display in 2D-view the edges from the ListOfShape <aList>,
50 --- that have P-curves for the face <aFace>
51 --- aName is base name of shape. Actual name for each
52 --- subsequent shape will be aName+"_#", where
53 --- # - is ordered index of the shape in <aList>
55 DrawListOfEdgesWithPC (myclass;
56 aFace : Face from TopoDS;
57 aList : ListOfShape from TopTools;
58 anInd : Integer from Standard;
59 aName : CString from Standard);
61 --- Display in 2D-view the edges from the ListOfShape <aList>,
62 --- that have P-curves for the face <aFace>
63 --- aName is base name of shape. Actual name for each
64 --- shape will be aName+"_anInd"
66 DrawEdgeWithPC (myclass;
67 aFace : Face from TopoDS;
68 aEdge : Edge from TopoDS;
69 aName : CString from Standard);
71 --- Display in 2D-view the edge,
72 --- that has P-curve for the face <aFace>
73 --- aName is the name of shape.
77 --- Wait for user's keystroke