hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-13 09:02:54 +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

21
examples/tut_glue_potrace.hs
View file

@ -1,16 +1,17 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate --package here
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Main (main) where
import Reanimate
import Reanimate.Povray (povraySlow')
import Reanimate.Povray (povraySlow')
import Codec.Picture
import Control.Monad
import Data.String.Here
import Data.Text (Text)
import Data.Text (Text)
import qualified Data.Text as T
import NeatInterpolation
main :: IO ()
main = reanimate $ parA bg $ sceneAnimation $ do
@ -50,7 +51,11 @@ texture :: SVG
texture = checker 10 10
script :: FilePath -> Double -> Double -> Text
script png rotX rotY = [iTrim|
script png rotX rotY =
let png_ = T.pack png
rotX_ = T.pack $ show rotX
rotY_ = T.pack $ show rotY
in [text|
#include "colors.inc"
//Place the camera
@ -73,11 +78,11 @@ sphere {
<0,0,0>, 3
texture {
uv_mapping pigment{
image_map{ png ${png} }
image_map{ png ${png_} }
}
}
rotate <0,${rotY},0>
rotate <${rotX},0,0>
rotate <0,${rotY_},0>
rotate <${rotX_},0,0>
}
|]