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

import Drasil.Metadata (physics, dataDefn, genDefn, inModel, thModel)

import Language.Drasil

import Data.Drasil.Concepts.Documentation (assumption, goalStmt, likelyChg,
  requirement, refBy, refName, srs, 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]