(define (script-fu-hello-world img drawable) ; Beginn einer UNDO-Gruppe. Die Aktionen zwischen diesem Beginn ; und dem Ende werden bei einem UNDO rückgängig gemacht. (gimp-undo-push-group-start img) ; Generieren eines Textes (vgl. Parameter im DB-Browser) (set! text-float (car (gimp-text img drawable 10 10 "Hello World" 0 TRUE 30 PIXELS "*" "Helvetica" "medium" "r" "*" "*" "*" "*"))) ; Verankern des temporären Arbeitsbereiches (Floating selection") (gimp-floating-sel-anchor text-float) ; Abschließen der UNDO-Gruppe (gimp-undo-push-group-end img) ; Ausgabe bereitstellen (gimp-displays-flush) ) (script-fu-register "script-fu-hello-world" "/Script-Fu/Test/Hello World" "Write Hello World in the current image" "Dov Grobgeld" "Dov Grobgeld" "1998" "RGB*, GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Layer" 0 )