gimp - 有没有办法在 gimp 中找到图层上的点？

Question

假设我有一个带有几个点的图像（作为附件）。脚本有没有办法找到这些点并给我一个数组？

我想我可以通过图像处理来做到这一点，但我希望有一个脚本可以做到这一点。

Answer 1

我认为在 Script-Fu 中执行此操作不是一个好主意。使用 Script-Fu 迭代像素非常慢，因为它涉及为每个像素分配数组和列表的开销。

我已经快速编写了脚本来执行此操作，但它非常慢 -在我的机器上大约需要 5 分钟才能获取您的图像：

; Returns an array of cons pairs
(define (count-points image)
  (let* ((duplicate (car (gimp-image-duplicate image)))
     (layer (car (gimp-image-flatten duplicate)))
     (width (car (gimp-image-width duplicate)))
     (heigth (car (gimp-image-height duplicate))))
    (display (gimp-drawable-is-gray layer)) (newline)
    (if (not (equal? (car (gimp-drawable-is-gray layer)) 1))
      (gimp-image-convert-grayscale duplicate))
    (plug-in-blur 0 duplicate layer)
    (gimp-threshold layer 0 127)
    (let loop ((x 0) (y 0) (result '()))
      (if (>= y heigth)
      result
      (if (>= x width)
          (loop 0 (+ y 1) result)
          (loop (+ x 1)
            y
            (let ((vals (cadr (gimp-drawable-get-pixel layer x y))))
              (if (< (aref vals 0) 127)
              result
              (cons (cons x y) result)))))))))

;; Call in Script-Fu Console like this (to calculate points
;; of the last image opened/created):
;; 
;;   (let ((imgs (gimp-image-list)))
;;     (count-points (vector-ref (cadr imgs) 0)))

我建议将图像（之前模糊并使用 Treschold）导出为 PGB/PBM 之类的愚蠢格式，然后使用 C 或其他可编译语言的外部程序进行计算。