tHeading :: Floating n
           => n              -- ^ Degree of orientation
           -> TurtleState n  -- ^ Turtle to orient
           -> TurtleState n  -- ^ Resulting turtle
setHeading d = turnTurtle (const $ d @@ deg)


setHeading :: Floating n
           => n              -- ^ Degree of orientation
           -> TurtleState n  -- ^ Turtle to orient
           -> TurtleState n
setHeading d = turnTurtle (const $ d @@ deg)
setHeading d = turnTurtle (const $ d @@ deg)