1 puts "========| OCC565 |========"
2 ##################################
3 ## Can not intersect two trimmed conical surfaces
4 ##################################
6 puts "TODO OCC28016 Linux: Error: 1 is expected but .* is found!"
10 foreach c [directory result*] {
14 foreach c [directory inf*] {
18 restore [locate_data_file OCC565a.draw] s1
19 restore [locate_data_file OCC565b.draw] s2
21 puts "Preliminary check: intersection work with infinite cones:"
22 if { [catch {intersect inf s1 s2 } catch_result] } {
23 puts "Faulty OCC565: function intersection works wrongly with infinite cones"
26 foreach c [directory inf*] {
27 set ind [string first "3d curve" [whatis $c]]
30 puts "Error: Intersection result (with infinite cones) is not 3D-curve"
37 puts "Error: Empty intersection result (with infinite cones)"
41 trim s1x s1 0 2*pi 0 2.8
42 trim s2x s2 0 2*pi 0 2.8
44 if { [catch {intersect result s1x s2x } catch_result] } {
45 puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
47 foreach c [directory result*] {
50 if {[dval U2-U1] < 1.0e-9} {
51 puts "Error: Wrong curve's range!"
54 xdistcs $c s1 U1 U2 10 1.0e-7
55 xdistcs $c s2 U1 U2 10 1.0e-7
58 set NbCurv [llength [directory result*]]
60 if { $NbCurv == $GoodNbCurv } {
61 puts "OK: Number of curves is good!"
63 puts "Error: $GoodNbCurv is expected but $NbCurv is found!"
70 checkview -screenshot -2d -path ${imagedir}/${test_image}.png