hans/rktplayer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some updates, sound library version 0.1.2

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-23 14:09:07 +02:00
parent 65b98fd73c
commit a68db108b6
4 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gui.rkt
+6 -2
View File
@@ -567,9 +567,13 @@
) )
(if (eq? volume-display 'block) (if (eq? volume-display 'block)
(send volume-meter display 'none) (send volume-meter display 'none)
(send volume-meter display 'block)) (begin
(send volume-meter display 'block)
(send el-volume set!
(sqrt (send player get-volume)))
(send el-vol-perc set-innerHTML! (send el-vol-perc set-innerHTML!
(sprintf "%d%" (send player get-volume))) (sprintf "%d%" (send player get-volume))))
)
) )
) )
gui/rktplayer.html
+1 -1
View File
@@ -22,7 +22,7 @@
<img id="volume-img" src="buttons/volume-high.svg" /> <img id="volume-img" src="buttons/volume-high.svg" />
<div id="volume-meter" class="volume-meter"> <div id="volume-meter" class="volume-meter">
<div class="status"><span class="info" id="volume-perc"></span></div> <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> </div>
</button> </button>
</div> </div>
gui/styles.css
+4
View File
@@ -323,6 +323,10 @@ div.volume-meter:hover {
transition: all 0.5s ease-in; transition: all 0.5s ease-in;
} }
div.volume-meter input[type="range"] {
height: 300px;
}
input.v-slider { input.v-slider {
writing-mode: vertical-lr; writing-mode: vertical-lr;
direction: rtl; direction: rtl;
player.rkt
+2 -1
View File
@@ -30,7 +30,7 @@
(define closing #f) (define closing #f)
(define pause #f) (define pause #f)
(define repeat-state 'no-repeat) (define repeat-state 'no-repeat)
(define volume 100.0) (define volume (send settings get 'volume 100.0))
(define ao-handle #f) (define ao-handle #f)
(define audio-handle #f) (define audio-handle #f)
@@ -284,6 +284,7 @@
(define/public (set-volume! percentage) (define/public (set-volume! percentage)
(set! volume percentage) (set! volume percentage)
(send settings set! 'volume percentage)
(unless (eq? ao-handle #f) (unless (eq? ao-handle #f)
(ao-set-volume! ao-handle volume)) (ao-set-volume! ao-handle volume))
) )