tests/bugs/iges/bug663

   1 puts "========================"
   2 puts "OCC663"
   3 puts "========================"
   4 #### Wrong translation of faces on SurfaceOfRevolution
   5 puts ""
   6
   7 igesbrep [locate_data_file D44-11325-6.igs] a 2860
   8
   9 set x 62.5015115293408
  10 set y -56.0926450759605
  11 set z -44.3
  12 vertex v $x $y $z
  13
  14 distmini d a_1 v
  15
  16 set MinDistList [dump d_val]
  17 set MinDist [lindex $MinDistList end]
  18
  19 if {$MinDist > 1e-7} {
  20     puts "Faulty OCC663"
  21 } else {
  22     puts "OCC663 OK"
  23 }