40093367 |
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 "Mandriva2010"] == 0 |
8 | } { |
9 | puts "TODO OCC23068 $os: An exception was caught" |
10 | puts "TODO OCC23068 $os: \\*\\* Exception \\*\\*" |
11 | puts "TODO OCC23068 $os: TEST INCOMPLETE" |
12 | } else { |
13 | puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_2" |
6aac585a |
14 | puts "TODO OCC23068 $os: Error : The volume of the resulting shape is" |
40093367 |
15 | } |
16 | |
17 | ellipse w1 0 0 0 15 10 |
18 | mkedge w1 w1 0 pi/2 |
19 | trotate w1 0 0 0 1 0 0 90 |
20 | polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0 |
21 | wire w w1 w2 |
22 | mkplane w w |
23 | revol s w 0 0 0 0 0 1 90 |
24 | |
25 | OFFSETSHAPE 1 {} $calcul $type |
26 | |
27 | set volume 0 |