tests/bugs/modalg_6/bug26305_1

   1 puts "========"
   2 puts "OCC26305"
   3 puts "========"
   4 puts ""
   5 ###################################################
   6 # BRepFeat_MakePrism returns inconsistent results
   7 ###################################################
   8
   9 circle aCircle -9 -9 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 featprism aCircle aCircle aCircle 0 0 1 2 1
  20 featperform prism aResult aFromPlane aToPlane
  21
  22 checkshape aResult
  23
  24 vinit
  25 vdisplay aResult
  26 vsetdispmode aResult 1
  27 vfit
  28
  29 set bug_info [vreadpixel 300 340 name]
  30 if {$bug_info == "BLACK 0"} {
  31   puts "ERROR: OCC26305 is reproduced. Prism is incorrect."
  32 }
  33
  34 checkview -screenshot -3d -path ${imagedir}/${test_image}.png