1 puts "================"
3 puts "================"
5 #######################################################################
6 # Intersection of two cylinders fails
7 #######################################################################
13 foreach c [directory result*] {
17 restore [locate_data_file bug28222_s1_cyl_read_d2.draw] s1
18 restore [locate_data_file bug28222_s2_cyl_read_d2.draw] s2
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