worldMatrix :: AM.RectangleData -- data of the rectangle
    -> M44 GLfloat -- ^ a world matrix
worldMatrix (AM.RectangleData x y) =
    V4  (V4 1 0 0 (fx / 50))
        (V4 0 1 0 (fy / 50))
        (V4 0 0 1 0)
        (V4 0 0 0 1)
  where
    fx = realToFrac x
    fy = realToFrac y


-- | Renders the application model with a descriptor.
worldMatrix :: AM.RectangleData -- data of the rectangle
    -> M44 GLfloat
worldMatrix (AM.RectangleData x y) =
    V4  (V4 1 0 0 (fx / 50))
        (V4 0 1 0 (fy / 50))
        (V4 0 0 1 0)
        (V4 0 0 0 1)
  where
    fx = realToFrac x
    fy = realToFrac y


-- | Renders the application model with a descriptor.
worldMatrix (AM.RectangleData x y) =
    V4  (V4 1 0 0 (fx / 50))
        (V4 0 1 0 (fy / 50))
        (V4 0 0 1 0)
        (V4 0 0 0 1)
  where
    fx = realToFrac x
    fy = realToFrac y


-- | Renders the application model with a descriptor.