sound volume!

desktop/src-common/advent/utils.clj

@@ -5,6 +5,7 @@
             [play-clj.utils :refer :all]
             [play-clj.math :refer :all]
             [play-clj.g2d :refer :all]
+            [clojure.java.io :as io]
             [clojure.edn :as edn])
   (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
            [com.badlogic.gdx.graphics.g2d TextureRegion]
@@ -18,6 +19,19 @@
 
 (def +all-cursors+ [:main :wool :mushrooms :carrot :right :down :left :up :flask :flask-with-contents :trophy :ladder :stick :cat-toy :balloon :frog-legs :teddy :portrait :recipe :glass-eye :motivational-tapes :used-earplugs :grass :slobber :flask-with-strength :medal :kiss :sword :hourglass :mandrake :ball-n-chain :key :rope :crowbar :note-1 :ash :sack-lunch :flies :spear :monocle :feather :spell-component :money :watch :broken-clock :slingshot :camera :walkie-talkies :alarm-clock :walkie-talkie :flask-water :flask-water-stuff :flask-water-stuff-2 :note-2 :magic-slingshot])
 
+(def settings (atom {:music-volume 50.0
+                     :sound-volume 75.0}))
+
+(defn current-music-volume [& [factor]]
+  (* (Math/pow (/ (:music-volume @settings) 100.0) 2)
+     0.25
+     (or factor 1.0)))
+
+(defn current-sound-volume [& [factor]]
+  (* (Math/pow  (/ (:sound-volume @settings) 100.0) 2)
+     0.5
+     (or factor 1.0)))
+
 (defn cursor [filename which]
   (let [scale 2
         base-cursor (pixmap filename)
@@ -36,6 +50,13 @@
 (defn load []
   (assoc (edn/read-string (slurp "save.edn")) :active? true))
 
+(defn load-settings! []
+  (when (.exists (io/file "settings.edn"))
+    (reset! settings (edn/read-string (slurp "settings.edn")))))
+
+(defn save-settings! []
+  (spit "settings.edn" @settings))
+
 (defn get-font [filename]
   (let [font (bitmap-font filename) 
         tr (bitmap-font! font :get-region)