[occt.git] / tests / bugs / moddata_3 / bug23830

puts "================"
puts "OCC23830"
puts "================"
puts ""
#######################################################################
# BRepExtrema_DistShapeShape does not find intersection of face with edge
#######################################################################

restore [locate_data_file bug23830_face.brep] s
mksurface s s

set Indices {1 2 6 7 11 16 21 36 41 42}

foreach i ${Indices} {
  restore [locate_data_file bug23830_circle$i.brep] c_$i
  mkcurve c_$i c_$i
  extrema c_$i s
  if { [isdraw ext_1] } {
    mkedge e ext_1
    regexp {Mass +: +([-0-9.+eE]+)} [lprops e] full l
    if {$l > 1e-12} {
      puts "Error: invalid result"
    }
    renamevar ext_1 r_$i
  }
}

smallview
l
l
l
l
l
l
l
l
erase
display s
foreach i ${Indices} { if {[isdraw r_$i]} {display r_$i} }
fit
set only_screen_axo 1
Commit	Line	Data
b659a6dc	1	puts "================"
	2	puts "OCC23830"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# BRepExtrema_DistShapeShape does not find intersection of face with edge
	7	#######################################################################
	8
	9	restore [locate_data_file bug23830_face.brep] s
	10	mksurface s s
	11
	12	set Indices {1 2 6 7 11 16 21 36 41 42}
	13
	14	foreach i ${Indices} {
	15	restore [locate_data_file bug23830_circle$i.brep] c_$i
	16	mkcurve c_$i c_$i
	17	extrema c_$i s
	18	if { [isdraw ext_1] } {
	19	mkedge e ext_1
	20	regexp {Mass +: +([-0-9.+eE]+)} [lprops e] full l
	21	if {$l > 1e-12} {
	22	puts "Error: invalid result"
	23	}
	24	renamevar ext_1 r_$i
	25	}
	26	}
	27
	28	smallview
	29	l
	30	l
	31	l
	32	l
	33	l
	34	l
	35	l
	36	l
	37	erase
	38	display s
	39	foreach i ${Indices} { if {[isdraw r_$i]} {display r_$i} }
	40	fit
	41	set only_screen_axo 1