Examples can compile now.

video/examples/10-properties.rkt

@@ -1,10 +1,10 @@
 #lang video
 
 (clip "vid.mp4"
-      #:start 50
-      #:end (if (equal? (get-property v-clip "vid-key") "block")
-                200
-                51))
+      #:properties (hash "start" 50
+                         "end" (if (equal? (get-property v-clip "vid-key") "block")
+                                   200
+                                   51)))
 
 (define v-clip
   (clip "vid.mp4"

video/examples/2-colorfade.rkt

@@ -1,5 +1,5 @@
 #lang video
 
-(color "green" #:length 75)
-(fade-transition #:length 25)
-(color "blue" #:length 75)
+(color "green" #:properties (hash "length" 75))
+(fade-transition 25)
+(color "blue" #:properties (hash "length" 75))

video/examples/5-project.rkt

@@ -1,7 +1,7 @@
 #lang video
 
-(color "red" #:length 75)
-(fade-transition #:length 25)
-(clip "vid.mp4" #:start 50 #:end 100)
-(fade-transition #:length 25)
-(color "blue" #:length 75)
+(color "red" #:properties (hash "length" 75))
+(fade-transition 25)
+(clip "vid.mp4" #:properties (hash "start" 50 "end" 100))
+(fade-transition 25)
+(color "blue" #:properties (hash "length" 75))

video/examples/6-multitrack.rkt

@@ -1,7 +1,7 @@
 #lang video
 
 (multitrack
- (clip "vid.mp4" #:start 50 #:end 200)
+ (clip "vid.mp4" #:properties (hash "start" 50 "end" 200))
  (playlist
   (blank 40)
   (color "red")))

video/examples/8-image.rkt

@@ -1,3 +1,3 @@
 #lang video
 
-(image "circ.png" #:length 200)
+(image "circ.png" #:properties (hash "length" 200))

video/examples/9-doubletransition.rkt

@@ -12,6 +12,6 @@
                                            #:bottom blocks)))
 
 
-(define blocks (clip "vid.mp4" #:start 50 #:end 200))
-(define circ (image "circ.png" #:length 200))
+(define blocks (clip "vid.mp4" #:properties (hash "start" 50 "end" 200)))
+(define circ (image "circ.png" #:properties (hash "length" 200)))
 (define red (color "red"))