0026342: No materials are read from STEP
[occt.git] / tests / feat / end
1 ## ==================================
2 ## File : End file for FEAT grids
3 ## Date : 01.02.2012
4 ## ==================================
5
6 if { [isdraw result] } {
7    regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
8
9    #check if result is valid
10    puts [checkshape result]
11    if { $m == 0 } {
12        puts "Error : The feat grid is not valid. The area is 0."
13    }
14
15    if { $square > 0 } {
16       puts "The expected area is $square"
17    }
18    #check of change of square is < 1%
19    if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
20       puts "Error : The area of the resulting shape is $m"
21    }
22    if { $m > 0 } {
23       clear
24       smallview
25       donly result
26       fit
27       xwd $imagedir/${test_image}.png
28    } 
29 } else {
30    puts "Error : The feat grid cannot be built."
31 }
32
33 # to end a test script
34 puts "TEST COMPLETED"