mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
107 lines
2.3 KiB
Haskell
Executable file
107 lines
2.3 KiB
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
module Main (main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Povray
|
|
import Reanimate.Raster
|
|
import Data.String.Here
|
|
import Data.Text (Text)
|
|
|
|
main :: IO ()
|
|
main = reanimate $ mkAnimation 10 $ \t ->
|
|
let s = fromToS 0 4 t in
|
|
let rot = fromToS 0 (360) t in
|
|
mkGroup
|
|
[ mkBackground "black"
|
|
, povraySlow [] (script (svgAsPngFile (texture $ oscillateS t)) s rot)
|
|
-- , texture $ oscillateS t
|
|
]
|
|
where
|
|
|
|
texture :: Double -> SVG
|
|
texture t = mkGroup
|
|
[ checker 10 10
|
|
, translate (screenWidth/2) 0 $
|
|
translate (-screenWidth*t) 0 $
|
|
withFillColor "red" $ mkCircle 3 ]
|
|
|
|
script :: FilePath -> Double -> Double -> Text
|
|
script png s rot = [iTrim|
|
|
//EXAMPLE OF SPHERE
|
|
|
|
//Files with predefined colors and textures
|
|
#include "colors.inc"
|
|
#include "glass.inc"
|
|
#include "golds.inc"
|
|
#include "metals.inc"
|
|
#include "stones.inc"
|
|
#include "woods.inc"
|
|
|
|
#include "shapes3.inc"
|
|
|
|
//Place the camera
|
|
camera {
|
|
perspective
|
|
//location <0,0,-9-${s*2}>
|
|
location <0,0,-9>
|
|
look_at <0,0,0>
|
|
up y
|
|
right x*16/9
|
|
}
|
|
|
|
|
|
|
|
//Ambient light to "brighten up" darker pictures
|
|
global_settings { ambient_light White*3 }
|
|
|
|
//Set a background color
|
|
//background { color White }
|
|
//background { color rgbt <0.1, 0, 0, 0> } // red
|
|
background { color rgbt <0, 0, 0, 1> } // transparent
|
|
|
|
polygon {
|
|
4,
|
|
//<-9, -4.5>, <-9, 4.5>, <9, 4.5>, <9, -4.5>
|
|
<0, 0>, <0, 1>, <1, 1>, <1, 0>
|
|
texture {
|
|
//pigment{ color rgb <0,1,0> }
|
|
pigment{
|
|
image_map{ png ${png} }
|
|
}
|
|
}
|
|
translate <-1/2,-1/2>
|
|
scale <16,9>
|
|
rotate <0,${rot},${rot}>
|
|
translate <0,0,${s*2}>
|
|
}
|
|
|
|
|]
|
|
|
|
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
|