tests/bugs/modalg_6/bug27762_2

   1 puts "========"
   2 puts "OCC27762"
   3 puts "========"
   4 puts ""
   5 # This is the second script that tries to reproduce the source of the problem -
   6 # impossibility to project a point on a torus with major radius == 0
   7
   8 torus s 0 10
   9 set out [proj s 1 0 0]
  10 if {[llength $out] != 4} {
  11   puts "Error: projection failed"
  12 } else {
  13   puts "OK : projection passed"
  14 }