module Drasil.Projectile.Lesson.Figures (figCSandA) where

import Language.Drasil
import Language.Drasil.Chunk.Concept.NamedCombinators (the)
import qualified Language.Drasil.Development as D

import Data.Drasil.Concepts.Documentation (coordinateSystem)

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

figCSandA :: LabelledContent
figCSandA :: LabelledContent
figCSandA = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef String
"CoordSystAndAssumpts") (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> String -> RawContent
fig (NPStruct -> Lbl
D.toSent (NPStruct -> Lbl) -> NPStruct -> Lbl
forall a b. (a -> b) -> a -> b
$ NP -> NPStruct
forall n. NounPhrase n => n -> NPStruct
atStartNP (NP -> NPStruct) -> NP -> NPStruct
forall a b. (a -> b) -> a -> b
$ IdeaDict -> NP
forall t. NamedIdea t => t -> NP
the IdeaDict
coordinateSystem)
  (String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"CoordSystAndAssumpts.png")