tests/offset/shape_type_i/C5

   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"
  14   puts "TODO OCC23068 $os: Error : The volume of result shape is"
  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