-
Notifications
You must be signed in to change notification settings - Fork 0
/
rakugaki299plus.scm
93 lines (79 loc) · 3.76 KB
/
rakugaki299plus.scm
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
; Rakugaki-plus299.scm Ver2.0 for Gimp 2.10 / 2.99 Etigoya
; Updated by Vitforlinux 9-2023 for Gimp 2.10.34 2.99.16
; You draw Ver1.0」
; Draw the image randomly in a random color.
; If you apply this script to the work that you struggled with,
; You can enjoy a comfortable feeling of weakness ...
; Fix code for gimp 2.99.6 working in 2.10
(cond ((not (defined? 'gimp-drawable-get-width)) (define gimp-drawable-get-width gimp-drawable-width)))
(cond ((not (defined? 'gimp-drawable-get-height)) (define gimp-drawable-get-height gimp-drawable-height)))
(if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10)
(define sfbrush '("Pencil Scratch" 1.0 20 0))
(define sfbrush "Pencil Scratch") )
(if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10)
(define sfbggrad "Full saturation spectrum CCW")
(define sfbggrad "Full Saturation Spectrum CCW") )
(define (script-fu-rakugaki-plus299 image drawable randpoint brush brush-size rotation rsize ctype color gradient)
(let* (
(width (car (gimp-drawable-get-width drawable)))
(height (car (gimp-drawable-get-height drawable)))
(point 4)
(count 1)
(random-color)
(segment)
(r 0)(g 0)(b 0)
(xa 0)(ya 0))
(gimp-context-push)
(gimp-image-undo-group-start image)
(gimp-context-set-paint-mode LAYER-MODE-NORMAL-LEGACY)
(if (defined? 'gimp-context-enable-dynamics) (gimp-context-enable-dynamics FALSE))
(gimp-context-set-dynamics "Pressure Opacity")
(if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10)
(gimp-context-set-brush (car brush))
(gimp-context-set-brush brush) )
(gimp-context-set-gradient-reverse TRUE)
(gimp-context-set-gradient gradient)
(gimp-context-set-brush-size brush-size)
(while (<= count randpoint)
(set! r (rand 255))
(set! g (rand 255))
(set! b (rand 255))
(set! random-color (list r g b))
(if (= ctype 0) (gimp-context-set-foreground random-color))
(if (defined? 'gimp-context-enable-dynamics) (gimp-context-enable-dynamics TRUE))
(if (= ctype 1) (gimp-context-set-foreground color) (gimp-context-set-dynamics "Pressure Opacity"))
(if (= ctype 2) (gimp-context-set-dynamics "Random Color"))
(if (= rotation 1) (gimp-context-set-brush-angle (random 180 )))
(if (= rsize 1) (gimp-context-set-brush-size (round (random brush-size ))))
(set! segment (cons-array 4 'double))
(set! xa (rand width))
(set! ya (rand height))
(aset segment 0 (* 1 xa))
(aset segment 1 (* 1 ya))
(aset segment 2 (* 1 xa))
(aset segment 3 (* 1 ya))
(gimp-paintbrush-default drawable point segment)
(set! count (+ count 1)) )
(gimp-image-undo-group-end image)
(gimp-context-pop)
(gimp-displays-flush) ))
(script-fu-register "script-fu-rakugaki-plus299"
_"Rakugaki-PLUS (Graffiti) 299..."
"Draw images randomly in random colors"
"越後屋 - Echigo"
"越後屋 - Echigo"
"2005/03/11"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Power" '(30 1 1000 1 10 0 1)
SF-BRUSH "Brush" sfbrush
SF-ADJUSTMENT "Brush Max Size" '(35 1 1000 1 5 0 0)
SF-TOGGLE "Random rotation?" FALSE
SF-TOGGLE "Random size?" FALSE
SF-OPTION "Color type" '("Random Color" "Single Color" "Random from Gradient")
SF-COLOR "Color" '(255 255 255)
SF-GRADIENT "Fill Gradient" sfbggrad
)
(script-fu-menu-register "script-fu-rakugaki-plus299"
_"<Image>/Script-Fu/Alchemy")