tests/bugs/moddata_2/bug766

   1 puts "========"
   2 puts "OCC766"
   3 puts "========"
   4 puts ""
   5 ###############################
   6 ## Can not project the 3-D point on the ellipse
   7 ###############################
   8
   9 restore [locate_data_file OCC766.draw] c
  10
  11 set result [proj c 30 3.944304526105059e-31 20.0]
  12
  13 set ll [llength $result]
  14
  15 if {$ll > 0} {
  16   puts "OCC770 OK"
  17 } else {
  18   puts "Faulty OCC770"
  19 }
  20
  21 set 2dviewer 1