tests/bugs/modalg_6/bug28661_1

   1 puts "============"
   2 puts "OCC28661"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
   7 #######################################################################
   8
   9 restore [locate_data_file bug27769_W5_slot.brep] pr
  10 restore [locate_data_file bug27769_A4_slot.brep] sp
  11 wire sp sp
  12
  13 mksweep sp
  14 addsweep pr
  15 buildsweep r
  16
  17 explode r f
  18 mksurface s1 r_1
  19 set info [dump s1]
  20
  21 set check [regexp "SphericalSurface" $info]
  22
  23 if { ${check} == 1 } {
  24    puts "OK: The basic surface is spherical surface."
  25 } else {
  26    puts "Faulty: The basic surface is not spherical surface."
  27 }
  28
  29 set info1 [errorsweep]
  30
  31 set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error]
  32
  33 checkreal "Accuracy" $error 0 1.e-10 0
  34
  35 setsweep -FR
  36 buildsweep r1