0e94a94e |
1 | |
2 | puts "===========" |
3 | puts "BUC60707" |
4 | puts "===========" |
5 | puts "" |
6 | ################################################# |
7 | ## Fillets created in CasCade version 3 do not display as shaded surfaces. |
8 | ################################################# |
9 | restore [locate_data_file buc60707a.brep] result |
10 | puts [checkshape result] |
11 | |
12 | tclean result |
13 | incmesh result .1 |
14 | triangles result |
15 | set info [trinfo result] |
16 | regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl |
17 | |
18 | if { $Maxtriangl < 1 } { |
19 | puts "Error : inside mesh for shading wasn't build" |
20 | } |
21 | |
22 | set 3dviewer 0 |
23 | |
24 | |
25 | |