# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332760309 18000
# Node ID c7b002525041b527783e6e08e45217560cfe13ee
# Parent  d9e0752da684fdfb73b14f3f4f920e3c798d1210
improved scroll-text to scroll through multiple lines of text

diff -r d9e0752da684 -r c7b002525041 clojure/com/aurellem/run/title.clj
--- a/clojure/com/aurellem/run/title.clj	Mon Mar 26 06:00:30 2012 -0500
+++ b/clojure/com/aurellem/run/title.clj	Mon Mar 26 06:11:49 2012 -0500
@@ -21,7 +21,14 @@
   ([alt [commands state]]
      (advance [] alt [commands state])))
 
-(def scroll-text (partial advance [:b] [:a :b]))
+(defn scroll-text
+  ([script]
+     (advance [:b] [:a :b] script))
+  ([n script]
+     (reduce (fn [script _]
+               (scroll-text script))
+             script
+             (range n))))
 
 (defn start [] [[] (root)])
 
@@ -38,19 +45,7 @@
   ([] (oak (title)))
   ([script]
      (->> script
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text)))
+          (scroll-text 13))))
 
 (defn-memo name-entry-rlm
   ([] (name-entry-rlm (oak)))
@@ -79,11 +74,7 @@
   ([] (rival-name-entry-gary (name-entry-ash)))
   ([script]
      (->> script
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
+          (scroll-text 5)
           (advance [] [:d])
           (advance [] [:d])
           (advance [] [:a]))))
@@ -92,11 +83,7 @@
   ([] (rival-name-entry-blue (name-entry-ash)))
   ([script]
      (->> script
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
+          (scroll-text 5)
           (advance [] [:d])
           (advance [] [:a]))))
 
@@ -104,14 +91,8 @@
   ([] (finish-title (rival-name-entry-blue)))
   ([script]
      (->> script
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text
-          scroll-text)))
-
+          (scroll-text 7))))
+          
 (def title-frames 2194)
 
 (defn title-checkpoint! []