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

Improve povray examples.

Browse source 
Former-commit-id: c7d6f6ced12cc3ee017d57bfc59fb0d54a1f5093
This commit is contained in:
David Himmelstrup 2019-12-05 18:59:54 +08:00
commit 1f5ed42288
3 changed files with 22 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

15
docs/gallery.md
View file

@ -256,3 +256,18 @@ This file is auto-generated by docs/render_all.sh. DO NOT EDIT.
<br/><hr><br/>
## tut_glue_povray_ortho
<details>
<summary>View tut_glue_povray_ortho.hs</summary>
<pre><code class="haskell">
{!examples/tut_glue_povray_ortho.hs!}
</code></pre>
</details>
<br/>
<video width="640" height="360" autoplay loop>
<source src="https://github.com/Lemmih/reanimate/raw/master/docs/rendered/tut_glue_povray_ortho.mp4">
</video>
<br/><hr><br/>

32
examples/tut_glue_povray.hs
View file

@ -33,7 +33,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
getZ <- freezeVar zRot
return $ \real_t dur t ->
povraySlow [] $
script (svgAsPngFile (texture (t/dur))) (transZ real_t) (getX real_t) (getZ real_t)
script (svgAsPngFile (texture (t/dur))) (transZ real_t) (getX real_t) (getZ real_t)
wait 2
tweenVar zPos 9 (\t v -> fromToS v 8 (t/9))
tweenVar xRot 9 (\t v -> fromToS v 360 $ curveS 2 (t/9))
@ -45,9 +45,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
bg = animate $ const $ mkBackgroundPixel $ PixelRGBA8 252 252 252 0xFF
texture :: Double -> SVG
texture t = mkGroup
[ checker 10 10
, frameAt (t*duration latexExample) latexExample ]
texture t = frameAt (t*duration latexExample) latexExample
script :: FilePath -> Double -> Double -> Double -> Text
script png transZ rotX rotZ = [iTrim|
@ -83,32 +81,6 @@ polygon {
}
|]
checker :: Int -> Int -> SVG
checker w h =
withFillColor "white" $
withStrokeColor "white" $
withStrokeWidth 0.1 $
mkGroup
[ withStrokeWidth 0 $
withFillOpacity 1 $ mkBackground "blue"
, mkGroup
[ translate (stepX*x-offsetX + stepX/2) 0 $
mkLine (0, -screenHeight/2*0.9) (0, screenHeight/2*0.9)
| x <- map fromIntegral [0..w-1]
]
,
mkGroup
[ translate 0 (stepY*y-offsetY) $
mkLine (-screenWidth/2, 0) (screenWidth/2, 0)
| y <- map fromIntegral [0..h]
]
]
where
stepX = screenWidth/fromIntegral w
stepY = screenHeight/fromIntegral h
offsetX = screenWidth/2
offsetY = screenHeight/2
-----------------------------------
-- COPIED FROM tut_glue_latex.hs --

12
examples/tut_glue_povray_ortho.hs
View file

@ -34,7 +34,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
getZ <- freezeVar zRot
return $ \real_t dur t ->
povraySlow [] $
script (svgAsPngFile (texture (t/dur))) (getX real_t) (getY real_t) (getZ real_t)
script (svgAsPngFile (texture (t/dur))) (getX real_t) (getY real_t) (getZ real_t)
wait 2
let tDuration = 20
tweenVar yRot tDuration (\t v -> fromToS v (v+180) $ curveS 2 (t/tDuration))
@ -52,7 +52,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
texture :: Double -> SVG
texture t = mkGroup
[ checker 10 10
[ checker 20 20
, frameAt (t*duration latexExample) latexExample
]
@ -97,12 +97,11 @@ sphere {
checker :: Int -> Int -> SVG
checker w h =
withFillColor "white" $
withStrokeColor "white" $
withStrokeWidth 0.1 $
withStrokeColor "lightblue" $
withStrokeWidth (defaultStrokeWidth/2) $
mkGroup
[ withStrokeWidth 0 $
withFillOpacity 0.7 $ mkBackground "blue"
withFillOpacity 0.8 $ mkBackground "white"
, mkGroup
[ translate (stepX*x-offsetX + stepX/2) 0 $
mkLine (0, -screenHeight/2*0.9) (0, screenHeight/2*0.9)
@ -200,4 +199,3 @@ drawAnimation' mbSeed fillDur step svg = sceneAnimation $ do
case mbSeed of
Nothing -> lst
Just seed -> shuffle' lst (length lst) (mkStdGen seed)