tests/bugs/modalg_5/bug25124_5

   1 puts "========"
   2 puts "OCC25124"
   3 puts "========"
   4 puts ""
   5 ######################################################
   6 # Removal of continuity checks for offset geometries
   7 ######################################################
   8
   9 smallview
  10
  11 point pp 0 0 1
  12 circle cc 20 40 30 20
  13 convert bc cc
  14 trim bc bc 1 6
  15 offsetcurve oc bc 10 pp
  16 trim bc oc 2 5
  17 revsurf se bc 0 0 0 0 1 0
  18 offset os se 15
  19
  20 set bug_info [getsurfcontinuity se]
  21 getsurfcontinuity os
  22
  23 if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
  24   puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
  25 }
  26
  27 set bug_info_1 [dump se]
  28 set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
  29 set bug_info_2 [dump os]
  30 set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
  31 if {[string compare $bug_info_1 $bug_info_2] == 0} {
  32   puts "ERROR: OCC25124 is reproduced (se = os)."
  33 }
  34
  35 donly os se
  36 fit
  37
  38 checkview -screenshot -2d -path ${imagedir}/${test_image}.png