;; -*- scheme -*- 

(module modem-tables  mzscheme

  (require "composite.ss"
           "macro.ss"
           "pattern.ss"
           "list-utils.ss"
           )
           
;;   (compositions
;;    (macro) macro:

;;    (lala 1 +)
;;    (sisi 2 +)
;;    )

  (define pi (* 4 (atan 1)))  ;; FIXME
  (define (rangex start endx)
    (unfold (lambda (x) (= x endx))
            (lambda (x) x)
            add1
            start))

  (define (int x)
    (inexact->exact (round x)))

  (asm-transforms
   (macro)

   (((qw n) cosine-table-s1.6)
    ((insert
      
      (map
       (lambda (i)
         (define (_cos x)
           (int
            (* #x40
               (cos
                (/ (* 2 pi x) n)))))
         
         `(d2 ,(_cos (* 2 i))
              ,(_cos (+ (* 2 i) 1))))

       (rangex 0 (/ n 2))))))

   
  
   )
       

  )