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