hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-12 00:23:08 +00:00
Code Issues Projects Releases Wiki Activity

Replace 'here' dependency with the lightweight 'neat-interpolation' (#106)

Browse source 
Misc improvements:
 * Add tasty-rerun
 * Extend CI coverage
This commit is contained in:
David Himmelstrup 2020-07-12 13:27:01 +08:00 • committed by GitHub
commit 34aa5780ec
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
17 changed files with 155 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

20
examples/tut_glue_povray.hs
View file

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate --package here
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE ApplicativeDo #-}
@ -12,10 +12,11 @@ import Codec.Picture
import Codec.Picture.Types
import Control.Lens ((^.))
import Control.Monad
import qualified Data.Text as T
import Data.Monoid
import Data.String.Here
import NeatInterpolation
import Data.Text (Text)
import Graphics.SvgTree hiding (Text)
import Graphics.SvgTree hiding (Text,text)
import System.Random
import System.Random.Shuffle
@ -46,7 +47,12 @@ texture :: Double -> SVG
texture t = frameAt (t*duration latexExample) latexExample
script :: FilePath -> Double -> Double -> Double -> Text
script png transZ rotX rotZ = [iTrim|
script png transZ rotX rotZ =
let png_ = T.pack png
rotX_ = T.pack $ show rotX
transZ_ = T.pack $ show transZ
rotZ_ = T.pack $ show rotZ
in [text|
#include "colors.inc"
//Place the camera
@ -69,13 +75,13 @@ polygon {
<0, 0>, <0, 1>, <1, 1>, <1, 0>
texture {
pigment{
image_map{ png ${png} }
image_map{ png ${png_} }
}
}
translate <-1/2,-1/2>
scale <16,9>
rotate <0,${rotX},${rotZ}>
translate <0,0,${transZ}>
rotate <0,${rotX_},${rotZ_}>
translate <0,0,${transZ_}>
}
|]