persistable sclass G22_TestScreenPanel is IHasChangeListeners {

  settableWithChange S script = "rasters";

  settableWithChange bool animate = true;

  event change;

  transient Animation animation;

  transient settable G22Utils g22utils;

  transient ImageSurface isInput;

  transient JGazelleVScriptRunner scriptRunner;

  void start {

    scriptRunner = new JGazelleVScriptRunner(

      liveValue_hasChangeListeners(this, S, -> script, x -> script = x));

    isInput = g22utils.stdImageSurface();

    // when test screen is visible, do the animation

    awtEvery(isInput, 1000/20, r stepAnimation);

  }

  void stepAnimation {

    if (!animate) ret;

    if (animation == null) {

      animation = new AnimatedLine;

      animation.start();

    }

    animation.nextFrame();

    var img = whiteImage(animation.w, animation.h);

    animation.setGraphics(createGraphics(img));

    animation.paint();

    isInput?.setImage(img);

    var ii = bwIntegralImage_withMeta(img);

    scriptRunner.parseAndRunOn(ii);

  }

  visualize {

    if (isInput == null) start();

    ret centerAndSouthWithMargin(

      hsplit(

        northAndCenterWithMargin(centerAndEastWithMargin(

          jlabel("Input"), liveValueCheckBox("Animate",

            liveValue_hasChangeListeners(this, bool.class, -> animate, x -> animate(x)))),

        jscroll_centered_borderless(isInput)),

        northAndCenterWithMargin(centerAndEastWithMargin(

          jlabel("Output"), scriptRunner.lblScore),

        scriptRunner.scpScriptResult)

      ),

      scriptRunner.scriptInputField()

    );

  }

}