/usr/share/gimp/2.0/scripts/line-nova.scm is in gimp-data 2.8.16-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ;;; 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)
(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-width (car (gimp-drawable-width drw)))
(drw-height (car (gimp-drawable-height drw)))
(drw-offsets (gimp-drawable-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)
(aset *points* (* 2 index) x)
(aset *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 (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 6 *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-edit-bucket-fill drw FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(if old-selection
(begin
(gimp-image-select-item img CHANNEL-OP-REPLACE old-selection)
;; (gimp-image-set-active-layer img drw)
;; delete extra channel by Sven Neumann <neumanns@uni-duesseldorf.de>
(gimp-image-remove-channel img old-selection)
)
)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "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-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Number of lines" '(200 40 1000 1 1 0 1)
SF-ADJUSTMENT _"Sharpness (degrees)" '(1.0 0.0 10.0 0.1 1 1 1)
SF-ADJUSTMENT _"Offset radius" '(100 0 2000 1 1 0 1)
SF-ADJUSTMENT _"Randomness" '(30 1 2000 1 1 0 1)
)
(script-fu-menu-register "script-fu-line-nova"
"<Image>/Filters/Render")
|