Using the .+^ function instead of doing complex math

deepakjois · Apr 8, 2012 · 5b1c8a8 · 5b1c8a8
1 parent 370564c
commit 5b1c8a8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Diagrams/TwoD/Path/Turtle/Internal.hs b/src/Diagrams/TwoD/Path/Turtle/Internal.hs
@@ -29,7 +29,7 @@ module Diagrams.TwoD.Path.Turtle.Internal
   , getTurtleDiagram
   ) where
 
-import Debug.Trace (traceShow)
+-- import Debug.Trace (traceShow)
 
 import Diagrams.Prelude
 import Data.Colour hiding (atop)
@@ -100,7 +100,7 @@ moveTurtle s t@(Turtle pd pos h (o, Trail xs _) _ _) =
    rotatedSeg  =  rotate h s
    newTrail    =  rotatedSeg : xs
    -- Calculate the new position along the segment
-   newPenPos   =  flip fAtParam 1 . mkFixedSeg pos $ rotatedSeg
+   newPenPos   =  pos .+^ segOffset rotatedSeg
 
 -- | Move the turtle forward by @x@ units
 forward :: Double  -- ^ Distance to move