5 #############################################################
6 # Intersection curve is not continued to the surface boundary
7 #############################################################
11 trotate a1 0 0 0 1 0 0 90
19 bopcurves a0_1 a1_1 -2d
25 regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
26 puts "Degree=${Degree}"
28 puts "KnotsPoles=${KnotsPoles}"
32 set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
33 regexp ${exp_string} ${log} full X_first Y_first Z_first
36 puts "X_first=${X_first}"
37 puts "Y_first=${Y_first}"
38 puts "Z_first=${Z_first}"
42 set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
43 regexp ${exp_string} ${log} full X_end Y_end Z_end
51 set tol_abs [checkmaxtol a0]
54 set expected_X_first 80.
55 checkreal "X_first" ${X_first} ${expected_X_first} ${tol_abs} ${tol_rel}
56 set expected_Y_first 0.
57 checkreal "Y_first" ${Y_first} ${expected_Y_first} ${tol_abs} ${tol_rel}
58 set expected_Z_first 0.
59 checkreal "Z_first" ${Z_first} ${expected_Z_first} ${tol_abs} ${tol_rel}
62 set expected_X_end 120.
63 checkreal "X_end" ${X_end} ${expected_X_end} ${tol_abs} ${tol_rel}
65 checkreal "Y_end" ${Y_end} ${expected_Y_end} ${tol_abs} ${tol_rel}
67 checkreal "Z_end" ${Z_end} ${expected_Z_end} ${tol_abs} ${tol_rel}