1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
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
|
