tests/bugs/xde/bug659

   1 puts "================"
   2 puts "OCC659"
   3 puts "================"
   4 puts ""
   5 #############################################
   6 ## Units are not taken into account while translating IGES surfaces
   7 #############################################
   8
   9 param read.surfacecurve.mode -2
  10
  11 set filepath [locate_data_file D44-11325-6.igs]
  12 if [catch { igesbrep $filepath a 6425 } res] {
  13    puts "Faulty OCC659 first: here is reading problem"
  14 }
  15
  16 renamevar a_1 a1
  17
  18 param read.surfacecurve.mode -3
  19
  20 if [catch { igesbrep . a 6425 } res] {
  21    puts "Faulty OCC659 second: here is reading problem"
  22 }
  23
  24 renamevar a_1 a2
  25
  26 set size1 [ bounding a1 -save x1_a1 yy zz x2_a1 yy zz ]
  27 set size2 [ bounding a2 -save x1_a2 yy zz x2_a2 yy zz ]
  28
  29 set dim2 [ dval x2_a2-x1_a2 ]
  30 set dim1 [ dval x2_a1-x1_a1 ]
  31
  32 set siz [expr ${dim1} / ${dim2}]
  33 if { $siz > 25} {
  34    puts "Faulty OCC659"
  35 } else {
  36   puts " OCC659 OK"
  37 }