module Dodge.ScrollValue where

import Dodge.Data.Input
import LensHelp

updateScrollTestValue :: Input -> Input
updateScrollTestValue theinput = theinput & scrollTestFloat +~ theamount
    & scrollTestInt +~ i
  where
    i = theinput ^. scrollAmount
    theamount = fromIntegral i / 100