;;mholdstamp
;Kiki
;http://kikidide.yuki-mura.net/GIMP/gimp.htm
;http://kikidide.yuki-mura.net/GIMP/engimp.htm
;

(define (script-fu-mholdstamp img drawable clr blr wdth angle1 angle2 ft?)
  (let* (

;;幅と高さ
	 (width (car (gimp-drawable-width drawable)))
	 (height (car (gimp-drawable-height drawable)))

;;色
	 (c-layer (car (gimp-layer-new img width height RGB-IMAGE "color" 100 LAYER-MODE-NORMAL-LEGACY)))

         (old-fg (car (gimp-palette-get-foreground)))

;;2.4追加
	(c1)
	(c2)
	(c3)
)
    (gimp-undo-push-group-start img)

    (gimp-desaturate drawable)
    (set! c1 (car (gimp-layer-copy drawable 0)))
    (set! c2 (car (gimp-layer-copy drawable 0)))
    (set! c3 (car (gimp-layer-copy drawable 0)))
    (gimp-image-add-layer img c1 0)
    (plug-in-gauss-iir2 1 img c1 blr blr)
    (gimp-image-add-layer img c2 0)
    (gimp-image-add-layer img c3 0)
    (gimp-levels c2 0 0 213 1 0 255)
    (gimp-levels c3 0 0 201 1 0 255)
    (plug-in-newsprint 1 img c2 wdth 2 0 angle1 1 angle1 1 angle1 1 angle1 1 5)
    (plug-in-newsprint 1 img c3 wdth 2 0 angle2 1 angle2 1 angle2 1 angle2 1 5)
    (plug-in-displace 1 img c2 0 15 TRUE TRUE c1 c1 1)
    (plug-in-displace 1 img c3 0 15 TRUE TRUE c1 c1 1)
    (gimp-levels c2 0 0 200 1 0 255)
    (gimp-levels c3 0 0 195 1 0 255)
    (gimp-layer-set-mode c3 LAYER-MODE-DARKEN-ONLY)
    (gimp-image-remove-layer img c1)

    (gimp-image-add-layer img c-layer 0)
    (gimp-palette-set-foreground clr)
    (gimp-edit-fill c-layer FILL-FOREGROUND)
    (gimp-layer-set-mode c-layer LAYER-MODE-SCREEN-LEGACY)

    (if (= TRUE ft?) (gimp-image-flatten img))

    (gimp-palette-set-foreground old-fg)

    (gimp-undo-push-group-end img)
    (gimp-displays-flush)
))

(script-fu-register "script-fu-mholdstamp"
		    "<Image>/Script-Fu/oldstamp"
		    "mholdstamp"
		    "Kiki"
		    "Kiki"
		    "2005/4"
		    "RGB*"
		    SF-IMAGE        "Image"    0
		    SF-DRAWABLE     "Drawable" 0
		    SF-COLOR        "Background Color" '(32 160 0)
         	    SF-ADJUSTMENT  _"blur"		'(35 1 150 1 2 0 1)
         	    SF-ADJUSTMENT  _"space and line"	'(4 0 100 1 2 0 1)
         	    SF-ADJUSTMENT  _"angle1"		'(45 -180 180 1 2 0 1)
         	    SF-ADJUSTMENT  _"angle2"		'(135 -180 180 1 2 0 1)
                    SF-TOGGLE       "Flatten Image"     TRUE
)