fc9597456f
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 1m28s
- Add JAX text rendering with font atlas, styled text placement, and typography primitives - Add xector (element-wise/reduction) operations library and sexp effects - Add deferred effect chain fusion for JIT-compiled effect pipelines - Expand drawing primitives with font management, alignment, shadow, and outline - Add interpreter support for function-style define and require - Add GPU persistence mode and hardware decode support to streaming - Add new sexp effects: cell_pattern, halftone, mosaic, and derived definitions - Add path registry for asset resolution - Add integration, primitives, and xector tests Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
35 lines
1.1 KiB
Common Lisp
35 lines
1.1 KiB
Common Lisp
;; Film grain effect using xector operations
|
||
;; Demonstrates random xectors and mixing scalar/xector math
|
||
|
||
(require-primitives "xector")
|
||
|
||
(define-effect xector_grain
|
||
:params (
|
||
(intensity :type float :default 0.2 :range [0 1] :desc "Grain intensity")
|
||
(colored :type bool :default false :desc "Use colored grain")
|
||
)
|
||
(let* (
|
||
;; Extract channels
|
||
(r (red frame))
|
||
(g (green frame))
|
||
(b (blue frame))
|
||
|
||
;; Generate noise xector(s)
|
||
;; randn-x generates normal distribution noise
|
||
(grain-amount (* intensity 50)))
|
||
|
||
(if colored
|
||
;; Colored grain: different noise per channel
|
||
(let* ((nr (randn-x frame 0 grain-amount))
|
||
(ng (randn-x frame 0 grain-amount))
|
||
(nb (randn-x frame 0 grain-amount)))
|
||
(rgb (αclamp (α+ r nr) 0 255)
|
||
(αclamp (α+ g ng) 0 255)
|
||
(αclamp (α+ b nb) 0 255)))
|
||
|
||
;; Monochrome grain: same noise for all channels
|
||
(let ((n (randn-x frame 0 grain-amount)))
|
||
(rgb (αclamp (α+ r n) 0 255)
|
||
(αclamp (α+ g n) 0 255)
|
||
(αclamp (α+ b n) 0 255))))))
|