puts "============" puts "OCC22723" puts "============" puts "" ####################################################################### # Wrong intersection curve for the case of intersection between cylinder and plane ####################################################################### set BugNumber OCC22723 restore [locate_data_file bug22723_fz44.brep] b1 restore [locate_data_file bug22723_fz7.brep] b2 mksurface s1 b1 mksurface s2 b2 intersect i s1 s2 regexp {Parameters : ([-0-9.+eE]+) ([-0-9.+eE]+)} [dump i] full a1 a2 set status 0 if { ${a1}>=0 } { if { ${a2}<6.29 } { set status 1 } } if { ${status}==1 } { puts "OK ${BugNumber}" } else { puts "Faulty ${BugNumber}" } set 3dviewer 0