Commit | Line | Data |
---|---|---|
40093367 | 1 | set os "ALL" |
2 | if {[array get env os_type] != ""} { | |
3 | set os $env(os_type) | |
4 | } | |
7c57b71e PK |
5 | ##if { |
6 | ## [string compare $os "Debian40" ] == 0 | |
7 | ## || [string compare $os "Debian50-64" ] == 0 | |
8 | ## || [string compare $os "Debian60-64" ] == 0 | |
9 | ## || [string compare $os "Mandriva2008" ] == 0 | |
10 | ## || [string compare $os "Mandriva2010" ] == 0 | |
11 | ## || [string compare $os "Mandriva2010-64"] == 0 | |
12 | ## || [string compare $os "SUSE10-64"] == 0 | |
13 | ## || [regexp {Windows} $os] == 1 | |
14 | ## } { | |
9db37f0e | 15 | puts "TODO ?OCC23068 $os: An exception was caught" |
7c57b71e PK |
16 | puts "TODO ?OCC23068 $os: \\*\\* Exception \\*\\*" |
17 | puts "TODO ?OCC23068 $os: TEST INCOMPLETE" | |
18 | ##} else { | |
19 | puts "TODO ?OCC23068 $os: Error : The offset is not valid. The volume is" | |
20 | ##} | |
40093367 | 21 | |
22 | ellipse w1 0 0 0 15 10 | |
23 | mkedge w1 w1 0 pi/2 | |
24 | trotate w1 0 0 0 1 0 0 90 | |
25 | polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0 | |
26 | wire w w1 w2 | |
27 | mkplane w w | |
28 | revol s w 0 0 0 0 0 1 90 | |
29 | ||
30 | OFFSETSHAPE 1 {s_4 s_5} $calcul $type | |
31 | ||
32 | set volume 0 |