tests/bugs/modalg_6/bug25820_3

   1 puts "========"
   2 puts "OCC25820"
   3 puts "========"
   4 puts ""
   5 ###################################################################
   6 # No Intersection Curves between surface of revolution and planes
   7 ###################################################################
   8
   9 restore [locate_data_file OCC25820-Revolution_5.brep] b1
  10 explode b1 f
  11 copy b1_4 b1
  12
  13 restore [locate_data_file OCC25820-Translation_3.brep] b2
  14 explode b2 f
  15 copy b2_3 b2
  16
  17 smallview
  18 clear
  19 display b1
  20 display b2
  21 fit
  22
  23 dlog reset
  24 dlog on
  25 decho off
  26 bopcurves b1 b2
  27 decho on
  28 set bug_info [dlog get]
  29
  30 set bug_info [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string last "\n" $bug_info] - 1}]]]
  31 set bug_info_tol [string trim [string range $bug_info [expr {[string first "=" $bug_info] + 1}] [expr {[string first "\n" $bug_info] - 1}]]]
  32 set bug_info_cur [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
  33 set bug_info_cur [string trim [string range $bug_info_cur 0 [expr {[string first " " $bug_info_cur] - 1}]]]
  34
  35 if {$bug_info_tol > 1.0e-7} {
  36   puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
  37 }
  38
  39 if {$bug_info_cur != 1} {
  40   puts "ERROR: OCC25820 is reproduced. Too many curves were found."
  41 }
  42
  43 set only_screen_axo 1