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

- (
    When S is <
                Point
                Line
                Rectangle
                Area
              >
    Return <
             Draw @ PointTools
             Draw @ LineTools
             Draw @ RectangleTools
             Draw @ AreaTools
           > S W X Y

    Else
    Exit ERR_TYPE
  )

Return