mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-10 15:42:21 +00:00
106 lines
2.9 KiB
Haskell
Executable file
106 lines
2.9 KiB
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack --resolver lts-13.14 runghc --package reanimate
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE RecordWildCards #-}
|
|
module Main (main) where
|
|
|
|
import Control.Lens
|
|
|
|
import Graphics.SvgTree
|
|
import Reanimate.Driver (reanimate)
|
|
import Reanimate.LaTeX
|
|
import Reanimate.Animation
|
|
import Reanimate.Svg
|
|
import Reanimate.Signal
|
|
|
|
{- Script
|
|
|
|
Computer memory is a finite resource: If it is not reused, it'll eventually
|
|
run out.
|
|
|
|
|
|
|
|
-}
|
|
|
|
-- screen width 320
|
|
-- screen height 180
|
|
{-
|
|
[flat (1/3) 0, linear (1/3) 0 1, linear (1/3) 1 0]
|
|
-}
|
|
main :: IO ()
|
|
main = reanimate $ pauseAtEnd 2
|
|
(animate $ const $ mkBackground "black") `parA`
|
|
drawBox
|
|
|
|
drawBox :: Animation
|
|
drawBox = mkAnimation 5 $ \t ->
|
|
mkGroup
|
|
[ withFillColor "white" $
|
|
translate 0 (-70) $
|
|
scale 2 $ center $ latex "Baker's Algorithm"
|
|
, let s = fromListS [(0.7, constantS 0), (1, id)] t
|
|
d = fromListS [(0.7, constantS 0), (1, id)] t
|
|
draw = fromListS [(0.5, id), (1, constantS 1)] t
|
|
mlc = MemoryLineChart
|
|
{ mlcWidth = 230
|
|
, mlcHeight = 50 + s*50
|
|
, mlcDivider = d
|
|
, mlcOuterBox = draw }
|
|
in translate 0 20 $ renderMemoryLineChart mlc
|
|
]
|
|
|
|
highlightBox :: Animation
|
|
highlightBox = mkAnimation 2 $ \t ->
|
|
mkGroup
|
|
[ withFillColor "white" $
|
|
translate 0 (-70) $
|
|
scale 2 $ center $ latex "Highlightbox"
|
|
, let boxX = negate mlcWidth / 2
|
|
boxY = negate mlcHeight / 2
|
|
mlcWidth = 230
|
|
mlcHeight = 50
|
|
s = fromListS [(0.0, constantS 0), (1, bellS 2)] t
|
|
in
|
|
withStrokeColor "white" $
|
|
withStrokeWidth (0.5 + s) $
|
|
withFillOpacity 0 $
|
|
translate (boxX + mlcWidth/2) (boxY + mlcHeight/2) $
|
|
mkRect mlcWidth mlcHeight
|
|
]
|
|
|
|
data MemoryLineChart = MemoryLineChart
|
|
{ mlcWidth :: Double
|
|
, mlcHeight :: Double
|
|
, mlcDivider :: Double -- 0 -> 1
|
|
, mlcOuterBox :: Double -- 0 -> 1
|
|
}
|
|
|
|
mlcBox :: MemoryLineChart -> (Double, Double, Double, Double)
|
|
mlcBox MemoryLineChart{..} = (boxX, boxY, mlcWidth, mlcHeight)
|
|
where
|
|
boxX = negate mlcWidth / 2
|
|
boxY = negate mlcHeight / 2
|
|
|
|
renderMemoryLineChart :: MemoryLineChart -> Tree
|
|
renderMemoryLineChart MemoryLineChart{..} = mkGroup
|
|
[ withStrokeColor "white" $
|
|
withStrokeWidth 0.5 $
|
|
withFillOpacity 0 $
|
|
partialSvg mlcOuterBox $ pathify $
|
|
translate (boxX + mlcWidth/2) (boxY + mlcHeight/2) $
|
|
mkRect mlcWidth mlcHeight
|
|
, withStrokeColor "white" $
|
|
withStrokeWidth 0.5 $
|
|
mkLine (negate (mlcWidth/2), 0)
|
|
(negate (mlcWidth/2) + lineWidth, 0)
|
|
, withFillColor "white" $
|
|
translate (negate (mlcWidth/2) - 10) 0 $ rotate (-90) $
|
|
center $ latex "Memory"
|
|
, withFillColor "white" $
|
|
translate 0 (mlcHeight/2 + 10) $
|
|
center $ latex "Time $\\rightarrow$"
|
|
]
|
|
where
|
|
boxX = negate mlcWidth / 2
|
|
boxY = negate mlcHeight / 2
|
|
lineWidth = mlcDivider * mlcWidth
|