puts "========" puts "OCC26305" puts "========" puts "" ################################################### # BRepFeat_MakePrism returns inconsistent results ################################################### circle aCircle -9 -9 0 0 0 1 1 0 0 10 mkedge anEdge aCircle wire aWire anEdge mkplane aCircle aWire 0 plane aFromPlane 0 0 -10 0 0 1 1 0 0 mkface aFromPlane aFromPlane plane aToPlane 0 0 10 0 0 1 1 0 0 mkface aToPlane aToPlane featprism aCircle aCircle aCircle 0 0 1 2 1 featperform prism aResult aFromPlane aToPlane checkshape aResult vinit vdisplay aResult vsetdispmode aResult 1 vfit set bug_info [vreadpixel 300 340 name] if {$bug_info == "BLACK 0"} { puts "ERROR: OCC26305 is reproduced. Prism is incorrect." } set only_screen 1