mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-13 23:27:24 +08:00
42 lines
873 B
Plaintext
Executable File
42 lines
873 B
Plaintext
Executable File
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
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|