!7

cmodule2 FindLineInCenter > DynWebCamAnalyzer {
  transient BWIntegralImage ii;
  transient OCRCompass c;
  switchable bool lineIsBright = true;
  switchable int angles = 6;
  switchable int radius = 50;
  
  start {
    dm_onFieldChange(ll("angles", "radius", "lineIsBright"),
      r { c = null });
  }
  
  // add controls
  afterVisualize {
    containerAddFirst(buttons, dm_checkBox lineIsBright(),
      dm_spinnerWithLabel angles(2, 24), dm_spinnerWithLabel radius(1, 80));
  }
  
  void prepareImage {
    ii = new BWIntegralImage(inputImage);
  }
  
  void analyzeImage {
    Pt center = pt(w/2, h/2);
    if (c == null || neq(c.center, center)) {
      c = new OCRCompass;
      c.center = center;
      c.steps = angles*2;
      c.brightForeground = lineIsBright;
      c.radius = min(w, h)/2.0*radius/100;
      overlays = ll(c);
    }
    c.image = ii;
    c.compute();
  }
}

Began life as a copy of #1030561