!7

cm LiveWebCamOnTop > DynSCP {

  transient WebcamPanel panel;

  int fpsLimit = -1;

  switchable bool autoStart;

  switchable bool showFPS;

  switchable int height = 240;

  switchable int posX;

  switchable int posY;

  void cleanMeUp_panel {

    stopIt();

  }

  start {

    dm_onFieldChange(ll("height", "posX", "posY"), r updatePanelSize);

    if (autoStart)

      thread { startIt(); }

  }

  enhanceFrame {

    internalFramePopupMenuItem(f, "Save to AI Album",

      rThread { dm_saveToAIAlbum(getImage()) });

    internalFramePopupMenuItem(f, "Set FPS...", r {

      final JTextField tf = jtextfield(str(fpsLimit));

      showFormTitled("Set FPS Limit",

        "FPS Limit (-1 for no limit, 0 for no updates):", tf,

        rThread { setFPSLimit(parseInt(gtt(tf))) });

    });

  }

  JComponent visualize2() {

    ret panel != null

      ? jcenteredbutton("Stop", rThread stopIt)

      : jcenteredbutton("Start", rThread startIt);

  }

  void updatePanelSize() swing {

    var window = getWindow(panel);

    if (panel == null || window == null) ret;

    int h = height;

    var pref = getPreferredSize(panel);

    int w = widthForHeight(pref.getWidth(), pref.getHeight(), h);

    int x1 = screenWidth()-w+posX, y1 = posY;

    setWindowBounds(panel, x1, y1, w, h);

    alwaysOnTop(panel);

  }

  void startIt enter {

    selectWebCam(vf<Webcam> selectCam);

  }

  void startPreferredOrSelect {

    selectWebCam_withPreferred(vf<Webcam> selectCam);

  }

  void selectCam(Webcam cam) swing {

    enter;

    if (panel != null) ret;

    WebcamPanel panel = new(cam, false);

    onClick(panel, r { dm_activateOSAndModule(me()) });

    LiveWebCamOnTop.this.panel = panel;

    bindToComponent(panel, null, r { panel.stop() });

    updateFPSLimitInPanel();

    showInTopRightCorner(panel);

    updatePanelSize();

    revisualize2(); // show stop button

  }

  void stopIt swing {

    if (panel == null) ret;

    disposeWindow(panel);

    dispose panel;

    revisualize2(); // show start button again

  }

  BufferedImage getImage() {

    ret imageFromWebcamPanel(panel);

  }

  void setFPSLimit(int limit) {

    setField(fpsLimit := limit);

    updateFPSLimitInPanel();

  }

  void updateFPSLimitInPanel swing {

    setModuleName((fpsLimit >= 0 ? fpsLimit + " FPS - " : "") + "Live WebCam");

    if (panel == null) ret;

    panel.stop();

    if (fpsLimit == 0) ret; // TODO - want to keep last image there anyway

    panel.setFPSDisplayed(showFPS && fpsLimit < 0);

    if (fpsLimit > 0) panel.setFPSLimit(fpsLimit);

    panel.setFPSLimited(fpsLimit > 0);

    panel.start();

  }

  bool isWebCamLive() {

    ret panel != null && fpsLimit != 0;

  }

}