Graphic tweaks/cleanup

2025-12-01 12:37:54 +00:00
parent 1635ce0176
commit 25efce7a89
8 changed files with 116 additions and 146 deletions
@@ -11,9 +11,11 @@ import Foreign
 import Geometry.Data

 pokeCloud :: Ptr Float -> Int -> Cloud -> IO Int
+{-# INLINE pokeCloud #-}
 pokeCloud vptr nv = pokeCloudLike vptr nv . mkCloudCloudLike

 pokeDust :: Ptr Float -> Int -> Dust -> IO Int
+{-# INLINE pokeDust #-}
 pokeDust vptr nv = pokeCloudLike vptr nv . mkDustCloudLike

 mkCloudCloudLike :: Cloud -> (Point3, Point4)