[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

set length 117.81
set 2dviewer 0

##      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
	12	set length 117.81
	13	set 2dviewer 0
	14
	15	## set num [lindex [checksection res] 4]
	16	# if { $num != 0 } {
	17	# puts " Faulty : Result shape is Unclosed !!! "
	18	# }