tests/bugs/fclasses/bug25635_1

   1 puts "============"
   2 puts "OCC25635"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Wrong result of 2D-extrema between two ellipsis
   7 ######################################################
   8
   9 ellipse c1 0 0 2 1
  10 ellipse c2 4 0 2 1
  11
  12 set info [2dextrema c1 c2]
  13
  14 set tol_abs 7.e-5
  15 set tol_rel 0.01
  16
  17 #-1
  18 regexp "dist 1: +(\[-0-9.+eE\]+)" ${info} full dist_1
  19
  20 set expected_dist_1 0.
  21 checkreal "Distance" ${dist_1} ${expected_dist_1} ${tol_abs} ${tol_rel}
  22
  23 #-2
  24 set dump_list [dump ext_1]
  25
  26 regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} ${dump_list} full Parameter1 Parameter2
  27 regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full OriginX OriginY
  28 regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+) } ${dump_list} full AxisX AxisY
  29
  30 set expected_Parameter1 0.
  31 checkreal "Parameter1" ${Parameter1} ${expected_Parameter1} ${tol_abs} ${tol_rel}
  32
  33 set expected_Parameter2 0.
  34 checkreal "Parameter2" ${Parameter2} ${expected_Parameter2} ${tol_abs} ${tol_rel}
  35
  36 set expected_OriginX 2.
  37 checkreal "OriginX" ${OriginX} ${expected_OriginX} ${tol_abs} ${tol_rel}
  38
  39 set expected_OriginY 0.0
  40 checkreal "OriginY" ${OriginY} ${expected_OriginY} ${tol_abs} ${tol_rel}
  41
  42 set expected_AxisX 1.
  43 checkreal "AxisX" ${AxisX} ${expected_AxisX} ${tol_abs} ${tol_rel}
  44
  45 set expected_AxisY 0.
  46 checkreal "AxisY" ${AxisY} ${expected_AxisY} ${tol_abs} ${tol_rel}