5 #######################################################
6 # BRepFeat_MakeRevol fails to create revol from shape
7 #######################################################
9 circle aCircle 0 0 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 featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1
20 featperform revol aResult aFromPlane aToPlane
26 vsetdispmode aResult 1