340054e1 |
1 | puts "============" |
2 | puts "OCC27227" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################# |
6 | # Intersection curve is not continued to the surface boundary |
7 | ############################################################# |
8 | |
9 | ptorus a0 100 20 |
10 | tcopy a0 a1 |
11 | trotate a1 0 0 0 1 0 0 90 |
12 | |
13 | explode a0 f |
14 | explode a1 f |
15 | |
16 | smallview |
17 | donly a0_1 a1_1 |
18 | |
19 | bopcurves a0_1 a1_1 -2d |
20 | |
21 | disp c_5 |
22 | |
23 | set log [dump c_5] |
24 | |
25 | regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles |
26 | puts "Degree=${Degree}" |
27 | puts "Poles=${Poles}" |
28 | puts "KnotsPoles=${KnotsPoles}" |
29 | puts "" |
30 | |
31 | set Pole 1 |
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 |
34 | |
35 | puts "Pole=${Pole}" |
36 | puts "X_first=${X_first}" |
37 | puts "Y_first=${Y_first}" |
38 | puts "Z_first=${Z_first}" |
39 | puts "" |
40 | |
41 | set Pole ${Poles} |
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 |
44 | |
45 | puts "Pole=${Pole}" |
46 | puts "X_end=${X_end}" |
47 | puts "Y_end=${Y_end}" |
48 | puts "Z_end=${Z_end}" |
49 | puts "" |
50 | |
51 | set tol_abs [checkmaxtol a0] |
52 | set tol_rel 0.01 |
53 | |
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} |
60 | puts "" |
61 | |
62 | set expected_X_end 120. |
63 | checkreal "X_end" ${X_end} ${expected_X_end} ${tol_abs} ${tol_rel} |
64 | set expected_Y_end 0. |
65 | checkreal "Y_end" ${Y_end} ${expected_Y_end} ${tol_abs} ${tol_rel} |
66 | set expected_Z_end 0. |
67 | checkreal "Z_end" ${Z_end} ${expected_Z_end} ${tol_abs} ${tol_rel} |
68 | puts "" |