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"))
(define logo (image "pliss-logo-col.png"))

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