Merge pull request #44 from paulcadman/improve-global-entity

Improve API for global entity
funexists · Nov 9, 2024 · 10b75bf · 10b75bf
2 parents f445c75 + 311fed0
commit 10b75bf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lean/Raylean/Graphics2D/Render.lean b/lean/Raylean/Graphics2D/Render.lean
@@ -49,11 +49,11 @@ partial def renderPicture' : (picture : Picture) → ReaderT RenderContext IO Un
   | .line ps => renderLine ps
   | .circle radius => renderCircle radius
   | .rectangle width height => renderRectangle width height
-  | .color c p  => renderPicture' p |>.local (set color c)
-  | .translate v p => renderPicture' p |>.local (fun s =>
+  | .color c p  => ReaderT.local (set color c) (renderPicture' p)
+  | .translate v p => ReaderT.local (fun s =>
     over translate (·.add (v.dot s.scale)) s
-  )
-  | .scale v p => renderPicture'  p |>.local (over scale (·.dot v))
+  ) (renderPicture' p)
+  | .scale v p => ReaderT.local (over scale (·.dot v)) (renderPicture' p)
   | .pictures ps => (fun _ => ()) <$> ps.mapM renderPicture'
 
 def renderPicture (width height : Float) (picture : Picture) : IO Unit :=