tests/bugs/modalg_5/bug25969

   1 puts "================"
   2 puts "CR25969"
   3 puts "================"
   4 puts ""
   5 ###############################################
   6 ## Wrong result obtained by 2d classifier algorithm.
   7 ###############################################
   8
   9 pload DCAF
  10
  11 Open [locate_data_file bug25969_pal22851.cbf] D
  12
  13 GetShape D 0:1:15:1:1:2 b1
  14 GetShape D 0:1:29:1:1:2 b2
  15
  16 explode b1
  17 explode b2
  18
  19 bop b1_2 b2_1
  20 bopcut r
  21
  22 explode r f
  23 copy r_4 f
  24 pcurve f
  25
  26 point p 12.658283198213592 21.045164979270297
  27
  28 set cls1 [b2dclassifx f p]
  29 if { [regexp {OUT} $cls1] } {
  30     puts "Error : Wrong result of 2d classifier algorithm"
  31 } else {
  32     puts "OK : Good result of 2d classifier algorithm"
  33 }
  34
  35 smallview
  36 fit
  37 set only_screen_axo 1