TD-e.com

Einrahmung

Ein Skript-fu für den Gimp

Beispiel

Bild das mit dem Skript-fu 'Einrahmung' eingerahmt wurde

Bild vergrössern

Beschreibung

"Einrahmung" ist ein Skript-fu für den Gimp. Es erzeugt einen Rahmen um ein Bild. Die Breite des Rahmens kann nach Ihrem Geschmack eingestellt werden. Sie wählen ob Sie einen einfarbigen Rahmen, einen Farbverlauf zwischen 2 Farben oder einer der vordefinierten Farbverläufe des Gimps die auf mehr als 2 Farben basieren, haben möchten. Sie können auch selber einen speziellen Farbverlauf entwerfen und diesen dann mit dem Skript "Einrahmung" anwenden. Wie üblich haben Sie die Wahl am Schluss die Ebenen gleich zu vereinen (oder eben nicht).

Das Skript wurde mit dem Gimp Version 2.2.9 unter Linux SuSE und mit dem Gimp Version 2.2.10 unter Windstoss getestet.
Die Version 1.10 wurde mit dem Gimp 2.4.0 unter Linux Ubuntu 7.10 Gutsy Gibbon getestet.

Versionen

2007.07.12 : Ein Präzisionsfehler von einem Pixel in 2 von den 4 Bilderecken wurde dank dem Vorschlag von Harald, ein Anwender, korrigiert.

2007.10.25 : Die gegenwärtige Version ist die 1.10 die an den Gimp 2.4 angepasst wurde. Sie befindet sich jetzt im Menü Filter.

Herunterladen (Download):

In den blauen Rahmen indem das Skript aufgelistet ist, hineinklicken.
Control-A tippen um das komplete Skript auszuwählen.
Control-C tippen um den Inhalt des Skripts in die Zwischenablage zu kopieren.
In einem Text-Editor (gedit, Kate, Aedix, Notepad, usw) Control-V tippen um das Skript einzufügen.
Als Datei frame-it-d.scm abspeichern.

Bemerkung: Deutsche Tastaturen nennen die Weltweit genannte Control Taste nicht Control-Taste sondern Steuerung-Taste (bababobo). Sogar die Franzosen die sich gerne absondern, haben sich nicht gewagt die Taste anders zu nennen!

Linux Ubuntu oder andere Gnome:   benutzen Sie den Text editor gedit oder bluefish

Linux Kubuntu oder andere KDE:   benutzen Sie den Text editor Kate oder Quanta

Mac OS X:   benutzen Sie den Text editor Smultron

Windstoss:   benutzen Sie den Text editor Aedix (gratis), oder Notepad (aber Achtung bei der Dateiendung .txt die unerwünscht ist, die Scriptdatei muss die Dateiendung .scm und nicht .scm.txt haben)

Andere Text Editoren sind auch tauglich, aber Text Bearbeitungsprogramme sind es nicht. Benutzen Sie kein Word, OpenOffice oder ähnliche.

Installation:

Die Datei frame-it-d.scm in einen der Ordner (Verzeichnisse) die in den Gimp Einstellungen unter Ordner / Skripte eingetragen sind, kopieren.

Linux Ubuntu und viele andere:
  /home/[username]/.gimp-2.n/scripts   oder   /usr/share/gimp/2.0/scripts

Linux SuSE:
  /home/[username]/.gimp-2.n/scripts   oder   /opt/gnome/share/gimp/2.0/scripts

Windstoss:
  C:\.gimp-2.n\scripts   oder   C:\program-files\gimp2.n\share\gimp\scripts

Im Menü Xtns (im Gimp) Xtns / Skript-Fu / Auffrischen anwählen. Das war's.
Das Skript kann in dem Menü Skript-Fu / Dekoration / Einrahmung... aufgerufen werden.
ACHTUNG : Die Version 1.10 kann in dem Menü Filter / Dekoration / Einrahmung... aufgerufen werden. Aus mysteriösen Gründen, weigert sich die Gruppe "Dekoration" unter dem Menü "Skript-Fu" zu erscheinen, zu mindest in meinem Gimp 2.4.0, also habe ich das Skript im Menü Filter/Dekoration untergebracht.

Skript-fu frame-it-d.scm für den Gimp

Hier unten in dem weissen Feld ist das komplette Script-Fu aufgelistet. Einfach kopieren und abspeichern.

Notice: Undefined index: isbrowser in /home/photowp/domains/td-e.com/public_html/pbin/func/piphost.php on line 58

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-FRAME-IT
; version 1.02  2006.07.14 german
; version 1.03  2007.07.12, one pixel precision error in 2 corners corrected
; version 1.10  2007.10.25, migration to Gimp 2.4
; Copyright (c) 2006-2007 Tharsice Demand <www.td-e.com>
;
;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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
;
;Copy of the license at http://td-e.com/site/gpl.php

(define (deltacolor col delta)
  (let* ((newcol (+ col delta)))
    (if (< newcol 0) (set! newcol 0))
    (if (> newcol 255) (set! newcol 255))
    newcol)
)

(define (adjcolor col delta)
  (mapcar (lambda (x) (deltacolor x delta)) col)
)

(define (gen_top_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 0 )
    (aset n_array 2 xsize)
    (aset n_array 3 ysize)
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 ysize)
    (aset n_array 6 width)
    (aset n_array 7 0 )
    (aset n_array 8 0 )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_left_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 0 )
    (aset n_array 2 xsize)
    (aset n_array 3 ysize)
    (aset n_array 4 xsize)
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 0 )
    (aset n_array 7 height )
    (aset n_array 8 0 )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_right_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 width )
    (aset n_array 1 0 )
    (aset n_array 2 (+ xsize owidth))
    (aset n_array 3 ysize)
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 width)
    (aset n_array 7 height)
    (aset n_array 8 width )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_bottom_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 height)
    (aset n_array 2 xsize)
    (aset n_array 3 (+ ysize oheight))
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 width)
    (aset n_array 7 height)
    (aset n_array 8 0 )
    (aset n_array 9 height)
    n_array)
)

(define *border-color*
  '(
    ("Farbverlauf oben" 0)
    ("Farbverlauf Farbe 1 / Farbe 2" 1)
    ("Einfarbig mit Farbverschiebung" 2)
   )
)

(define (script-fu-frame-it aimg adraw xsize ysize fcolor1 fcolor2 fgradient revgradient dvalue bordercol flatten)
  (let* 
    (
      (img (car (gimp-drawable-get-image adraw)))
      (owidth (car (gimp-image-width img)))
      (oheight (car (gimp-image-height img)))
      (width (+ owidth (* 2 xsize)))
      (height (+ oheight (* 2 ysize)))
      (layer (car (gimp-layer-new img
                                  width height
                                  (car (gimp-drawable-type-with-alpha adraw))
                                  "Border-Layer" 100 NORMAL-MODE)))
      (blendmode (if (= bordercol 0) CUSTOM-MODE FG-BG-RGB-MODE))

(topout (if (= revgradient FALSE) 0 (- ysize 1) ))
      (topin  (if (= revgradient FALSE) (- ysize 1) 0 ))
      (bottomout  (if (= revgradient FALSE) (- height 1) (- height ysize) ))
      (bottomin  (if (= revgradient FALSE) (- height ysize) (- height 1) ))
      (leftout  (if (= revgradient FALSE) 0 (- xsize 1) ))
      (leftin  (if (= revgradient FALSE) (- xsize 1) 0 ))
      (rightout  (if (= revgradient FALSE) (- width 1) (- width xsize) ))
      (rightin  (if (= revgradient FALSE) (- width xsize) (- width 1) ))
    )

(gimp-context-push)
    (gimp-image-undo-group-start img)

(gimp-image-resize img
                       width
                       height
                       xsize
                       ysize)

(gimp-image-add-layer img layer 0)
    (gimp-drawable-fill layer TRANSPARENT-FILL)
    (if (<= bordercol 1) (gimp-context-set-background fcolor1))
    (if (<= bordercol 1) (gimp-context-set-foreground fcolor2))
    (if (= bordercol 0) (gimp-context-set-gradient fgradient))

;---TOP---
    (gimp-context-set-background (adjcolor fcolor1 (- 0 dvalue)))
    (gimp-free-select img
                      10
                      (gen_top_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)

(if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      (/ width 2) topout
      (/ width 2) topin)
    )

;---LEFT---
    (gimp-context-set-background (adjcolor fcolor1 (- 0 (/ dvalue 2))))
    (gimp-free-select img
                      10
                      (gen_left_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)
    (if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      leftout (/ height 2)
      leftin (/ height 2))
    )

;---RIGHT---
    (gimp-context-set-background (adjcolor fcolor1 (/ dvalue 2)))
    (gimp-free-select img
                      10
                      (gen_right_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)
    (if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      rightout (/ height 2)
      rightin (/ height 2))
    )

;---BOTTOM---
    (gimp-context-set-background (adjcolor fcolor1 dvalue))
    (gimp-free-select img
                      10
                      (gen_bottom_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)

;---FINISHING---
    (gimp-selection-none img)
    (if (= flatten 1) (gimp-image-flatten img) ())
    (gimp-displays-flush)

(gimp-image-undo-group-end img)
    (gimp-context-pop)
  )
)

(script-fu-register "script-fu-frame-it"
                    "<Image>/Filters/Decor/Einrahmung..."
                    "Frame an image."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2007.10.25"
                    "RGB RGBA GRAY GRAYA"
                    SF-IMAGE       "Image"                   0
                    SF-DRAWABLE    "Drawable"                0
                    SF-ADJUSTMENT  "Rahmenbreite X"          '(40 1 250 1 10 0 1)
                    SF-ADJUSTMENT  "Rahmenbreite Y"          '(40 1 250 1 10 0 1)
                    SF-COLOR       "Rahmenfarbe 1"           '(116 72 24)
                    SF-COLOR       "Rahmenfarbe 2"           '(204 150 40)
                    SF-GRADIENT    "Farbverlauf"             "Golden"
                    SF-TOGGLE      "Farbverlauf invertieren" TRUE
                    SF-ADJUSTMENT  "Farbverschiebung"        '(25 1 255 1 10 0 1)
                    SF-OPTION      "Rahmenfarbe"             (mapcar car *border-color*)
                    SF-TOGGLE      "Ebenen vereinen"         FALSE
)

Hier oben in dem weissen Feld ist das komplette Script-Fu aufgelistet. Einfach kopieren und abspeichern.

Sponsoring

Wenn Ihnen das Skript 'Einrahmung' nützlich ist und Sie wollen den Entwickler unterstützen, dann können Sie eine

Lizenz

Für das Skript-Fu frame-it-d.scm hier oben gilt die Lizenz GNU general public license. Dieses Skript ist eine eigene Entwicklung des Webmasters dieser website (td-e.com). Es enthält Teile des Skripts "addborder.scm" von Andy Thomas (1997). Nur hier gibt es die Originalversion. Da unter GPL veröffentlicht, können eventuell von dritten veränderte Varianten auf anderen Websites gefunden werden.

Problembehebung

Die englischen Versionen meiner Script-Fu funktionnieren sowohl unter Linux wie auch unter Windstoss. Die deutschen Versionen funktionnieren unter Linux. Sie können anscheinend bei Windstoss ein Problem wegen den Umlauten haben (alles was nicht im 7 bit ASCII Code enthalten ist). Es wurde berichtet dass das Script dann ganz einfach nicht im vorgesehenen Menü erscheint.

Wenn so ein Fall auftreten sollte, gibt es 2 Möglichkeiten: entweder Sie installieren die englische Version, oder Sie ersetzen alle äöü mit ae oe ue in der deutschen Version. Eszett gibt es keine zu ersetzen da ich mit ss schreibe wie seit Jahrzehnten (1930. Jahren) üblich in der Schweiz.

Bemerkung : Die gegenwärtige Version 1.10 enthält kein Umlaute und ist damit Windstoss tauglich.

Blog TD-e.com
Kommentar hinzufügen

... ...
.. ..
. .