# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1482465796 18000
# Node ID 7400e3b3fbba88654032d8ce61ab634c8d31319c
# Parent  2b9d7edf91822f29f729eef75386da1dbda305e9
Make the sound type configurable

diff -r 2b9d7edf9182 -r 7400e3b3fbba src/emulator.lisp
--- a/src/emulator.lisp	Thu Dec 22 22:18:41 2016 -0500
+++ b/src/emulator.lisp	Thu Dec 22 23:03:16 2016 -0500
@@ -77,6 +77,7 @@
   (screen-wrapping-enabled t :type boolean)
   (delay-timer 0 :type fixnum)
   (sound-timer 0 :type fixnum)
+  (sound-type :sine :type keyword)
   (stack (make-array 16 :element-type 'int12 :fill-pointer 0)
          :type (vector int12 16)
          :read-only t)
@@ -89,6 +90,7 @@
   registers flag index program-counter
   delay-timer sound-timer
   video video-dirty screen-wrapping-enabled
+  sound-type
   keys
   stack
   loaded-rom
@@ -368,7 +370,6 @@
                  a))))
 
 
-
 (defun make-audio-buffer ()
   (make-array +audio-buffer-size+
     :element-type 'single-float
@@ -395,6 +396,14 @@
   (fill-buffer buffer #'tri rate start))
 
 
+(defun audio-buffer-filler (chip)
+  (ecase (chip-sound-type chip)
+    (:square #'fill-square)
+    (:sine #'fill-sine)
+    (:sawtooth #'fill-sawtooth)
+    (:triangle #'fill-triangle)))
+
+
 (defun audio-rate (frequency)
   (coerce (* (/ +tau+ +sample-rate+) frequency) 'single-float))
 
@@ -414,7 +423,8 @@
                  (if (and (plusp sound-timer)
                           (not (debugger-paused-p debugger)))
                    (progn
-                     (setf angle (fill-sawtooth buffer rate angle))
+                     (setf angle (funcall (audio-buffer-filler chip)
+                                          buffer rate angle))
                      (portaudio:write-stream audio-stream buffer))
                    (sleep +audio-buffer-time+))))))
   nil)