tests/bugs/moddata_2/bug429

   1 puts "========================"
   2 puts " OCC429 "
   3 puts "========================"
   4 puts ""
   5 #######################################
   6 ## Projection for a point on a surface works wrong
   7 #######################################
   8
   9 restore [locate_data_file OCC429a.draw] a
  10 restore [locate_data_file OCC429b.draw] b
  11
  12 intersect i a b
  13
  14 cvalue i_2 0.43213918 x y z
  15 point p x y z
  16 proj b x y z
  17
  18 set err1 [string range [dump ext_1] 55 64]
  19 set err2 [string range [dump ext_2] 55 64]
  20 set err3 [string range [dump ext_3] 55 64]
  21 set err4 [string range [dump ext_4] 55 64]
  22 set err5 [string range [dump ext_5] 55 64]
  23 set err6 [string range [dump ext_6] 55 64]
  24
  25 if { $err1 != "Parameters" || $err2 != "Parameters" || $err3 != "Parameters" || $err4 != "Parameters" || $err5 != "Parameters" || $err6 != "Parameters" } {
  26     puts " OCC286 OK : Projection for a point on a surface works properly"
  27 } else {
  28     puts "Faulty OCC429 : Attempt to project the point on surface gives incorrect result"
  29 }
  30
  31 checkview -display result -2d -path ${imagedir}/${test_image}.png
  32