PDA

Vollständige Version anzeigen : Script nach erster Ausführung leider ausgegraut ???


24dan
13.11.2008, 12:22
Hallo...

ich habe mein funktionierendes Script unter Gimp 2.6


"<Toolbox>/Xtns/Script-Fu/T.E.S.T./Start Hilfe" ;Menutitel


so bekannt gemacht.

Problem:

Nach der erster Ausführung ist das Script leider immer ausgegraut ???

Habe ich in meinem script was vergessen?


; GIMP Script für das Erstellen von einfachen Templates

(define (script-fu-hilfe-start)
; Variablen definieren
(let*
(
(theBMP (car (file-bmp-load 1 "C:\\Oszilloscope.bmp" "C:\\Oszilloscope.bmp"))) ;Bild öffnen
(breite (car (gimp-image-width theBMP))) ;Breite des Bildes holen
(hoehe (car (gimp-image-height theBMP))) ;Höhe des Bildes holen
(varBreite1 (/ (* 600 breite) hoehe)) ;Skalierungsparameter Breite rechnen
(theImage (car (gimp-xcf-load 0 "C:\\vorlage_8_1024x600.xcf" "C:\\vorlage_8_1024x600.xcf"))) ;Vorlage öffnen
(testLayer (car (gimp-file-load-layer 0 theImage "C:\\Oszilloscope.bmp"))) ;Bild öffnen und in Volage als Layer hinzufügen
(new-layers (gimp-image-get-layers theImage)) ;Alle Layer holen
(test "gimp-paintbrush")
(strokes (cons-array 4 'double))
(aset strokes 0 0)
(aset strokes 1 0)
(aset strokes 2 123)
(aset strokes 3 123)
)
(gimp-image-add-layer theImage testLayer 1) ;Bild mit Vorlage verknüpfen
(gimp-layer-scale-full testLayer varBreite1 600 TRUE 2) ;Bild skalieren
(gimp-layer-translate testLayer 0 -84) ;Bild verschieben
(gimp-drawable-set-name testLayer "DE") ;Layer beschriften
(gimp-image-set-active-layer theImage (aref (cadr new-layers) 0)) ;Layer aktivieren

(gimp-display-new theImage) ; Bild anzeigen
(list theImage testLayer)

; GIMP Arbeitseinstellungen "nice to have"
(gimp-context-set-paint-mode NORMAL-MODE) ;GIMP in den zeichnen Mode setzen
(gimp-context-set-foreground '(127 0 0)) ;Farbe setzen
(gimp-brushes-set-brush "Onlinehilfe" ) ;Pinsel setzen
(gimp-context-set-paint-method test) ;Werkzeug Pinsel wählen
(gimp-paintbrush (aref (cadr new-layers) 0) 0 4 strokes 0 10)
(gimp-message "Bitte noch manuel den Pinsel auswaehlen. \n\nDANKE.") ;Nachricht senden
)
)




; Hier wird das Script bei GIMP angemeldet

(script-fu-register "script-fu-hilfe-start" ;Funktionsname
"<Toolbox>/Xtns/Script-Fu/T.E.S.T./Start Hilfe" ;Menutitel
"" ;Erklärung
"Daniel Kaemtner" ;Autor
"copyright 2008, Version 0.9" ;Copyright notice
"November 10, 2008" ;Datum der Erstellung
"*.bmp" ;image type that the script works on
SF-STRING "Pfad:" "Pfad zum Bild" ;a string variable
)


:confused: