dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

plug-ins/script-fu/scripts/beveled-pattern-arrow.scm 

Wed Oct 21 22:38:07 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>

	* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
	* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
	* plug-ins/script-fu/scripts/beveled-pattern-button.scm
	* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
	* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
	* plug-ins/script-fu/scripts/chip-away.scm
	* plug-ins/script-fu/scripts/glossy.scm
	* plug-ins/script-fu/scripts/test-sphere.scm
	* plug-ins/script-fu/scripts/textured-logo.scm

	These scripts use new script-fu type

	* plug-ins/gfig/gfig.c

	Redid yosh fix since I broken backwards compat. in
	gimp_interactive_selection_brush().
This commit is contained in:
BST 1998 Andy Thomas 1998-10-21 21:54:40 +00:00 committed by Andy Thomas
parent 5343dbb8d4
commit e1c61471b0
11 changed files with 75 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ChangeLog
View File

@ -1,3 +1,23 @@
Wed Oct 21 22:38:07 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/chip-away.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm
These scripts use new script-fu type
* plug-ins/gfig/gfig.c
Redid yosh fix since I broke backwards compat. in
gimp_interactive_selection_brush().
Wed Oct 21 20:15:14 CEST 1998 Marc Lehmann <pcg@goof.com>
* app/plug_in.h, app/plug_in.c, app/procedural_db.c: Added an "argc"

8
plug-ins/gfig/gfig.c
View File

@ -3464,7 +3464,13 @@ select_brush_press(GtkWidget *widget,
gpointer data)
{
BRUSHDESC *bdesc = g_malloc0(sizeof(BRUSHDESC));
gimp_interactive_selection_brush("Gfig brush selection",mygimp_brush_get(),0.0,0,0,gfig_brush_invoker,NULL);
gimp_interactive_selection_brush("Gfig brush selection",
mygimp_brush_get(),
1.0, /* Opacity */
-1, /* spacing (default)*/
1, /* Paint mode */
gfig_brush_invoker,
NULL);
bdesc->bpp = 3;
bdesc->bname = mygimp_brush_get();

2
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View File

@ -142,4 +142,4 @@
""
SF-VALUE "Size" "32"
SF-VALUE "Orientation" "'right"
SF-STRING "Pattern" "Wood")
SF-PATTERN "Pattern" "Wood")

2
plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
View File

@ -81,5 +81,5 @@
"July 1997"
""
SF-VALUE "Diameter" "16"
SF-STRING "Pattern" "Wood"
SF-PATTERN "Pattern" "Wood"
SF-TOGGLE "Transparent background" FALSE)

4
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -124,6 +124,6 @@
SF-STRING "Slant" "r"
SF-STRING "Set width" "normal"
SF-STRING "Spacing" "p"
SF-COLOR "Text color" '(0 0 0)
SF-STRING "Pattern" "Wood"
SF-COLOR "Text color" '(0 0 0)
SF-PATTERN "Pattern" "Wood"
SF-TOGGLE "Pressed?" FALSE)

2
plug-ins/script-fu/scripts/beveled-pattern-heading.scm
View File

@ -102,5 +102,5 @@
SF-STRING "Slant" "r"
SF-STRING "Set width" "normal"
SF-STRING "Spacing" "p"
SF-STRING "Pattern" "Wood"
SF-PATTERN "Pattern" "Wood"
SF-TOGGLE "Transparent background" FALSE)

2
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View File

@ -71,4 +71,4 @@
""
SF-VALUE "Width" "480"
SF-VALUE "Height" "16"
SF-STRING "Pattern" "Wood")
SF-PATTERN "Pattern" "Wood")

2
plug-ins/script-fu/scripts/chip-away.scm
View File

@ -129,6 +129,6 @@
SF-TOGGLE "Keep Bump layer?" FALSE
SF-TOGGLE "Fill bg with pattern?" TRUE
SF-TOGGLE "Keep Background?" TRUE
SF-STRING "Pattern" "Burlwood")
SF-PATTERN "Pattern" "Burlwood")

6
plug-ins/script-fu/scripts/glossy.scm
View File

@ -133,11 +133,11 @@
SF-VALUE "How big outline?" "5"
SF-COLOR "Background Color" '(255 255 255)
SF-TOGGLE "Use pattern for text instead of gradient" FALSE
SF-STRING "Pattern (text)" "Electric Blue"
SF-PATTERN "Pattern (text)" "Electric Blue"
SF-TOGGLE "Use pattern for outline instead of gradient" FALSE
SF-STRING "Pattern (outline)" "Electric Blue"
SF-PATTERN "Pattern (outline)" "Electric Blue"
SF-TOGGLE "Use pattern overlay" FALSE
SF-STRING "Pattern (overlay)" "Parque #1"
SF-PATTERN "Pattern (overlay)" "Parque #1"
SF-TOGGLE "Default bump-map settings" TRUE
SF-TOGGLE "Shadow?" TRUE
SF-VALUE "Shadow X offset" "8"

38
plug-ins/script-fu/scripts/test-sphere.scm
View File

@ -27,6 +27,42 @@
; Usage:
; SF-FONT "label" "fontname"
; ----------------------------------------------------------------------
;
; SF-BRUSH
; is only useful in interactive mode. It will create a widget in the control
; dialog. The widget consists of a preview area (which when pressed will
; produce a popup preview ) and a button with the "..." label. The button will
; popup a dialog where brushes can be selected and each of the
; characteristics of the brush can be modified.
;
; The actual value returned when the script is invoked is a list
; consisting of Brush name, opacity, spacing and brush mode in the same
; units as passed in as the default value.
;
; Usage:-
; SF_BRUSH "Brush" '("Circle (03)" 1.0 44 0)
;
; Here the brush dialog will be popped up with a default brush of Circle (03)
; opacity 1.0, spacing 44 and paint mode of Normal (value 0).
; If this selection was unchanged the value passed to the function as a
; paramater would be '("Circle (03)" 1.0 44 0). BTW the widget used
; is generally available in the libgimpui library for any plugin that
; wishes to select a brush.
; ----------------------------------------------------------------------
;
; SF-PATTERN
; Only useful in interactive mode. It will create a widget in the control
; dialog. The widget consists of a preview area (which when pressed will
; produce a popup preview ) and a button with the "..." label. The button will
; popup a dialog where patterns can be selected.
;
; Usage:-
; SF-PATTERN "Pattern" "Maple Leaves"
;
; The vaule returned when the script is invoked is a string containing the
; pattern name. If the above selection was not altered the string would
; contain "Maple Leaves"
;
@ -97,7 +133,7 @@
SF-TOGGLE "Shadow" TRUE
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Sphere Color" '(255 0 0)
SF-BRUSH "Brush" '("Circle (03)" 100.0 44 0)
SF-BRUSH "Brush" '("Circle (03)" 1.0 44 0)
SF-STRING "Text" "Script-Fu rocks!"
SF-PATTERN "Pattern" "Maple Leaves"
SF-FONT "Font" "-freefont-agate-normal-r-normal-*-24-*-*-*-p-*-*-*"

2
plug-ins/script-fu/scripts/textured-logo.scm
View File

@ -82,7 +82,7 @@
"Spencer Kimball"
"1996"
""
SF-STRING "Text Pattern" "Fibers"
SF-PATTERN "Text Pattern" "Fibers"
SF-ADJUSTMENT "Mosaic Tile Type\n Squares 0, HEX 1, Oct 2" '(0 0 2 1 1 0 1)
SF-STRING "Text String" "The GIMP"
SF-ADJUSTMENT "Font Size (pixels)" '(200 1 1000 1 10 0 1)