0023087: Upgrade of the OCCT test system
[occt.git] / tests / offset / faces_type_i / F2
CommitLineData
40093367 1set os "ALL"
2if {[array get env os_type] != ""} {
3 set os $env(os_type)
4}
5
6if {
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_1"
14 puts "TODO OCC23068 $os: Error : The offset is not valid. "
15 puts "TODO OCC23068 $os: Error : Square of face result_5 of result shape is negative."
16}
17
18ellipse w1 0 0 0 15 10
19mkedge w1 w1 0 pi/2
20trotate w1 0 0 0 1 0 0 90
21polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
22wire w w1 w2
23mkplane w w
24revol s w 0 0 0 0 0 1 270
25
26OFFSETSHAPE 1 {s_4} $calcul $type
27
28set volume 0