setOrientation :: Angle -> VehicleS ()
setOrientation angle = vOrientation .= angle
setOrientation :: Angle -> VehicleS ()
setOrientation angle = vOrientation .= angle
setOrientation angle = vOrientation .= angle