[occt.git] / tests / bugs / heal / bug24

pload QAcommands

puts "======="
puts "OCC24"
puts "======="
puts ""
###########################################################################
## Recorded modifications are lost when converting from ShapeBuild_ReShape into  ShapeProcess_ShapeContext
## and back
###########################################################################

restore [locate_data_file OCC24.brep] s
checkshape s

explode s f

compound s_1 c
if [catch { OCC24 result s c OCC24 Seq } ] {
  puts "OCC24 ERROR"
} else {
  puts "OCC24 OK"
}

set square 37.6991
set 2dviewer 2
Commit	Line	Data
a8676008	1	pload QAcommands
	2
	3	puts "======="
	4	puts "OCC24"
	5	puts "======="
	6	puts ""
	7	###########################################################################
	8	## Recorded modifications are lost when converting from ShapeBuild_ReShape into ShapeProcess_ShapeContext
	9	## and back
	10	###########################################################################
	11
	12	restore [locate_data_file OCC24.brep] s
	13	checkshape s
	14
	15	explode s f
	16
	17	compound s_1 c
	18	if [catch { OCC24 result s c OCC24 Seq } ] {
	19	puts "OCC24 ERROR"
	20	} else {
	21	puts "OCC24 OK"
	22	}
	23
	24	set square 37.6991
	25	set 2dviewer 2