module Drasil.SSP.Figures where

import Language.Drasil
import Data.Drasil.Concepts.Physics (force)
import Drasil.SSP.Defs (slice)


figForceActing :: LabelledContent
figForceActing :: LabelledContent
figForceActing = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef String
"ForceDiagram") (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$
  Lbl -> String -> RawContent
fig (ConceptChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
atStart' ConceptChunk
force Lbl -> Lbl -> Lbl
+:+ String -> Lbl
S String
"acting on a" Lbl -> Lbl -> Lbl
+:+
  IdeaDict -> Lbl
forall n. NamedIdea n => n -> Lbl
phrase IdeaDict
slice) (String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"ForceDiagram.png")

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