1 puts "================"
3 puts "================"
5 #######################################################################
6 # Intersection of two cylinders fails
7 #######################################################################
13 foreach c [directory result*] {
17 cylinder s1 -35 13.3706576198285 30.5814570420266 0 -0.258819045102521 -0.965925826289068 0 0.965925826289068 -0.258819045102521 11
18 cylinder s2 0 0 0 1 0 0 0 0 -1 16.5
20 intersect result s1 s2
22 foreach c [directory result*] {
25 if {[dval U2-U1] < 1.0e-9} {
26 puts "Error: Wrong curve's range!"
29 xdistcs $c s1 U1 U2 10 2.0e-7
30 xdistcs $c s2 U1 U2 10 2.0e-7
33 set NbCurv [llength [directory result*]]
35 if { $NbCurv == $GoodNbCurv } {
36 puts "OK: Number of curves is good!"
38 puts "Error: $GoodNbCurv is expected but $NbCurv is found!"
45 checkview -screenshot -2d -path ${imagedir}/${test_image}.png