tests/bugs/modalg_4/bug8842_15

   1
   2 puts "============"
   3 puts "OCC8842"
   4 puts "============"
   5 puts ""
   6 #######################################################################
   7 # Errors in Offset Shape algorithm working with bspline and surface of revolution
   8 #######################################################################
   9
  10 set BugNumber OCC8842
  11
  12 if {[info commands testreadiges] == ""} {pload XSDRAW}
  13
  14 proc myoffset {result sh val tan} {
  15   if {$tan == 1} {
  16     offsetparameter 1e-7 p i
  17   } else {
  18     offsetparameter 1e-7 p a
  19   }
  20   uplevel offsetload $sh $val
  21   uplevel offsetperform $result
  22 }
  23
  24 testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
  25
  26 DT_ShapeDivide cyl2 a4
  27
  28 # join type Intersection
  29 puts "***** offsetting with join type Intersection"
  30 puts "   cylinder_Ideas + 5"
  31
  32 if [catch { myoffset result cyl2 5 1 } catch_result] {
  33   puts "${BugNumber}: Faulty (1)"
  34 } else {
  35 set square 35814.2
  36 checknbshapes result -vertex 6 -edge 9 -wire 5 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 27
  37 }
  38
  39 set 2dviewer 0
  40