20 lines
637 B
Common Lisp
20 lines
637 B
Common Lisp
;; Half-resolution Woods Sources (960x540)
|
|
;;
|
|
;; Pass to recipe with: --sources configs/sources-woods-half.sexp
|
|
|
|
(require-primitives "streaming")
|
|
|
|
(def sources [
|
|
(streaming:make-video-source "woods_half/1.webm" 30)
|
|
(streaming:make-video-source "woods_half/2.webm" 30)
|
|
(streaming:make-video-source "woods_half/3.webm" 30)
|
|
(streaming:make-video-source "woods_half/4.webm" 30)
|
|
])
|
|
|
|
(def pair-configs [
|
|
{:dir -1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5}
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5}
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5}
|
|
{:dir -1 :rot-a -45 :rot-b 45 :zoom-a 0.5 :zoom-b 1.5}
|
|
])
|