blob: 105955761647b838edb87ec3a016967e311b1fcb (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
; apply-waves-effect-v3x - Script-fu dodający efekt falowania
; author: PRP
; licencja: Public Domain
; Gdańsk - 25-02-2025
; ver. 1.260725-0
;(define (przem-apply-waves-effect-v3x image drawable amplitude frequency)
(define (przem-apply-waves-effect-v3x image drawable)
(let* (
(width (car (gimp-image-get-width image)))
(height (car (gimp-image-get-height image)))
(new-image (car (gimp-image-duplicate image)))
(new-drawable 0)
(brush (car (gimp-brush-new "Pixel Brush")))
(resize-y 0)
(resize-x 0)
(y 0)
(x 0)
(amplitude 5)
(frequency 0.1)
(phase 0)
(counter 0))
(gimp-selection-none new-image)
(gimp-context-push)
(gimp-context-set-defaults)
(gimp-brush-set-shape brush BRUSH-GENERATED-CIRCLE)
(gimp-context-set-paint-method "gimp-paintbrush")
(gimp-context-set-paint-mode LAYER-MODE-NORMAL)
(gimp-brush-set-radius brush (/ 1 2))
(gimp-context-set-brush-size 1)
;(gimp-context-set-brush-angle 0.0)
(gimp-context-set-brush-hardness 1.0)
(gimp-context-set-opacity 100.0)
(gimp-context-set-brush brush)
; symulacja
(while (< y height)
(while (< x width)
(set! resize-x (+ x (* amplitude (sin (+ (* frequency x) phase)))))
(set! resize-y (+ y (* amplitude (cos (+ (* frequency y) phase)))))
(set! x (+ x 1))
(set! counter (+ counter 1))
)
(set! x 0)
(set! y (+ y 1))
)
(gimp-image-scale new-image resize-x resize-y)
(set! new-drawable (vector-ref (car (gimp-image-get-selected-layers new-image)) 0))
(set! x 0)
(set! y 0)
; Przejdź przez każdy piksel obrazu
(while (< y height)
(while (< x width)
(let* (
(new-x (+ x (* amplitude (sin (+ (* frequency x) phase)))))
(new-y (+ y (* amplitude (cos (+ (* frequency y) phase)))))
(color (car (gimp-image-pick-color image drawable x y FALSE FALSE 1)))
(how-many-points 1)
(point (vector new-x new-y))
)
(gimp-context-set-foreground color)
;(gimp-brushes-refresh)
(gimp-pencil new-drawable point how-many-points) ; Narysuj punkt
)
(set! x (+ x 1))
)
(set! x 0)
(set! y (+ y 1))
)
(gimp-context-pop)
(gimp-display-new new-image)
(gimp-selection-none new-image)
(gimp-displays-flush)
) )
(define displayln (lambda (obj) (display obj) (display "\n")))
( script-fu-register-filter "przem-apply-waves-effect-v3x"
"Apply a waves effect to the image."
"Dodaje efekt fali do zdjęcia"
"Przenmysław R. Pietraszczyk"
"Public Domain"
"2025-02-25"
"RGB*, GRAY*"
SF-ONE-OR-MORE-DRAWABLE
)
(script-fu-menu-register "przem-apply-waves-effect-v3x" "<Image>/Filters/PIETRASZCZYK")
|
