module Drasil.SglPendulum.Figures (figMotion, sysCtxFig1) where

import Language.Drasil
import Language.Drasil.Chunk.Concept.NamedCombinators

import Data.Drasil.Concepts.Documentation (physicalSystem, sysCont)

resourcePath :: String
resourcePath :: String
resourcePath = "../../../../datafiles/sglpendulum/"

figMotion :: LabelledContent
figMotion :: LabelledContent
figMotion = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef "sglpendulum") (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> String -> MaxWidthPercent -> RawContent
figWithWidth (NP -> Lbl
forall n. NounPhrase n => n -> Lbl
atStartNP (NamedChunk -> NP
forall t. NamedIdea t => t -> NP
the NamedChunk
physicalSystem))
  (String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ "sglpendulum.jpg") 70

sysCtxFig1 :: LabelledContent
sysCtxFig1 :: LabelledContent
sysCtxFig1 = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef "sysCtxDiag") (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> String -> RawContent
fig (NamedChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
titleize NamedChunk
sysCont) 
  (String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ "SystemContextFigure.png")