12 lines
479 B
Common Lisp
12 lines
479 B
Common Lisp
;; Resize effect - replaces RESIZE node
|
|
;; Note: uses target-w/target-h to avoid conflict with width/height primitives
|
|
(require-primitives "image")
|
|
|
|
(define-effect resize-frame
|
|
:params (
|
|
(target-w :type int :default 640 :desc "Target width in pixels")
|
|
(target-h :type int :default 480 :desc "Target height in pixels")
|
|
(mode :type string :default "linear" :choices [linear nearest area] :desc "Interpolation mode")
|
|
)
|
|
(image:resize frame target-w target-h mode))
|