srecord noeq Hi15ImageStreaks(Hi15Image inputImage) {
  // pixel indices of streak ends
  new IntBuffer streakData;
  int[] lineStarts;
  gettable int w;
  
  run {
    var streakData = this.streakData;
    int w = this.w = inputImage.w(), h = inputImage.h();
    lineStarts = new int[h+1];
    short[] pixels = inputImage.pixels;
    int iPixel = 0;
    
    for y to h: {
      lineStarts[y] = streakData.size();
      int lineEnd = iPixel+w;
      while (iPixel < lineEnd) {
        short color = pixels[iPixel];
        do
          ++iPixel;
        while (iPixel < lineEnd && pixels[iPixel] == color);
        streakData.add(iPixel);
      }
    }
    
    lineStarts[l(lineStarts)-1] = streakData.size();
  }
  
  selfType runAndReturn() { run(); this; }
  
  int nStreaks() { ret streakData.size(); }
  int h() { ret lineStarts.length-1; }
  
  int lineEnd(int y) { ret lineStarts[y+1]; }
  
  ItIt<Rect> streaksAsRectsIterator() {
    ret iffNull(new IF0<Rect> {
      int iStreak, iPixel;

      public Rect get() {
        if (iStreak >= nStreaks()) null;
        int w = w();
        int jPixel = streakData.get(iStreak++);
        Rect r = rect(iPixel % w, iPixel/w, jPixel-iPixel, 1);
        iPixel = jPixel;
        ret r;
      }
    });
    
  }
}