Cleanup

More tweaking needs to be done, after deciding a max width for selection
items.

.ghci

@@ -1 +1,2 @@
 :set prompt ">"
+:load test/Spec.hs

.ghcid

@@ -1 +1 @@
---command "stack ghci --main-is loop:exe:dodge"
+--command "stack ghci --test --main-is loop:test:loop-test --ghci-options=-fobject-code"

.gitignore

@@ -4,3 +4,9 @@
 loop.cabal
 *.lock
 keys.json
+log/*
+generated/*
+UntrackedMisc/*
+tags
+ghcidOutput
+.ghcid.bak

.hlint.yaml

@@ -0,0 +1,71 @@
+# HLint configuration file
+# https://github.com/ndmitchell/hlint
+##########################
+
+# This file contains a template configuration file, which is typically
+# placed as .hlint.yaml in the root of your project
+
+
+# Specify additional command line arguments
+#
+# - arguments: [--color, --cpp-simple, -XQuasiQuotes]
+
+
+# Control which extensions/flags/modules/functions can be used
+#
+# - extensions:
+#   - default: false # all extension are banned by default
+#   - name: [PatternGuards, ViewPatterns] # only these listed extensions can be used
+#   - {name: CPP, within: CrossPlatform} # CPP can only be used in a given module
+#
+# - flags:
+#   - {name: -w, within: []} # -w is allowed nowhere
+#
+# - modules:
+#   - {name: [Data.Set, Data.HashSet], as: Set} # if you import Data.Set qualified, it must be as 'Set'
+#   - {name: Control.Arrow, within: []} # Certain modules are banned entirely
+#
+# - functions:
+#   - {name: unsafePerformIO, within: []} # unsafePerformIO can only appear in no modules
+
+
+# Add custom hints for this project
+#
+# Will suggest replacing "wibbleMany [myvar]" with "wibbleOne myvar"
+# - error: {lhs: "wibbleMany [x]", rhs: wibbleOne x}
+
+# The hints are named by the string they display in warning messages.
+# For example, if you see a warning starting like
+#
+# Main.hs:116:51: Warning: Redundant ==
+#
+# You can refer to that hint with `{name: Redundant ==}` (see below).
+
+# Turn on hints that are off by default
+#
+# Ban "module X(module X) where", to require a real export list
+#- warn: {name: Use explicit module export list} # TODO uncomment
+#
+# Replace a $ b $ c with a . b $ c
+#- group: {name: dollar, enabled: true} # TODO uncomment
+#
+# Generalise map to fmap, ++ to <>
+#- group: {name: generalise, enabled: true} # TODO uncomment
+#
+# Warn on use of partial functions
+# - group: {name: partial, enabled: true} # possibly uncomment
+
+- group: {name: use-lens, enabled: true}
+
+# Ignore some builtin hints
+# - ignore: {name: Use let}
+# - ignore: {name: Use const, within: SpecialModule} # Only within certain modules
+
+- ignore: {name: Functor law}
+
+# Define some custom infix operators
+# - fixity: infixr 3 ~^#^~
+
+
+# To generate a suitable file for HLint do:
+# $ hlint --default > .hlint.yaml

ChangeLog.md

@@ -1,3 +0,0 @@
-# Changelog for loop
-
-## Unreleased changes

README.md

@@ -1 +0,0 @@
-# loop

appDodge/Main.hs

@@ -1,39 +1,30 @@
-module Main (
-    main,
-) where
+module Main (main) where
 
+import Dodge.SoundSelection
 import Control.Lens
 import Control.Monad
 import Control.Parallel
 import qualified Data.Map.Strict as M
---import Data.Preload.Render
 import qualified Data.Text as T
 import Dodge.Concurrent
-import Dodge.Config.Load
-import Dodge.Config.Update
+import Dodge.Config
 import Dodge.Data
 import Dodge.Event
 import Dodge.Initialisation
 import Dodge.LoadSeed
-import Dodge.Menu
 import Dodge.Render
 import Dodge.SoundLogic.LoadSound
+import Dodge.StartNewGame
 import Dodge.TestString
 import Dodge.Update
---import qualified IntMapHelp as IM
 import Loop
---import Picture
 import Preload
 import Preload.Render
---import Render
-
 import SDL (($=))
 import qualified SDL
---import qualified SDL.Mixer as Mix
 import Sound
 import System.Directory
 
-
 main :: IO ()
 main = do
     -- load the config to get the window size and position
@@ -74,7 +65,7 @@ winConfig x y winpos =
 theCleanup :: Universe -> IO ()
 theCleanup uv = SDL.cursorVisible $= True >> cleanUpPreload (_preloadData uv)
 
-firstWorldLoad :: Configuration -> IO Universe
+firstWorldLoad :: Config -> IO Universe
 firstWorldLoad theConfig = do
     SDL.cursorVisible $= False
     pdata <- doPreload >>= applyWorldConfig theConfig
@@ -97,22 +88,29 @@ firstWorldLoad theConfig = do
                 , _uvDebug = mempty
                 , _uvDebugFloat1 = 10
                 , _uvDebugFloat2 = 0
+                , _uvDebugV2_1 = 0
+                , _uvDebugV2_2 = 1
+                , _uvDebugPut = mempty
                 , _uvDebugMessageOffset = 0
                 , _uvSoundQueue = mempty
+                , _uvDebugPathShowType = PathBetweenDebugV2s
                 }
-    return $ u & uvScreenLayers .~ [splashMenu u]
+    --return $ u & uvScreenLayers .~ [splashMenu u]
+    return $ startNewGameInSlot 0 u
 
 theUpdateStep :: SDL.Window -> Universe -> IO Universe
 theUpdateStep win = doSideEffects <=< updateRenderSplit win
 
 updateRenderSplit :: SDL.Window -> Universe -> IO Universe
 updateRenderSplit win u = do
-    updateUniverse u `par` void (doDrawing win u)
+    --updateUniverse u `par` void (doDrawing win u)
+    updateUniverse u `par` doDrawing win u
     return $! updateUniverse u
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
 playSoundUnlessRewinding u = case w ^. timeFlow of
-    NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
+    NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (newSoundsToPlay u)
+    RespawnDelay{} -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (newSoundsToPlay u)
     _ -> stopAllSounds >> return M.empty
   where
     w = _uvWorld u
@@ -139,13 +137,13 @@ doPreload = do
     putStrLn "Start sound preload"
     lChunks <- loadSounds
     putStrLn "Skip music preload!"
---    lMusic <- loadMusic
---    Mix.playMusic Mix.Forever (lMusic IM.! 0)
+    --    lMusic <- loadMusic
+    --    Mix.playMusic Mix.Forever (lMusic IM.! 0)
     putStrLn "Return PreloadData"
     return
         PreloadData
             { _renderData = rData
             , _soundData = lChunks
-            --, _musicData = MusicData{_loadedMusic = lMusic}
-            , _musicData = mempty
+            , --, _musicData = MusicData{_loadedMusic = lMusic}
+              _musicData = mempty
             }

asdf

@@ -1,483 +0,0 @@
-{- |
-Weapon effects when pulling the trigger.  -}
-module Dodge.Item.Weapon.TriggerType
-    where
-import Dodge.Data
-import Dodge.SoundLogic
-import Dodge.Creature.Action (startReloadingWeapon)
-import Dodge.WorldEvent (muzzleFlashAt,tempLightForAt)
-import Dodge.WorldEvent.Cloud
-import Dodge.RandomHelp
-import Dodge.Particle.Bullet.Spawn
-import Dodge.Item.Attachment.Data
-import Dodge.Item.Data
-import Geometry
-
-import System.Random
-import Control.Lens
-import Control.Monad.State
-import Data.Maybe
-import qualified Data.IntMap.Strict as IM
-import Data.Foldable
-
-withThinSmoke 
-    :: (Creature -> World -> World) -- ^ Underlying effect
-    -> Creature   
-    -> World 
-    -> World
-withThinSmoke eff cr w = eff cr $ foldl' (flip $ makeThinSmokeAt . (+.+ pos)) w ps
-  where
-    dir = _crDir cr
-    pos = _crPos cr +.+ (_crRad cr +0.5) *.* unitVectorAtAngle dir
-    ps = (replicateM 5 . randInCirc) 8 & evalState $ _randGen w
-
-withThickSmoke 
-    :: (Creature -> World -> World) -- ^ Underlying effect
-    -> Creature  
-    -> World 
-    -> World
-withThickSmoke eff cr w = eff cr $ foldl' (flip $ makeThickSmokeAt . (+.+ pos)) w ps
-  where
-    dir = _crDir cr
-    pos = _crPos cr +.+ (_crRad cr + 15) *.* unitVectorAtAngle dir
-    ps = (replicateM 20 . randInCirc) 8 & evalState $ _randGen w
-{- |
-Fires at an increasing rate.
-Has different effect after first fire.
-Applies ammo check and use cooldown check.  -}
-rateIncAB 
-    :: Int  -- ^ Start rate
-    -> Int  -- ^ End rate
-    -> (Creature -> World -> World)  -- ^ Effect on first fire
-    -> (Creature -> World -> World)  -- ^ Effect on continued fire
-    -> Creature  -- ^ Creature id
-    -> World 
-    -> World
-rateIncAB startRate fastRate shooteff1 shooteff2 cr w
-    | repeatFire = w
-        & pointItem %~ ( (itUseRate .~ max fastRate (currentRate - 1))
-            . (wpLoadedAmmo -~ 1)
-            . (itUseTime .~ currentRate) )
-        & shooteff2 cr
-    | firstFire = w
-        & pointItem %~ ( (itUseRate .~ startRate - 1)
-            . (wpLoadedAmmo -~ 1)
-            . (itUseTime .~ startRate) )
-        & shooteff1 cr
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | otherwise = w
-  where 
-    cid = _crID cr
-    itRef = _crInvSel cr
-    item = _crInv cr IM.! itRef
-    pointItem = creatures . ix cid . crInv . ix itRef
-    currentRate = _itUseRate item
-    repeatFire = _wpReloadState item == 0 
-        && _itUseTime item == 1 
-        && _wpLoadedAmmo item > 0
-    firstFire = _wpReloadState item == 0 
-        && _itUseTime item == 0 
-        && _wpLoadedAmmo item > 0
-    reloadCondition = _wpLoadedAmmo item == 0
-{- |
-Shoot a weapon rapidly after a warm up.
-Applies ammo check as well.  -}
-withWarmUp 
-    :: Int  -- ^ Warm up time (in frames)
-    -> (Creature -> World -> World) 
-            -- ^ Shoot effect
-    -> Creature
-    -> World 
-    -> World
-withWarmUp t f cr w 
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | _wpReloadState item /= 0 = w
-    | fState == 0 = w
-        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp 100 f)) . (itUseTime .~ 2) )
-    | t > 2 = w 
-        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp (t-1) f)) . (itUseTime .~ 2) )
-        & soundFrom (CrWeaponSound cid) 26 2 0
-    | t > 0 = w 
-        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp (t-1) f)) . (itUseTime .~ 2) )
-    | otherwise = w 
-        & pointerToItem %~ ( (itUse .~ (\_ -> withWarmUp 1 f)) . (wpLoadedAmmo -~ 1) . (itUseTime .~ 2) )
-        & f cr
-        & soundFrom (CrWeaponSound cid) 28 2 0
-  where 
-    cid = _crID cr
-    itRef = _crInvSel cr
-    item = _crInv cr IM.! itRef
-    pointerToItem = creatures . ix cid . crInv . ix itRef
-    fState = _itUseTime item
-    reloadCondition = _wpLoadedAmmo item == 0
-{- | Adds a sound to a creature based world effect. 
-The sound is emitted from the creature's position. -}
-withSound 
-    :: Int -- ^ Sound id
-    -> (Creature -> World -> World) -- ^ Underlying effect
-    -> Creature 
-    -> World -> World
-withSound soundid f cr = soundOncePos soundid (_crPos cr) . f cr
-
-withRecoil 
-    :: Float    -- ^ Recoil amount
-    -> (Creature -> World -> World) 
-                -- ^ Underlying world effect, takes creature id as input
-    -> Creature 
-    -> World -> World
-withRecoil recoilAmount eff cr = eff cr . over (creatures . ix cid) pushback
-  where 
-    cid = _crID cr
-    pushback = over crPos (+.+ rotateV (_crDir cr) (V2 ((-recoilAmount) / _crMass cr ) 0))
-{- | Pushes a creature sideways by a random amount.
-Applied before the underlying effect.  -}
-withSidePush 
-    :: Float    -- ^ Maximal possible side push amount
-    -> (Creature -> World -> World)  
-                -- ^ Underlying world effect, takes creature id as input
-    -> Creature 
-    -> World -> World
-withSidePush maxSide eff cr w = eff cr . over (creatures . ix cid) push $ w
-  where 
-    cid = _crID cr
-    push = over crPos (+.+ rotateV (_crDir cr) (V2 0 (pushAmount / _crMass cr)))
-    (pushAmount, _) = randomR (-maxSide,maxSide) $ _randGen w
--- consider unifying the pushes using a direction vector
-{- | Pushes a creature sideways by a random amount.
-Applied after the underlying effect.  -}
-withSidePushAfter
-    :: Float    -- ^ Maximal possible side push amount
-    -> (Creature -> World -> World)  
-                -- ^ Underlying world effect, takes creature id as input
-    -> Creature      -- ^ Creature id
-    -> World -> World
-withSidePushAfter maxSide eff cr w = over (creatures . ix cid) push . eff cr $ w
-  where 
-    cid = _crID cr
-    push = over crPos (+.+ rotateV (_crDir cr) (V2 0 (pushAmount / _crMass cr)))
-    (pushAmount, _) = randomR (-maxSide,maxSide) $ _randGen w
-{- | Applies a world effect and sound effect after an ammo check. -}
-shootWithSound 
-    :: Int  -- ^ Sound identifier
-    -> (Creature -> World -> World) 
-            -- ^ Shoot effect, takes creature id as input
-    -> Creature 
-    -> World 
-    -> World
-shootWithSound soundid f cr w
-    | fireCondition = over (pointerToItem . wpLoadedAmmo) (\ammo -> ammo-1) 
-        $ soundOncePos soundid (_crPos cr)
-        $ set (pointerToItem . itUseTime) (_itUseRate item)
-        $ f cr w
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | otherwise = w
-  where 
-    cid = _crID cr
-    itRef = _crInvSel cr
-    item = _crInv cr IM.! itRef
-    pointerToItem = creatures . ix cid . crInv . ix itRef
-    fireCondition = _wpReloadState item == 0
-                      && _itUseTime item == 0
-                      && _wpLoadedAmmo item > 0
-    reloadCondition = _wpLoadedAmmo item == 0
-{- | Applies a world effect and sound effect after an ammo check. -}
-shootWithSoundI
-    :: Int  -- ^ Sound identifier
-    -> (Item -> Creature -> World -> World) 
-            -- ^ Shoot effect, takes creature id as input
-    -> Item 
-    -> Creature 
-    -> World 
-    -> World
-shootWithSoundI soundid f item cr w
-    | fireCondition = over (pointerToItem . wpLoadedAmmo) (\ammo -> ammo-1) 
-        $ soundOncePos soundid (_crPos cr)
-        $ set (pointerToItem . itUseTime) (_itUseRate item)
-        $ f item cr w
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | otherwise = w
-  where 
-    cid = _crID cr
-    itRef = _crInvSel cr
-    pointerToItem = creatures . ix cid . crInv . ix itRef
-    fireCondition = _wpReloadState item == 0
-        && _itUseTime item == 0
-        && _wpLoadedAmmo item > 0
-    reloadCondition = _wpLoadedAmmo item == 0
-{- | 
-Applies a world effect after an item use cooldown check. -}
-useTimeCheck
-    :: (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature 
-    -> World
-    -> World
-useTimeCheck f cr w = case theItem ^? itUseTime of
-    Just 0 -> f cr $ setUseTime w
-    _             -> w
-  where 
-    cid = _crID cr
-    setUseTime = creatures . ix cid . crInv . ix (_crInvSel cr) . itUseTime +~ useRate
-    theItem = _crInv cr IM.! _crInvSel cr
-    useRate = fromMaybe 0 $ theItem ^? itUseRate
-{- | Applies a world effect after a hammer position check. -}
-hammerCheck
-    :: (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature 
-    -> World
-    -> World
-hammerCheck f cr w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of
-    Just HammerUp -> f cr $ setHammerDown w
-    _             -> setHammerDown w
-  where 
-    cid = _crID cr
-    setHammerDown = creatures . ix cid . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
-{- | Applies a world effect after a hammer position check. -}
-hammerCheckI
-    :: (Item -> Creature -> World -> World)  -- ^ Underlying effect
-    -> Item
-    -> Creature 
-    -> World
-    -> World
-hammerCheckI f it cr w = case it ^? itHammer of
-    Just HammerUp -> f it cr $ setHammerDown w
-    _             -> setHammerDown w
-  where 
-    cid = _crID cr
-    setHammerDown = creatures . ix cid . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
-{- | Applies a world effect after an ammo check. -}
-shoot 
-    :: (Creature -> World -> World) 
-            -- ^ Underlying effect
-    -> Creature
-    -> World
-    -> World
-shoot f cr w 
-    | fireCondition = f cr w & pointerToItem %~
-        ( (wpLoadedAmmo -~ 1) . (itUseTime .~ _itUseRate item) )
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | otherwise = w
-  where 
-    cid = _crID cr
-    itRef = _crInvSel cr
-    item = _crInv cr IM.! itRef
-    pointerToItem = creatures . ix cid . crInv . ix itRef
-    fireCondition = _wpReloadState item == 0
-        && _itUseTime item == 0
-        && _wpLoadedAmmo item > 0
-    reloadCondition = _wpLoadedAmmo item == 0
-{- | Applies a world effect after a hammer position check.
-Arbitrary inventory position. -}
-hammerCheckL
-    :: (Creature -> Int -> World -> World)  -- ^ Underlying effect
-    -> Creature 
-    -> Int
-    -> World
-    -> World
-hammerCheckL f cr invid w = case (_crInv cr IM.! invid) ^? itHammer of
-    Just HammerUp -> f cr invid $ setHammerDown w
-    _             -> setHammerDown w
-  where 
-    cid = _crID cr
-    setHammerDown = creatures . ix cid . crInv . ix invid . itHammer .~ HammerDown
-{- | Applies a world effect after an ammo check. 
-Arbitrary inventory position. -}
-shootL 
-    :: (Creature -> Int -> World -> World) 
-            -- ^ Underlying effect
-    -> Creature
-    -> Int -- ^ Inventory position
-    -> World
-    -> World
-shootL f cr invid w 
-    | fireCondition = f cr invid w & pointerToItem %~
-        ( (wpLoadedAmmo -~ 1) . (itUseTime .~ _itUseRate item) )
-    | reloadCondition = fromMaybe w $ startReloadingWeapon cr w
-    | otherwise = w
-  where 
-    cid = _crID cr
-    item = _crInv cr IM.! invid
-    pointerToItem = creatures . ix cid . crInv . ix invid
-    fireCondition = _wpReloadState item == 0
-        && _itUseTime item == 0
-        && _wpLoadedAmmo item > 0
-    reloadCondition = _wpLoadedAmmo item == 0
-
-withMuzFlare 
-    :: (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature
-    -> World 
-    -> World
-withMuzFlare f cr w = tempLightForAt 3 pos . muzzleFlashAt pos2 $ f cr w
-  where 
-    pos = _crPos cr +.+ _crRad cr *.* unitVectorAtAngle (_crDir cr)
-    pos2 = _crPos cr +.+ (2 * _crRad cr) *.* unitVectorAtAngle (_crDir cr)
-
-withMuzFlareI
-    :: (Item -> Creature -> World -> World)  -- ^ Underlying effect
-    -> Item
-    -> Creature
-    -> World 
-    -> World
-withMuzFlareI f it cr w = tempLightForAt 3 pos . muzzleFlashAt pos2 $ f it cr w
-  where 
-    pos = _crPos cr +.+ _crRad cr *.* unitVectorAtAngle (_crDir cr)
-    pos2 = _crPos cr +.+ (2 * _crRad cr) *.* unitVectorAtAngle (_crDir cr)
-{- | Applies the effect to a randomly rotated creature.  -}
-withRandomDir 
-    :: Float    -- ^ Max possible rotation
-    -> (Creature -> World -> World) 
-                -- ^ Underlying effect
-    -> Creature
-    -> World 
-    -> World
-withRandomDir acc f cr w = f (cr & crDir +~ a) $ set randGen g w
-  where 
-    (a, g) = randomR (-acc,acc) $ _randGen w
-{- | Applies the effect to a randomly rotated creature.  -}
-withRandomDirI
-    :: Float    -- ^ Max possible rotation
-    -> (Item -> Creature -> World -> World) 
-                -- ^ Underlying effect
-    -> Item
-    -> Creature
-    -> World 
-    -> World
-withRandomDirI acc f it cr w = f it (cr & crDir +~ a) $ set randGen g w
-  where 
-    (a, g) = randomR (-acc,acc) $ _randGen w
-{- | Creates a bullet with a given velocity, width, and 'HitEffect' -}
-withVelWthHiteff 
-    :: Point2       -- ^ Velocity, x direction is forward with respect to the creature
-    -> Float        -- ^ Bullet width
-    -> HitEffect    -- ^ Bullet effect when hitting creature, wall etc
-    -> Creature          -- ^ Creature id
-    -> World 
-    -> World
-withVelWthHiteff vel width hiteff cr = over particles (newbul : ) 
-  where 
-    cid = _crID cr
-    newbul = aGenBulAt (Just cid) pos (rotateV dir vel) hiteff width
-    dir = _crDir cr
-    pos = _crPos cr +.+ _crRad cr *.* unitVectorAtAngle (_crDir cr)
-{- | Apply the effect to a translated creature. -}
-withRandomOffset 
-    :: Float    -- ^ Max possible translate
-    -> (Creature -> World -> World)
-                -- ^ Underlying effect
-    -> Creature 
-    -> World 
-    -> World
-withRandomOffset offsetAmount f cr w = f (cr & crPos %~ (+.+ offV)) $ set randGen g w
-  where 
-    (offsetVal , g) = randomR (-offsetAmount,offsetAmount) $ _randGen w
-    offV = rotateV (_crDir cr) (V2 0 offsetVal)
--- | Rotates a creature with minimum rotation at least 0.1.
--- Rotates the player creature before applying the effect, other creatures after.
-torqueBeforeForced 
-    :: Float    -- ^ Max possible rotation (less the 0.1 forced rotation)
-    -> (Creature -> World -> World) 
-                -- ^ Underlying effect
-    -> Creature
-    -> World 
-    -> World
-torqueBeforeForced torque feff cr w 
-    | cid == 0  = feff (cr & crDir +~ rot') $ w
-        & randGen                    .~ g 
-        & creatures . ix cid . crDir +~ rot'
-        & cameraRot                  +~ rot'
-    | otherwise = feff cr $ set randGen g $ over (creatures . ix cid . crDir) (+rot') w
-  where 
-    cid = _crID cr
-    (rot, g) = randomR (-torque,torque) $ _randGen w
-    rot' | rot < 0   = rot - 0.1
-         | otherwise = rot + 0.1
--- | Rotates the player creature before applying an effect.
--- Note this currently (29/4/2021) rotates other creatures /after/ applying the effect.
-torqueBefore 
-    :: Float                     -- ^ Max possible rotation
-    -> (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature                      -- ^ Creature id
-    -> World 
-    -> World
-torqueBefore torque feff cr w 
-    | cid == 0  = feff (cr & crDir +~ rot) $ w
-        & randGen                    .~ g 
-        & creatures . ix cid . crDir +~ rot
-        & cameraRot                  +~ rot
-    | otherwise = set randGen g $ over (creatures . ix cid . crDir) (+rot) $ feff cr w
-  where 
-    cid = _crID cr
-    (rot, g) = randomR (-torque,torque) $ _randGen w
--- | Rotate a randomly creature after applying an effect.
-torqueAfter
-    :: Float                    -- ^ Max possible rotation
-    -> (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature                      -- ^ Creature id
-    -> World 
-    -> World
-torqueAfter torque feff cr w 
-    | cid == 0  = rotateScope $ set randGen g $ over cameraRot (+rot) $ feff cr w
-    | otherwise = set randGen g $ over (creatures . ix cid . crDir) (+rot) $ feff cr w
-  where 
-    cid = _crID cr
-    (rot, g) = randomR (-torque,torque) $ _randGen w
-    rotateScope = creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0))
-                          . itAttachment . _Just . scopePos %~ rotateV rot 
-{- | Create multiple bullets with a given spread, a given amount, given velocity,
-given width and given 'HitEffect'.  -}
-spreadNumVelWthHiteff 
-    :: Float    -- ^ Spread
-    -> Int      -- ^ Number of bullets
-    -> Point2   -- ^ Velocity, x is direction of creature
-    -> Float    -- ^ Bullet width
-    -> HitEffect -- ^ Effect when hitting creature, wall etc
-    -> Creature      -- ^ Creature id
-    -> World 
-    -> World
-spreadNumVelWthHiteff spread num vel wth eff cr w = over particles (newbuls ++) w
-  where 
-    cid = _crID cr
-    newbuls = zipWith
-        (\pos d -> aGenBulAt (Just cid) pos (rotateV d vel) eff wth) 
-        poss dirs
-    poss = map ((+.+) $ _crPos cr +.+ _crRad cr *.* unitVectorAtAngle (_crDir cr))
-        $ (replicateM num . randInCirc) 5 & evalState $ _randGen w
-    dirs = map (_crDir cr +) $ zipWith (+) 
-        [-spread,-spread+(2*spread/fromIntegral num)..]
-        (randomRs (0,spread/5) (_randGen w))
-{- | Create a number of bullets side by side with a given velocity,
-given width and given 'HitEffect'.  -}
-numVelWthHitEff 
-    :: Int      -- ^ Amount of bullets
-    -> Point2   -- ^ Velocity, x axis is direction of creature
-    -> Float    -- ^ Bullet width
-    -> HitEffect -- ^ Effect when hitting creature, wall etc
-    -> Creature  
-    -> World 
-    -> World
-numVelWthHitEff num vel wth eff cr = over particles (newbuls ++)
-  where 
-    cid = _crID cr
-    newbuls = map (\p -> aGenBulAt (Just cid) p (rotateV d vel) eff wth) poss 
-    d = _crDir cr
-    poss = map (+.+ pos) $ take num offsets
-    maxOffset = fromIntegral num * 2.5 - 2.5
-    offsets = map (rotateV d . V2 0) [-maxOffset,5-maxOffset..]
-    pos = _crPos cr +.+ _crRad cr *.* unitVectorAtAngle d
-{- | Uses '_wpSpread' as a parameter for the current offset angle. -}
-randWalkAngle 
-    :: Float    -- ^ Max offset angle
-    -> Float    -- ^ Walk speed
-    -> (Creature -> World -> World)  -- ^ Underlying effect
-    -> Creature      -- ^ Creature id
-    -> World 
-    -> World
-randWalkAngle ma aspeed f cr w = w
-    & f (cr & crDir +~ a)
-    & creatures . ix cid . crInv . ix i . wpSpread .~ newa
-  where
-    cid = _crID cr
-    a = _wpSpread $ _crInv (_creatures w IM.! cid) IM.! i
-    (walka, _) = randomR (-aspeed,aspeed) (_randGen w)
-    newa = min ma $ max (negate ma) (a + walka)
-    i = _crInvSel $ _creatures w IM.! cid

data/dodge.config.json

@@ -1,8 +1,7 @@
 {
   "_debug_booleans": [
     "Show_ms_frame",
-    "Mouse_position",
-    "Collision_test"
+    "Pathing"
   ],
   "_debug_view_clip_bounds": "NoRoomClipBoundaries",
   "_gameplay_rotate_to_wall": true,

data/terminalConversations/aiInterface

@@ -0,0 +1,40 @@
+The cortical interface is an incredible interdisciplinary breakthrough 
+in neurophysiology and computer science.
+It allows clients to directly receive information transmitted wirelessly.
+We expect this to allow for better, faster learning, allowing 
+humans to reach unheard of levels of knowledge and ability.
+
+Non-human animal trials did not appear to reduce lifespans significantly.
+Human trials are now in progress.
+
+I hate the way the interface just dumps information on you. 
+The way time just seems to stop... 
+makes me feel sick.
+
+I heard @name downloaded War and Peace, 
+but didn't expect it to be in russian.
+Took him a week to recover.
+
+What's the deal with the cortical interface?
+So, like, what happens if I constantly request info dumps? 
+Does that mean I live forever?
+
+Temporal distortion is a common side effect when using the cortical interface.
+Information is processed near instantaneously, causing other
+external events to appear paused.
+
+The cortical interface has some neat uses.
+I set up a timer to remind me of our anniversary.
+It's great, the AI even suggested the perfect present!
+
+Mood disorders.
+
+Anxiety.
+
+Epilepsy.
+
+Dizzyness, nauseau, tinitus.
+
+Autism.
+
+Schizoprenia.

data/terminalConversations/hubConversation.csv

@@ -0,0 +1,18 @@
+Where am I? What year is this? When is this?,Error: Impossible to determine. Cannot resolve with known frame. Presumed outside Earth light cone.
+What is this place?,Central hub. Corrupted zones have been sealed off.
+Who am I?,"Error: Unkown referent: “I”. Cannot determine what “I” refers to. Possible partial referent: Biological form generated x miliseconds. Partial list features: torso, four limbs, head w/ partial configuration of scanned data."
+Who are you?,"Error: Unknown referent: “you”. Terminal connected distributed system, unknown extent."
+What should I do?,Error: Unknown objective function. Module “Cat.Imperative” missing.
+Are you an AI?,"Terminal connected to distributed system, unkown extent. Can generate respose to finite queries."
+How did I get here?,Generated from blueprints and brain scan transmitted in unkown past.
+Can you heal me?,Full regeneration upon termination in areas external to central hub. WARNING: Cannot regenerate upon termination within central hub.
+What can you do?,"Item synthesis in terminal (over there), requires blueprint. Transport to defective zones."
+What are my capabilities?,Err. Basic movement and item acquisition. Items confer new capabilities. WARNING: carry capacity restricted.
+How do I get more powerful?,Carry capacity restoration possible: acquire module through door to north.
+What is through that door?,Error: Cannot exhaustively describe location. 
+Can you be less useful?,"Error: No objective function, try “set verbose”. Cannot determine utility of response."
+What are your capabilities?,Error: Parse “your → you”: Unknown referent “you”.
+,Error: Parse fail
+Do you have memory/hard drive?,All events logged with error correction. Future corruption inevitable. Unkown total bits of storage used/available across network.
+How long have you existed?,System clock: (random number) + game time
+What seed?,

data/terminalConversations/tutScenarioStart

@@ -0,0 +1,9 @@
+Something has gone wrong.
+
+My last memory is entering the reconstitution scanner.
+Though experimental, 
+this techology theoretically allows for perfect duplication.
+But there are strict rules, this would only happen if my old body is... 
+non-functional.
+
+Hopefully I can take better care of this one.

dodge.aux

@@ -1,42 +1,42 @@
-X_RANGE 38.37
-Y_RANGE 9447512.00
+X_RANGE 11.40
+Y_RANGE 20574456.00
 ORDER OTHER 1
-ORDER (157697)#..\/#./targetYouWhenCognizant/updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/fu... 2
-ORDER (165654)updateCloud.finalPos/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functi... 3
-ORDER (165606)updateCloud.finalVel/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functi... 4
-ORDER (155261)plLineBlock.makePane/plLineBlock.makeWallAt/plLineBlock.insertBlock/plLineBlock.insertBlocks/plL... 5
-ORDER (157606)#..\/#./performActions/updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/functional... 6
-ORDER (157522)updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/functionalUpdate/timeFlowUpdate/u... 7
-ORDER (144146)ix/crSetRoots/crUpdateItemLocations/scrollAugNextInSection/checkInventorySelectionExists/updateI... 8
-ORDER (157678)chaseCritAwarenessUpdate/chaseCritPerceptionUpdate/chainCreatureUpdates.unf/chainCreatureUpdates... 9
-ORDER (159529)updateExpBarrel.applyFuseDamage/updateExpBarrel.newCr/#..\/#./updateExpBarrel/updateBarreloid/up... 10
-ORDER (165621)updateCloud.(...)/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functiona... 11
-ORDER (181320)#..\/#./crSetRoots.f/ix/crSetRoots/crUpdateItemLocations/scrollAugNextInSection/checkInventorySe... 12
-ORDER (152512)zonePe.f/zonePe/generateLevelFromRoomList/generateWorldFromSeed/startSeedGameConc/startSeedGame/... 13
-ORDER (158152)ix/updateInv/foldCr.f/foldCr/crUpdate/defaultImpulsive/updateHumanoid/updateCreature/dimap/dimap... 14
-ORDER (162804)listSelectionColorPicture.g/listSelectionColorPicture/updateSection.(...)/updateSection/updateSe... 15
-ORDER (181178)crUpdateInvidLocations/crUpdateItemLocations/scrollAugNextInSection/checkInventorySelectionExist... 16
-ORDER (159623)ix/crCrSpring/crSpring/simpleCrSprings/functionalUpdate/timeFlowUpdate/updateUniverseMid/updateU... 17
-ORDER (159633)colCrsWalls/functionalUpdate/timeFlowUpdate/updateUniverseMid/updateUniverse/updateRenderSplit/t... 18
-ORDER (163282)updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functionalUpdate/timeFlowUp... 19
-ORDER (157730)ix/updateInv/foldCr.f/foldCr/crUpdate/humanoidAIList/updateHumanoid/updateCreature/dimap/dimap/_... 20
+ORDER (13951)updateEdgeWallObs 2
+ORDER (14169)updateDisplaySections,updateEdgeWallObs 3
+ORDER (14505)SYSTEM,updateDisplaySections,doDrawing',colCrsWalls,updateEdgeWallObs 4
+ORDER (13997)updateEdgeWallObs 5
+ORDER (13996)updateEdgeWallObs 6
+ORDER (14223)SYSTEM,updateDisplaySections,updateEdgeWallObs 7
+ORDER (14009)updateEdgeWallObs 8
+ORDER (14027)updateEdgeWallObs,ix 9
+ORDER (13964)SYSTEM,updateEdgeWallObs 10
+ORDER (13953)updateEdgeWallObs 11
+ORDER (14086)updateEdgeWallObs,ix 12
+ORDER (14099)updateEdgeWallObs,ix 13
+ORDER (14085)updateEdgeWallObs,ix 14
+ORDER (14030)updateEdgeWallObs,ix 15
+ORDER (14175)SYSTEM,updateDisplaySections,updateEdgeWallObs 16
+ORDER (2)SYSTEM 17
+ORDER (13952)SYSTEM,updateEdgeWallObs 18
+ORDER (13941)updateEdgeWallObs 19
+ORDER (14018)updateEdgeWallObs,ix 20
 SHADE OTHER 0.00
-SHADE (157697)#..\/#./targetYouWhenCognizant/updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/fu... 0.00
-SHADE (165654)updateCloud.finalPos/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functi... 0.00
-SHADE (165606)updateCloud.finalVel/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functi... 0.00
-SHADE (155261)plLineBlock.makePane/plLineBlock.makeWallAt/plLineBlock.insertBlock/plLineBlock.insertBlocks/plL... 0.10
-SHADE (157606)#..\/#./performActions/updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/functional... 0.10
-SHADE (157522)updateHumanoid/updateCreature/dimap/dimap/_Wrapped'/updateIMl'/functionalUpdate/timeFlowUpdate/u... 0.10
-SHADE (144146)ix/crSetRoots/crUpdateItemLocations/scrollAugNextInSection/checkInventorySelectionExists/updateI... 0.10
-SHADE (157678)chaseCritAwarenessUpdate/chaseCritPerceptionUpdate/chainCreatureUpdates.unf/chainCreatureUpdates... 0.00
-SHADE (159529)updateExpBarrel.applyFuseDamage/updateExpBarrel.newCr/#..\/#./updateExpBarrel/updateBarreloid/up... 0.00
-SHADE (165621)updateCloud.(...)/updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functiona... 0.00
-SHADE (181320)#..\/#./crSetRoots.f/ix/crSetRoots/crUpdateItemLocations/scrollAugNextInSection/checkInventorySe... 0.00
-SHADE (152512)zonePe.f/zonePe/generateLevelFromRoomList/generateWorldFromSeed/startSeedGameConc/startSeedGame/... 0.05
-SHADE (158152)ix/updateInv/foldCr.f/foldCr/crUpdate/defaultImpulsive/updateHumanoid/updateCreature/dimap/dimap... 0.05
-SHADE (162804)listSelectionColorPicture.g/listSelectionColorPicture/updateSection.(...)/updateSection/updateSe... 0.05
-SHADE (181178)crUpdateInvidLocations/crUpdateItemLocations/scrollAugNextInSection/checkInventorySelectionExist... 0.05
-SHADE (159623)ix/crCrSpring/crSpring/simpleCrSprings/functionalUpdate/timeFlowUpdate/updateUniverseMid/updateU... 0.10
-SHADE (159633)colCrsWalls/functionalUpdate/timeFlowUpdate/updateUniverseMid/updateUniverse/updateRenderSplit/t... 0.10
-SHADE (163282)updateCloud/updateObjCatMaybes.(...)/updateObjCatMaybes/updateClouds/functionalUpdate/timeFlowUp... 0.10
-SHADE (157730)ix/updateInv/foldCr.f/foldCr/crUpdate/humanoidAIList/updateHumanoid/updateCreature/dimap/dimap/_... 0.10
+SHADE (13951)updateEdgeWallObs 0.00
+SHADE (14169)updateDisplaySections,updateEdgeWallObs 0.00
+SHADE (14505)SYSTEM,updateDisplaySections,doDrawing',colCrsWalls,updateEdgeWallObs 0.00
+SHADE (13997)updateEdgeWallObs 0.10
+SHADE (13996)updateEdgeWallObs 0.10
+SHADE (14223)SYSTEM,updateDisplaySections,updateEdgeWallObs 0.10
+SHADE (14009)updateEdgeWallObs 0.10
+SHADE (14027)updateEdgeWallObs,ix 0.00
+SHADE (13964)SYSTEM,updateEdgeWallObs 0.00
+SHADE (13953)updateEdgeWallObs 0.00
+SHADE (14086)updateEdgeWallObs,ix 0.00
+SHADE (14099)updateEdgeWallObs,ix 0.05
+SHADE (14085)updateEdgeWallObs,ix 0.05
+SHADE (14030)updateEdgeWallObs,ix 0.05
+SHADE (14175)SYSTEM,updateDisplaySections,updateEdgeWallObs 0.05
+SHADE (2)SYSTEM 0.10
+SHADE (13952)SYSTEM,updateEdgeWallObs 0.10
+SHADE (13941)updateEdgeWallObs 0.10
+SHADE (14018)updateEdgeWallObs,ix 0.10

graph/itemCombinations.gv

@@ -1,281 +0,0 @@
-digraph {
-    graph [rankdir=LR];
-    subgraph 1 {
-        1 [shape=box
-          ,label="EQUIP {_ibtEquip = FUELPACK}"];
-        5 [shape=box
-          ,label="AMMOMAG {_ibtAmmoMag = TINMAG}"];
-        9 [shape=box
-          ,label="HELD {_ibtHeld = BANGSTICK {_xNum = 1}}"];
-        13 [shape=box
-           ,label="HELD {_ibtHeld = PISTOL}"];
-        15 [shape=box
-           ,label="HELD {_ibtHeld = AUTOPISTOL}"];
-        17 [shape=box
-           ,label="HELD {_ibtHeld = SMG}"];
-        20 [shape=box
-           ,label="HELD {_ibtHeld = MACHINEPISTOL}"];
-        22 [shape=box
-           ,label="HELD {_ibtHeld = BANGCONE}"];
-        25 [shape=box
-           ,label="HELD {_ibtHeld = BLUNDERBUSS}"];
-        27 [shape=box
-           ,label="HELD {_ibtHeld = GRAPECANNON {_xNum = 1}}"];
-        29 [shape=box
-           ,label="HELD {_ibtHeld = RIFLE}"];
-        31 [shape=box
-           ,label="HELD {_ibtHeld = VOLLEYGUN {_xNum = 3}}"];
-        33 [shape=box
-           ,label="HELD {_ibtHeld = AUTORIFLE}"];
-        35 [shape=box
-           ,label="HELD {_ibtHeld = BURSTRIFLE}"];
-        37 [shape=box
-           ,label="HELD {_ibtHeld = MINIGUNX {_xNum = 3}}"];
-        40 [shape=box
-           ,label="HELD {_ibtHeld = SNIPERRIFLE}"];
-        41 [shape=box
-           ,label="HELD {_ibtHeld = AMR}"];
-        44 [shape=box
-           ,label="HELD {_ibtHeld = AUTOAMR}"];
-        46 [shape=box
-           ,label="HELD {_ibtHeld = RLAUNCHER}"];
-        49 [shape=box
-           ,label="HELD {_ibtHeld = RLAUNCHERX {_xNum = 2}}"];
-        53 [shape=box
-           ,label="HELD {_ibtHeld = FLAMESPITTER}"];
-        57 [shape=box
-           ,label="HELD {_ibtHeld = BLOWTORCH}"];
-        59 [shape=box
-           ,label="HELD {_ibtHeld = FLAMETHROWER}"];
-        61 [shape=box
-           ,label="HELD {_ibtHeld = FLAMEWALL}"];
-        63 [shape=box
-           ,label="HELD {_ibtHeld = FLAMETORRENT}"];
-        65 [shape=box,label=LASER];
-        69 [shape=box
-           ,label="HELD {_ibtHeld = SPARKGUN}"];
-        71 [shape=box
-           ,label="HELD {_ibtHeld = TESLAGUN}"];
-        73 [shape=box
-           ,label="HELD {_ibtHeld = BLINKERUNSAFE}"];
-        74 [shape=box
-           ,label="HELD {_ibtHeld = BLINKER}"];
-        77 [shape=box
-           ,label="EQUIP {_ibtEquip = MAGSHIELD MagnetRepulse}"];
-        80 [shape=box
-           ,label="EQUIP {_ibtEquip = POWERLEGS}"];
-        86 [shape=box
-           ,label="HELD {_ibtHeld = FLATSHIELD}"];
-        96 [shape=box
-           ,label="DETECTOR {_ibtDetector = ITEMDETECTOR}"];
-        99 [shape=box
-           ,label="DETECTOR {_ibtDetector = WALLDETECTOR}"];
-        101 [shape=box
-            ,label="DETECTOR {_ibtDetector = CREATUREDETECTOR}"];
-        103 [shape=box
-            ,label="HELD {_ibtHeld = TORCH}"];
-        104 [shape=box
-            ,label="AMMOMAG {_ibtAmmoMag = BATTERY}"];
-        107 [shape=box
-            ,label="EQUIP {_ibtEquip = HEADLAMP}"];
-        108 [shape=box
-            ,label="EQUIP {_ibtEquip = HAT}"];
-        110 [shape=box
-            ,label="HELD {_ibtHeld = BANGSTICK {_xNum = 2}}"];
-    }
-    subgraph 2 {
-        0 [shape=point];
-        4 [shape=point];
-        8 [shape=point];
-        12 [shape=point];
-        14 [shape=point];
-        16 [shape=point];
-        19 [shape=point];
-        21 [shape=point];
-        24 [shape=point];
-        26 [shape=point];
-        28 [shape=point];
-        30 [shape=point];
-        32 [shape=point];
-        34 [shape=point];
-        36 [shape=point];
-        39 [shape=point];
-        42 [shape=point];
-        43 [shape=point];
-        45 [shape=point];
-        48 [shape=point];
-        50 [shape=point];
-        52 [shape=point];
-        56 [shape=point];
-        58 [shape=point];
-        60 [shape=point];
-        62 [shape=point];
-        64 [shape=point];
-        68 [shape=point];
-        70 [shape=point];
-        72 [shape=point];
-        76 [shape=point];
-        79 [shape=point];
-        82 [shape=point];
-        83 [shape=point];
-        84 [shape=point];
-        85 [shape=point];
-        87 [shape=point];
-        89 [shape=point];
-        92 [shape=point];
-        95 [shape=point];
-        98 [shape=point];
-        100 [shape=point];
-        102 [shape=point];
-        106 [shape=point];
-        109 [shape=point];
-        111 [shape=point];
-        113 [shape=point];
-        115 [shape=point];
-        117 [shape=point];
-    }
-    0 -> 1 [xlabel="",tailport=e];
-    4 -> 5 [xlabel="",tailport=e];
-    8 -> 9 [xlabel="",tailport=e];
-    9 -> 12 [xlabel=1
-            ,arrowhead=onone
-            ,headport=w];
-    9 -> 28 [xlabel=1
-            ,arrowhead=onone
-            ,headport=w];
-    9 -> 30 [xlabel=1
-            ,arrowhead=onone
-            ,headport=w];
-    9 -> 30 [xlabel=1
-            ,arrowhead=onone
-            ,headport=w];
-    9 -> 30 [xlabel=1
-            ,arrowhead=onone
-            ,headport=w];
-    9 -> 109 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    9 -> 113 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    9 -> 115 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    12 -> 13 [xlabel="",tailport=e];
-    13 -> 14 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    14 -> 15 [xlabel="",tailport=e];
-    15 -> 16 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    15 -> 19 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    16 -> 17 [xlabel="",tailport=e];
-    19 -> 20 [xlabel="",tailport=e];
-    21 -> 22 [xlabel="",tailport=e];
-    22 -> 24 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    24 -> 25 [xlabel="",tailport=e];
-    25 -> 26 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    26 -> 27 [xlabel="",tailport=e];
-    27 -> 117 [xlabel=1
-              ,arrowhead=onone
-              ,headport=w];
-    28 -> 29 [xlabel="",tailport=e];
-    29 -> 32 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    29 -> 34 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    29 -> 42 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    30 -> 31 [xlabel="",tailport=e];
-    31 -> 36 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    31 -> 113 [xlabel=1
-              ,arrowhead=onone
-              ,headport=w];
-    32 -> 33 [xlabel="",tailport=e];
-    34 -> 35 [xlabel="",tailport=e];
-    36 -> 37 [xlabel="",tailport=e];
-    37 -> 115 [xlabel=1
-              ,arrowhead=onone
-              ,headport=w];
-    39 -> 40 [xlabel="",tailport=e];
-    41 -> 39 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    41 -> 43 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    42 -> 41 [xlabel="",tailport=e];
-    43 -> 44 [xlabel="",tailport=e];
-    45 -> 46 [xlabel="",tailport=e];
-    46 -> 48 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    48 -> 49 [xlabel="",tailport=e];
-    49 -> 50 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    52 -> 53 [xlabel="",tailport=e];
-    53 -> 56 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    53 -> 58 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    56 -> 57 [xlabel="",tailport=e];
-    58 -> 59 [xlabel="",tailport=e];
-    59 -> 60 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    59 -> 62 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    60 -> 61 [xlabel="",tailport=e];
-    62 -> 63 [xlabel="",tailport=e];
-    64 -> 65 [xlabel="",tailport=e];
-    68 -> 69 [xlabel="",tailport=e];
-    69 -> 70 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    70 -> 71 [xlabel="",tailport=e];
-    72 -> 73 [xlabel="",tailport=e];
-    74 -> 72 [xlabel=1
-             ,arrowhead=onone
-             ,headport=w];
-    76 -> 77 [xlabel="",tailport=e];
-    79 -> 80 [xlabel="",tailport=e];
-    85 -> 86 [xlabel="",tailport=e];
-    95 -> 96 [xlabel="",tailport=e];
-    98 -> 99 [xlabel="",tailport=e];
-    100 -> 101 [xlabel=""
-               ,tailport=e];
-    102 -> 103 [xlabel=""
-               ,tailport=e];
-    103 -> 106 [xlabel=1
-               ,arrowhead=onone
-               ,headport=w];
-    104 -> 102 [xlabel=1
-               ,arrowhead=onone
-               ,headport=w];
-    106 -> 107 [xlabel=""
-               ,tailport=e];
-    108 -> 106 [xlabel=1
-               ,arrowhead=onone
-               ,headport=w];
-    109 -> 110 [xlabel=""
-               ,tailport=e];
-    110 -> 111 [xlabel=1
-               ,arrowhead=onone
-               ,headport=w];
-}

log/aGeneratedRoomLayout

@@ -1,145 +0,0 @@
-Seed: 7114951007332849727Layout with room names:
-rezBox-0
-|
-autoDoor-1
-|
-rectPillars-2
-|
-autoDoor-3
-|
-Corridor-4
-|
-autoDoor-5
-|
-ElecautoRect-6
-|
-+- triggerDoorRoom-7
-|  |
-|  autoDoor-8
-|  |
-|  autoDoor-9
-|  |
-|  Corridor-10
-|  |
-|  autoDoor-11
-|  |
-|  8gon-12
-|  |
-|  triggerDoorRoom-13
-|  |
-|  autoDoor-14
-|  |
-|  autoDoor-15
-|  |
-|  Corridor-16
-|  |
-|  autoRect-17
-|  |
-|  autoDoor-18
-|  |
-|  Corridor-19
-|  |
-|  autoDoor-20
-|  |
-|  6gon-21
-|  |
-|  +- triggerDoorRoom-22
-|  |  |
-|  |  autoDoor-23
-|  |  |
-|  |  autoDoor-24
-|  |  |
-|  |  Corridor-25
-|  |  |
-|  |  autoDoor-26
-|  |  |
-|  |  warningTerm-8gon-27
-|  |  |
-|  |  triggerDoorRoom-28
-|  |  |
-|  |  autoDoor-29
-|  |  |
-|  |  autoDoor-30
-|  |  |
-|  |  Corridor-31
-|  |  |
-|  |  autoRect-32
-|  |  |
-|  |  autoDoor-33
-|  |  |
-|  |  Corridor-34
-|  |  |
-|  |  autoDoor-35
-|  |  |
-|  |  Corridor-36
-|  |  |
-|  |  8gon-37
-|  |  |
-|  |  triggerDoorRoom-38
-|  |  |
-|  |  autoDoor-39
-|  |  |
-|  |  autoDoor-40
-|  |  |
-|  |  Corridor-41
-|  |  |
-|  |  tanksRoom-42
-|  |  |
-|  |  autoDoor-43
-|  |  |
-|  |  Corridor-44
-|  |  |
-|  |  autoDoor-45
-|  |  |
-|  |  rect-46
-|  |  |
-|  |  +- autoDoor-47
-|  |  |  |
-|  |  |  autoDoor-48
-|  |  |  |
-|  |  |  Corridor-49
-|  |  |  |
-|  |  |  autoRect-50
-|  |  |  |
-|  |  |  defaultRoom-51
-|  |  |  |
-|  |  |  autoRect-52
-|  |  |  |
-|  |  |  defaultRoom-53
-|  |  |  |
-|  |  |  autoRect-54
-|  |  |  |
-|  |  |  autoDoor-55
-|  |  |  |
-|  |  |  Corridor-56
-|  |  |  |
-|  |  |  autoDoor-57
-|  |  |  |
-|  |  |  8gon-58
-|  |  |  |
-|  |  |  triggerDoorRoom-59
-|  |  |  |
-|  |  |  autoDoor-60
-|  |  |  |
-|  |  |  autoDoor-61
-|  |  |  |
-|  |  |  Corridor-62
-|  |  |  |
-|  |  |  defaultRoom-63
-|  |  |
-|  |  Corridor-64
-|  |  |
-|  |  autoDoor-65
-|  |
-|  autoDoor-66
-|  |
-|  Corridor-67
-|  |
-|  autoRect-68
-|
-autoDoor-69
-|
-Corridor-70
-|
-autoRect-71
-

log/attemptedSeeds

@@ -1,4 +0,0 @@
-Generating level with seed 7114951007332849727
-
-After 1 attempt(s), Successful generation of level with seed 7114951007332849727
-72 rooms in total

log/treeCluster

@@ -1,267 +0,0 @@
-Seed: 7114951007332849727
-0:startThenWeaponRoom
-|
-1:corDoor
-|
-2:PassthroughLockKeyLists-HELD {_ibtHeld = SPARKGUN}
-|
-3:corDoor
-|
-4:lasSensorTurretTest
-|
-5:corDoor
-|
-6:SingleRoom
-|
-7:corDoor
-|
-8:PassthroughLockKeyLists-HELD {_ibtHeld = KEYCARD 0}
-|
-9:corDoor
-|
-10:warningRooms
-|
-11:corDoor
-|
-12:chaseCrit+armourChaseCrit rectRoom
-|
-13:corDoor
-|
-14:healthTest
-|
-15:corDoor
-|
-16:empty tanksRoom
-|
-17:corDoor
-|
-18:PassthroughLockKeyLists-HELD {_ibtHeld = SNIPERRIFLE}
-|
-19:corDoor
-|
-20:shootingRange
-|
-21:corDoor
-|
-22:lasSensorTurretTest
-|
-23:corDoor
-|
-24:randomFourCornerRoom
-
-0:0:startThenWeaponRoom
-|
-0:1:weaponBetweenPillars_BANGSTICK4
-
-0:0:0:rezBox'
-
-0:0:0:0:rezBox
-|
-0:0:0:1:autoDoor
-
-0:1:0:rectPillars
-
-1:0:corDoor
-
-1:0:0:autoDoor
-|
-1:0:1:Corridor
-
-2:0:PassthroughLockKeyLists-HELD {_ibtHeld = SPARKGUN}
-
-2:0:0:RassThroughLockKeyLists
-|
-2:0:1:roomsContaining chaseCritchaseCritTRANSFORMERCANCAN
-
-2:0:0:0:sensorRoomRunPast
-
-2:0:0:0:0:autoDoor
-|
-2:0:0:0:1:ElecautoRect
-|
-+- 2:0:0:0:2:triggerDoorRoom
-|  |
-|  2:0:0:0:3:autoDoor
-|
-2:0:0:0:4:autoDoor
-|
-2:0:0:0:5:Corridor
-
-2:0:1:0:autoRect
-
-3:0:corDoor
-
-3:0:0:autoDoor
-|
-3:0:1:Corridor
-
-4:0:lasSensorTurretTest
-
-4:0:0:autoDoor
-|
-4:0:1:8gon
-|
-4:0:2:triggerDoorRoom
-|
-4:0:3:autoDoor
-
-5:0:corDoor
-
-5:0:0:autoDoor
-|
-5:0:1:Corridor
-
-6:0:SingleRoom
-
-6:0:0:autoRect
-
-7:0:corDoor
-
-7:0:0:autoDoor
-|
-7:0:1:Corridor
-
-8:0:PassthroughLockKeyLists-HELD {_ibtHeld = KEYCARD 0}
-
-8:0:0:RassThroughLockKeyLists
-|
-8:0:1:roomsContaining chaseCritchaseCritchaseCritKEYCARD 0
-
-8:0:0:0:keyCardRoomRunPast
-
-8:0:0:0:0:autoDoor
-|
-8:0:0:0:1:6gon
-|
-+- 8:0:0:0:2:triggerDoorRoom
-|  |
-|  8:0:0:0:3:autoDoor
-|
-8:0:0:0:4:autoDoor
-|
-8:0:0:0:5:Corridor
-
-8:0:1:0:autoRect
-
-9:0:corDoor
-
-9:0:0:autoDoor
-|
-9:0:1:Corridor
-
-10:0:warningRooms
-
-10:0:0:autoDoor
-|
-10:0:1:warningTerm-8gon
-|
-10:0:2:triggerDoorRoom
-|
-10:0:3:autoDoor
-
-11:0:corDoor
-
-11:0:0:autoDoor
-|
-11:0:1:Corridor
-
-12:0:chaseCrit+armourChaseCrit rectRoom
-
-12:0:0:autoRect
-
-13:0:corDoor
-
-13:0:0:autoDoor
-|
-13:0:1:Corridor
-
-14:0:healthTest
-
-14:0:0:autoDoor
-|
-14:0:1:Corridor
-|
-14:0:2:8gon
-|
-14:0:3:triggerDoorRoom
-|
-14:0:4:autoDoor
-
-15:0:corDoor
-
-15:0:0:autoDoor
-|
-15:0:1:Corridor
-
-16:0:empty tanksRoom
-
-16:0:0:tanksRoom
-
-17:0:corDoor
-
-17:0:0:autoDoor
-|
-17:0:1:Corridor
-
-18:0:PassthroughLockKeyLists-HELD {_ibtHeld = SNIPERRIFLE}
-
-18:0:0:RassThroughLockKeyLists
-|
-18:0:1:roomsContaining chaseCritchaseCritSNIPERRIFLE
-
-18:0:0:0:longRoomRunPast
-
-18:0:0:0:0:autoDoor
-|
-18:0:0:0:1:rect
-|
-+- 18:0:0:0:2:autoDoor
-|
-18:0:0:0:3:Corridor
-|
-18:0:0:0:4:autoDoor
-
-18:0:1:0:rectPillars
-
-19:0:corDoor
-
-19:0:0:autoDoor
-|
-19:0:1:Corridor
-
-20:0:shootingRange
-
-20:0:0:autoRect
-|
-20:0:1:defaultRoom
-|
-20:0:2:autoRect
-|
-20:0:3:defaultRoom
-|
-20:0:4:autoRect
-
-21:0:corDoor
-
-21:0:0:autoDoor
-|
-21:0:1:Corridor
-
-22:0:lasSensorTurretTest
-
-22:0:0:autoDoor
-|
-22:0:1:8gon
-|
-22:0:2:triggerDoorRoom
-|
-22:0:3:autoDoor
-
-23:0:corDoor
-
-23:0:0:autoDoor
-|
-23:0:1:Corridor
-
-24:0:defaultRoom
-

package.yaml

@@ -6,9 +6,9 @@ author:              "Author name here"
 maintainer:          "example@example.com"
 copyright:           "2021 Author name here"
 
-extra-source-files:
-- README.md
-- ChangeLog.md
+# extra-source-files:
+# - README.md
+# - ChangeLog.md
 
 # Metadata used when publishing your package
 # synopsis:            A basic game loop
@@ -25,16 +25,16 @@ dependencies:
 - aeson-pretty
 - containers
 - deepseq
-- dlist
+#- dlist
 - directory
 - extra
 - foldl
-- graphviz
+#- graphviz
 - OpenGLRaw
 - text
 - bytestring
 - lens
-- mtl
+#- mtl
 - fgl
 - JuicyPixels
 - random
@@ -50,11 +50,12 @@ dependencies:
 - primitive
 - monad-parallel
 - parallel
-- Clipboard
 - tasty
 - tasty-hunit
 - tasty-quickcheck
 - list-tries
+- Hclip
+- search-algorithms
 
 library:
   source-dirs: src
@@ -80,7 +81,7 @@ executables:
     - -fno-state-hack
     - -funfolding-use-threshold1000 
     #- -funfolding-keeness-factor1000 
-    - -fllvm 
+#    - -fllvm 
     - -optlo-O3
     - -Wall
     #- -Wcompat
@@ -120,7 +121,7 @@ benchmarks:
         - -fno-state-hack
         - -funfolding-use-threshold1000 
           #        - -funfolding-keeness-factor1000 
-        - -fllvm 
+#        - -fllvm 
           #- -optlo-O3
         main:         Bench.hs
         source-dirs:  bench

saveSlot/seed

@@ -1 +0,0 @@
-7114951007332849727

shader/ceiling/stencil.vert

@@ -0,0 +1,13 @@
+#version 450 core
+struct PosTex { vec4 pospos; vec4 texang; };
+layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
+layout (std430, binding = 2) readonly buffer Pos { PosTex data[]; };
+int indices[6] = {0,1,3,0,3,2};
+void main()
+{
+    vec4 pp = data[gl_VertexID / 6].pospos;
+    int j = indices[gl_VertexID % 6];
+    float z = (j / 2 > 0.5 ? 5000 : 100);
+    vec2 xy = (j % 2 > 0 ? pp.xy : pp.zw);
+    gl_Position = theMat * vec4(xy,z,1);
+}

shader/chasm.vert

@@ -0,0 +1,6 @@
+#version 450 core
+layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
+layout (std430, binding = 7) readonly buffer Pos { vec2 pos[]; };
+void main() {
+  gl_Position = theMat * vec4(pos[gl_VertexID],0,1);
+}

shader/cloud/basic.frag

@@ -1,27 +1,18 @@
 #version 450 core
 in vec4 vPosID;
 in vec4 vCol;
-in vec4 vCenterSize;
 in vec4 vControls;
 layout (location=0) out vec4 fCol;
 layout (location=1) out vec4 fPos;
 layout (location=2) out vec4 fNorm;
 void main()
 {
-    // there are quite a few intricate controls concerning the normals
-    // we want normals to be bigger towards the center, so that when two clouds
-    // are blended central normals predominate
-    // similarly, we want normals to be bigger the further up the cloud is
-    // finally, we want normals to allow for shadows at the edge of a cloud
-    // when a light is direcly above the cloud
     float d = dot(vControls,vControls);
     if (d > 1) {discard;}
-    //fCol = vCol;
     fCol = vec4(vCol.xyz,vCol.w*(1-d));
-    //float rad = vCenterSize.w*0.5;
-    float rad = vCenterSize.w;
-    float h = (1-d) * rad;
-    fPos = vec4(vPosID.xy, vPosID.z + h, vCol.w*(1-d));
-    vec3 fn1 = fPos.z*normalize(vec3(vCenterSize.xyz - fPos.xyz));
-    fNorm = vec4(fn1,fPos.w);
+    fPos = vec4(vPosID.xyz, vCol.w*(1-d));
+    //fPos = vec4(vPosID.xy,vPosID.z*0.5, vCol.w*(1-d));
+    fNorm = vec4(-vControls.xy, -0.1 + 0.2 * d ,fPos.w);
+    //fNorm = vec4(-vControls.xy, -0.1 + 2 * d ,vCol.w * (1.01-(d*d*d)));
+    //fNorm = vec4(-vControls.xy, -0.1 + d , fPos.w);
 }

shader/cloud/basic.vert

@@ -1,18 +1,15 @@
 #version 450 core
 layout (location = 0) in vec4 posID;
 layout (location = 1) in vec4 col;
-layout (location = 2) in vec4 centerSize;
-layout (location = 3) in vec4 controls;
+layout (location = 2) in vec4 controls;
 layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
 out vec4 vPosID;
 out vec4 vCol;
-out vec4 vCenterSize;
 out vec4 vControls;
 void main()
 {
   gl_Position = theMat * vec4(posID.xyz,1);
   vPosID = posID;
   vCol = col;
-  vCenterSize = centerSize;
   vControls = controls;
 }

shader/dualTwoD/arc.vert

@@ -1,14 +0,0 @@
-#version 450 core
-layout (location = 0) in vec3 pos;
-layout (location = 1) in vec4 col;
-layout (location = 2) in vec3 boxXboxYwidth;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 vCol;
-out vec3 vPos;
-out vec3 vparams;
-void main() {
-  gl_Position = theMat * vec4(pos,1);
-  vCol = col;
-  vparams = boxXboxYwidth;
-  vPos = pos;
-}

shader/dualTwoD/basic.vert

@@ -1,11 +0,0 @@
-#version 450 core
-layout (location = 0) in vec3 pos;
-layout (location = 1) in vec4 col;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 vCol;
-out vec3 vPos;
-void main() {
-  gl_Position = theMat * vec4(pos,1);
-  vCol = col;
-  vPos = pos;
-}

shader/dualTwoD/basicTweakZ.frag

@@ -1,9 +0,0 @@
-#version 450 core
-layout (location=0) out vec4 fCol;
-layout (location=1) out vec4 fPos;
-in vec4 vCol;
-in vec3 vPos;
-void main() {
-  fCol = vCol;
-  fPos = vec4(vPos,1) ;
-}

shader/dualTwoD/basicTweakZ.vert

@@ -1,14 +0,0 @@
-#version 450 core
-layout (location = 0) in vec4 position;
-layout (location = 1) in vec4 color;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 vCol;
-out vec3 vPos;
-void main()
-{
-  vec4 posxy = theMat * vec4(position.xyz,1);
-  vec4 posz  = theMat * vec4(position.xyw,1);
-  gl_Position = vec4(posxy.xy,posz.z,1);
-  vCol = color;
-  vPos = position.xyz;
-}

shader/dualTwoD/bezierQuad.frag

@@ -1,18 +0,0 @@
-#version 450 core
-in vec4 vColor;
-in vec2 boxOut;
-in vec2 boxIn;
-
-layout (location=0) out vec4 fCol;
-layout (location=1) out vec4 fPos;
-
-void main()
-{
-  //float d = x - y - 1 + 2* sqrt(y);
-  float d = sqrt(boxOut.x) + sqrt(boxOut.y) - 1.0;
-//  float e = sqrt(f(x,wStart)) + sqrt(f(y,wEnd)) - 1.0;
-  float e = sqrt(boxIn.x) + sqrt(boxIn.y) - 1.0;
-  if ( d < 0 || e > 0) { discard; }
-  fCol = vColor;
-  fPos = vec4(0,0,0,0) ;
-}

shader/dualTwoD/bezierQuad.geom

@@ -1,76 +0,0 @@
-#version 450 core
-layout (triangles) in;
-layout (triangle_strip, max_vertices = 5) out;
-in vec4 vColor[];
-in vec2 vPosOff[];
-in float vRadMag[];
-out vec4 gColor;
-out float wStart;
-out float wEnd;
-out vec3 gBoundingBox;
-
-out vec2 box2 ;
-
-vec2 normV2 (vec2 v)
-{   return vec2(-v.y,v.x) ;
-}
-float lhs (vec2 da, vec2 db)
-{   return sign(dot(da, normV2(db))) ;
-}
-
-float extrapolate (vec2 inOne, vec2 inZeroA, vec2 inZeroB, vec2 xy)
-{ 
-    float det = inOne.x * (inZeroA.y - inZeroB.y)
-                + inZeroA.x * (inZeroB.y - inOne.y)
-                + inZeroB.x * (inOne.y   - inZeroA.y)
-                ;
-    float r = (inZeroA.y - inZeroB.y) ;
-    float s = (inZeroB.x - inZeroA.x) ;
-    float t = (inZeroA.x * inZeroB.y - inZeroB.x * inZeroA.y) ;
-    return r * xy.x + s * xy.y + t
-            / det ;
-}
-
-void main()
-{
-  vec3 pa = gl_in[0].gl_Position.xyz;
-  vec3 pb = gl_in[1].gl_Position.xyz;
-  vec3 pc = gl_in[2].gl_Position.xyz;
-
-  wStart = vRadMag [0];
-  wEnd   = vRadMag [2];
-
-  box2 = vec2 (1,0);
-  gBoundingBox = vec3 (0.9,0.1,0);
-  gColor = vColor[0];
-  gl_Position = vec4 (vPosOff[0] , pa.z , 1);
-  EmitVertex();
-  box2 = vec2 (0,1);
-  gBoundingBox = vec3 (0.1,0.9,0);
-  gColor = vColor[2];
-  gl_Position = vec4 (vPosOff[2] , pc.z , 1);
-  EmitVertex();
-  box2 = vec2( extrapolate(vPosOff[0],vPosOff[2],pb.xy,pa.xy)
-             , extrapolate(vPosOff[2],vPosOff[0],pb.xy,pa.xy)
-             ) ;
-  box2 = vec2(0.2,0);
-  gBoundingBox = vec3 (1,0,1);
-  gColor = vColor[0];
-  gl_Position = vec4 (pa, 1);
-  EmitVertex();
-  box2 = vec2( extrapolate(vPosOff[0],vPosOff[2],pb.xy,pc.xy)
-             , extrapolate(vPosOff[2],vPosOff[0],pb.xy,pc.xy)
-             ) ;
-  box2 = vec2(0,0.2);
-  gBoundingBox = vec3 (0,1,1);
-  gColor = vColor[2];
-  gl_Position = vec4 (pc, 1);
-  EmitVertex();
-  box2 = vec2( 0,0 ) ;
-  gBoundingBox = vec3 (0,0,0);
-  gColor = vColor[1];
-  gl_Position = vec4 (pb, 1);
-  EmitVertex();
-
-  EndPrimitive();
-}

shader/dualTwoD/bezierQuad.vert

@@ -1,15 +0,0 @@
-#version 450 core
-layout (location = 0) in vec3 position;
-layout (location = 1) in vec4 color;
-layout (location = 2) in vec4 boxes;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 vColor;
-out vec2 boxOut;
-out vec2 boxIn;
-void main()
-{
-  gl_Position = theMat * vec4(position.xyz,1);
-  vColor  = color;
-  boxOut = boxes.xy ;
-  boxIn = boxes.zw ;
-}

shader/dualTwoD/character.frag

@@ -1,11 +0,0 @@
-#version 450 core
-layout (location=0) out vec4 fCol;
-layout (location=1) out vec4 fPos;
-uniform sampler2D aTexture;
-in vec4 gColor;
-in vec2 gTexCoord;
-void main()
-{
-    fCol = texture(aTexture, vec2 (gTexCoord.x * 0.0078125, gTexCoord.y)) * gColor;
-    fPos = vec4(0,0,0,0);
-}

shader/dualTwoD/character.geom

@@ -1,35 +0,0 @@
-#version 450 core
-layout (points) in;
-layout (triangle_strip, max_vertices = 4) out;
-in vec4 vColor [];
-in vec3 vTexCoord [];
-out vec4 gColor;
-out vec2 gTex;
-void main()
-{
-  vec3 cenPos = gl_in[0].gl_Position.xyz;
-  float sizex = vTexCoord[0].y;
-  float sizey = vTexCoord[0].z;
-  //float size = 0.05;
-  gColor = vColor[0];
-  float texPos = vTexCoord[0].x;
-
-  gl_Position = vec4 (cenPos.x - sizex*0.5, cenPos.y - sizey*0.5, cenPos.z , 1);
-  //gl_Position = vec4 (0, 0 , 5 , 1);
-  gTex = vec2 (texPos*0.0078125, 1);
-  EmitVertex();
-  gl_Position = vec4 (cenPos.x - sizex*0.5, cenPos.y + sizey*0.5, cenPos.z , 1);
-  //gl_Position = vec4 (0, 0.5 , 5 , 1);
-  gTex = vec2 (texPos*0.0078125, 0);
-  EmitVertex();
-  gl_Position = vec4 (cenPos.x + sizex*0.5, cenPos.y - sizey*0.5, cenPos.z , 1);
-  //gl_Position = vec4 (0.5, 0.5 , -5 , 1);
-  gTex = vec2 ((texPos+1)*0.0078125, 1);
-  EmitVertex();
-  gl_Position = vec4 (cenPos.x + sizex*0.5, cenPos.y + sizey*0.5, cenPos.z , 1);
-  gTex = vec2 ((texPos+1)*0.0078125, 0);
-  //gl_Position = vec4 (0.5, 0 , -5 , 1);
-  EmitVertex();
-
-  EndPrimitive();
-}

shader/dualTwoD/character.vert

@@ -1,13 +0,0 @@
-#version 450 core
-layout (location = 0) in vec3 aPos;
-layout (location = 1) in vec4 aColor;
-layout (location = 2) in vec2 aTexCoord;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 gColor;
-out vec2 gTexCoord;
-void main()
-{
-    gl_Position = theMat * vec4(aPos, 1.0);
-    gColor = aColor;
-    gTexCoord = aTexCoord;
-}

shader/dualTwoD/ellipse.geom

@@ -1,40 +0,0 @@
-#version 450 core
-layout (triangles) in;
-layout (triangle_strip, max_vertices = 4) out;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-in vec4 vCol[];
-out vec4 gColC; // center color
-out vec4 gColE; // edge color
-out vec2 gBoundingBox;
-out vec3 gPos;
-
-void main()
-{
-  vec4 pat = gl_in[0].gl_Position;
-  vec4 pbt = gl_in[1].gl_Position;
-  vec4 pct = gl_in[2].gl_Position;
-  vec4 pa = theMat * pat;
-  vec4 pb = theMat * pbt;
-  vec4 pc = theMat * pct;
-  gColC = vCol[0];
-  gColE = vCol[1];
-
-  gBoundingBox = vec2 (-1,1);
-  gl_Position = pb;
-  gPos = pbt.xyz;
-  EmitVertex();
-  gBoundingBox = vec2 (1,1);
-  gl_Position = pa;
-  gPos = pat.xyz;
-  EmitVertex();
-  gBoundingBox = vec2 (-1,-1);
-  gl_Position = pc;
-  gPos = pct.xyz;
-  EmitVertex();
-  gBoundingBox = vec2 (1,-1);
-  gl_Position = pa + pc - pb;
-  gPos = pat.xyz + pct.xyz - pbt.xyz;
-  EmitVertex();
-
-  EndPrimitive();
-}

shader/dualTwoD/ellipse.vert

@@ -1,11 +0,0 @@
-#version 450 core
-layout (location = 0) in vec3 pos;
-layout (location = 1) in vec4 col;
-layout (std140, binding = 0) uniform TheMat { mat4 theMat; } ;
-out vec4 vCol;
-void main()
-{
-  //gl_Position = theMat * vec4(pos,1);
-  gl_Position = vec4(pos,1);
-  vCol = col;
-}