Rebound2.hs

module Graphics.Implicit.Export.Symbolic.Rebound2 (rebound2) where

import Data.VectorSpace
import Graphics.Implicit.Definitions

rebound2 :: BoxedObj2 -> BoxedObj2
rebound2 (obj, (a,b)) = 
	let
		d :: ℝ2
		d = (b ^-^ a) ^/ 10
	in 
		(obj, ((a ^-^ d), (b ^+^ d)))