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 ]
  27 set size2 [ bounding a2 ]
  28
  29 set x1_a1 [ lindex $size1 0 ]
  30 set x2_a1 [ lindex $size1 3 ]
  31
  32 set x1_a2 [ lindex $size2 0 ]
  33 set x2_a2 [ lindex $size2 3 ]
  34
  35 set dim2 [ expr $x2_a2 - $x1_a2 ]
  36 set dim1 [ expr $x2_a1 - $x1_a1 ]
  37
  38 set siz [expr ${dim1} / ${dim2}]
  39 if { $siz > 25} {
  40    puts "Faulty OCC659"
  41 } else {
  42   puts " OCC659 OK"
  43 }