a87752f3 |
1 | puts "==================================" |
2 | puts "BUC60618" |
3 | puts "==================================" |
4 | puts "There was a problem filter of solutions. Several solutions were skipped." |
5 | puts "" |
6 | puts "It takes visual check for this BUG" |
7 | puts "==================================" |
8 | puts "" |
9 | set len_ch1 3568 |
10 | set len_ch2 9964 |
11 | set len_ch3 2082 |
12 | set len_ch4 32696 |
13 | set len_ch5 1681 |
14 | set len_ch6 3097 |
15 | set len_ch7 1545 |
16 | set len_ch8 772 |
17 | |
18 | circle c1 0 0 100 |
19 | circle c2 500 -400 300 |
20 | circle c3 300 200 200 |
21 | cirtang result c1 c2 c3 |
22 | |
23 | set info1 [length $result_1] |
24 | set info2 [length $result_2] |
25 | set info3 [length $result_3] |
26 | set info4 [length $result_4] |
27 | set info5 [length $result_5] |
28 | set info6 [length $result_6] |
29 | set info7 [length $result_7] |
30 | set info8 [length $result_8] |
31 | |
32 | regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1 |
33 | regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2 |
34 | regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3 |
35 | regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4 |
36 | regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5 |
37 | regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6 |
38 | regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7 |
39 | regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8 |
40 | |
41 | set len_int1 [expr int($len1)] |
42 | set len_int2 [expr int($len2)] |
43 | set len_int3 [expr int($len3)] |
44 | set len_int4 [expr int($len4)] |
45 | set len_int5 [expr int($len5)] |
46 | set len_int6 [expr int($len6)] |
47 | set len_int7 [expr int($len7)] |
48 | set len_int8 [expr int($len8)] |
49 | |
50 | if { ${len_int1} != ${len_ch1} |
51 | || ${len_int2} != ${len_ch2} |
52 | || ${len_int3} != ${len_ch3} |
53 | || ${len_int4} != ${len_ch4} |
54 | || ${len_int5} != ${len_ch5} |
55 | || ${len_int6} != ${len_ch6} |
56 | || ${len_int7} != ${len_ch7} |
57 | || ${len_int8} != ${len_ch8} } { |
58 | puts "Error : Length is invalid" |
59 | } |