Function with_scale_factor

pub fn with_scale_factor<P: Program>(
    program: P,
    f: impl Fn(&P::State, Id) -> f64,
) -> impl Program<State = P::State, Message = P::Message, Theme = P::Theme>