NO-OP: whitespace removal
[ardour.git] / scripts / create_drum_tracks.lua
1 \r
2 ardour {\r
3         ["type"] = "EditorAction",\r
4         name = "Create Drum Tracks",\r
5         author = "PSmith",\r
6         description = [[Creates 8 new tracks with representative names and colors.]]\r
7 }\r
8 \r
9 names = {\r
10 "Kick",\r
11 "Snare",\r
12 "Hat",\r
13 "Fl Tom",\r
14 "OH L",\r
15 "OH R",\r
16 "Room 1",\r
17 "Room 2"\r
18 }\r
19 \r
20 color = 0xff8800ff  --orange\r
21 \r
22     \r
23 function factory (params)\r
24         return function ()\r
25 \r
26                 local i = 1\r
27                 while names[i] do\r
28                         Session:new_audio_track(1,2,RouteGroup,1,names[i],i,ARDOUR.TrackMode.Normal)\r
29 \r
30                         track = Session:route_by_name(names[i])\r
31                         if (not track:isnil()) then\r
32                                 trkinfo = track:presentation_info_ptr ()        \r
33                                 trkinfo:set_color (color)\r
34                         end\r
35 \r
36                         i = i + 1\r
37                 end --foreach track\r
38 \r
39         end  --function\r
40 \r
41 end --factory\r