anchor.diff:                            ,!))))
   
   (defun make-audio (name file gain bass)
  -  (make-wav name file gain bass)
  +  (make-wav name :pal file gain bass)
     (make-conversion name :pal)
  +  (make-wav name :ntsc file gain bass)
     (make-conversion name :ntsc))
   
   (unless *mario-pal-only?*
  
positive.code:   (format t "Generating tape frames…~%")
    (make-nipkow-dat-test "obj/nipkow.dat" "."))
  
  (defun make-wav (name file gain bass)
    (format t "Generating uncompressed audio for ~A of file ~A with mplayer…~%" name file)
    (sb-ext:run-program "/usr/bin/mplayer"
                        `("-vo" "null"
  
negative.code:                       `(,(+ "obj/" name ".wav")
                          ,(+ "obj/" name "_filtered.wav")
                          "bass" ,bass
                          "lowpass" ,(princ (half (pwm-pulse-rate tv)) nil)
                          "compand" "0.3,1" "6:-70,-60,-20" "-1" "-90" "0.2"
                          "gain" ,gain)))
  
  