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