Former-commit-id: 96a93f04a1fde50e1ef91bb059bc1ff83c017cb7
This commit is contained in:
William Yao 2020-03-12 17:49:38 -07:00 committed by David Himmelstrup
commit e25673fc5a

View file

@ -101,7 +101,7 @@ bellS steepness = curveS steepness . oscillateS
-- > signalA (cubicBezierS (0.0, 0.8, 0.9, 1.0)) drawProgress
--
-- <<docs/gifs/doc_cubicBezierS.gif>>
cubicBezierS :: Double -> Signal
cubicBezierS :: (Double, Double, Double, Double) -> Signal
cubicBezierS (x1, x2, x3, x4) s =
let ms = 1-s
in x1*ms^3 + 3*x2*ms^2*s + 3*x3*ms*s^2 + x4*s^3