352ffd73 |
1 | puts "============" |
2 | puts "BUC60858" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################################### |
6 | ## When I gave command "vdisplay a" , where a is shape restored from attached file.DRAW crashes |
7 | ## with segmentation fault. Exception is raised in the file BRepMesh/triangle.cxx. |
8 | ###################################################################### |
9 | |
10 | restore [locate_data_file BUC60858.brep] result |
11 | |
12 | tclean result |
13 | isos 0 |
14 | vinit |
15 | incmesh result 0.01 |
16 | vdisplay result |
17 | vfit |
18 | |
19 | vclear |
20 | vdisplay result |
21 | vsetdispmode result 1 |
22 | |
23 | isos result 0 |
24 | triangles result |
25 | |
26 | set info [trinfo result] |
27 | regexp { +([-0-9.+eE]+) +triangles} $info full tr |
28 | regexp { +([-0-9.+eE]+) +nodes} $info full nd |
29 | |
30 | if { $tr == 0 || $nd == 0 } { |
31 | puts "Error : here is shading problem" |
32 | } |
33 | |
34 | set 3dviewer 1 |
35 | |
36 | |
37 | |