Area_size : r ->                                 EllipseSize Area_size ->
Arg S : GeometricShape                           Arg E : Ellipse

S is <                                           Area = CalcArea( E )
       Point,                                    [ !E.Area_size && E.Width && E.Height ]
       Line,
       Rectangle,                                Area
       Circle,
       Ellipse                                   /
     > >> <
       PointSize S,                              CalcArea %Size Area_size ->
       LineSize S,                               Arg E : Ellipse
       RectangleSize S,
       CircleSize S,                             ( E.Width / 2 ) * ( E.Height / 2 ) * Pi()
       EllipseSize S                             
     >                                           /

>>
Exit ERR_UNKNOWN_TYPE

/



