Integration part of tests of grid chl
[occt.git] / tests / bugs / step / bug19895
1 puts "=========="
2 puts "PRO19895"
3 puts "=========="
4
5 #############################################################################
6 ## There is wrong tolerance after reading of the model in optimaze mode (C30). Retrive entity number 2139 from file
7 ## "bm4_db_punch_a.stp" and will obtaine tolerance. It is very big and isolains extend from entity. 
8 #############################################################################
9
10 stepread [locate_data_file bm4_db_punch_a.stp] a *
11
12 tpcompound b
13 isos b 0
14 isos b 3
15 tpcompound result
16
17 tpdraw 2139
18
19 puts [checkshape tp_2139]
20 puts [checkshape tp_2139 r]
21
22 set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ]
23 puts "MaxTolerance = $MaxTolerance"
24 if { $MaxTolerance > 1 } {
25     puts "Error : Tolerance of shape is more then 1.0"
26 }
27
28 set 2dviewer 0
29