video sample

example.rkt

#lang video

(require video/core)

(define screen
  (make-producer #:type 'avformat
                 #:source "test.mov"
                 #:prop (hash "video_index"
                              0)))

(define camera
  (make-producer #:type 'avformat
                 #:source "test.mov"
                 #:prop (hash "video_index"
                              2)))

(multitrack camera
            screen
            #:transitions (list (composite-transition 0 0 1/4 1/4
                                                      #:top camera
                                                      #:bottom screen)))