tests/bugs/moddata/bug49_1

   1
   2 puts "========"
   3 puts "OCC49"
   4 puts "========"
   5
   6 pload QAcommands
   7
   8 pcylinder c 10 20
   9
  10 set result [OCC49 c]
  11
  12 if {$result == 1} {
  13    puts "OCC49: OK"
  14 } else {
  15    puts "Error : OCC49"
  16 }
  17
  18 set 2dviewer 0