[occt.git] / tests / bugs / modalg_1 / buc60585_1


puts "========================"
puts "BUC60585"
puts "========================"

restore [locate_data_file buc60585a.brep] s
checkshape s
plane ps 2036.25  -97.5  -1460.499755859375 0.0  -0.75103523489975432  -0.66026212668838646 1.0 0.0 0.0

psection result s ps

checkprops result -l 117.81 
checkshape result
checksection result
checkview -display result -2d -path ${imagedir}/${test_image}.png

##      set num [lindex [checksection res] 4]
#     if { $num != 0 } {
#      puts " Faulty : Result shape is Unclosed !!! "
#      }
Commit	Line	Data
a87752f3	1
	2	puts "========================"
	3	puts "BUC60585"
	4	puts "========================"
	5
	6	restore [locate_data_file buc60585a.brep] s
352ffd73	7	checkshape s
a87752f3	8	plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0
	9
	10	psection result s ps
	11
58cf74e0	12	checkprops result -l 117.81
	13	checkshape result
	14	checksection result
5747059b	15	checkview -display result -2d -path ${imagedir}/${test_image}.png
a87752f3	16
	17	## set num [lindex [checksection res] 4]
	18	# if { $num != 0 } {
	19	# puts " Faulty : Result shape is Unclosed !!! "
	20	# }