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


puts "================"
puts "OCC337"
puts "================"
puts ""
############################################
## It's impossible to fuse two solids in the file attached.
############################################

restore [locate_data_file OCC337_clone1.brep] a 
explode a

set che [checkshape a_1]

if { [regexp {Faulty} $che ] == 1 } {
    puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
    puts "Body of the script was NOT executed"
    renamevar a_1 result
} else {
    puts "OCC337 OK (shape 1): Source shape is valid"
    set che [checkshape a_2]
    if { [regexp {Faulty} $che ] == 1 } {
	puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
	puts "Body of the script was NOT executed"
	renamevar a_2 result
    } else {
	puts "OCC337 OK (shape 2): Source shape is valid"
	bfuse result a_1 a_2
    }
}

set square 35009.9
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "================"
	3	puts "OCC337"
	4	puts "================"
	5	puts ""
	6	############################################
	7	## It's impossible to fuse two solids in the file attached.
	8	############################################
	9
	10	restore [locate_data_file OCC337_clone1.brep] a
	11	explode a
	12
	13	set che [checkshape a_1]
	14
	15	if { [regexp {Faulty} $che ] == 1 } {
	16	puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
	17	puts "Body of the script was NOT executed"
	18	renamevar a_1 result
	19	} else {
	20	puts "OCC337 OK (shape 1): Source shape is valid"
	21	set che [checkshape a_2]
	22	if { [regexp {Faulty} $che ] == 1 } {
	23	puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
	24	puts "Body of the script was NOT executed"
	25	renamevar a_2 result
	26	} else {
	27	puts "OCC337 OK (shape 2): Source shape is valid"
	28	bfuse result a_1 a_2
	29	}
	30	}
	31
	32	set square 35009.9
	33	set 2dviewer 0
	34
	35
	36
	37