TD-e.com

Sternenhimmel

Ein Skript-fu für den Gimp

Beispiel

Bild das mit dem Skript-fu 'Sternenhimmel' erzeugt wurde

Beschreibung

"Sternenhimmel" ist ein Skript-fu für den Gimp. Es erzeugt einen Nachthimmel mit vielen Sternen. Sie wählen die Anzahl Sternen. Die Sternen werden an Zufallspositionen verteilt. Es wird nie zwei Mal das gleiche Bild erzeugt. Die Helligkeit und der Kontrast des Hintergrunds können auch eingegeben werden.

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.10.24 : Die gegenwärtige Version ist die 1.10 die an den Gimp 2.4 angepasst wurde.

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 starry-sky-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 starry-sky-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ü Xtns / Script-Fu / Patterns / Starry Sky... aufgerufen werden.

Skript-fu starry-sky-d.scm für den Gimp

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-STARRY-SKY produces an image of a nighty sky with stars at random
; version 1.02  2006.07.14  german
; version 1.03  2006.08.17  german  Umlaute entfernt
; version 1.10  2007.10.24, 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 (script-fu-starry-sky width height smalls mediums bigs bglum bgcon)

(let* (
      ; Save the foreground & background colors
      (old-fg (car (gimp-palette-get-foreground)))
      (old-bg (car (gimp-palette-get-background)))

(image (car (gimp-image-new width height RGB)))
      (layer-one (car (gimp-layer-new image width height RGB-IMAGE "Bottom" 100 NORMAL-MODE)))
      (layer-two)
      (ii 0)
      (ns 0)
      (xs 0)
      (ys 0)
      (nm 0)
      (xm 0)
      (ym 0)
      (nb 0)
      (xb 0)
      (yb 0)
      (lum 0)
      (pixw (cons-array 3 'byte))
    )

(srand (realtime))
    (aset pixw 0 255)
    (aset pixw 1 255)
    (aset pixw 2 255)

(gimp-image-undo-disable image)
    (gimp-image-add-layer image layer-one 0)

; Set the fg to white, bg to black
    (gimp-palette-set-foreground '(255 255 255))
    (gimp-context-set-background '(0 0 0))
    (gimp-drawable-fill layer-one 1)  ;0 FG, 1 BG, 2 white

; generating small stars
    (while (< ns smalls)
      (set! ns (+ ns 1))
      (set! xs (rand width))
      (set! ys (rand height))
      (set! lum (+ (rand 160) 32))
      (aset pixw 0 (+ lum (rand 64)))
      (aset pixw 1 (+ lum (rand 64)))
      (aset pixw 2 (+ lum (rand 64)))
      (gimp-drawable-set-pixel layer-one xs ys 3 pixw)

; preparing the exit of the loop
      (set! ii (+ ii 1))
      (if (> ii 10000) (set! ns smalls))
    ) ; end of loop

; generating medium stars
    (set! ii 0)
    (while (< nm mediums)
      (set! nm (+ nm 1))
      (set! xm (rand (- width 1)))
      (set! ym (rand (- height 1)))
      (set! lum (+ (rand 96) 128))
      (aset pixw 0 (+ lum (rand 32)))
      (aset pixw 1 (+ lum (rand 32)))
      (aset pixw 2 (+ lum (rand 32)))
      (gimp-drawable-set-pixel layer-one xm ym 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xm 1) ym 3 pixw)
      (gimp-drawable-set-pixel layer-one xm (+ ym 1) 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xm 1) (+ ym 1) 3 pixw)

; preparing the exit of the loop
      (set! ii (+ ii 1))
      (if (> ii 10000) (set! nm mediums))
    ) ; end of loop

; generating big stars
    (set! ii 0)
    (while (< nb bigs)
      (set! nb (+ nb 1))
      (set! xb (rand (- width 2)))
      (set! yb (rand (- height 2)))
      (set! lum (+ (rand 64) 160))
      (aset pixw 0 (+ lum (rand 32)))
      (aset pixw 1 (+ lum (rand 32)))
      (aset pixw 2 (+ lum (rand 32)))
      (gimp-drawable-set-pixel layer-one xb yb 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 1) yb 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 2) yb 3 pixw)
      (gimp-drawable-set-pixel layer-one xb (+ yb 1) 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 1) (+ yb 1) 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 2) (+ yb 1) 3 pixw)
      (gimp-drawable-set-pixel layer-one xb (+ yb 2) 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 1) (+ yb 2) 3 pixw)
      (gimp-drawable-set-pixel layer-one (+ xb 2) (+ yb 2) 3 pixw)

; preparing the exit of the loop
      (set! ii (+ ii 1))
      (if (> ii 10000) (set! nb bigs))
    ) ; end of loop

(define layer-two (car (gimp-layer-copy layer-one 1)))
    (gimp-image-add-layer image layer-two -1)
    (gimp-image-set-active-layer image layer-two)
    (plug-in-gauss-rle 1 image layer-two 3 1 1)
    (plug-in-normalize 1 image layer-two)
    (gimp-layer-set-mode layer-two SCREEN-MODE)

(define layer-three (car (gimp-layer-copy layer-one 1)))
    (gimp-image-add-layer image layer-three -1)
    (gimp-image-set-active-layer image layer-three)
    (plug-in-gauss-rle 1 image layer-three 6 1 1)
    (plug-in-normalize 1 image layer-three)
    (gimp-layer-set-mode layer-three SCREEN-MODE)

(define layer-four (car (gimp-layer-copy layer-one 1)))
    (gimp-image-add-layer image layer-four -1)
    (gimp-image-set-active-layer image layer-four)
    (plug-in-gauss-rle 1 image layer-four 32 1 1)
    (gimp-levels layer-four 0 0 (- 44 bgcon) 1 0 255)
    (plug-in-gauss-rle 1 image layer-four 16 1 1)
    (gimp-colorize layer-four 236 64 bglum)
    (gimp-layer-set-mode layer-four SCREEN-MODE)

(gimp-layer-set-name layer-one "Stars")
    (gimp-layer-set-name layer-two "Stars contour")
    (gimp-layer-set-name layer-three "Stars halo")
    (gimp-layer-set-name layer-four "Sky bg")

; Restore the old foreground & background colors
    (gimp-palette-set-foreground old-fg)
    (gimp-palette-set-background old-bg)

(gimp-display-new image)
    (gimp-image-undo-enable image)
  )
)

(script-fu-register "script-fu-starry-sky"
                    "<Toolbox>/Xtns/Script-Fu/Patterns/Sternenhimmel..."
                    "Creates a starry sky pattern."
                    "T. Demand <td-e.com>"
                    "T. Demand"
                    "2007.10.24"
                    ""
                    SF-ADJUSTMENT "Bildbreite"              '(256 16 8192 16 64 0 1)
                    SF-ADJUSTMENT "Bildhoehe"               '(256 16 8192 16 64 0 1)
                    SF-ADJUSTMENT "Anzahl kleine Sternen"   '(200 20 10000 10 10 0 1)
                    SF-ADJUSTMENT "Anzahl mittlere Sternen" '(20 2 1000 1 10 0 1)
                    SF-ADJUSTMENT "Anzahl grosse Sternen"   '(4 1 100 1 2 0 1)
                    SF-ADJUSTMENT "Hintergrund Helligkeit"  '(32 0 64 1 10 0 0)
                    SF-ADJUSTMENT "Hintergrund Kontrast"    '(24 0 40 1 1 0 0)
)

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

Sponsoring

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

Lizenz

Für das Skript-Fu starry-sky-d.scm hier oben gilt die Lizenz GNU general public license. Dieses Skript ist eine eigene Entwicklung des Webmasters dieser website (td-e.com). 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.

Hinweis: Die deutsche Version des Skripts 'Sternenhimmel' beinhaltet keine Umlaute mehr seit dem 17 Aug 2006, sollten also keine Umlaut Probleme mehr auftreten.

Kommentare
Dieser Seite einen Kommentar hinzufügen

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