24.6 波浪圖，修改成可「單行」執行的 Script-Fu

修改成一行一行可執行的程式碼

• 本節要將 waves-anim.scm 修改成在 Console 內可一行一行執行的 Scheme 程式碼。
• waves-anim.scm 完整的程式碼可參考 24.5 節。
• 也可到 GIMP 系統的 scripts 目錄下找到該檔案。
• 最主要修改的部份是，將「對話框接收輸入變數值」修改成「直接指定輸入變數值」。
• 先要瞭解，news-text.scm 程式碼的執行流程。

---

最主要修改的部份

• 不使用 let* 改用 define
• 原本的程式使用 let* 定義與指定區域變數值。
• (let* (()()()...) ()() ...) 這樣的語法括號太多。
• 若要一行一行分析程式碼的意義，let* 語法，括號有好幾層，分析時，會造成一些干擾。
• 現在不使用 let* 改用 define 來定義與指定變數值。

---

捨棄函數 script-fu-waves-anim，直接指定輸入變數值

• 修改成最多的地方就是下列這兩段部份。
• (while (condition) (expr1) (expr2) .......)，要注意此區塊括號的對齊。
• 記得要刪除多餘的右括號 ) ，不然會出現錯誤訊息。
• 修改後的程式碼，不再需要預先定義函數 script-fu-waves-anim ，但是要預先設定變數名稱、變數值 。

(define (script-fu-waves-anim img
drawable
amplitude
wavelength
num-frames
invert)
(let* ((amplitude ......))
(wavelength ......))
(num-frames ......)
(remaining-frames num-frames)
(phase 0)
(phaseshift ......)
(image ......)
(source-layer ......))

(let* (
(waves-layer (car (gimp-layer-copy source-layer TRUE)))
(layer-name (string-append "Frame "
       (number->string
         (- (+ num-frames 2)
            remaining-frames) 10
         )
       " (replace)"))

---

從下列的程式碼得知變數值的型態與大小

SF-IMAGE       "Image" 0
SF-DRAWABLE    "Drawable" 0
SF-ADJUSTMENT _"Amplitude"        '(10 1   101 1 10 1 0)
SF-ADJUSTMENT _"Wavelength"       '(10 0.1 100 1 10 1 0)
SF-ADJUSTMENT _"Number of frames" '(6  1   512 1 10 0 1)
SF-TOGGLE     _"Invert direction" FALSE

---

以 flat land 平地圖案，作為測試用圖

• 假設啟動 GIMP 之後沒有開啟任何影像檔。
• 如此，新出現的影像其 id 為 1
• 程式碼的開頭加入這幾行，產生測試用圖 。

......
(script-fu-flatland 256 256 80 3.0 4.0 4.0)
......

---

修改後的程式碼，與測試的結果圖

• 下面是修改後的程式碼。
• 為了確保影像 id 為 1 ，請重新啟動 GIMP 。
• 啟動 GIMP Script-fu Console
• 將下面的 Scheme 程式碼，全部選取、複製、再貼入 Script-fu Console 文字框，按下 Enter 。
• 過一會，就會看到結果圖。

(define gradient "Land 1")
(gimp-context-set-gradient gradient)
(script-fu-flatland  256 256 80 3.0 4.0 4.0)
(define img 1) ; 影像 id 需要視"開啟多少影像"而定
(gimp-image-flatten img)
(define drawable (car (gimp-image-active-drawable img)))

(define amplitude 10)
(define wavelength 10)
(define num-frames 6)
(define invert FALSE)
(define amplitude (max 0 amplitude))
(define wavelength (max 0 wavelength))
(define num-frames (max 1 num-frames))
(define remaining-frames num-frames)
(define phase 0)
(define phaseshift (/ 360 num-frames))
(define image (car (gimp-image-duplicate img)))
(define source-layer (car (gimp-image-get-active-layer image)))

(gimp-image-undo-disable image)

(if (= invert TRUE)
(set! phaseshift (- 0 phaseshift)))

(while (> remaining-frames 1)
(define waves-layer (car (gimp-layer-copy source-layer TRUE)))
(define layer-name (string-append "Frame "
(number->string (- (+ num-frames 2)   remaining-frames) 10) " (replace)"))

(gimp-layer-set-lock-alpha waves-layer FALSE)
(gimp-image-add-layer image waves-layer -1)
(gimp-drawable-set-name waves-layer layer-name)

(plug-in-waves RUN-NONINTERACTIVE image waves-layer amplitude phase wavelength 0 FALSE)

(set! remaining-frames (- remaining-frames 1))
(set! phase (- phase phaseshift))
) ;這個右括號屬於 while 迴圈


(gimp-drawable-set-name source-layer "Frame 1")
(plug-in-waves RUN-NONINTERACTIVE image source-layer amplitude phase wavelength 0 FALSE)

(gimp-image-undo-enable image)
(gimp-display-new image)