puts "================"
puts "OCC1226"
puts "The revolution problem reproduced in OCC Samples"
puts "================"
puts ""

vertex  v1  0  0 0
vertex  v2 50  0 0
vertex  v3 50 50 0

edge    e1 v1 v2
edge    e2 v2 v3
edge    e3 v3 v1

wire    w  e1 e2 e3

mkplane f  w

revol result  f  0  0  30 0 1 0 180

checkprops result -s 23211.3 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png