0031588: Visualization, TKOpenGl - display immediate updates in brackets within frame...
[occt.git] / tests / bugs / modalg_5 / bug24499
1 puts "============"
2 puts "OCC24499"
3 puts "============"
4 puts ""
5 ############################################################################
6 # fixshape produces inverted solid
7 ############################################################################
8
9 pload XSDRAW
10
11 restore [locate_data_file bug24499_solid.brep] a
12 point p 0 0 0
13
14 set cls1 [bclassify a p]
15 if { [regexp {OUT} $cls1] } {
16     puts "CORRECT classification of the 3D-point with the Solid"
17 } else {
18     puts "Faulty : Wrong classification of the 3D-point with the Solid"
19 }
20
21 fixshape result a
22 set cls2 [bclassify result p]
23 if { [regexp {OUT} $cls2] } {
24     puts "CORRECT classification of the 3D-point with the Solid building by fixshape"
25 } else {
26     puts "Faulty : Wrong classification of the 3D-point with the Solid building by fixshape"
27 }