mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-16 18:42:21 +00:00
123 lines
7.4 KiB
HTML
123 lines
7.4 KiB
HTML
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
|
<style type="text/css">
|
|
span.lineno { color: white; background: #aaaaaa; border-right: solid white 12px }
|
|
span.nottickedoff { background: yellow}
|
|
span.istickedoff { background: white }
|
|
span.tickonlyfalse { margin: -1px; border: 1px solid #f20913; background: #f20913 }
|
|
span.tickonlytrue { margin: -1px; border: 1px solid #60de51; background: #60de51 }
|
|
span.funcount { font-size: small; color: orange; z-index: 2; position: absolute; right: 20 }
|
|
span.decl { font-weight: bold }
|
|
span.spaces { background: white }
|
|
</style>
|
|
</head>
|
|
<body>
|
|
<pre>
|
|
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span>
|
|
</pre>
|
|
<pre>
|
|
<span class="lineno"> 1 </span>module Reanimate.Parameters
|
|
<span class="lineno"> 2 </span> ( Raster(..)
|
|
<span class="lineno"> 3 </span> , Width
|
|
<span class="lineno"> 4 </span> , Height
|
|
<span class="lineno"> 5 </span> , FPS
|
|
<span class="lineno"> 6 </span> , pRaster
|
|
<span class="lineno"> 7 </span> , pFPS
|
|
<span class="lineno"> 8 </span> , pWidth
|
|
<span class="lineno"> 9 </span> , pHeight
|
|
<span class="lineno"> 10 </span> , pNoExternals
|
|
<span class="lineno"> 11 </span> , pRootDirectory
|
|
<span class="lineno"> 12 </span> , setRaster
|
|
<span class="lineno"> 13 </span> , setFPS
|
|
<span class="lineno"> 14 </span> , setWidth
|
|
<span class="lineno"> 15 </span> , setHeight
|
|
<span class="lineno"> 16 </span> , setNoExternals
|
|
<span class="lineno"> 17 </span> , setRootDirectory
|
|
<span class="lineno"> 18 </span> ) where
|
|
<span class="lineno"> 19 </span>
|
|
<span class="lineno"> 20 </span>import System.IO.Unsafe
|
|
<span class="lineno"> 21 </span>import Data.IORef
|
|
<span class="lineno"> 22 </span>
|
|
<span class="lineno"> 23 </span>type Width = Int
|
|
<span class="lineno"> 24 </span>type Height = Int
|
|
<span class="lineno"> 25 </span>type FPS = Int
|
|
<span class="lineno"> 26 </span>
|
|
<span class="lineno"> 27 </span>data Raster
|
|
<span class="lineno"> 28 </span> = RasterNone
|
|
<span class="lineno"> 29 </span> | RasterAuto
|
|
<span class="lineno"> 30 </span> | RasterInkscape
|
|
<span class="lineno"> 31 </span> | RasterRSvg
|
|
<span class="lineno"> 32 </span> | RasterMagick
|
|
<span class="lineno"> 33 </span> deriving (<span class="decl"><span class="nottickedoff">Show</span></span>, <span class="decl"><span class="nottickedoff">Eq</span></span>)
|
|
<span class="lineno"> 34 </span>
|
|
<span class="lineno"> 35 </span>{-# NOINLINE pRasterRef #-}
|
|
<span class="lineno"> 36 </span>pRasterRef :: IORef Raster
|
|
<span class="lineno"> 37 </span><span class="decl"><span class="nottickedoff">pRasterRef = unsafePerformIO (newIORef RasterNone)</span></span>
|
|
<span class="lineno"> 38 </span>
|
|
<span class="lineno"> 39 </span>{-# NOINLINE pRaster #-}
|
|
<span class="lineno"> 40 </span>pRaster :: Raster
|
|
<span class="lineno"> 41 </span><span class="decl"><span class="nottickedoff">pRaster = unsafePerformIO (readIORef pRasterRef)</span></span>
|
|
<span class="lineno"> 42 </span>
|
|
<span class="lineno"> 43 </span>setRaster :: Raster -> IO ()
|
|
<span class="lineno"> 44 </span><span class="decl"><span class="nottickedoff">setRaster = writeIORef pRasterRef</span></span>
|
|
<span class="lineno"> 45 </span>
|
|
<span class="lineno"> 46 </span>{-# NOINLINE pFPSRef #-}
|
|
<span class="lineno"> 47 </span>pFPSRef :: IORef FPS
|
|
<span class="lineno"> 48 </span><span class="decl"><span class="nottickedoff">pFPSRef = unsafePerformIO (newIORef 0)</span></span>
|
|
<span class="lineno"> 49 </span>
|
|
<span class="lineno"> 50 </span>{-# NOINLINE pFPS #-}
|
|
<span class="lineno"> 51 </span>pFPS :: FPS
|
|
<span class="lineno"> 52 </span><span class="decl"><span class="nottickedoff">pFPS = unsafePerformIO (readIORef pFPSRef)</span></span>
|
|
<span class="lineno"> 53 </span>
|
|
<span class="lineno"> 54 </span>setFPS :: FPS -> IO ()
|
|
<span class="lineno"> 55 </span><span class="decl"><span class="nottickedoff">setFPS = writeIORef pFPSRef</span></span>
|
|
<span class="lineno"> 56 </span>
|
|
<span class="lineno"> 57 </span>{-# NOINLINE pWidthRef #-}
|
|
<span class="lineno"> 58 </span>pWidthRef :: IORef FPS
|
|
<span class="lineno"> 59 </span><span class="decl"><span class="nottickedoff">pWidthRef = unsafePerformIO (newIORef 0)</span></span>
|
|
<span class="lineno"> 60 </span>
|
|
<span class="lineno"> 61 </span>{-# NOINLINE pWidth #-}
|
|
<span class="lineno"> 62 </span>pWidth :: Width
|
|
<span class="lineno"> 63 </span><span class="decl"><span class="nottickedoff">pWidth = unsafePerformIO (readIORef pWidthRef)</span></span>
|
|
<span class="lineno"> 64 </span>
|
|
<span class="lineno"> 65 </span>setWidth :: Width -> IO ()
|
|
<span class="lineno"> 66 </span><span class="decl"><span class="nottickedoff">setWidth = writeIORef pWidthRef</span></span>
|
|
<span class="lineno"> 67 </span>
|
|
<span class="lineno"> 68 </span>
|
|
<span class="lineno"> 69 </span>{-# NOINLINE pHeightRef #-}
|
|
<span class="lineno"> 70 </span>pHeightRef :: IORef FPS
|
|
<span class="lineno"> 71 </span><span class="decl"><span class="nottickedoff">pHeightRef = unsafePerformIO (newIORef 0)</span></span>
|
|
<span class="lineno"> 72 </span>
|
|
<span class="lineno"> 73 </span>{-# NOINLINE pHeight #-}
|
|
<span class="lineno"> 74 </span>pHeight :: Height
|
|
<span class="lineno"> 75 </span><span class="decl"><span class="nottickedoff">pHeight = unsafePerformIO (readIORef pHeightRef)</span></span>
|
|
<span class="lineno"> 76 </span>
|
|
<span class="lineno"> 77 </span>setHeight :: Height -> IO ()
|
|
<span class="lineno"> 78 </span><span class="decl"><span class="nottickedoff">setHeight = writeIORef pHeightRef</span></span>
|
|
<span class="lineno"> 79 </span>
|
|
<span class="lineno"> 80 </span>{-# NOINLINE pNoExternalsRef #-}
|
|
<span class="lineno"> 81 </span>pNoExternalsRef :: IORef Bool
|
|
<span class="lineno"> 82 </span><span class="decl"><span class="istickedoff">pNoExternalsRef = unsafePerformIO (newIORef <span class="nottickedoff">False</span>)</span></span>
|
|
<span class="lineno"> 83 </span>
|
|
<span class="lineno"> 84 </span>{-# NOINLINE pNoExternals #-}
|
|
<span class="lineno"> 85 </span>pNoExternals :: Bool
|
|
<span class="lineno"> 86 </span><span class="decl"><span class="istickedoff">pNoExternals = unsafePerformIO (readIORef pNoExternalsRef)</span></span>
|
|
<span class="lineno"> 87 </span>
|
|
<span class="lineno"> 88 </span>setNoExternals :: Bool -> IO ()
|
|
<span class="lineno"> 89 </span><span class="decl"><span class="istickedoff">setNoExternals = writeIORef pNoExternalsRef</span></span>
|
|
<span class="lineno"> 90 </span>
|
|
<span class="lineno"> 91 </span>{-# NOINLINE pRootDirectoryRef #-}
|
|
<span class="lineno"> 92 </span>pRootDirectoryRef :: IORef FilePath
|
|
<span class="lineno"> 93 </span><span class="decl"><span class="nottickedoff">pRootDirectoryRef = unsafePerformIO (newIORef (error "root directory not set"))</span></span>
|
|
<span class="lineno"> 94 </span>
|
|
<span class="lineno"> 95 </span>{-# NOINLINE pRootDirectory #-}
|
|
<span class="lineno"> 96 </span>pRootDirectory :: FilePath
|
|
<span class="lineno"> 97 </span><span class="decl"><span class="nottickedoff">pRootDirectory = unsafePerformIO (readIORef pRootDirectoryRef)</span></span>
|
|
<span class="lineno"> 98 </span>
|
|
<span class="lineno"> 99 </span>setRootDirectory :: FilePath -> IO ()
|
|
<span class="lineno"> 100 </span><span class="decl"><span class="nottickedoff">setRootDirectory = writeIORef pRootDirectoryRef</span></span>
|
|
|
|
</pre>
|
|
</body>
|
|
</html>
|