some updates, sound library version 0.1.2

gui.rkt

@@ -567,9 +567,13 @@
              )
         (if (eq? volume-display 'block)
             (send volume-meter display 'none)
-            (send volume-meter display 'block))
-        (send el-vol-perc set-innerHTML!
-              (sprintf "%d%" (send player get-volume)))
+            (begin
+              (send volume-meter display 'block)
+              (send el-volume set!
+                    (sqrt (send player get-volume)))
+              (send el-vol-perc set-innerHTML!
+                    (sprintf "%d%" (send player get-volume))))
+            )
         )
       )
 

gui/rktplayer.html

@@ -22,7 +22,7 @@
 			<img id="volume-img" src="buttons/volume-high.svg" />
 			<div id="volume-meter" class="volume-meter">
 				<div class="status"><span class="info" id="volume-perc"></span></div>
-				<input type="range" min="0" max="13" value="10" class="v-slider" id="volume-range" step="0.5" />
+				<input type="range" min="0" max="13" value="10" class="v-slider" id="volume-range" step="0.1" />
 			</div>
 		</button>
 	</div>

gui/styles.css

@@ -323,6 +323,10 @@ div.volume-meter:hover {
     transition: all 0.5s ease-in;
 }
 
+div.volume-meter input[type="range"] {
+	height: 300px;
+}
+
 input.v-slider {
 	writing-mode: vertical-lr;
 	direction: rtl;

player.rkt

@@ -30,7 +30,7 @@
     (define closing #f)
     (define pause #f)
     (define repeat-state 'no-repeat)
-    (define volume 100.0)
+    (define volume (send settings get 'volume 100.0))
     
     (define ao-handle #f)
     (define audio-handle #f)
@@ -284,6 +284,7 @@
 
     (define/public (set-volume! percentage)
       (set! volume percentage)
+      (send settings set! 'volume percentage)
       (unless (eq? ao-handle #f)
         (ao-set-volume! ao-handle volume))
       )