# test script on make volume operation
# cone plane

puts "TODO CR28503 ALL: Error : The area of result shape is"
puts "TODO CR28503 ALL: Error :  is WRONG because number of SOLID entities in shape"
puts "TODO CR28503 ALL: Faulty shapes in variables faulty_"

# planar face 
plane pln_f1 27.577164466275352 -1038.2137499999999 27.577164466275359 0.70710678118654746 4.4408920985006262e-016 0.70710678118654768
erase pln_f1
mkface f1 pln_f1 -1000000 1000000 -1000000 1000000

# conical face 
cone con_f2 0 518.47000000000003 0 0 -1 1.1102230246251565e-016 14.999999999912038 0
erase con_f2
mkface f2 con_f2 0 6.2831853071795862 0 1000000

# planar face 
plane pln_f3 -27.577164466275352 -1038.2137499999999 -27.577164466275359 0.70710678118654746 4.4408920985006262e-016 0.70710678118654768
erase pln_f3
mkface f3 pln_f3 -1000000 1000000 -1000000 1000000

# planar face 
plane pln_f4 0 -786.50743635718959 3.8387493219403887e-014 0 -1 1.1102230246251565e-016
erase pln_f4
mkface f4 pln_f4 -1000000 1000000 -1000000 1000000

# planar face 
plane pln_f5 0 -796.42849000000001 9.2386370775798815e-015 0 1 -1.1102230246251565e-016
erase pln_f5
mkface f5 pln_f5 -1000000 1000000 -1000000 1000000

# conical face 
cone con_f6 0 -440.74363604000001 0 0 -1 1.1102230246251565e-016 45.110284878807235 0
erase con_f6
mkface f6 con_f6 0 6.2831853071795862 0 1000000

# make volume operation 
mkvolume result f1 f2 f3 f4 f5 f6

checkprops result -s 5.19571e+006

checknbshapes result -solid 16