init

src/main.moon

@@ -0,0 +1,67 @@
+Fluid = require "Fluid"
+Mix = require "Mix"
+
+volume = 4.2e12
+air = { nitrogen: 0.775, oxygen: 0.21, argon: 0.01, co2: 0.005 }
+earth = Fluid(volume)
+for type, amount in pairs air
+  earth\add type, volume * amount
+
+-- print "pressure", earth\pressure!
+-- for type, amount in pairs earth.contents
+--   print type, earth\percent(type), amount
+
+ship = Fluid 600
+for type, amount in pairs air
+  ship\add type, 600 * amount
+
+h2tank = Fluid 40
+h2tank\add "hydrogen", 40 * 6 -- volume * desired pressure
+o2tank = Fluid 20
+o2tank\add "oxygen", 20 * 12
+mixes = { Mix(ship, h2tank), Mix(ship, o2tank) }
+
+mixing = false
+time,frequency = 0, 1/60
+love.update = (dt) ->
+  if mixing
+    time += dt
+    if time >= frequency
+      time -= frequency
+      for mix in *mixes
+        mix\update 10
+
+colors = {
+  hydrogen: { 1, 1, 0, 1 }
+  oxygen: { 0, 0, 1, 1 }
+  nitrogen: { 0, 1, 1, 1 }
+  argon: { 1, 0, 0, 1 }
+  co2: { 0.5, 0.5, 0.5, 1 }
+}
+
+w = love.graphics.getWidth!
+h = love.graphics.getHeight!
+h2 = h / 2
+love.draw = ->
+  y = -25
+  for type in pairs ship.contents
+    percent = ship\percent type
+    love.graphics.setColor colors[type]
+    love.graphics.rectangle "fill", 0, h2 + y, percent * w, 10
+    y += 10
+  y = 0
+  for type in pairs h2tank.contents
+    percent = h2tank\percent type
+    love.graphics.setColor colors[type]
+    love.graphics.rectangle "fill", 0, y, percent * w, 10
+    y += 10
+  y = 10
+  for type in pairs o2tank.contents
+    percent = o2tank\percent type
+    love.graphics.setColor colors[type]
+    love.graphics.rectangle "fill", 0, h - y, percent * w, 10
+    y += 10
+
+love.keypressed = (key) ->
+  love.event.quit! if key == "escape"
+  mixing = not mixing if key == "space"