module Drasil.GamePhysics.Concepts (centreMass, threeD, twoD, acronyms) where

import Language.Drasil

import Drasil.Metadata (physics, dataDefn, genDefn, inModel, thModel, srs,
  requirement)
import Data.Drasil.Concepts.Documentation (assumption, goalStmt, likelyChg,
  refBy, refName, typUnc, unlikelyChg)
import Data.Drasil.Concepts.Math (ode)
import Data.Drasil.Concepts.PhysicalProperties (ctrOfMass)
import Data.Drasil.Concepts.Physics (threeD, twoD)

import Control.Lens ((^.))

----- Acronyms -----

acronyms :: [CI]
acronyms :: [CI]
acronyms = [CI
assumption, CI
centreMass, CI
dataDefn, CI
genDefn, CI
goalStmt, CI
inModel,
  CI
likelyChg, CI
ode, CI
requirement, CI
refBy, CI
refName, CI
srs, CI
thModel, CI
threeD, CI
twoD, CI
typUnc, CI
unlikelyChg]

centreMass :: CI
centreMass :: CI
centreMass  = String -> NP -> String -> [IdeaDict] -> CI
commonIdeaWithDict String
"centreMass"  (ConceptChunk
ctrOfMass ConceptChunk -> Getting NP ConceptChunk NP -> NP
forall s a. s -> Getting a s a -> a
^. Getting NP ConceptChunk NP
forall c. NamedIdea c => Lens' c NP
Lens' ConceptChunk NP
term) String
"CM" [IdeaDict
physics]