Add bitrate option

Signed-off-by: Skylar "The Cobra" Widulski <cobra@vern.cc>

config.example.scm

@@ -1,4 +1,5 @@
 (define fifo-file "/tmp/mpd.fifo")
+(define bitrate 44100)
 (define fps 30)
 (define resolution 1)
 (define scale 1)

yammer.scm

@@ -1,3 +1,5 @@
+#!/usr/bin/env -S guile
+!#
 ;;;
 ;;; Copyright (C) 2023  Skylar Widulski
 ;;;
@@ -43,7 +45,7 @@
 
 ;; Define widely used constants in relation to config values
 (define recip-fps (/ 1 fps))
-(define sample-size (* 4 (round (* 3 (* (/ 44100 4) recip-fps)))))
+(define sample-size (* 4 (round (* 3 (* (/ bitrate 4) recip-fps)))))
 
 ;; Plan definition (if using fft)
 (define plan #f)