vcopy_unpack   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/math.xtm

Implementation

(bind-func vcopy_unpack
  "take a packed double* buffer and copy it into a sparse representation"
  (lambda (src:double* dest:double* stride neighbors srclen)
    (doloop (i srclen)
      (doloop (j neighbors)
        (pset! dest (+ (* stride i) j) (pref src (+ (* neighbors i) j)))))))


Back to Index

Similar Entries