; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
; 
; Predator effect
; Copyright (c) 1997 Adrian Likins
; aklikins@eos.ncsu.ed
;
;  The idea here is too make the image/selection look sort of like 
;  the view the predator had in the movies. ie, kind of a thermogram
;  type of thing. Works best on colorful rgb images.
;
; 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., 675 Mass Ave, Cambridge, MA 02139, USA.



(define (script-fu-olaf image
			drawable
			layers
			x y e-x e-y s-r e-r s-s e-s col)
  (define (inter-value start ende min n max)
    (let ((diff (* 1 (- ende start)))
	  (percent (/ (* 100 (- n min))
		      (- max min))))
      (+ start (/ (* diff percent) 100))))
  (let* ((copy ())
	 (n 0)
	 )
    (while (< n layers)
      (begin
	(set! n (+ 1 n))
	(set! copy (car (gimp-layer-copy drawable 7)))
	;;(gimp-image-enable-undo image)
	(gimp-image-add-layer image copy -1)
	(plug-in-nova 1 image copy 
		      (inter-value x e-x 0 n layers)    ; x 
		      (inter-value y e-y 0 n layers)    ; y 
		      col                               ; color
		      (inter-value s-r e-r 0 n layers)  ; radius
		      (inter-value s-s e-s  0 n layers) ; strokes
		      0)
	))
    (gimp-image-set-active-layer image copy)
    (gimp-displays-flush)))

(script-fu-register "script-fu-olaf"
		    "<Image>/Filters/Script-Fu/Iterators/N-Times Supernova"
		    "Apply n times plug-in-nova on one layer. Generate n layers to get a film"
		    "Olaf Sylvester <sylvester@netsurf.de>"
		    "Olaf Sylvester"
		    "2000"
		    "RGB RGBA GRAY GRAYA"
		    SF-IMAGE "Image" 0
		    SF-DRAWABLE "Drawable" 0
		    SF-VALUE "Layers" "10"
		    SF-VALUE "X" "0"
		    SF-VALUE "Y" "0"
		    SF-VALUE "End-X" "0"
		    SF-VALUE "End-Y" "0"
		    SF-VALUE "Start Radius" "6"
		    SF-VALUE "End Radius"   "6"
		    SF-VALUE "Start Strokes" "90"
		    SF-VALUE "End Strokes"   "100"
		    SF-COLOR "Colour" '(255 255 255)
		    )