hfov 0.5 → 1.0.1
raw patch · 2 files changed
+7/−7 lines, 2 filesdep −haskell98dep ~base
Dependencies removed: haskell98
Dependency ranges changed: base
Files
- FOV.hsc +4/−4
- hfov.cabal +3/−3
FOV.hsc view
@@ -95,8 +95,8 @@ -> (Int -> Int -> IO Bool) -- ^The function to determine the opacity of a certain cell -> IO () circle (Settings fps) (x,y) r apply opaque = withForeignPtr fps $ \s -> do- fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x' y' _ _ _ -> apply x' y')- fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x' y' -> opaque x' y')+ fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x y _ _ _ -> apply x y)+ fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x y -> opaque x y) fov_circle s nullPtr nullPtr x y r -- | Cast a beam.@@ -109,6 +109,6 @@ -> (Int -> Int -> IO Bool) -- ^Opacity test function -> IO () beam (Settings fps) (x,y) r dir angle apply opaque = withForeignPtr fps $ \s -> do- fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x' y' _ _ _ -> apply x' y')- fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x' y' -> opaque x' y')+ fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x y _ _ _ -> apply x y)+ fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x y -> opaque x y) fov_beam s nullPtr nullPtr x y r (rawdirection dir) angle
hfov.cabal view
@@ -1,5 +1,5 @@ Name: hfov-Version: 0.5+Version: 1.0.1 Category: Game Synopsis: Field-of-view calculation for low-resolution 2D raster grids. Description: A Haskell binding to a Field of View calculation library@@ -9,7 +9,7 @@ License-file: LICENSE Author: Jeremy Apthorp <nornagon@nornagon.net>, Greg McIntyre Maintainer: nornagon@nornagon.net-Build-Depends: base >= 1.0, haskell98 >= 1.0+Build-Depends: base >= 1.0 && < 3 Build-Type: Simple Tested-with: GHC==6.8.2 @@ -19,4 +19,4 @@ Extra-source-files: fov.h Extensions: CPP, ForeignFunctionInterface Include-dirs: .-ghc-options: -Wall+ghc-options: -Wall