Skript-Fu text-effekt

Aus GIMPForum

(define (text-effekt sfText sfTextgroesse sfFarbe sfFont)
    (let*   (;---------------------------------------Variablendeklaration
                (varBreite 0)
                (varHoehe 0)
                (varVGFarbe '(255 255 255))
                (varHGFarbe '(0 0 0))
                (varBild
                    (car
                        (gimp-image-new
                         1
                         1
                         RGB
                        )
                    )
                )
                (varHintergrund
                    (car
                        (gimp-layer-new
                         varBild
                         1
                         1
                         RGBA-IMAGE
                         "Hintergrund"
                         100
                         NORMAL-MODE
                        )
                    )
                )
                (varTextlayer 0)
               (varFarblayer 0)
            );---------------------------------------Variablendeklaration fertig
            (gimp-context-set-background varHGFarbe)
            (gimp-context-set-foreground varVGFarbe)
            (gimp-image-add-layer
             varBild
             varHintergrund
             0
            )
            (set! varTextlayer
                (car
                    (gimp-text-fontname
                     varBild
                     -1
                     15
                     15
                     sfText
                     0
                     TRUE
                     sfTextgroesse
                     PIXELS
                     sfFont
                    )
                )
            )
            (plug-in-gauss
             TRUE
             varBild
             varTextlayer
             10
             10
             1
            )
            (plug-in-pixelize2
             TRUE
             varBild
             varTextlayer
             10
             10
            )
            (set! varBreite
                (car
                    (gimp-drawable-width varTextlayer)
                )
            )
            (set! varHoehe
                (car
                    (gimp-drawable-height varTextlayer)
                )
            )
            (gimp-layer-resize
             varTextlayer
             (+ varBreite 15)
             (+ varHoehe 15)
             0
             0
            )
            (gimp-image-resize-to-layers varBild)
            (gimp-image-set-active-layer 
             varBild
             varTextlayer
            )
            (gimp-layer-resize-to-image-size varHintergrund)
            (gimp-drawable-fill
             varHintergrund
             BACKGROUND-FILL
            )
            (set! varTextlayer
                (car
                    (gimp-image-merge-down
                     varBild
                     varTextlayer
                     EXPAND-AS-NECESSARY
                    )
                )
            )
            (plug-in-sharpen
             TRUE
             varBild
             varTextlayer
             70
            )
            (set! varFarblayer;------------------------------------------- Bei dieser Funktion weiter schreiben(Tutorial)
                (car
                    (gimp-layer-new
                     varBild     
                     1  
                     1    
                     RGBA-IMAGE  
                     "Farbe"     
                     100         
                     OVERLAY-MODE
                    )
                )
            )
            (gimp-context-set-foreground sfFarbe)
            (gimp-drawable-fill
             varFarblayer
             FOREGROUND-FILL
            )
            (gimp-image-add-layer
             varBild
             varFarblayer
             -1
            )
            (gimp-layer-resize-to-image-size varFarblayer)
            (gimp-drawable-fill
             varFarblayer
             FOREGROUND-FILL
            )
            (gimp-image-merge-down
             varBild
             varFarblayer
             EXPAND-AS-NECESSARY
            )
            (gimp-display-new varBild)
    )

)


(script-fu-register
        "text-effekt"
        "Verpixelter Text"
        "Erstellt einen Texteffekt"
        "Mohi"
        "Du darfst dieses Skript verteilen und veraendern solange der Name des Autors nicht entfernt wird."
        "6. April 2008"
        ""
        SF-STRING     "Text" "Text"
        SF-ADJUSTMENT  "Schriftgroesse"     '(150 1 500 1 10 1 1)
        SF-COLOR       "Farbe"              '(0 255 24)
        SF-FONT        "Schriftart"    "Sans"
)
(script-fu-menu-register   "text-effekt"
                           "<Image>/Filters/Eigene Skripts"
)