Clean up create drum-tracks script (no global variables)

diff --git a/scripts/create_drum_tracks.lua b/scripts/create_drum_tracks.lua
index 0ade66a60d4ffbe226254f7fd025a24f2905251a..57c484a61edc43eb9fe88ca80b9d9c54c9858ac0 100644 (file)
--- a/scripts/create_drum_tracks.lua
+++ b/scripts/create_drum_tracks.lua
@@ -1,4 +1,3 @@
-\r
 ardour {\r
        ["type"] = "EditorAction",\r
        name = "Create Drum Tracks",\r
@@ -6,36 +5,32 @@ ardour {
        description = [[Creates 8 new tracks with representative names and colors.]]\r
 }\r
 \r
-names = {\r
-"Kick",\r
-"Snare",\r
-"Hat",\r
-"Fl Tom",\r
-"OH L",\r
-"OH R",\r
-"Room 1",\r
-"Room 2"\r
-}\r
+function factory () return function ()\r
 \r
-color = 0xff8800ff  --orange\r
+               local names = {\r
+                       "Kick",\r
+                       "Snare",\r
+                       "Hat",\r
+                       "Fl Tom",\r
+                       "OH L",\r
+                       "OH R",\r
+                       "Room 1",\r
+                       "Room 2"\r
+               }\r
 \r
-    \r
-function factory (params)\r
-       return function ()\r
+               local color = 0xff8800ff  --orange\r
 \r
                local i = 1\r
                while names[i] do\r
-                       Session:new_audio_track(1,2,RouteGroup,1,names[i],i,ARDOUR.TrackMode.Normal)\r
+                       local tl = Session:new_audio_track (1, 2, nil, 1, names[i],\r
+                                                           ARDOUR.PresentationInfo.max_order,\r
+                                                           ARDOUR.TrackMode.Normal)\r
 \r
-                       track = Session:route_by_name(names[i])\r
-                       if (not track:isnil()) then\r
-                               trkinfo = track:presentation_info_ptr ()        \r
-                               trkinfo:set_color (color)\r
+                       for track in tl:iter () do\r
+                               track:presentation_info_ptr ():set_color (color)\r
                        end\r
 \r
                        i = i + 1\r
                end --foreach track\r
 \r
-       end  --function\r
-\r
-end --factory\r
+end end -- function factory\r