psystem-set-particle   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/particles_vbo.xtm

Implementation

(bind-func psystem-set-particle
  (lambda (psys:psystem* idx:i32 x y s xx yy r g b a state)
    (let ((size (tref psys 0))
          (free-particle idx))
      (if (or (< idx 0)
              (> idx size))
          void
          (let ((particle (pref-ptr (tref psys 2) idx)))
            (tfill! particle x y r b g a s xx yy state)
            void)))))


Back to Index

Similar Entries

  • psystem-set-particle    xtlang