1puts "========"
2puts "OCC26305"
3puts "========"
4puts ""
5###################################################
6# BRepFeat_MakePrism returns inconsistent results
7###################################################
8
9circle aCircle 0 0 0 0 0 1 1 0 0 10
10mkedge anEdge aCircle
11wire aWire anEdge
12mkplane aCircle aWire 0
13
14plane aFromPlane 0 0 10 0 0 1 1 0 0
15mkface aFromPlane aFromPlane
16plane aToPlane 0 0 20 0 0 1 1 0 0
17mkface aToPlane aToPlane
18
19featprism aCircle aCircle aCircle 0 0 1 2 1
20featperform prism aResult aToPlane aFromPlane
21
22checkshape aResult
23
24vinit
25vdisplay aResult
26vsetdispmode aResult 1
27vfit
28
29set bug_info [vreadpixel 300 300 name]
30if {$bug_info == "BLACK 0"} {
31  puts "ERROR: OCC26305 is reproduced. Prism is incorrect."
32}
33
34checkview -screenshot -3d -path ${imagedir}/${test_image}.png
35