tests/bugs/modalg_6/bug26675

   1 puts "============"
   2 puts "OCC26675"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## 0026675: Eliminate normalization of coordinates in ApproxInt package
   7 ###############################
   8
   9 set GoodNbCurv 1
  10
  11 pload QAcommands
  12 OCC26675_1 ss
  13
  14 intersect res ss_1 ss_2
  15
  16 set che [whatis res]
  17 set ind [string first "3d curve" $che]
  18 if {${ind} >= 0} {
  19   #Only variable "res" exists
  20   renamevar res res_1
  21 }
  22
  23
  24 set ic 1
  25 set AllowRepeate 1
  26 while { $AllowRepeate != 0 } {
  27   set che [whatis res_$ic]
  28   set ind [string first "3d curve" $che]
  29   if {${ind} < 0} {
  30     set AllowRepeate 0
  31   } else {
  32     display res_$ic
  33
  34     bounds res_$ic U1 U2
  35
  36     dval U1
  37     dval U2
  38
  39     if {[dval U2-U1] < 1.0e-20} {
  40       puts "Error: Wrong curve's range!"
  41     }
  42
  43     xdistcs res_$ic ss_1 U1 U2 10 4.6e-6
  44     xdistcs res_$ic ss_2 U1 U2 10 4.3e-6
  45
  46     incr ic
  47   }
  48 }
  49
  50 if {[expr {$ic - 1}] == $GoodNbCurv} {
  51   puts "OK: Curve Number is good!"
  52 } else {
  53   puts "Error: Curve Number is bad!"
  54 }
  55
  56 smallview
  57 fit
  58 checkview -screenshot -2d -path ${imagedir}/${test_image}.png