updating more NetLogo models to new protocol

resources/ant-37.nlogo

@@ -3258,6 +3258,24 @@ to-report get-measures-for [an-agent-kind]
   report result
 end
 
+to-report get-measures-for-starting-with [an-agent-kind start-index]
+  let result []
+  let relevant-measures measurepoints with [ tagentkind = an-agent-kind ]
+  let relevant-list sort relevant-measures
+  if not empty? relevant-list
+  [
+    foreach (sublist relevant-list start-index ((length relevant-list) - 1))
+    [
+      ask ? 
+      [ 
+        let datarep (list who red (word "\"" tagentkind "\"") tcycles tpopulation theading tdistfromlast tspeed taccel tpenwidth tpencolor) 
+        set result lput datarep result 
+      ]
+    ]
+  ]
+  report result
+end
+
 to-report get-measures-for-filtered [an-agent-kind a-measurepoint-creator]
   report get-measures-for an-agent-kind
 end
@@ -3271,6 +3289,10 @@ to-report get-agent-kinds-as-csv
   report butlast retn
 end
 
+to-report get-measures-for-filtered-starting-with [an-agent-kind a-measurepoint-creator start-index]
+ report get-measures-for-starting-with an-agent-kind start-index
+end
+
 to-report java-is-repeat-var
   report false
 end

resources/bird-butterfly2.nlogo

@@ -1394,6 +1394,24 @@ to-report get-measures-for [my-agent-kind]
   report result
 end
 
+to-report get-measures-for-starting-with [an-agent-kind start-index]
+  let result []
+  let relevant-measures measurepoints with [ tagentkind = an-agent-kind ]
+  let relevant-list sort relevant-measures
+  if not empty? relevant-list
+  [
+    foreach (sublist relevant-list start-index ((length relevant-list) - 1))
+    [
+      ask ? 
+      [ 
+        let datarep (list who red "\"butterflies\"" tcycles t-energy-avg t-population t-proboscis-avg t-watched-energy) 
+        set result lput datarep result 
+      ]
+    ]
+  ]
+  report result
+end
+
 to-report get-measures-for-filtered [an-agent-kind a-measurepoint-creator]
   let result []
   ; let relevant-measures measurepoints with [ tagentkind = an-agent-kind and measurepoint-creator = a-measurepoint-creator ]
@@ -1410,6 +1428,25 @@ to-report get-measures-for-filtered [an-agent-kind a-measurepoint-creator]
   report result
 end
 
+to-report get-measures-for-filtered-starting-with [an-agent-kind a-measurepoint-creator start-index]
+  let result []
+  let relevant-measures measurepoints with [ tagentkind = an-agent-kind and measurepoint-creator = a-measurepoint-creator ]
+  let relevant-list sort relevant-measures
+  if not empty? relevant-list
+  [
+    foreach (sublist relevant-list start-index ((length relevant-list) - 1))
+    [
+      ask ? 
+      [ 
+        ;; (length result + 1)
+        let datarep (list who red "\"butterflies\"" (start-index + length result + 1) t-energy-avg t-population t-proboscis-avg t-watched-energy) 
+        set result lput datarep result 
+      ]
+    ]
+  ]
+  report result
+end
+
 ; a-color an rgb color, with each value from 0-255
 ; reports a list (x y z)
 ; reference: http://www.easyrgb.com/index.php?X=MATH&H=02#text2

src/main/edu/vanderbilt/measure/MeasureWorld.java

@@ -580,4 +580,4 @@ private static int countMatchingSquareBrackets(final String input) {
         }
         return result;
     }
-}
+}

src/main/edu/vanderbilt/runcontroller/DefaultRunController.java

@@ -1197,4 +1197,4 @@ public void run() {
             }
         } 
     }
-}
+}

src/main/edu/vanderbilt/simulation/SimulationCaller.java

@@ -1083,4 +1083,4 @@ public static void updateMeasureWorld(final int index) {
     static Vector<MeasureWorld> getMeasureWorlds() {
         return measureWorlds;
     }
-}
+}