diff -rU 4 2.21.0/ps/music-drawing-routines.ps 2.21.0.vid/ps/music-drawing-routines.ps
--- 2.21.0/ps/music-drawing-routines.ps	2017-07-24 08:33:37.003754000 +0200
+++ 2.21.0.vid/ps/music-drawing-routines.ps	2017-11-06 10:47:41.153810422 +0100
@@ -307,5 +307,33 @@
 		moveto %w
 		0 rmoveto
 	}repeat
 }bind def
+
+/MKVIDcolor { 0.7 0.0 1.0 } def             % color to use
+                                            %
+/MKVIDmagic { 2.0 } def                     % magic value for our own coloring requests
+                                            %
+/MKVIDsetrgbcolor {                         % the extended setrgbcolor
+  3 dict begin                              % start local name space
+  /Stop exch def                            % local "blue": stop
+  /Start exch def                           % local "green": start
+  /Red exch def                             % local "red": magic
+  Red MKVIDmagic eq                         % if (Red = MKVIDmagic) (
+     { Start MkVidTime eq                   %   if (start = current time)
+        { MKVIDcolor ORIGsetrgbcolor}       %     change color to red
+        { Start MkVidTime gt                %   else if ((start > current time)
+          { Stop MkVidTime lt               %      and (stop < current time))
+            { MKVIDcolor ORIGsetrgbcolor }  %        change color to red
+          if }                              %   else
+        if }                                %      do not change color
+     ifelse }                               %
+     { Red Start Stop ORIGsetrgbcolor }     % ) else change color as requested
+     ifelse                                 %
+  end                                       % stop local namespace
+} def                                       %
+                                            %
+/ORIGsetrgbcolor /setrgbcolor load def      % make original setrgbcolor available as /ORIGsetrgbcolor
+                                            %
+/setrgbcolor { MKVIDsetrgbcolor } bind def  % redefine setrgbcolor
+
 %end music-drawing-routines.ps
diff -rU 4 2.21.0/scm/framework-ps.scm 2.21.0.vid/scm/framework-ps.scm
--- 2.21.0/scm/framework-ps.scm	2017-10-23 00:09:21.286200000 +0200
+++ 2.21.0.vid/scm/framework-ps.scm	2017-11-06 10:50:01.368233724 +0100
@@ -101,9 +101,14 @@
    (output-entry "page-width" 'paper-width)
    (if (ly:get-option 'strokeadjust) "true setstrokeadjust\n" "")
    ))
 
+;; [mkvideo] This version of dump-page is extended for mkvideo.
+;; As long as null? videopagelist is true nothing changes.
 (define (dump-page outputter page page-number page-count landscape?)
+  (let* (
+    (ml (assoc page-number videopagelist))
+    (rep? (and (not (null? videopagelist)) (if (pair? ml) (not (null? (cdr ml))) #f))))
   (ly:outputter-dump-string
    outputter
    (string-append
     (format #f "%%Page: ~a ~a\n" page-number page-number)
@@ -112,11 +117,18 @@
         "page-width output-scale lily-output-units mul mul 0 translate 90 rotate\n"
         "")
     "%%EndPageSetup\n"
     "\n"
+    (format #f (if rep? "/lilypage {\n" ""))
     "gsave 0 paper-height translate set-ps-scale-to-lily-scale\n"))
   (ly:outputter-dump-stencil outputter page)
-  (ly:outputter-dump-string outputter "stroke grestore\nshowpage\n"))
+  (ly:outputter-dump-string outputter "stroke grestore\nshowpage\n")
+  (if rep? (list
+    (ly:outputter-dump-string outputter (format #f "} def 1 "))
+    (do ((i 0 (1+ i)))
+      ((>= i (length (cdr ml))))
+      (ly:outputter-dump-string outputter (format #f "~a " (list-ref (cdr ml) i))))
+    (ly:outputter-dump-string outputter (format #f " { /MkVidTime exch def MkVidTime 1 eq { exit } if lilypage } loop\n" ))))))
 
 (define (supplies-or-needs paper load-fonts?)
   (define (extract-names font)
     (if (ly:pango-font? font)
diff -rU 4 2.21.0/scm/output-lib.scm 2.21.0.vid/scm/output-lib.scm
--- 2.21.0/scm/output-lib.scm	2017-10-23 00:10:15.753555000 +0200
+++ 2.21.0.vid/scm/output-lib.scm	2017-11-06 10:47:41.153810422 +0100
@@ -706,13 +706,14 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Color
 
+;; [mkvideo] This version of color? does _not_ check that
+;; r, g and b are in the range [0.0 .. 1.0]!
 (define-public (color? x)
   (and (list? x)
        (= 3 (length x))
-       (every number? x)
-       (every (lambda (y) (<= 0 y 1)) x)))
+       (every number? x)))
 
 (define-public (rgb-color r g b) (list r g b))
 
 ;; predefined colors
diff -rU 4 2.21.0/scm/output-ps.scm 2.21.0.vid/scm/output-ps.scm
--- 2.21.0/scm/output-ps.scm	2017-10-23 00:09:21.286200000 +0200
+++ 2.21.0.vid/scm/output-ps.scm	2017-11-06 10:47:41.153810422 +0100
@@ -204,10 +204,11 @@
     (ly:format  "~4l draw_round_box"
                 (list width height x y blotdiam))))
 
 ;; save current color on stack and set new color
+;; [mkvideo] This version of setcolor extends the precision
 (define (setcolor r g b)
-  (ly:format "gsave ~4l setrgbcolor\n"
+  (ly:format "gsave ~9l setrgbcolor\n"
              (list r g b)))
 
 ;; restore color from stack
 (define (resetcolor) "grestore\n")
diff -rU 4 2.21.0/scm/paper.scm 2.21.0.vid/scm/paper.scm
--- 2.21.0/scm/paper.scm	2017-08-19 07:52:05.563096000 +0200
+++ 2.21.0.vid/scm/paper.scm	2017-11-06 10:47:41.153810422 +0100
@@ -17,8 +17,10 @@
 
 ;; for define-safe-public when byte-compiling using Guile V2
 (use-modules (scm safe-utility-defs))
 
+(define-public videopagelist '())
+
 (define-public (set-paper-dimension-variables mod)
   (module-define! mod 'dimension-variables
                   '(binding-offset
                     blot-diameter