nanogenmo2018/pages/7.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.List
import Text.LaTeX
import Text.LaTeX.Base.Class
import Text.LaTeX.Base.Syntax
import Text.LaTeX.Packages.Graphicx
import Text.LaTeX.Packages.Geometry
import Util

main :: IO ()
main = printdoc doc

doc :: Monad m => LaTeXT_ m
doc = do
    mapM_ thing [(x, y) | x <- [-3/64, -1/64 .. 69/64], y <- [-5/64, -3/64 .. 3/2]]

thing :: Monad m => (Double, Double) -> LaTeXT_ m
thing (x, y) = textblock' (vw x) (vw y) $ rotatebox' (360 * (sin (5 * pi * x - y))) $ fontsize (vh 0.025) (vh 0) "aaaaaaaaaaaaaaaaa"