提交: 7411c8cb96fe2eb8892253cd43d4b7cd712e4d84 - satousynth (hg)

VGM playback library for Common Lisp

Commit MetaInfo

• 修订版: 7411c8cb96fe2eb8892253cd43d4b7cd712e4d84 (tree)
• 时间: 2023-06-15 04:49:37
• 作者: Remilia Scarlet <remilia@post...>
• Commiter: Remilia Scarlet

Log Message

Export some VGM-PLAYER-SETTINGS methods. Add VGM-PLAYER-SETTINGS-DUP.

更改概述

• modified: src/package.lisp
• modified: src/vgm-player-settings.lisp

差异

diff -r f84b8008627c -r 7411c8cb96fe src/package.lisp
--- a/src/package.lisp	Sun Jun 04 23:46:22 2023 -0600
+++ b/src/package.lisp	Wed Jun 14 13:49:37 2023 -0600
@@ -188,7 +188,14 @@
    #:vgm-player-volume-modifier
    #:vgm-player-playing-p
    #:calc-resampling-values
-   #:calc-resampling-values*))
+   #:calc-resampling-values*
+
+   ;; vgm-player-settings.lisp
+   #:settings-sample-rate
+   #:settings-dmg-boost-wave-chan-p
+   #:settings-ym2151-core
+   #:settings-huc6280-core
+   #:vgm-player-settings-dup))
 
 (defpackage :satou-chips
   (:use :common-lisp :cl-sdm :satou)

diff -r f84b8008627c -r 7411c8cb96fe src/vgm-player-settings.lisp
--- a/src/vgm-player-settings.lisp	Sun Jun 04 23:46:22 2023 -0600
+++ b/src/vgm-player-settings.lisp	Wed Jun 14 13:49:37 2023 -0600
@@ -21,6 +21,8 @@
 (deftype t/ym2151-core ()
   '(member :mame))
 
+(defgeneric vgm-player-settings-dup (settings))
+
 (defclass vgm-player-settings ()
   ((sample-rate
     :initarg :sample-rate
@@ -74,3 +76,9 @@
 
 (defmethod (setf settings-huc6280-core) :before (value (object vgm-player-settings))
   (check-type value satou-chips:t/huc6280-core))
+
+(defmethod vgm-player-settings-dup ((settings vgm-player-settings))
+  (make-instance 'vgm-player-settings :sample-rate (settings-sample-rate settings)
+                                      :dmg-boost-wave-chan (settings-dmg-boost-wave-chan-p settings)
+                                      :ym2151-core (settings-ym2151-core settings)
+                                      :huc6280-core (settings-huc6280-core settings)))