tests/bugs/modalg_2/bug23162_4

   1 puts "================"
   2 puts "OCC23162"
   3 puts "================"
   4 puts ""
   5 ##############################################################################
   6 # BRepOffsetAPI_MakePipeShell works wrong
   7 ##############################################################################
   8
   9 set BugNumber OCC23162
  10
  11 catch {pload XDE}
  12
  13 set status 0
  14
  15 set radius 0.1
  16 puts "------------- Radius $radius"
  17 # make a ring quarter
  18 vertex v1 [expr $radius / 2] 0 0
  19 vertex v2 $radius 0 0
  20 edge e v1 v2
  21 revol rq e  0 0 0  0 0 1 45
  22
  23 # make rq scaled and translated
  24 scaleshape rq2 rq 0.2
  25 ttranslate rq2 0 0 $radius
  26
  27 # get wires of rq
  28 explode rq W
  29 explode rq2 W
  30
  31 # make a spine
  32 vertex v1 0 0 0
  33 vertex v2 0 0 $radius
  34 edge e v1 v2
  35 wire spine e
  36
  37 # make a pipe
  38 mksweep spine
  39 addsweep rq_1 v1
  40 addsweep rq2_1 v2
  41 buildsweep result
  42
  43 # BUG: a pipe is invalid
  44 checkshape result -short
  45
  46 checkprops result -s 0.0145725
  47 checkview -display result -3d -path ${imagedir}/${test_image}.png