mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
30 lines
664 B
Plaintext
Executable File
30 lines
664 B
Plaintext
Executable File
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"
|
|
}
|