srecord noeq ScaledBWImageFromBWIntegralImage(IBWIntegralImage img, int w, int h default heightForWidth(img, w)) is ScalingImageOpResult<BWIntegralImage> {
  BWImage result;
  
  run {
    byte[] pixels = img cast BWIntegralImage
      ? scaledGrayBytesFromBWIntegralImage(img, w, h)
      : scaledGrayBytesFromBWIntegralImage(img, w, h);
    result = new BWImage(w, h, pixels);
  }
  
  public BWImage scalingSrcImage() { ret img; }
}