creating patterns without rebooting GIMP

[bg...@nospam.invalid.com]

I would like to create a pattern by simple image selection. Currently I have
to select the desired image area, create a new file, save it into the
pattern directory and reboot GIMP, which is very annoying. I'm almost sure
that in GIMP 1.x there was an option to create a pattern from selection "on
the fly". Is it possible?

[Joal Heagney]

In the pattern's dialog, there is a button called "Refresh Patterns"
with two circular arrows on it, it's at the bottom right hand corner.
This will allow you to update the patterns without rebooting Gimp.

Additionally, the following script-fu will create a pattern "on the fly":

Script-Fu -> Selection -> To Pattern

There are similar scripts for creating brushes and new images from a
selection.

Joal Heagney

[bg...@nospam.invalid.com]

Joal Heagney wrote:

> In the pattern's dialog, there is a button called "Refresh Patterns"
> with two circular arrows on it, it's at the bottom right hand corner.
> This will allow you to update the patterns without rebooting Gimp.
>
> Additionally, the following script-fu will create a pattern "on the fly":
>
> Script-Fu -> Selection -> To Pattern

Not on my computer. I do have "to image" and "to brush", but no "to
pattern".

[Joal Heagney]

Hmmm. Curious. What version of Gimp are you using at the moment, and on
what operating system?

Anycase, I've added a copy of my 2.2.8 system select-to-brush.scm script
in with this email.

Joal Heagney

------------------select-to-brush.scm-----------------------------
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Selection-to-brush
; Copyright (c) 1997 Adrian Likins
; akli...@eos.ncsu.edu
;
; Takes the current selection, saves it as a brush, and makes it the
; active brush..
;
; Parts of this script from Sven Neuman's Drop-Shadow and
; Seth Burgess's mkbrush scripts.
;
; 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.

(define (script-fu-selection-to-brush image
drawable
name
filename
spacing)
(let* ((type (car (gimp-drawable-type-with-alpha drawable)))
(selection-bounds (gimp-selection-bounds image))
(select-offset-x (cadr selection-bounds))
(select-offset-y (caddr selection-bounds))
(selection-width (- (cadr (cddr selection-bounds))
select-offset-x))
(selection-height (- (caddr (cddr selection-bounds))
select-offset-y)))

(gimp-context-push)

(gimp-image-undo-disable image)

(if (= (car (gimp-selection-is-empty image)) TRUE)
(begin
(gimp-selection-layer-alpha drawable)
(set! from-selection FALSE))
(begin
(set! from-selection TRUE)
(set! active-selection (car (gimp-selection-save image)))))

(gimp-edit-copy drawable)

(set! brush_draw_type
(if (= type GRAYA-IMAGE)
GRAY-IMAGE
RGBA-IMAGE))

(set! brush_image_type
(if (= type GRAYA-IMAGE)
GRAY
RGB))

(set! brush-image (car (gimp-image-new selection-width
selection-height
brush_image_type)))

(set! brush-draw
(car (gimp-layer-new brush-image
selection-width
selection-height
brush_draw_type
"Brush"
100
NORMAL-MODE)))

(gimp-image-add-layer brush-image brush-draw 0)

(gimp-selection-none brush-image)

(if (= type GRAYA-IMAGE)
(begin
(gimp-context-set-background '(255 255 255))
(gimp-drawable-fill brush-draw BACKGROUND-FILL))
(gimp-drawable-fill brush-draw TRANSPARENT-FILL))

(let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel))

(set! filename2 (string-append gimp-directory
"/brushes/"
filename
(number->string image)
".gbr"))

(file-gbr-save 1 brush-image brush-draw filename2 "" spacing name)

(if (= from-selection TRUE)
(begin
(gimp-selection-load active-selection)
(gimp-image-remove-channel image active-selection)))

(gimp-image-undo-enable image)
(gimp-image-set-active-layer image drawable)
(gimp-image-delete brush-image)
(gimp-displays-flush)

(gimp-context-pop)

(gimp-brushes-refresh)
(gimp-context-set-brush name)))

(script-fu-register "script-fu-selection-to-brush"
_"To _Brush..."
"Convert a selection to a brush"
"Adrian Likins <adr...@gimp.org>"
"Adrian Likins"
"10/07/97"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-STRING _"Brush name" "My Brush"
SF-STRING _"File name" "mybrush"
SF-ADJUSTMENT _"Spacing" '(25 0 1000 1 1 1 0))

(script-fu-menu-register "script-fu-selection-to-brush"
_"<Image>/Script-Fu/Selection")