Commit 4b496b2f authored by gerd's avatar gerd

Ported to GIMP 1.2


git-svn-id: https://godirepo.camlcity.org/svn/app-presentation/trunk@15 50e5f3cf-a9f2-0310-83d8-d11ec64cb5ab
parent 35786c02
......@@ -26,8 +26,7 @@ case "$v" in
1.0*) scmscript="make-headline-1.0.scm" ;;
1.1*) echo "Warning: This is a development version of GIMP with unstable interfaces"
scmscript="make-headline-1.1.11.scm" ;;
1.2*) echo "Error: GIMP version not supported!"
exit 1 ;;
1.2*) scmscript="make-headline-1.2.scm" ;;
2.0*) scmscript="make-headline-2.0.scm" ;;
*) echo "Error: GIMP version not supported!"
esac
......
; Start this script with:
; gimp -b '(begin (load "make-headline.scm") (make-headline "berschrift" "headline.gif"))' '(gimp-quit 0)'
;**********************************************************************
;From: gimp-headers.scm
;**********************************************************************
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; www.gimp.org web headers
; Copyright (c) 1997 Adrian Likins
; aklikins@eos.ncsu.edu
;
; based on a idea by jtl (Jens Lautenbacher)
; and improved by jtl
;
; 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., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; **NOTE** This fonts use some very common fonts, that are typically
; bitmap fonts on most installations. If you want better quality versions
; you need to grab the urw font package form www.gimp.org/fonts.html
; and install as indicated. This will replace the some current bitmap fonts
; with higher quality vector fonts. This is how the actual www.gimp.org
; logos were created.
;
; ************************************************************************
; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
; For use with GIMP 1.1.
; All calls to gimp-text-* have been converted to use the *-fontname form.
; The corresponding parameters have been replaced by an SF-FONT parameter.
; ************************************************************************
(define (my-script-fu-headers-gimp-org text font font-size text-color high-color side-color shadow-color bg-color crop rm-bg index num-colors)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0
text 30 TRUE font-size PIXELS
font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img) ; old: gimp-image-disable-undo
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background text-color)
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
(side-layer (car (gimp-layer-copy text-layer TRUE)))
(shadow-layer (car (gimp-layer-copy text-layer TRUE))))
(gimp-image-add-layer img highlight-layer 1)
(gimp-layer-set-preserve-trans highlight-layer TRUE)
(gimp-image-add-layer img side-layer 1)
(gimp-layer-set-preserve-trans side-layer TRUE)
(gimp-image-add-layer img shadow-layer 1)
(gimp-layer-set-preserve-trans shadow-layer TRUE)
(gimp-palette-set-background high-color)
(gimp-edit-fill highlight-layer BG-IMAGE-FILL)
(gimp-layer-translate highlight-layer -1 -1)
(gimp-palette-set-background side-color)
(gimp-edit-fill side-layer BG-IMAGE-FILL)
(gimp-layer-translate side-layer 1 1)
(gimp-palette-set-background shadow-color)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-layer-translate shadow-layer 5 5)
(gimp-layer-set-preserve-trans shadow-layer FALSE)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(gimp-layer-set-opacity shadow-layer 60)
(gimp-image-lower-layer img shadow-layer)
(gimp-image-lower-layer img shadow-layer))
(set! text-layer (car (gimp-image-flatten img)))
(gimp-layer-add-alpha text-layer)
(if (= rm-bg TRUE)
(begin
(gimp-by-color-select text-layer bg-color
1 REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear text-layer)
(gimp-selection-clear img)))
(if (= crop TRUE)
(plug-in-autocrop 1 img text-layer))
; old: (gimp-convert-indexed img TRUE num-colors)
(if (= index TRUE)
(gimp-convert-indexed img 1 0 num-colors FALSE TRUE ""))
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable img) ; old: gimp-image-enable-undo
; We do not need the image to be displayed:
; ORIG: (gimp-display-new img)
; But we need the image to save it on disk:
img
))
;**********************************************************************
(define (color-triple hexnumber)
(let*
((red-hex (substring hexnumber 0 2))
(green-hex (substring hexnumber 2 4))
(blue-hex (substring hexnumber 4 6))
(red-val (string->number red-hex 16))
(green-val (string->number green-hex 16))
(blue-val (string->number blue-hex 16)))
(list red-val green-val blue-val)))
(define (make-headline text filename font font-size text-color high-color
side-color shadow-color bg-color)
(let*
((header
(my-script-fu-headers-gimp-org
text
font ;"-*-geometric 706-black-r-normal-*-*-*-*-*-p-*-iso8859-1"
font-size
(color-triple text-color) ; '(82 108 159) = 526c9f
(color-triple high-color) ; '(192 220 251) = c0dcfb
(color-triple side-color) ; '(46 74 92) = 2e4a5c
(color-triple shadow-color) ; '(0 0 0) = 000000
(color-triple bg-color) ; '(255 255 255) = ffffff
TRUE
FALSE
TRUE
15)))
(file-gif-save
1
header
header
filename
filename
FALSE
FALSE
1
0)
)
)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment