[occt.git] / tests / bugs / vis / bug641

puts "================"
puts "OCC641"
puts "SAM1559"
puts "================"
puts ""
#################################################
## Exception during attemption to display shape ==>SAM1559 (#2901)
#################################################

restore [locate_data_file OCC641.brep] a

vinit
vdisplay a
vfit

copy a b

if [catch {tmirror result 0 0 0 0 1 0 } res] {
   puts "Error : function tmirror works wrongly"
} else {
   if [catch { vdisplay result } res] {
      puts "Error : result shape is displaed wrongly"
   }
   vfit
}

set only_screen 1
Commit	Line	Data
352ffd73	1	puts "================"
	2	puts "OCC641"
	3	puts "SAM1559"
	4	puts "================"
	5	puts ""
	6	#################################################
	7	## Exception during attemption to display shape ==>SAM1559 (#2901)
	8	#################################################
	9
	10	restore [locate_data_file OCC641.brep] a
	11
	12	vinit
	13	vdisplay a
	14	vfit
	15
	16	copy a b
	17
	18	if [catch {tmirror result 0 0 0 0 1 0 } res] {
	19	puts "Error : function tmirror works wrongly"
	20	} else {
	21	if [catch { vdisplay result } res] {
	22	puts "Error : result shape is displaed wrongly"
	23	}
	24	vfit
	25	}
	26
	27	set only_screen 1
	28