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 "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 "acting on a" Lbl -> Lbl -> Lbl
+:+
  NamedChunk -> Lbl
forall n. (HasUID n, NamedIdea n) => n -> Lbl
phrase NamedChunk
slice) (String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ "ForceDiagram.png")

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