;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-RANDOM-BRUSH produces an image of a random brush stamps
; version 1.0   12/2/2010
; Copyright (c) 2010   Daniel Wilkerson
;
;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.
;
;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
;
;Copy of the license at http://td-e.com/site/gpl.php


(define (script-fu-random-brush curr-layer numStamps tempbrush brushColor isRandomColor)

  (let* (
      ; Save the foreground & background colors
      (old-fg (car (gimp-palette-get-foreground)))
      (old-bg (car (gimp-palette-get-background)))
      (old-brush (car (gimp-context-get-brush)))
      (width (car (gimp-drawable-width curr-layer)))
      (height (car (gimp-drawable-height curr-layer)))     
      (image (car (gimp-drawable-get-image curr-layer)))
      (layer-one (car (gimp-layer-new image width height RGB-IMAGE "Stamps" 100 NORMAL-MODE)))
      (ii 0)
      (ns 0)
      (xs 0)
      (ys 0)
      (randomColor brushColor)
      (pixw (cons-array 2 'byte))
    )

    (srand (realtime))
    
    (gimp-image-undo-disable image)
    (gimp-image-add-layer image layer-one 0)

    (gimp-palette-set-foreground brushColor)
    (gimp-layer-add-alpha layer-one)
    (gimp-drawable-fill layer-one 3)  ;0 FG, 1 BG, 2 white, 3 trans   
    (gimp-context-set-brush (car tempbrush))
   
    ;generating stamps
    (while (< ns numStamps)
      (set! ns (+ ns 1))
      (set! xs (rand width))
      (set! ys (rand height))
      (aset pixw 0 (rand width))
      (aset pixw 1 (rand height))
     
          (if (= isRandomColor FALSE)
              (set! randomColor (gimp-image-pick-color image curr-layer xs ys FALSE FALSE 1))
              (gimp-palette-set-foreground randomColor)  
          ); end if
 
      (gimp-paintbrush-default layer-one 2 pixw)

      ; preparing the exit of the loop
      (set! ii (+ ii 1))
      (if (> ii 10000) (set! ns numStamps))
    ) ; end of loop

    ; Restore the old foreground & brush
    (gimp-palette-set-foreground old-fg)
    (gimp-context-set-brush old-brush)

    ;(gimp-display-new image)
    (gimp-image-undo-enable image)
  )
)

(script-fu-register "script-fu-random-brush"
                    "<Toolbox>/Xtns/Script-Fu/Patterns/Random Brush"
                    "Creates a Random Brush pattern."
                    "D. Wilkerson"
                    "D. Wilkerson"
                    "2010.12.02"
                    ""
                    SF-DRAWABLE "Image" 0
                    SF-ADJUSTMENT "Number of Stamps"  '(400 1 10000 10 10 0 1)
                    SF-BRUSH "Brush" '("Circle (03)" 100 44 0)
                    SF-COLOR "Color" '(0 102 255)
                    SF-TOGGLE "Random Color" TRUE			
)