diff --git a/examples/waitpid_simulator.hs b/examples/waitpid_simulator.hs
index c590f91..b8f0a14 100644
--- a/examples/waitpid_simulator.hs
+++ b/examples/waitpid_simulator.hs
@@ -18,7 +18,7 @@ data Segment = Segment Point Point
 animatePart :: Segment -> Animation
 animatePart (Segment (Point startx starty) (Point endx endy)) = signalA (curveS 2) $ setDuration customDuration $
   animate $ \t ->
-    partialSvg t $ pathify $ mkLine (startx, starty) (endx, endy) 
+    partialSvg t $ pathify (mkLine (startx, starty) (endx, endy) & strokeLineCap .~ (pure CapSquare))
 
 -- Helper function to create coordinates for a specific line
 splitSegments :: Segment -> Int -> [Segment]