1puts "========"
2puts "OCC26315"
3puts "========"
4puts ""
5#######################################################
6# BRepFeat_MakeRevol fails to create revol from shape
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 10 0 0 1 1 0 0
17mkface aToPlane aToPlane
18
19featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1
20featperform revol aResult aFromPlane aToPlane
21
22checkshape aResult
23
24vinit
25vdisplay aResult
26vsetdispmode aResult 1
27vfit
28
29checkview -screenshot -3d -path ${imagedir}/${test_image}.png
30