tests/bugs/modalg_5/bug25124_7

   1 puts "========"
   2 puts "OCC25124"
   3 puts "========"
   4 puts ""
   5 ######################################################
   6 # Removal of continuity checks for offset geometries
   7 ######################################################
   8
   9 smallview
  10
  11 restore [locate_data_file OCC25124_a_15592.draw] a2
  12 getsurfcontinuity a2
  13 offset o2 a2 20
  14 getsurfcontinuity o2
  15
  16 set bug_info_1 [dump a2]
  17 set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
  18 set bug_info_2 [dump o2]
  19 set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
  20 if {[string compare $bug_info_1 $bug_info_2] == 0} {
  21   puts "ERROR: OCC25124 is reproduced (a2 = o2)."
  22 }
  23
  24 donly a2 o2
  25 fit
  26
  27 set only_screen_axo 1