tests/blend/simple/H3

   1 set os "ALL"
   2 if {[array get env os_type] != ""} {
   3   set os $env(os_type)
   4 }
   5 if {[string compare $os "Debian40"] == 0 || [string compare $os "Mandriva2008"] == 0} {
   6   puts "TODO OCC22817 All: TEST INCOMPLETE"
   7 } else {
   8   puts "TODO OCC22817 All: Faulty shapes in variables faulty_1 to faulty_4"
   9 }
  10
  11 ellipse w1 0 0 0 15 10
  12 mkedge w1 w1 0 pi/2
  13 trotate w1 0 0 0 1 0 0 90
  14 polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
  15 wire w w1 w2
  16 mkplane w w
  17 revol s w 0 0 0 0 0 1 270
  18 tscale s 0 0 0 SCALE1
  19 explode s E
  20 blend result s 1*SCALE1 s_1 1*SCALE1 s_4 1*SCALE1 s_9
  21
  22 set square 425726