content: {-# LANGUAGE OverloadedStrings #-}
  module Estuary.Help.CineCer0.CineCer0 where
  
  import Reflex hiding (Request,Response)
  import Reflex.Dom hiding (Request,Response)
  import Control.Monad.Fix (MonadFix)
  
  import Estuary.Types.Language
  import Estuary.Widgets.Reflex
  import Estuary.Widgets.W
  import Data.Map.Strict
  
  cineCer0Help :: (DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m) => W t m ()
  cineCer0Help = el "div" $ do
    aboutCineCer0
    examplesCineCer0
  
  
  aboutCineCer0 :: (Monad m, Reflex t, DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m) => W t m ()
  aboutCineCer0 = el "div" $ do
    dynText =<< (translatableText $ fromList [
      (English,"CineCer0 (pronounced \"sin–ay–ser-oh\") is a language for displaying and transforming videos and text in the browser. It can be used, for example, in the performance of live coded cinema, kinetic typography, VJ-ing, etc. Originally inspired by the CineVivo project, and created specifically for the Estuary platform during the SSHRC-funded research project \"Platforms and practices for networked, language- neutral live coding\". CineCer0 features an economical Haskell-like notation and a strongly declarative syntax."),
      (Español,"CineCer0 es un lenguaje para reproducir y transformar video, así como renderizar y transformar texto en el navegador. Puede ser usado, por ejemplo, para performance de live cinema con programación al vuelo, animación tipográfica, VJ-ing, etc. Este lenguaje fue originalmente inspirado en el proyecto CineVivo, y creado específicamente para correr en la plataforma de Estuary como parte del proyecto de investigación apoyado por SSHRC \"Platforms and practices for networked, language- neutral live coding\". CineCer0 presenta una notación económica parecida a la de Haskell, y con sintaxis declarativa.")
      ])
  
  
  examplesCineCer0 :: (DomBuilder t m, PostBuild t m, Monad m, Reflex t, MonadHold t m, MonadFix m) => W t m ()
  examplesCineCer0 = el "div" $ do
    dynText =<< (translatableText $ fromList [
      (English,"Examples:"),
      (Español,"Ejemplos:")
      ])
    el "ul" $ do
      el "li" $ elClass "div" "ieRef" $ text "circleMask 0.5 $ vol 0.5 $ video \"videos/cootes/branches.mov\""
      el "li" $ elClass "div" "ieRef" $ text "setSize 0.8 $ image \"images/hogweed.mov\""
      el "li" $ elClass "div" "ieRef" $ text "rgb 1 0 1 $ size 6 $ setPosY (-0.6) $ text \"This is a text\""
  