fir_half_80211   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/80211.xtm

Implementation

(bind-func fir_half_80211
  (let ((pop 1) (peek 2) (push 8)
        (prepop 0) (prepeek 1) (prepush 8))
    (lambda (input:QBuffer:$<i64*>* output)
      (let ((rcc_taps:|16,i64|* (alloc))
            (prework (lambda ()
                       (let ((previous 0)
                             (current (qbuf_peek input 0)))
                         (doloop (j 8)
                           (qbuf_push output
                                      (/ (+ (* (aref rcc_taps j) (/ current 1024))
                                            (* (aref rcc_taps (+ j 8)) (/ previous 1024)))
                                         1024)))
                         void))))
        (afill! rcc_taps 0 -666 69361 157964 255889 351141 430952 484036 502648 484036 430952 351141 255889 157964 69361 -666)
        (lambda ()
          (let ((previous (qbuf_peek input 0))
                (current (qbuf_peek input 1)))
            (doloop (j 8)
              (qbuf_push output
                         (/ (+ (* (aref rcc_taps j) (/ current 1024))
                               (* (aref rcc_taps (+ j 8)) (/ previous 1024)))
                            1024)))
            (qbuf_pop input)
            void))))))


Back to Index

Similar Entries

  • chunk_80211    xtlang
  • encode_80211    xtlang
  • first    xtlang
  • first    xtlang
  • first    xtlang
  • first_n_weird_numbers    xtlang
  • fluid-cube-get-first-column    xtlang
  • fluid-cube-get-first-row    xtlang
  • fluid-cube-set-first-column    xtlang
  • fluid-cube-set-first-row    xtlang
  • half_rectangular_window_func    xtlang
  • half_rectangular_window_func2    xtlang
  • impc:ti:closure-in-first-position    scheme
  • impc:ti:first-transform    scheme
  • input_80211    xtlang
  • output_80211    xtlang
  • remove-first    scheme
  • replace-first    scheme
  • return_ptr_gv_first_with_docstring    xtlang
  • scramble_80211    xtlang
  • send-fluid-first-column-osc    xtlang
  • send-fluid-first-row-osc    xtlang