GINPRO / SQLの窓と銀プログラマ

(define (script-fu-tamachan-mark w h s)
 (let* (
       (image (car(gimp-image-new w h 0)))
       (background (car (gimp-layer-new image w h 0 "Background" 100 NORMAL)))
       (channel (car (gimp-channel-new image w h "displace map" 50 '(127 127 127))))
       (old-fg (car (gimp-context-get-foreground))) 
       (old-bg (car (gimp-context-get-background))) 
        )

       (gimp-image-undo-disable image)
       (gimp-drawable-fill background 3)	
       (gimp-image-add-layer image background 1)
       (gimp-image-add-channel image channel 0) 
       (plug-in-solid-noise 1 image channel  0 0 s 2 4 16)
       (plug-in-solid-noise 1 image background  0 0 s 1 4 16)
       (plug-in-displace 1 image background 80 80 TRUE TRUE channel channel 1)
       (gimp-image-remove-channel image channel)
       (gimp-context-set-foreground '(140 190 240))
       (gimp-bucket-fill background 0 COLOR 100 255 FALSE 0 0)
       (gimp-context-set-foreground '(30 30 100))
       (gimp-context-set-background '(255 255 255))
       (gimp-blend background 0 OVERLAY 0 100 0 0 FALSE FALSE 0 0 TRUE 0 0 0 300)
       (gimp-brightness-contrast background 0 50)
       (gimp-blend background 2 NORMAL 0 100 0 0 FALSE FALSE 0 0 TRUE 0 0 0 100)

       (gimp-context-set-foreground old-fg)
       (gimp-context-set-background old-bg)
       (gimp-image-undo-enable image)
       (gimp-displays-flush)
       (gimp-display-new image)
))

(script-fu-register "script-fu-tamachan-mark"
  	_"Tama chan (Benchmark)..."
   	 "(-_-;)"
   	 "tamao sugar"
   	 "tamao sugar"
   	 "2004/12/3"
  	 ""
		SF-ADJUSTMENT "横" '(200 10 1000 1 10 0 1)
		SF-ADJUSTMENT "縦" '(200 10 1000 1 10 0 1)
		SF-ADJUSTMENT "乱数の種" '(1 1 100 1 10 0 1)
 	)

(script-fu-menu-register "script-fu-tamachan-mark"
  	_"<Toolbox>/Xtns/Script-Fu")