tests/bugs/modalg_7/bug23942

   1 puts "TODO OCC23942 ALL: is not equal"
   2
   3 puts "========"
   4 puts "OCC23942"
   5 puts "========"
   6 puts ""
   7 #########################################################
   8 # Pipe algorithms unrobust to number rounding
   9 #########################################################
  10
  11 #
  12 ### 1
  13 #
  14 interpol c [locate_data_file bug23942_points.txt]
  15 tuyau r_1 c 5
  16
  17 decho off
  18 dlog reset
  19 dlog on
  20
  21 dump r_1
  22
  23 set info_1 [dlog get]
  24 dlog reset
  25 dlog off
  26 decho on
  27
  28 regexp {Degrees :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full X Degrees_1
  29 regexp {NbPoles :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full X NbPoles_1
  30 regexp {NbKnots :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_1} full UKnots_1 VKnots_1
  31 puts "Degrees_1 = ${Degrees_1}"
  32 puts "NbPoles_1 = ${NbPoles_1}"
  33 puts "UKnots_1 = ${UKnots_1}"
  34 puts "VKnots_1 = ${VKnots_1}"
  35
  36 #
  37 ### 2
  38 #
  39 save c ${imagedir}/cc
  40 restore ${imagedir}/cc
  41 tuyau r_2 cc 5
  42
  43 decho off
  44 dlog reset
  45 dlog on
  46
  47 dump r_2
  48
  49 set info_2 [dlog get]
  50 dlog reset
  51 dlog off
  52 decho on
  53
  54 regexp {Degrees :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full X Degrees_2
  55 regexp {NbPoles :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full X NbPoles_2
  56 regexp {NbKnots :+([-0-9.+eE]+) +([-0-9.+eE]+)} ${info_2} full UKnots_2 VKnots_2
  57 puts "Degrees_2 = ${Degrees_2}"
  58 puts "NbPoles_2 = ${NbPoles_2}"
  59 puts "UKnots_2 = ${UKnots_2}"
  60 puts "VKnots_2 = ${VKnots_2}"
  61
  62 #
  63 ### 3
  64 #
  65 if {${Degrees_1} != ${Degrees_2}} {
  66    puts "Error : Degrees_1 is not equal Degrees_2"
  67 } else {
  68    puts "OK : Degrees_1 is equal Degrees_2"
  69 }
  70 if {${NbPoles_1} != ${NbPoles_2}} {
  71    puts "Error : NbPoles_1 is not equal NbPoles_2"
  72 } else {
  73    puts "OK : NbPoles_1 is equal NbPoles_2"
  74 }
  75 if {${UKnots_1} != ${UKnots_2}} {
  76    puts "Error : UKnots_1 is not equal UKnots_2"
  77 } else {
  78    puts "OK : UKnots_1 is equal UKnots_2"
  79 }
  80 if {${VKnots_1} != ${VKnots_2}} {
  81    puts "Error : VKnots_1 is not equal VKnots_2"
  82 } else {
  83    puts "OK : VKnots_1 is equal VKnots_2"
  84 }
  85
  86 checkview -display r_1 -2d -path ${imagedir}/${test_image}_1.png
  87 checkview -display r_2 -2d -path ${imagedir}/${test_image}_2.png