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
|
puts "========================"
puts "OCC23643"
puts "========================"
puts ""
#######################################################################
# Intersection algorithm produces B-Spline curve in case of coaxial cones
#######################################################################
restore [locate_data_file bug23643_qf3.brep] b
explode b
copy b_1 f1
copy b_2 f2
mksurface s1 f1
mksurface s2 f2
trim s1t s1 0 2*pi -18 10
trim s2t s2 0 2*pi -18 10
intersect result s1t s2t
set log [dump result]
if {[regexp {Trimmed +curve} ${log}]} {
puts "Intersection algorithm work OK"
} else {
puts "Error: Intersection algorithm work bad"
}
|
