[occt.git] / tests / bugs / modalg_5 / bug24499

puts "============"
puts "OCC24499"
puts "============"
puts ""
############################################################################
# fixshape produces inverted solid
############################################################################

pload XSDRAW

restore [locate_data_file bug24499_solid.brep] a
point p 0 0 0

set cls1 [bclassify a p]
if { [regexp {OUT} $cls1] } {
    puts "CORRECT classification of the 3D-point with the Solid"
} else {
    puts "Faulty : Wrong classification of the 3D-point with the Solid"
}

fixshape result a
set cls2 [bclassify result p]
if { [regexp {OUT} $cls2] } {
    puts "CORRECT classification of the 3D-point with the Solid building by fixshape"
} else {
    puts "Faulty : Wrong classification of the 3D-point with the Solid building by fixshape"
}
Commit	Line	Data
6b371aa5	1	puts "============"
	2	puts "OCC24499"
	3	puts "============"
	4	puts ""
	5	############################################################################
	6	# fixshape produces inverted solid
	7	############################################################################
	8
7075ef95	9	pload XSDRAW
7075ef95	10
6b371aa5	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	}