2 puts "OCC565: Can not intersect two trimmed conical surfaces"
8 foreach c [directory result*] {
12 foreach c [directory inf*] {
16 restore [locate_data_file OCC565a.draw] s1
17 restore [locate_data_file OCC565b.draw] s2
19 puts "Preliminary check: intersection work with infinite cones:"
20 if { [catch {intersect inf s1 s2 } catch_result] } {
21 puts "Faulty OCC565: function intersection works wrongly with infinite cones"
24 foreach c [directory inf*] {
25 set ind [string first "3d curve" [whatis $c]]
28 puts "Error: Intersection result (with infinite cones) is not 3D-curve"
35 puts "Error: Empty intersection result (with infinite cones)"
39 trim s1x s1 0 2*pi 0 2.8
40 trim s2x s2 0 2*pi 0 2.8
42 if { [catch {intersect result s1x s2x } catch_result] } {
43 puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
45 foreach c [directory result*] {
48 if {[dval U2-U1] < 1.0e-9} {
49 puts "Error: Wrong curve's range!"
52 xdistcs $c s1 U1 U2 10 1.0e-7
53 xdistcs $c s2 U1 U2 10 1.0e-7
56 set NbCurv [llength [directory result*]]
58 if { $NbCurv == $GoodNbCurv } {
59 puts "OK: Number of curves is good!"
61 puts "Error: $GoodNbCurv is expected but $NbCurv is found!"
68 checkview -screenshot -2d -path ${imagedir}/${test_image}.png