Factories.elm

module Factories(initialUIWorld) where

import open Model
import open UIModel
import Physics
import Random.Standard

mainCanvas: SizeC
mainCanvas = { widthC = 1000, heightC = 500 }

initialViewportM: ViewportM
initialViewportM = { sizeM = { lengthM = 300, widthM = 150 },
                     centerM = { xM = 0, yM = 0 } }

createCar: ClusterId -> Float -> Car
createCar clusterId xOffset = { posM = { xM = xOffset, yM = 5 }, 
                                speedKph = 50,
                                sizeM = { lengthM = 4, widthM = 2 },
                                direction = degrees 0,
                                aMss = 4.3,
                                clusterId = clusterId,
                                happiness = { raw = 0, val = 0, nextUpdate = 0 } }

createCarCreator: ClusterId -> Float -> Float -> Float -> CarCreator
createCarCreator clusterId xOffset yOffset degs = { posM = { xM = xOffset, yM = yOffset },
                                                    direction = degrees degs,
                                                    clusterId = clusterId }

createTrafficLight: ClusterId -> TLId -> TLState -> Float -> Float -> Float -> TrafficLight
createTrafficLight clusterId tlId tlState xOffset yOffset degs = 
  { tlId = tlId,
    posM = { xM = xOffset, yM = yOffset },
    direction = degrees degs,
    state = tlState,
    clusterId = clusterId  
  }                         

initialWorldViewport: WorldViewport
initialWorldViewport = { viewportM = initialViewportM, canvas = mainCanvas }

initialWorld = 
  let worldObjs = [ --Car (createCar 1 -150), 
                    --Car (createCar 1 -100), 
                    --Car (createCar 1 -50), 
                    TrafficLight (createTrafficLight 2 1 RedTrafficLight   -10  -5 0), -- L->R, bottom lane
                    TrafficLight (createTrafficLight 1 2 RedTrafficLight   -10   5 0), -- L->R, top lane
                    TrafficLight (createTrafficLight 3 3 GreenTrafficLight 0    15 270), -- T->B                          
                    TrafficLight (createTrafficLight 4 4 GreenTrafficLight 10  -15 90), -- B->T
                    CarCreator (createCarCreator 2 -170 -5 0),
                    CarCreator (createCarCreator 1 -170  5 0),
                    CarCreator (createCarCreator 3 0    90 270),
                    CarCreator (createCarCreator 4 10  -90 90) 
                  ]
      world = { objs = worldObjs,
                ann = { minX = -230, maxX = 200, 
                        minY = -150, maxY = 150 },
                tlCtrl = {
                  groupLR = [ 1, 2 ],
                  groupTD = [ 3, 4 ],
                  yellowAfterRed = 1.0 * oneSecond, 
                  yellowAfterGreen = 3.0 * oneSecond,
                  betweenRed = 1.0 * oneSecond,
                  steps = [],
                  autoSwitch = Nothing
                },
                random = Random.Standard.generator 42
              }
  in  Physics.update (25 * oneSecond) world

initialUIWorld: UIWorld
initialUIWorld = 
  { viewport = initialWorldViewport,
    world = initialWorld, 
    info = "X",
    timeMultiplier = 2.0 }