Parallelize poking

2022-06-25 14:18:53 +01:00
parent 81b1fa5b5e
commit dc78561c20
2 changed files with 6 additions and 4 deletions
@@ -157,6 +157,7 @@ ddaStreamY :: Float -> Point2 -> Point2 -> Stream (Of (V2 Int)) Identity ()
 ddaStreamY s sp ep = S.map (sizeZoneOfPoint' s) $ yIntercepts s sp ep

 xIntercepts :: Float -> Point2 -> Point2 -> Stream (Of Point2) Identity ()
+{-# INLINE xIntercepts #-}
 xIntercepts s (V2 sx sy) (V2 ex ey) 
    | xdx == 0  = mempty
    | xdx > 0   = S.each $ zipWith V2 [sx',sx'+xdx*50..ex] [sy',sy'+ydx*50..ey]