scaleDS :: Double -> Double -> DrawState -> DrawState
scaleDS x y = mapDSAT $ \(AffineTransformation a b c d e f) ->
  AffineTransformation (x * a) (x * b) (y * c) (y * d) e f
scaleDS :: Double -> Double -> DrawState -> DrawState
scaleDS x y = mapDSAT $ \(AffineTransformation a b c d e f) ->
  AffineTransformation (x * a) (x * b) (y * c) (y * d) e f
scaleDS x y = mapDSAT $ \(AffineTransformation a b c d e f) ->
  AffineTransformation (x * a) (x * b) (y * c) (y * d) e f