#! /usr/bin/env racket

#lang racket/base

(require "sndfile.ss")

;; (require swindle)

(define (add-half x y)
  (/ (+ x (* y 0.5)) 1.5))

(define (repeated-list x n)
  (let loop ([n n] [r '()])
    (if (zero? n) r (loop (sub1 n) (cons x r)))))

;; N.B.: this won't work unless you have a file called "/tmp/x.wav".
(let-values ([(data meta) (read-sound* "/tmp/x.wav")])
  (printf ">>> data-length: ~s\n>>> meta: ~s\n" (length data) meta)
  (let* ([data data #;
               (list-of (list (add-half (1st x) (1st y))
                              (add-half (2nd x) (2nd y)))
                        (x <- data
                           and
                           y <- (append (repeated-list (list 0.0 0.0) 11025) data)
                           and
                           i <- 0.1 0.12 ..))])
    (printf "writing to y.wav\n")
    (write-sound* "/tmp/y.wav"
                  ;data
                  ;(append data (reverse data))
                  (append data (reverse (map reverse data)))
                  `((artist "Eli") (comment "Comment") (title "Title")
                                   (date "1/1/1999") (software "mzscheme")
                                   ,@meta))))


