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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
;;; line-nova.scm for gimp-1.1 -*-scheme-*-
;;; Time-stamp: <1998/11/25 13:26:44 narazaki@gimp.org>
;;; Author Shuji Narazaki <narazaki@gimp.org>
;;; Version 0.7
(define (script-fu-line-nova img drw num-of-lines corn-deg offset variation)
; fmod and nth were globally defined before GIMP 3
; floating point remainder
(define (fmod a b)
(- a (* (truncate (/ a b)) b)))
(define (nth k list)
(list-ref list k))
(let* (
(*points* (cons-array (* 3 2) 'double))
(modulo fmod) ; in R4RS way
(pi/2 (/ *pi* 2))
(pi/4 (/ *pi* 4))
(pi3/4 (* 3 pi/4))
(pi5/4 (* 5 pi/4))
(pi3/2 (* 3 pi/2))
(pi7/4 (* 7 pi/4))
(2pi (* 2 *pi*))
(rad/deg (/ 2pi 360))
(variation/2 (/ variation 2))
(drw (vector-ref (car (gimp-image-get-selected-drawables img)) 0))
(drw-width (car (gimp-drawable-get-width drw)))
(drw-height (car (gimp-drawable-get-height drw)))
(drw-offsets (gimp-drawable-get-offsets drw))
(old-selection FALSE)
(radius (max drw-height drw-width))
(index 0)
(dir-deg/line (/ 360 num-of-lines))
(fg-color (car (gimp-context-get-foreground)))
)
(gimp-context-push)
(gimp-context-set-defaults)
(gimp-context-set-foreground fg-color)
(define (draw-vector beg-x beg-y direction)
(define (set-point! index x y)
(vector-set! *points* (* 2 index) x)
(vector-set! *points* (+ (* 2 index) 1) y)
)
(define (deg->rad rad)
(* (modulo rad 360) rad/deg)
)
(define (set-marginal-point beg-x beg-y direction)
(let (
(dir1 (deg->rad (+ direction corn-deg)))
(dir2 (deg->rad (- direction corn-deg)))
)
(define (aux dir index)
(set-point! index
(+ beg-x (* (cos dir) radius))
(+ beg-y (* (sin dir) radius)))
)
(aux dir1 1)
(aux dir2 2)
)
)
(let (
(dir0 (deg->rad direction))
(off (+ offset (- (modulo (msrg-rand) variation) variation/2)))
)
(set-point! 0
(+ beg-x (* off (cos dir0)))
(+ beg-y (* off (sin dir0)))
)
(set-marginal-point beg-x beg-y direction)
(gimp-image-select-polygon img CHANNEL-OP-ADD *points*)
)
)
(gimp-image-undo-group-start img)
(set! old-selection
(if (eq? (car (gimp-selection-is-empty img)) TRUE)
#f
(car (gimp-selection-save img))
)
)
(gimp-selection-none img)
(srand (realtime))
(while (< index num-of-lines)
(draw-vector (+ (nth 0 drw-offsets) (/ drw-width 2))
(+ (nth 1 drw-offsets) (/ drw-height 2))
(* index dir-deg/line)
)
(set! index (+ index 1))
)
(gimp-drawable-edit-fill drw FILL-FOREGROUND)
(if old-selection
(begin
(gimp-image-select-item img CHANNEL-OP-REPLACE old-selection)
(gimp-image-remove-channel img old-selection)
)
)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register-filter "script-fu-line-nova"
_"Line _Nova..."
_"Fill a layer with rays emanating outward from its center using the foreground color"
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997,1998"
"*"
SF-ONE-DRAWABLE
SF-ADJUSTMENT _"_Number of lines" '(200 40 1000 1 1 0 1)
SF-ADJUSTMENT _"S_harpness (degrees)" '(1.0 0.0 10.0 0.1 1 1 1)
SF-ADJUSTMENT _"O_ffset radius" '(100 0 2000 1 1 0 1)
SF-ADJUSTMENT _"Ran_domness" '(30 1 2000 1 1 0 1)
)
(script-fu-menu-register "script-fu-line-nova"
"<Image>/Filters/Render")
|
