module Drasil.Projectile.Lesson.LearnObj where

import Data.Drasil.Concepts.Physics (motion)
import Data.Drasil.Concepts.Math (cartesian, equation)
import Drasil.Projectile.Concepts (projMotion)

import Language.Drasil

learnObjContext :: Contents
learnObjContext :: Contents
learnObjContext = UnlabelledContent -> Contents
UlC forall a b. (a -> b) -> a -> b
$ RawContent -> UnlabelledContent
ulcc forall a b. (a -> b) -> a -> b
$ ListType -> RawContent
Enumeration forall a b. (a -> b) -> a -> b
$ [Sentence] -> [ListType] -> ListType
bulletNested [Sentence]
learnObjList forall a b. (a -> b) -> a -> b
$
  forall a b. (a -> b) -> [a] -> [b]
map [Sentence] -> ListType
bulletFlat [[], [Sentence]
assumpResp, [Sentence]
solveResp]

learnObjList :: [Sentence]
learnObjList :: [Sentence]
learnObjList = [String -> Sentence
S String
"Derive kinematic" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"for 2D" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion 
  Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"from kinematic" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"from 1D rectilinear" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase ConceptChunk
motion,
  String -> Sentence
S String
"Identify the assumptions required for the" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ 
  forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"to hold:",
  String -> Sentence
S String
"Solve any given (well-defined) free-flight" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+
  String -> Sentence
S String
"problems by:"]

assumpResp :: [Sentence]
assumpResp :: [Sentence]
assumpResp = [String -> Sentence
S String
"Air resistance is neglected",
  String -> Sentence
S String
"Gravitational acceleration acts downward and is constant, regardless of altitude"]

solveResp :: [Sentence]
solveResp :: [Sentence]
solveResp = [String -> Sentence
S String
"Able to select an appropriate" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
titleize ConceptChunk
cartesian 
  Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"to simplify the problem as much as possible",
  String -> Sentence
S String
"Able to identify the known variables",
  String -> Sentence
S String
"Able to identify the unknown variables",
  String -> Sentence
S String
"Able to write" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"for the given problem",
  String -> Sentence
S String
"Able to solve the" Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"for the unknown quantities"]