[occt.git] / tests / bugs / modalg_2 / bug307_2

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
puts "TODO OCC12345 ALL: Error : The area of result shape is"

pload QAcommands

puts "================"
puts "OCC307"
puts "SAM1265"
puts "================"
puts ""

restore [locate_data_file OCC307.brep] f 

set che [checkshape f]
if { [regexp {Faulty} $che] == 1} {
    puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
} else {
    puts "OCC307 OK: Source shape is valid"
}

explode f f

renamevar f w

explode w w

OCC307 result1 f_4 w_6 1
OCC307 result2 f_5 result1 1

checkshape result1
renamevar result2 result

checkprops result -s 0 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
58cf74e0	2	puts "TODO OCC12345 ALL: Error : The area of result shape is"
a87752f3	3
	4	pload QAcommands
	5
	6	puts "================"
	7	puts "OCC307"
	8	puts "SAM1265"
	9	puts "================"
	10	puts ""
	11
	12	restore [locate_data_file OCC307.brep] f
	13
	14	set che [checkshape f]
	15	if { [regexp {Faulty} $che] == 1} {
	16	puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
	17	} else {
	18	puts "OCC307 OK: Source shape is valid"
	19	}
	20
	21	explode f f
	22
	23	renamevar f w
	24
	25	explode w w
	26
	27	OCC307 result1 f_4 w_6 1
	28	OCC307 result2 f_5 result1 1
	29
352ffd73	30	checkshape result1
a87752f3	31	renamevar result2 result
a87752f3	32
58cf74e0	33	checkprops result -s 0
58cf74e0	34	checkshape result
5747059b	35	checkview -display result -2d -path ${imagedir}/${test_image}.png