b58dfc5e |
1 | puts "TODO DEBUG_OCC24121 Debian60-64: Faulty shapes in variables faulty_1 to faulty_" |
2 | puts "TODO DEBUG_OCC24121 Debian60-64: Error : The area of the resulting shape is" |
3 | |
40093367 |
4 | # |
5 | # *10603 |
6 | # |
7 | #Create 3 torus |
8 | set os "ALL" |
9 | if {[array get env os_type] != ""} { |
10 | set os $env(os_type) |
11 | } |
12 | if {[string compare $os "Debian50-64"] != 0 && [string compare $os "Debian60-64"] != 0 && [string compare $os "Mandriva2010-64"] != 0} { |
15f88c12 |
13 | set inst "" |
14 | if { [regexp -nocase {Windows} $os] == 1 } { |
15 | set inst "?" |
16 | } |
228148b3 |
17 | if { [string compare $os "Mandriva2010" ] == 0 } { |
18 | set inst "?" |
19 | } |
3cdfdc9a |
20 | if { [string compare $os "MacOS"] == 0 } { |
21 | set inst "?" |
22 | } |
23 | |
7ef2d866 |
24 | # CR23404 |
dfa3d64f |
25 | puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_" |
8418c617 |
26 | } |
40093367 |
27 | |
49c093ae |
28 | if { [string compare $os "CentOS55-64"] == 0 |
29 | || [string compare $os "Debian40"] == 0 |
30 | || [string compare $os "Debian40-64"] == 0 |
31 | || [string compare $os "Mandriva2008"] == 0 |
32 | || [string compare $os "Mandriva2008-64"] == 0 |
4e57c75e |
33 | || [string compare $os "SL51-64"] == 0 |
34 | || [string compare $os "windows"] == 0 |
49c093ae |
35 | } { |
6aac585a |
36 | puts "TODO OCC22911 $os: Error : The area of the resulting shape is" |
49c093ae |
37 | } |
38 | |
40093367 |
39 | ptorus a0 100 20 |
40 | tcopy a0 a1 |
41 | tcopy a0 a2 |
42 | trotate a1 0 0 0 1 0 0 90 |
43 | trotate a2 0 0 0 0 1 0 90 |
44 | |
45 | bop a0 a1 |
46 | bopfuse x1 |
47 | |
48 | bop x1 a2 |
49 | bopfuse result |
50 | |
51 | set square 197700 |