tests/bugs/vis/bug389

   1 puts "================"
   2 puts "OCC389"
   3 puts "================"
   4 puts ""
   5
   6 v2dinit
   7
   8 box b 10 10 10
   9
  10 if [catch { OCC389 proj b } res] {
  11    puts "OCC389: Error"
  12    puts "${res}"
  13 } else {
  14    puts "OCC389: OK"
  15 }
  16
  17 v2ddisplay proj
  18 v2dfit
  19 set only_screen2d 1
  20