[occt.git] / tests / bugs / modalg / bug307_1

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
puts "TODO OCC12345 ALL: Error : The square 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 0
OCC307 result2 f_5 result1 0

checkshape result1
renamevar result2 result

set square 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
	2	puts "TODO OCC12345 ALL: Error : The square of result shape is"
	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 0
	28	OCC307 result2 f_5 result1 0
	29
352ffd73	30	checkshape result1
a87752f3	31	renamevar result2 result
	32
	33	set square 0
	34	set 2dviewer 0
	35
	36