tests/bugs/modalg_5/bug25886

   1 puts "========"
   2 puts "OCC25886"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Wrong result obtained by projection algorithm
   7 #################################################
   8
   9 set ok_len_c3x "1.57079"
  10 set ok_len_c5x "1.57079"
  11
  12 smallview -2D-
  13
  14 restore [locate_data_file OCC25886_cx.brep] cx
  15
  16 explode cx
  17 copy cx_1 f
  18 mksurface s f
  19 mkcurve c3 cx_3
  20 mkcurve c5 cx_5
  21 project c3x c3 s
  22 project c5x c5 s
  23
  24 2dfit
  25
  26 set len_c3x [string range [lindex [length c3x] 4] 0 6]
  27 set len_c5x [string range [lindex [length c5x] 4] 0 6]
  28 if {$len_c3x != $ok_len_c3x} {
  29   puts "ERROR: OCC25866 is reproduced. Length of projection is $len_c3x, but expected length is $ok_len_c3x"
  30 }
  31 if {$len_c5x != $ok_len_c5x} {
  32   puts "ERROR: OCC25866 is reproduced. Length of projection is $len_c5x, but expected length is $ok_len_c5x"
  33 }
  34
  35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png