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" }