IhaveNoName wrote:
>would you mail me that script, I can't load that page here. Thank you!
>
>[EMAIL PROTECTED]>-La5=:
>>From: GSR - FR <[EMAIL PROTECTED]>
>>Reply-To:
>>To: [EMAIL PROTECTED]
>>Subject: [Gimp-user] Re: photoshop's "plastic wrap" effect in GIMP
>>
>>[EMAIL PROTECTED] (2004-09-13 at 1539.56 +0200):
>> > but I imagine it would be possible. Perhaps someone could come up with a
>> > script-fu?
>>
>> http://wingimp.hp.infoseek.co.jp/files/script/wrap-effect.html
>>
>> GSR
The following is from: http://wingimp.hp.infoseek.co.jp/sub/other/2001.html
(Actually, you should be able to load this page,
just ignore the unreadable Japanese comments ---
they're totally obvious ennyhow.)
____________________________________________________
Script-Fu
ラップ(?)効果をScript-Fu一発でできるようにしてみよう！
; TRANS> WRAP (?) EFFECT
; GIMP wrap effect Script for GIMP 1.2
; <Image>/Script-Fu/Alchemy/Wrap Effect...
(define (script-fu-wrap-effect inImage
inLayer
inRadius
inGamma1
inGamma2
inSmooth
)
(gimp-undo-push-group-start inImage)
; 新しいレイヤーの追加
(set! theNewlayer (car (gimp-layer-copy inLayer 1)))
; 新しいレイヤーに名前付け
(gimp-layer-set-name theNewlayer "Wrap effect")
; 新しいレイヤーにイメージを入れる
(gimp-image-add-layer inImage theNewlayer 0)
; レイヤーをぼかす
(plug-in-gauss-iir2 TRUE inImage theNewlayer inRadius inRadius)
; レイヤーの輪郭抽出 (輪郭検出)
(plug-in-edge TRUE inImage theNewlayer 10.0 1)
; レイヤーのモードを変える
(gimp-layer-set-mode theNewlayer 0)
; レイヤーを脱色、色を反転
(gimp-desaturate theNewlayer)
(gimp-invert theNewlayer)
; シャギーを目立たせなくするためぼかす
(if (= inSmooth TRUE)
(plug-in-gauss-iir2 TRUE inImage theNewlayer 5 5))
; レイヤーをクリップボードにコピー
(gimp-edit-copy theNewlayer)
; レイヤーのガンマを変更
(gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255)
(gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255)
; レイヤーマスクの追加
(set! theLayermask (car (gimp-layer-create-mask theNewlayer 0)))
(gimp-image-add-layer-mask inImage theNewlayer theLayermask)
; レイヤーマスクに画像を追加
(gimp-floating-sel-anchor (car (gimp-edit-paste theLayermask 0)))
; レイヤーマスクのガンマを変更
(gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255)
(gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255)
(gimp-undo-push-group-end inImage)
; 表示に反映
(gimp-displays-flush)
)
(script-fu-register
"script-fu-wrap-effect"
"<Image>/Script-Fu/Alchemy/Wrap Effect..."
"draw with wrap effect"
"Iccii <[EMAIL PROTECTED]>"
"Copyright 2001, Iccii"
"Jan, 2001"
"RGB**"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-ADJUSTMENT "Randomness" '(10 0 32 1 10 0 0)
SF-ADJUSTMENT "Highlight Balance" '(3.0 1.0 10 0.5 0.1 1 0)
SF-ADJUSTMENT "Edge Amount" '(3.0 1.0 10 0.5 0.1 1 0)
SF-TOGGLE "Smooth" FALSE
)
Last updated 1/26/2001
____________________________________________________
Hope this works for you.
g
[EMAIL PROTECTED]
_______________________________________________
Gimp-user mailing list
[EMAIL PROTECTED]
http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user
