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 (UnlabelledContent -> Contents) -> UnlabelledContent -> Contents
forall a b. (a -> b) -> a -> b
$ RawContent -> UnlabelledContent
ulcc (RawContent -> UnlabelledContent)
-> RawContent -> UnlabelledContent
forall a b. (a -> b) -> a -> b
$ ListType -> RawContent
Enumeration (ListType -> RawContent) -> ListType -> RawContent
forall a b. (a -> b) -> a -> b
$ [Sentence] -> [ListType] -> ListType
bulletNested [Sentence]
learnObjList ([ListType] -> ListType) -> [ListType] -> ListType
forall a b. (a -> b) -> a -> b
$
  ([Sentence] -> ListType) -> [[Sentence]] -> [ListType]
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
+:+ ConceptChunk -> Sentence
forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"for 2D" Sentence -> Sentence -> Sentence
+:+ IdeaDict -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion 
  Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"from kinematic" Sentence -> Sentence -> Sentence
+:+ ConceptChunk -> Sentence
forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"from 1D rectilinear" Sentence -> Sentence -> Sentence
+:+ ConceptChunk -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase ConceptChunk
motion,
  String -> Sentence
S String
"Identify the assumptions required for the" Sentence -> Sentence -> Sentence
+:+ IdeaDict -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ 
  ConceptChunk -> 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
+:+ IdeaDict -> 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
+:+ ConceptChunk -> 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
+:+ IdeaDict -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ ConceptChunk -> 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
+:+ IdeaDict -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase IdeaDict
projMotion Sentence -> Sentence -> Sentence
+:+ ConceptChunk -> Sentence
forall n. NamedIdea n => n -> Sentence
plural ConceptChunk
equation Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"for the unknown quantities"]