From 486604532fa99fd294bb2d0c4166d815de6d4fde Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 10 Jun 2016 14:20:08 +0200 Subject: entity notes --- src/Sequence/Contact/Archetypes.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Sequence/Contact') diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs index 32cfa22..30aa2b6 100644 --- a/src/Sequence/Contact/Archetypes.hs +++ b/src/Sequence/Contact/Archetypes.hs @@ -96,6 +96,7 @@ human = Humanoid , _sPainTolerance = vMass `quot'` 2 + vWillpower , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance + , _sSeqEpsilon = False , _sHitzones = cTable [ (1, 5, "Kopf") , (6, 54, "Torso") @@ -173,6 +174,8 @@ dog = Quadruped , _sPainTolerance = vMass `quot'` 2 + vWillpower , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance + , _sSeqEpsilon = False + , _sHitzones = [ ("Kopf", 0.05) , ("Torso", 0.49) , ("Rechter Vorderlauf", 0.08) @@ -208,6 +211,8 @@ dolphin = Dolphin , _sPainTolerance = vMass `quot'` 2 + vWillpower , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance + , _sSeqEpsilon = False + , _sHitzones = [ ("Kopf", 0.10) , ("Rumpf", 0.65) , ("Schwanz", 0.25) -- cgit v1.2.3