a87752f3 |
1 | puts "========================" |
2 | puts " OCC331 " |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################### |
6 | ## Dark spot on a sphere after nurbsconvert |
7 | ####################################################### |
8 | |
9 | box b -5 -5 -5 10 10 10 |
10 | psphere s 6 |
11 | |
12 | bfuse res s b |
13 | |
14 | nurbsconvert result res |
15 | |
16 | tclean result |
17 | vinit |
18 | vdisplay result |
19 | vfit |
20 | vsetdispmode result 1 |
21 | vfit |
22 | |
23 | set tri 0 |
24 | set nod 0 |
25 | set info [trinfo result] |
26 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
27 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
28 | puts [format " tri= %s nod= %s " $tri $nod] |
29 | |
30 | if { $tri != 3808 && $nod != 2188} { |
31 | puts " OCC331: Looks like OK, but visual checking is required!!!" |
32 | } else { |
33 | puts " OCC331: Faulty - Dark spot on a sphere after nurbsconvert" |
34 | } |
35 | |
36 | |
37 | set only_screen 1 |
38 | |
39 | |