GimpのScript-Fuで画素を書き換える

;; 画像一覧
(define Images (vector->list (car (cdr (gimp-image-list)))))
(define ImageIndex (car Images) )

;; ImageIndex内のレイヤー一覧
(define Layers (vector->list (car (cdr (gimp-image-get-layers ImageIndex)))))
(define LayerIndex (car Layers) )

;; 編集対象は以後Drawable
(define Drawable LayerIndex)

;; 画像サイズ確認
(gimp-drawable-width Drawable)
(gimp-drawable-height Drawable)

;; 座標
(define x 10)
(define y 10)

;; ピクセルの更新
(gimp-drawable-set-pixel Drawable x x 3 #(255 0 0) )
(gimp-displays-flush)
(gimp-drawable-update Drawable x y 1 1)