40 lines
1.7 KiB
Common Lisp
40 lines
1.7 KiB
Common Lisp
;; Default Sources Configuration
|
|
;;
|
|
;; Defines video sources and per-pair effect configurations.
|
|
;; Pass to recipe with: --sources configs/sources-default.sexp
|
|
;;
|
|
;; Required by recipes using process-pair macro:
|
|
;; - sources: array of video sources
|
|
;; - pair-configs: array of effect configurations per source
|
|
|
|
(require-primitives "streaming")
|
|
|
|
;; Video sources array
|
|
;; Paths relative to working directory (project root)
|
|
(def sources [
|
|
(streaming:make-video-source "woods/1.webm" 10)
|
|
(streaming:make-video-source "woods/2.webm" 10)
|
|
(streaming:make-video-source "woods/3.webm" 10)
|
|
(streaming:make-video-source "woods/4.webm" 10)
|
|
(streaming:make-video-source "woods/5.webm" 10)
|
|
(streaming:make-video-source "woods/6.webm" 10)
|
|
(streaming:make-video-source "woods/7.webm" 10)
|
|
(streaming:make-video-source "woods/8.webm" 10)
|
|
])
|
|
|
|
;; Per-pair effect config: rotation direction, rotation ranges, zoom ranges
|
|
;; :dir = rotation direction (1 or -1)
|
|
;; :rot-a, :rot-b = max rotation angles for clip A and B
|
|
;; :zoom-a, :zoom-b = max zoom amounts for clip A and B
|
|
(def pair-configs [
|
|
{:dir -1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 0: monday
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 1: escher
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 2: vid2
|
|
{:dir -1 :rot-a -45 :rot-b 45 :zoom-a 0.5 :zoom-b 1.5} ;; 3: disruptors (reversed)
|
|
{:dir -1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 0: monday
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 1: escher
|
|
{:dir -1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 0: monday
|
|
{:dir 1 :rot-a 45 :rot-b -45 :zoom-a 1.5 :zoom-b 0.5} ;; 1: escher
|
|
|
|
])
|