Commit 0771da24 authored by Manish Singh's avatar Manish Singh

Makefile.am new file, explains i18n stuff

        * Makefile.am
        * README.i18n: new file, explains i18n stuff

        * plug-ins/script-fu/scripts/(lots of files): applied
        gimp-ruth-981108-0, use nice SF-FONT and SF-FILENAME stuff

        * plug-ins/png/png.c: applied gimp-ruth-981108-1, fixes loader for
        some indexed pngs. Also default to level 6 compression, level 9
        compression is cpu hungry and isn't much of a win compared to 6.

        * plug-ins/tiff/tiff.c: applied gimp-ruth-981108-2, major tiff
        rework

-Yosh
parent f3fe31a6
Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org>
* Makefile.am
* README.i18n: new file, explains i18n stuff
* plug-ins/script-fu/scripts/(lots of files): applied
gimp-ruth-981108-0, use nice SF-FONT and SF-FILENAME stuff
* plug-ins/png/png.c: applied gimp-ruth-981108-1, fixes loader for
some indexed pngs. Also default to level 6 compression, level 9
compression is cpu hungry and isn't much of a win compared to 6.
* plug-ins/tiff/tiff.c: applied gimp-ruth-981108-2, major tiff
rework
1998-11-08 Raja R Harinath <harinath@cs.umn.edu>
* configure.in (sendmail_path): Prefer /usr/sbin/sendmail to
......
......@@ -5,6 +5,7 @@ SUBDIRS = po intl libgimp plug-ins app data
bin_SCRIPTS = gimptool
EXTRA_DIST = \
README.i18n \
MAINTAINERS \
TODO \
gtkrc \
......
This document exists to document the important things to care for
because of locale support.
Actually this one is maintained by me, that is Daniel Egger
(Daniel.Egger@t-online.de).
1. Why localisation?
Many persons from many countries start to get used to Linux.
Unfortunately not everyone is able to understand English. But
even those people some times like to use good software without
needing a dictionary beneath them.
So why not simply localise the software to make it available to
the mass which isn't wholly English native?
2. How?
GNU provides a very nice package called gettext. This one offers
the possibility to translate chosen messages from the native language
of the program into that one of the users if a necessary catalog is
provided. Gettext therefor provides some easy tools to create and maintain
such catalogs and a few functions which can be called by the program to
enable automatic translation. The program gets linked to gettext and
everything is fine.
By the way: gettext is a fixed part of glibc2 but will be shipped with
GIMP and so can be automatically compiled on every platform GIMP itself
runs on.
3. Deep inside...
GIMP provides a header file called gimpintl.h in the libgimp directory this
one checks whether gettext is available on the system and will deactivate
language support if it's not.
If it is useable it will define 3 functions which will be described below.
3.1 _() [more correctly: char * _( char * )]
This one is a macro for the function gettext(). With it every text may be
wrapped that is directly called directly in a function. If you use it the
given string will be tried to get translated in the native language of the
user according to his/her environmental settings.
The gettext function will do a lookup in the hashed gimp.mo which contains
all the translated texts.
- If it is found a pointer to the string will be returned to the caller.
- If not the caller will receive a pointer to the original string.
This way it is ensured that there isn't any harm caused to the program
(i.e. The GIMP) if no catalog isn't installed.
Please note that it is important to use _() directly (and not gettext())
for simple messages because of reasons that will be mentioned below.
3.2 N_() [more correctly: void ( void ) ]
This one is a macro for the function gettext_noop(). As you can see and
guess it doesn't really anything in the programm i.e. it is a dummy
function but nevertheless important. As it isn't possible to call functions
in a structure as seen here:
struct blurb
{
_("This won't work\n");
}
you have to do it in some other way. In GIMP such structures are often used
to create menues or similar things very simply. Here you have to use the
dummy to allow the generation of a template which will be described below.
This one doesn't do anything but it marks the text as important to the
gettext extractor.
The text has to be translated "by hand" with the next function.
3.3 gettext()
This function is the same as that mcaro in 3.1. But there is one big
difference: It is ignored by the gettext program which will create message
templates for us.
If you have strings that should be translated but are unfortunately in a
structure you have to do that on your own which means that you have to
parse the fields with the messages in a loop and translate the texts with
this gettext() function.
Please note that it may be necessary to free or allocate memory in this
case!
4. Some magic...
As you have seen we only did the programming part until now but this isn't
all by far.
To use catalogs we'll have to create them. Now there are 3 different files
which are importart:
gimp.pot:
This one is the so called template. It contains the messages which are
extracted from the sources and empty fields which have to get filled by the
author. It is used to start a new catalog or to update the an already
available one.
The Makefile will automatically call the program gettext which will extract
all messages that are wrapped by a _() or a N_() (but NOT gettext()) and
concat them to this template.
[language].po:
This file has to be an edited gimp.pot and contains the original messages
plus the translated ones. This file will be delivered together with GIMP
and is the base for the final catalog.
[language].mo:
This file is a compiled version of [language.po] which will be
automatically compiled by the Makefile and installed in the locale
directory of the system. It contains everything that the .po file
contains except not translated messages, comments and other overhead.
For maximum speed it is also hashed to allow gettext a faster search.
5. Tools and how to use them...
As mentioned the to get translated string are extracted directly from the
source and written to the template.
I guess many of you will now ask if it is necessary to add new strings
directly from the template or if there's a tool to achieve that.
I think I can calm down those one who fear of lots of had work just to
update the language files. There's a program called msgmerge which will
add all strings that are in the template but not in the uncompiled catalog
to it. Msgmerge does this job very nicely and also tries to apply some kind
of fuzzy search method for already translated string for possible
programmers work reduction: If a original string seems similar to a new one
and it already has a translation, it will be taken over to the new catalog
together with a remark that this one mustn't necessarily fit.
6. And more?
I hope I mentioned everything that is worth it and hope that this document
will clarify some things. If it doesn't please write me a mail and tell me
what you want to know. This text may contain errors, so if you find one
tell it to me, too....
Happy Gimping. Yours,
Daniel Egger
\ No newline at end of file
......@@ -37,6 +37,22 @@
* Revision History:
*
* $Log$
* Revision 1.10 1998/11/09 02:04:34 yosh
* * Makefile.am
* * README.i18n: new file, explains i18n stuff
*
* * plug-ins/script-fu/scripts/(lots of files): applied
* gimp-ruth-981108-0, use nice SF-FONT and SF-FILENAME stuff
*
* * plug-ins/png/png.c: applied gimp-ruth-981108-1, fixes loader for
* some indexed pngs. Also default to level 6 compression, level 9
* compression is cpu hungry and isn't much of a win compared to 6.
*
* * plug-ins/tiff/tiff.c: applied gimp-ruth-981108-2, major tiff
* rework
*
* -Yosh
*
* Revision 1.9 1998/07/20 18:19:20 neo
* The new "Fixed Size" option now works with
* ellipse_select too. Made the entries use spinbuttons. Minor change
......@@ -169,7 +185,7 @@ GPlugInInfo PLUG_IN_INFO =
PngSaveVals pngvals =
{
FALSE,
9
6
};
int runme = FALSE;
......@@ -424,13 +440,20 @@ load_image(char *filename) /* I - File to load */
png_read_info(pp, info);
if (info->bit_depth < 8)
/*
* I have no idea why this used to be the way it was, luckily
* most people don't use 2bit or 4bit indexed images with PNG
*/
if (info->bit_depth < 8)
{
png_set_packing(pp);
png_set_expand(pp);
if (info->color_type != PNG_COLOR_TYPE_PALETTE) {
png_set_expand(pp);
if (info->valid & PNG_INFO_sBIT)
png_set_shift(pp, &(info->sig_bit));
if (info->valid & PNG_INFO_sBIT)
png_set_shift(pp, &(info->sig_bit));
}
}
else if (info->bit_depth == 16)
png_set_strip_16(pp);
......
This diff is collapsed.
......@@ -37,6 +37,22 @@
* Revision History:
*
* $Log$
* Revision 1.10 1998/11/09 02:04:34 yosh
* * Makefile.am
* * README.i18n: new file, explains i18n stuff
*
* * plug-ins/script-fu/scripts/(lots of files): applied
* gimp-ruth-981108-0, use nice SF-FONT and SF-FILENAME stuff
*
* * plug-ins/png/png.c: applied gimp-ruth-981108-1, fixes loader for
* some indexed pngs. Also default to level 6 compression, level 9
* compression is cpu hungry and isn't much of a win compared to 6.
*
* * plug-ins/tiff/tiff.c: applied gimp-ruth-981108-2, major tiff
* rework
*
* -Yosh
*
* Revision 1.9 1998/07/20 18:19:20 neo
* The new "Fixed Size" option now works with
* ellipse_select too. Made the entries use spinbuttons. Minor change
......@@ -169,7 +185,7 @@ GPlugInInfo PLUG_IN_INFO =
PngSaveVals pngvals =
{
FALSE,
9
6
};
int runme = FALSE;
......@@ -424,13 +440,20 @@ load_image(char *filename) /* I - File to load */
png_read_info(pp, info);
if (info->bit_depth < 8)
/*
* I have no idea why this used to be the way it was, luckily
* most people don't use 2bit or 4bit indexed images with PNG
*/
if (info->bit_depth < 8)
{
png_set_packing(pp);
png_set_expand(pp);
if (info->color_type != PNG_COLOR_TYPE_PALETTE) {
png_set_expand(pp);
if (info->valid & PNG_INFO_sBIT)
png_set_shift(pp, &(info->sig_bit));
if (info->valid & PNG_INFO_sBIT)
png_set_shift(pp, &(info->sig_bit));
}
}
else if (info->bit_depth == 16)
png_set_strip_16(pp);
......
......@@ -23,7 +23,7 @@
(define (script-fu-3d-outline-logo text-pattern text size font outline-blur-radius shadow-blur-radius bump-map-blur-radius noninteractive s-offset-x s-offset-y)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text img -1 0 0 text 30 TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE 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)))
......@@ -83,8 +83,8 @@
""
SF-PATTERN "Pattern" "Parque #1"
SF-STRING "Text String" "The Gimp"
SF-VALUE "Font Size (in pixels)" "100"
SF-STRING "Font" "Roostheavy"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Roostheavy-*-r-*-*-24-*-*-*-p-*-*-*"
SF-VALUE "Outline blur radius" "5"
SF-VALUE "Shadow blur radius" "10"
SF-VALUE "Bump-map (alpha layer) blur radius" "5"
......
......@@ -166,24 +166,7 @@
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Begin Blend" '(0 0 0)
SF-COLOR "End Blend" '(255 255 255)
SF-VALUE "Supersample" "TRUE"
SF-TOGGLE "Supersample?" TRUE
SF-VALUE "Number of Xtiles" "5"
SF-VALUE "Number of Ytiles" "5"
)
......@@ -6,7 +6,7 @@
(border (/ size 4))
(grow (/ size 30))
(feather (/ size 4))
(text-layer (car (gimp-text img -1 0 0 text border TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE 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)))
......@@ -45,6 +45,6 @@
"1997"
""
SF-STRING "Text String" "ALIEN"
SF-VALUE "Font Size (in pixels)" "150"
SF-STRING "Font" "futura_poster"
SF-ADJUSTMENT "Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT "Font" "-*-futura_poster-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Glow Color" '(63 252 0))
......@@ -153,7 +153,7 @@
)
)
(set! theText (car (gimp-text theImage
(set! theText (car (gimp-text-fontname theImage
-1
0
0
......@@ -162,12 +162,7 @@
TRUE
inFontSize
PIXELS
"*"
inFont
"*"
"*"
"*"
"*")))
inFont)))
(set! theCharWidth (car (gimp-drawable-width theText) ))
(gimp-edit-cut theImage theText)
......@@ -196,7 +191,7 @@
(if (equal? "" theLine)
()
(begin
(set! theText (car (gimp-text theImage
(set! theText (car (gimp-text-fontname theImage
-1
0
0
......@@ -205,12 +200,7 @@
TRUE
inFontSize
PIXELS
"*"
inFont
"*"
"*"
"*"
"*")))
inFont)))
(set! theLineHeight (car (gimp-drawable-height theText) ) )
(gimp-layer-set-offsets theText
(* theCharWidth theIndent)
......@@ -242,13 +232,13 @@
"8th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
"bar"
SF-STRING "File Name:" "afile"
SF-STRING "Font:" "Charter"
SF-VALUE "Font size:" "45"
SF-COLOR "Text Color:" '(0 0 0)
SF-FILENAME "File Name" "afile"
SF-FONT "Font" "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR "Text Color" '(0 0 0)
SF-TOGGLE "Transparent BG?" FALSE
SF-COLOR "Background Color:" '(255 255 255)
SF-VALUE "Buffer amount (% height of text):" "35"
SF-COLOR "Background Color" '(255 255 255)
SF-ADJUSTMENT "Buffer amount (% height of text)" '(35 0 100 1 10 0 0)
SF-TOGGLE "Flatten Image?" TRUE
)
......@@ -262,9 +252,9 @@
"bar"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-STRING "File Name:" "afile"
SF-STRING "Font:" "Charter"
SF-VALUE "Font size:" "45"
SF-COLOR "Text Color:" '(0 0 0)
SF-FILENAME "File Name" "afile"
SF-FONT "Font" "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR "Text Color" '(0 0 0)
SF-TOGGLE "Flatten Image?" TRUE
)
......@@ -3,7 +3,7 @@
(define (script-fu-basic1-logo text size font bg-color text-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text img -1 0 0 text 10 TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE 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)))
......@@ -42,7 +42,7 @@
"1996"
""
SF-STRING "Text String" "The Gimp"
SF-VALUE "Font Size (in pixels)" "100"
SF-STRING "Font" "Dragonwick"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Dragonwick-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Text Color" '(6 6 206))
......@@ -12,7 +12,7 @@
(define (script-fu-basic2-logo text size font bg-color text-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text img -1 0 0 text 10 TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE 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)))
......@@ -58,7 +58,7 @@
"1996"
""
SF-STRING "Text String" "SCRIPT-FU"
SF-VALUE "Font Size (in pixels)" "150"
SF-STRING "Font" "futura_poster"
SF-ADJUSTMENT "Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT "Font" "-*-futura_poster-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Text Color" '(206 6 50))
......@@ -182,4 +182,4 @@
SF-COLOR "Text color" '(0 0 0)
SF-VALUE "Padding" "2"
SF-VALUE "Bevel width" "4"
SF-VALUE "Pressed?" "FALSE")
SF-TOGGLE "Pressed?" FALSE)
......@@ -14,7 +14,7 @@
(f-size (scale size 0.075))
(ds-size (scale size 0.05))
(ts-size (- b-size-2 3))
(text-layer (car (gimp-text img -1 0 0 text b-size TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(blend-layer (car (gimp-layer-new img width height RGBA_IMAGE "Blend" 100 NORMAL)))
......@@ -82,8 +82,8 @@
""
SF-VALUE "Blend Mode" "FG-BG-RGB"
SF-STRING "Text String" "The GIMP"
SF-VALUE "Font Size (in pixels)" "150"
SF-STRING "Font" "Crillee"
SF-ADJUSTMENT "Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Crillee-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Text Color" '(124 174 255)
SF-COLOR "Starting Blend" '(22 9 129)
......
......@@ -22,7 +22,7 @@
(define (script-fu-bovinated-logo text size font)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text img -1 0 0 text border TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE 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 RGBA_IMAGE "Background" 100 NORMAL)))
......@@ -76,5 +76,5 @@
"April 1998"
""
SF-STRING "Text String" "Fear the Cow"
SF-VALUE "Font Size (in pixels)" "80"
SF-STRING "Font" "roostheavy")
SF-ADJUSTMENT "Font Size (pixels)" '(80 2 1000 1 10 0 1)
SF-FONT "Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*")
......@@ -90,11 +90,11 @@
"28th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
""
SF-VALUE "Image Size:" "256"
SF-VALUE "Granularity (0 - 15):" "7"
SF-COLOR "Color 1:" '(33 100 58)
SF-COLOR "Color 2:" '(170 170 60)
SF-COLOR "Color 3:" '(150 115 100)
SF-VALUE "Image Size" "256"
SF-ADJUSTMENT "Granularity (0 - 15)" '(7 0 15 1 1 0 0)
SF-COLOR "Color 1" '(33 100 58)
SF-COLOR "Color 2" '(170 170 60)
SF-COLOR "Color 3" '(150 115 100)
SF-TOGGLE "Smooth?" FALSE
SF-TOGGLE "Flatten?" TRUE
)
......
......@@ -31,7 +31,7 @@
(brush-size (carve-scale size 0.3))
(b-size (carve-scale size 1.5))
(layer1 (car (gimp-image-active-drawable img)))
(mask-layer (car (gimp-text img -1 0 0 text b-size TRUE size PIXELS "*" font "*" "*" "*" "*")))
(mask-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width mask-layer)))
(height (car (gimp-drawable-height mask-layer)))
(mask-fs 0)
......@@ -158,8 +158,8 @@
"1997"
""
SF-STRING "Text String" "Marble"
SF-VALUE "Font Size (in pixels)" "100"
SF-STRING "Font" "Engraver"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"
; SF-STRING "Background Img" (string-append "" gimp-data-dir "/scripts/texture3.jpg")
SF-FILENAME "Background Img" (string-append "" gimp-data-dir "/scripts/texture3.jpg")
SF-TOGGLE "Carve Raised Text" FALSE)
......@@ -24,7 +24,7 @@
(define (script-fu-chalk-logo text size font bg-color chalk-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text img -1 0 0 text border TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE 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)))
......@@ -42,7 +42,7 @@
; is there any other way to do this?
; the sobel edge detect won't work with the methods in other scripts
(gimp-palette-set-foreground chalk-color)
(set! float-layer (car (gimp-text img text-layer 0 0 text border TRUE size PIXELS "*" font "*" "*" "*" "*")))
(set! float-layer (car (gimp-text-fontname img text-layer 0 0 text border TRUE size PIXELS font)))
(gimp-floating-sel-anchor float-layer)
; the actual effect
......@@ -74,7 +74,7 @@
"October 1997"
""
SF-STRING "Text String" "CHALK"
SF-VALUE "Font Size (in pixels)" "150"
SF-STRING "Font" "Cooper"
SF-ADJUSTMENT "Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Cooper-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(0 0 0)
SF-COLOR "Chalk Color" '(255 255 255))
......@@ -38,9 +38,8 @@
(define (script-fu-logo-chip-away text font font-size spread-amount blur-amount invert drop-shadow keep-bump bg-fill keep-back pattern)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text img -1 0 0
text 30 TRUE font-size PIXELS
"*" font "*" "*" "*" "*")))
(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)))
......@@ -120,8 +119,8 @@
"1997"
""
SF-STRING "Text String" "Sloth"
SF-STRING "Font" "roostheavy"
SF-VALUE "Font size" "200"
SF-FONT "Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT "Font Size (pixels)" '(200 2 1000 1 10 0 1)
SF-VALUE "Chip Amount" "30"
SF-VALUE "Blur Amount" "3"
SF-TOGGLE "Invert?" FALSE
......
......@@ -8,7 +8,7 @@
(offx2 (* size (- 0.04)))
(offy2 (* size (- 0.03)))
(feather (* size 0.05))
(text-layer (car (gimp-text img -1 0 0 text b-size TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(layer1 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 1" 100 DIFFERENCE)))
......@@ -74,6 +74,6 @@
"1997"
""
SF-STRING "Text String" "The GIMP"
SF-VALUE "Font Size (in pixels)" "100"
SF-STRING "Font" "Bodoni"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Bodoni-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(191 191 191))
......@@ -64,6 +64,6 @@
"RGBA RGB"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-VALUE "Stains:" "3"
SF-TOGGLE "Darken Only: (better but only for images with alot of white)" TRUE
SF-VALUE "Stains" "3"
SF-TOGGLE "Darken Only? (better but only for images with alot of white)" TRUE
)
......@@ -228,9 +228,9 @@
SF-VALUE "Red color mode (sin:0/cos:1/none:2)" "0"
SF-VALUE "Green color mode (sin:0/cos:1/none:2)" "0"
SF-VALUE "Blue color mode (sin:0/cos:1/none:2)" "0"
SF-VALUE "Red inversion before transformation" "FALSE"
SF-VALUE "Green inversion before transformation" "FALSE"
SF-VALUE "Blue inversion before transformation" "FALSE"
SF-TOGGLE "Red inversion before transformation" FALSE
SF-TOGGLE "Green inversion before transformation" FALSE
SF-TOGGLE "Blue inversion before transformation" FALSE
SF-VALUE "Start: red phase displacement (RAD)" "0"
SF-VALUE "Start: green phase displacement (RAD)" "0"
SF-VALUE "Start: blue phase displacement (RAD)" "0"
......@@ -243,7 +243,7 @@
SF-VALUE "End: red frequency (> 0)" "1"
SF-VALUE "End: green frequency (> 0)" "1"
SF-VALUE "End: blue frequency (> 0)" "1"
SF-VALUE "Red inversion after transformation" "FALSE"
SF-VALUE "Green inversion after transformation" "FALSE"
SF-VALUE "Blue inversion after transformation" "FALSE")
SF-TOGGLE "Red inversion after transformation" FALSE
SF-TOGGLE "Green inversion after transformation" FALSE
SF-TOGGLE "Blue inversion after transformation" FALSE)
......@@ -22,7 +22,7 @@
(define (script-fu-comic-logo text size font gradient ol-width)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text img -1 0 0 text border TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE 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 RGBA_IMAGE "Background" 100 NORMAL)))
......@@ -86,7 +86,7 @@
"April 1998"
""
SF-STRING "Text String" "Moo"
SF-VALUE "Font Size (in pixels)" "85"
SF-STRING "Font" "tribeca"
SF-ADJUSTMENT "Font Size (pixels)" '(85 2 1000 1 10 0 1)
SF-FONT "Font" "-*-tribeca-*-i-*-*-24-*-*-*-p-*-*-*"
SF-GRADIENT "Gradient" "Incandescent"
SF-VALUE "Outline width" "5")
......@@ -12,7 +12,7 @@
(amplitude (/ size 40))
(shrink (+ 1 (/ size 30)))
(depth (/ size 20))
(text-layer (car (gimp-text img -1 0 0 text 0 TRUE size PIXELS "*" font "*" "*" "*" "*")))
(text-layer (car (gimp-text-fontname img -1 0 0 text 0 TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(img-width (+ width (* 0.15 height) 10))
......@@ -107,7 +107,7 @@
"1997"
""
SF-STRING "Text String" "Cool Metal"
SF-VALUE "Font Size (in pixels)" "100"
SF-STRING "Font" "Crillee"
SF-ADJUSTMENT "Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT "Font" "-*-Crillee-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR "Background Color" '(255 255 255)
SF-TOGGLE "Seascape" FALSE)
......@@ -77,7 +77,7 @@
(blur (sota-scale size 0.5 chrome-factor))
(displace (sota-scale size 0.25 chrome-factor))
(brush-size (sota-scale size 0.5 chrome-factor))
(text-layer (car (gimp-text img -1 0 0 text b-size TRUE size PIXELS "*" font "*" "*" "*" "*