gistfile1.txt

#lang racket
(require video/base)
(require video/render)

(define v2 "PLISS_Jun21_13-42-00.mov")

(define (get-indexed-video source index)
  (clip source #:filters (list (mux-filter #:type 'video
                                           #:index index))))

;(define screen (get-indexed-video v2 0))
;(define camera (get-indexed-video v2 2))


(define background (color "black"
                          #:properties (hash "width" 1280 "height" 720 "start" 0 "end" +inf.0)))
(define logo (image "pliss-logo-col.png"))
(define logo2 (image "pliss-logo-col.png"))
(define logo3 (image "pliss-logo-col.png"))

(define output (multitrack
 background
 (composite-transition 0 0 480/1032 480/1032)
 logo2
 (composite-transition 480/1296 120/720 1 1)
 logo3
 (composite-transition 40/1280 411/720 400/1280 209/688)
 logo))
(render/pretty output "composite.mov"
               #:mode 'verbose
               #:width 1280
               #:height 720
               #:fps 24)