tests/bugs/modalg_6/bug26315

   1 puts "========"
   2 puts "OCC26315"
   3 puts "========"
   4 puts ""
   5 #######################################################
   6 # BRepFeat_MakeRevol fails to create revol from shape
   7 #######################################################
   8
   9 circle aCircle 0 0 0 0 0 1 1 0 0 10
  10 mkedge anEdge aCircle
  11 wire aWire anEdge
  12 mkplane aCircle aWire 0
  13
  14 plane aFromPlane 0 0 -10 0 0 1 1 0 0
  15 mkface aFromPlane aFromPlane
  16 plane aToPlane 0 0 10 0 0 1 1 0 0
  17 mkface aToPlane aToPlane
  18
  19 featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1
  20 featperform revol aResult aFromPlane aToPlane
  21
  22 checkshape aResult
  23
  24 vinit
  25 vdisplay aResult
  26 vsetdispmode aResult 1
  27 vfit
  28
  29 checkview -screenshot -3d -path ${imagedir}/${test_image}.png