mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-14 17:42:22 +00:00
74 lines
4.4 KiB
HTML
74 lines
4.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>{- |
|
|
<span class="lineno"> 2 </span> Reanimate configures a consistent, default canvas. The values of this default
|
|
<span class="lineno"> 3 </span> can be observed via the constants in this module. Keep in mind, these values
|
|
<span class="lineno"> 4 </span> describe the /default/ canvas and will not apply to custom viewports.
|
|
<span class="lineno"> 5 </span>-}
|
|
<span class="lineno"> 6 </span>module Reanimate.Constants
|
|
<span class="lineno"> 7 </span> ( screenWidth
|
|
<span class="lineno"> 8 </span> , screenHeight
|
|
<span class="lineno"> 9 </span> , screenTop
|
|
<span class="lineno"> 10 </span> , screenBottom
|
|
<span class="lineno"> 11 </span> , screenLeft
|
|
<span class="lineno"> 12 </span> , screenRight
|
|
<span class="lineno"> 13 </span> , defaultDPI
|
|
<span class="lineno"> 14 </span> , defaultStrokeWidth
|
|
<span class="lineno"> 15 </span> ) where
|
|
<span class="lineno"> 16 </span>
|
|
<span class="lineno"> 17 </span>import Graphics.SvgTree
|
|
<span class="lineno"> 18 </span>
|
|
<span class="lineno"> 19 </span>-- | Number of units from the left-most point to the right-most point on the screen.
|
|
<span class="lineno"> 20 </span>screenWidth :: Fractional a => a
|
|
<span class="lineno"> 21 </span>
|
|
<span class="lineno"> 22 </span>-- | Number of units from the bottom to the top of the screen.
|
|
<span class="lineno"> 23 </span>screenHeight :: Fractional a => a
|
|
<span class="lineno"> 24 </span>
|
|
<span class="lineno"> 25 </span>-- | Position of the top of the screen.
|
|
<span class="lineno"> 26 </span>screenTop :: Fractional a => a
|
|
<span class="lineno"> 27 </span>
|
|
<span class="lineno"> 28 </span>-- | Position of the bottom of the screen.
|
|
<span class="lineno"> 29 </span>screenBottom :: Fractional a => a
|
|
<span class="lineno"> 30 </span>
|
|
<span class="lineno"> 31 </span>-- | Position of the left side of the screen.
|
|
<span class="lineno"> 32 </span>screenLeft :: Fractional a => a
|
|
<span class="lineno"> 33 </span>
|
|
<span class="lineno"> 34 </span>-- | Position of the right side of the screen.
|
|
<span class="lineno"> 35 </span>screenRight :: Fractional a => a
|
|
<span class="lineno"> 36 </span>
|
|
<span class="lineno"> 37 </span><span class="decl"><span class="istickedoff">screenWidth = 16</span></span>
|
|
<span class="lineno"> 38 </span><span class="decl"><span class="istickedoff">screenHeight = 9</span></span>
|
|
<span class="lineno"> 39 </span><span class="decl"><span class="nottickedoff">screenTop = screenHeight/2</span></span>
|
|
<span class="lineno"> 40 </span><span class="decl"><span class="nottickedoff">screenBottom = -screenHeight/2</span></span>
|
|
<span class="lineno"> 41 </span><span class="decl"><span class="nottickedoff">screenLeft = -screenWidth/2</span></span>
|
|
<span class="lineno"> 42 </span><span class="decl"><span class="nottickedoff">screenRight = screenWidth/2</span></span>
|
|
<span class="lineno"> 43 </span>
|
|
<span class="lineno"> 44 </span>-- | SVG allows measurements in inches which have to be converted to local units.
|
|
<span class="lineno"> 45 </span>-- This value describes how many local units there are in an inch.
|
|
<span class="lineno"> 46 </span>defaultDPI :: Dpi
|
|
<span class="lineno"> 47 </span><span class="decl"><span class="nottickedoff">defaultDPI = 96</span></span>
|
|
<span class="lineno"> 48 </span>
|
|
<span class="lineno"> 49 </span>-- | Default thickness of lines.
|
|
<span class="lineno"> 50 </span>defaultStrokeWidth :: Double
|
|
<span class="lineno"> 51 </span><span class="decl"><span class="istickedoff">defaultStrokeWidth = 0.05</span></span>
|
|
|
|
</pre>
|
|
</body>
|
|
</html>
|