Draw ->
Arg S : GeometricShape, 
    W : Window, X, Y : Integer : +- = 0

Call (
       When S is Point then
       Return Draw @ PointTools

       When S is Line then
       Return Draw @ LineTools

       When S is Rectangle then
       Return Draw @ RectangleTools

       When S is Area then
       Return Draw @ AreaTools

       Else
       Exit ERR_TYPE
     ) S W X Y

Return