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

- (
    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