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

/



