; Draw filled circle
; By Cornelius for eduational purposes
; w.e.b@centrum.cz

(script-fu-register "script-fu-kruh"	; jmeno funkce
	"<Toolbox>/Xtns/Script-Fu/Pokusy/Kruh"	; pozice v menu
	"Kresli kruh"	; popiska
	"cornelius"										; autor
	"(c) 2004 Cornelius"					; copyright
	"Mar 2004"					; datum vytvoreni
	""							; typ obrazku na kterem se ma pracovat
	; nasleduji promenne a definice vstupnich poli pro jejich zadani.
	SF-VALUE "Radius"	"32"	; Nazev policka a hodnota v nem
)


(define (script-fu-kruh rad_prumer)
  (let*
   (
	; Nejdriv nadefinujeme promenne ...
	; Nejdriv vytvorime novy obrazek
	(obrazek (car (gimp-image-new rad_prumer rad_prumer RGB)))
	; A pridame do nej vrstvu do ktere budeme kreslit
	(pozadi (car (gimp-layer-new obrazek rad_prumer rad_prumer RGB_IMAGE "Pozadi_vrstva" 100 NORMAL)))
  )

   ;vypni moznost Vratit zpet
   ;(gimp-image-undo-disable obrazek)  
   ; Pridej vrstvu do které se bude kreslit 
    (gimp-image-add-layer obrazek pozadi 0)   ; do jakeho obrazku, jakou vrstu, na jakou pozici(0 vrstva pozadi, -1 nejvyssi vrstva, 1 prvni vrstva, 2 druha, ...)
    ; Pokud ted pustite skript, zjistite, ze vrstva obsahuje nahodny obsah a ten je potreba vymazat:
    (gimp-edit-clear pozadi)
    ; ........................
    ; Zobraz prazdny obrazek at vidime vysledek
    (gimp-display-new obrazek)	
  )
)