summaryrefslogtreecommitdiff
path: root/2.10/przem-apply-waves-effect.scm
blob: 1578bc92f9e53174f1354deb42afba3ebd195281 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
; apply-waves-effect - Script-fu dodający efekt fali
; author: PRP
; licencja: Public Domain
; Gdańsk - 26-02-2025
; ver. 1.250226-0

;(define (przem-apply-waves-effect image drawable amplitude wavelength phase type)
(define (przem-apply-waves-effect image drawable)

  (let* (
         (width (car (gimp-image-width image)))
         (height (car (gimp-image-height image)))
         (amplitude 10)  ; Amplituda fal
         (wavelength 50) ; Długość fali
         (type 0)        ; Typ fali (0 - sinusoidalna, 1 - trójkątna, 2 - prostokątna)
         (phase 0)       ; Faza fali
        )
    (plug-in-waves RUN-NONINTERACTIVE image drawable amplitude wavelength type phase)
  )
)


(script-fu-register "przem-apply-waves-effect"
  _"Apply a waves effect to the image."
  _"Dodaje efekt fali do zdjęcia"
  "Przenmysław R. Pietraszczyk"
  "Public Domain"
  "2025-02-23"
  "RGB*, GRAY*"
  SF-IMAGE "Image" 0
  SF-DRAWABLE "Drawable" 0
  ;SF-ADJUSTMENT "Amplitude" '(10 0 100 1 10 0 0)
  ;SF-ADJUSTMENT "Wave Length" '(50 0 100 1 10 0 0)
  ;SF-ADJUSTMENT "Phase Wave" '(0 0 100 1 10 0 0)
  ;SF-OPTION "Type" '("Sinusoidal" "Triangle" "Rectangular")

)

(script-fu-menu-register "przem-apply-waves-effect" "<Image>/Filters/PIETRASZCZYK")