5 ###################################################
6 # BRepFeat_MakePrism returns inconsistent results
7 ###################################################
9 circle aCircle -9 -9 0 0 0 1 1 0 0 10
12 mkplane aCircle aWire 0
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
19 featprism aCircle aCircle aCircle 0 0 1 2 1
20 featperform prism aResult aFromPlane aToPlane
26 vsetdispmode aResult 1
29 set bug_info [vreadpixel 300 340 name]
30 if {$bug_info == "BLACK 0"} {
31 puts "ERROR: OCC26305 is reproduced. Prism is incorrect."