VGM playback library for Common Lisp
| Révision | 1c7f18f23b9cda40e2f6e7837347e78475ba5502 (tree) |
|---|---|
| l'heure | 2023-08-19 22:50:50 |
| Auteur |  Remilia Scarlet <remilia@post...> |
| Commiter | Remilia Scarlet |
Quit playing when the VGM has ended
simple-player.lisp (diff)| @@ -12,7 +12,7 @@ | ||
| 12 | 12 | (satou:vgm-player-play player) |
| 13 | 13 | (pa:with-audio |
| 14 | 14 | (pa:with-default-audio-stream (out 0 2 :frames-per-buffer 2048) |
| 15 | - (loop do | |
| 15 | + (loop until (satou:vgm-player-at-end-p player) do | |
| 16 | 16 | (satou:vgm-player-render player left right) |
| 17 | 17 | (loop for idx fixnum from 0 below 4096 by 2 |
| 18 | 18 | for idx2 fixnum from 0 |
Fork