tests/offset/faces_type_i/F2

   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_1"
  14   puts "TODO OCC23068 $os: Error : The offset is not valid. "
  15   puts "TODO OCC23068 $os: Error : The area of face result_5 of the resulting shape is negative."
  16 }
  17
  18 ellipse w1 0 0 0 15 10
  19 mkedge w1 w1 0 pi/2
  20 trotate w1 0 0 0 1 0 0 90
  21 polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
  22 wire w w1 w2
  23 mkplane w w
  24 revol s w 0 0 0 0 0 1 270
  25
  26 OFFSETSHAPE 1 {s_4} $calcul $type
  27
  28 set volume 0