; The GIMP -- an image manipulation program ; Copyright (C) 1995 Spencer Kimball and Peter Mattis ; ; Written by Adrian Likins ; 2/15/98 ; ; 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. ; ; ; ; Stupid script to let you choose brushes by suing 1-9 and ctrl[1-9] ; on the keyboard ; ; Add these lines (without the ";") to ~/.gimp/menurc to ; get keybindings for the menu entries ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 11" "5") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 3" "1") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 13" "6") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 5" "2") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 15" "7") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 7" "3") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 17" "8") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 9" "4") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 19" "9") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 11" "5") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 13" "6") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 15" "7") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 17" "8") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 3" "1") ; (menu-path "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 19" "9") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 5" "2") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 7" "3") ; (menu-path "/Script-Fu/Utils/Set Brush/Circle/Circle 9" "4") (define (script-fu-set-brush image drawable brushname) (gimp-brushes-set-brush brushname)) (define (script-fu-set-brush-fuzzy3 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (03)")) (script-fu-register "script-fu-set-brush-fuzzy3" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 3" "set the brush to fuzzy 3" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy5 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (05)")) (script-fu-register "script-fu-set-brush-fuzzy5" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 5" "set the brush to fuzzy five" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy7 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (07)")) (script-fu-register "script-fu-set-brush-fuzzy7" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 7" "set the brush to fuzzy seven" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy9 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (09)")) (script-fu-register "script-fu-set-brush-fuzzy9" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 9" "set the brush to fuzzy nine" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy11 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (11)")) (script-fu-register "script-fu-set-brush-fuzzy11" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 11" "set the brush to fuzzy eleven" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy13 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (13)")) (script-fu-register "script-fu-set-brush-fuzzy13" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 13" "set the brush to fuzzy thirteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy15 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (15)")) (script-fu-register "script-fu-set-brush-fuzzy15" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 15" "set the brush to fuzzy fifteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy17 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (17)")) (script-fu-register "script-fu-set-brush-fuzzy17" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 17" "set the brush to fuzzy seventeen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-fuzzy19 image drawable) (script-fu-set-brush image drawable "Circle Fuzzy (19)")) (script-fu-register "script-fu-set-brush-fuzzy19" "/Script-Fu/Utils/Set Brush/Fuzzy/Fuzzy 19" "set the brush to fuzzy nineteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) ;;;; Circle brushes here (define (script-fu-set-brush-circle3 image drawable) (script-fu-set-brush image drawable "Circle (03)")) (script-fu-register "script-fu-set-brush-circle3" "/Script-Fu/Utils/Set Brush/Circle/Circle 3" "set the brush to circle 3" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle5 image drawable) (script-fu-set-brush image drawable "Circle (05)")) (script-fu-register "script-fu-set-brush-circle5" "/Script-Fu/Utils/Set Brush/Circle/Circle 5" "set the brush to circle five" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle7 image drawable) (script-fu-set-brush image drawable "Circle (07)")) (script-fu-register "script-fu-set-brush-circle7" "/Script-Fu/Utils/Set Brush/Circle/Circle 7" "set the brush to circle seven" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle9 image drawable) (script-fu-set-brush image drawable "Circle (09)")) (script-fu-register "script-fu-set-brush-circle9" "/Script-Fu/Utils/Set Brush/Circle/Circle 9" "set the brush to circle nine" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle11 image drawable) (script-fu-set-brush image drawable "Circle (11)")) (script-fu-register "script-fu-set-brush-circle11" "/Script-Fu/Utils/Set Brush/Circle/Circle 11" "set the brush to circle eleven" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle13 image drawable) (script-fu-set-brush image drawable "Circle (13)")) (script-fu-register "script-fu-set-brush-circle13" "/Script-Fu/Utils/Set Brush/Circle/Circle 13" "set the brush to circle thirteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle15 image drawable) (script-fu-set-brush image drawable "Circle (15)")) (script-fu-register "script-fu-set-brush-circle15" "/Script-Fu/Utils/Set Brush/Circle/Circle 15" "set the brush to circle fifteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle17 image drawable) (script-fu-set-brush image drawable "Circle (17)")) (script-fu-register "script-fu-set-brush-circle17" "/Script-Fu/Utils/Set Brush/Circle/Circle 17" "set the brush to circle seventeen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) (define (script-fu-set-brush-circle19 image drawable) (script-fu-set-brush image drawable "Circle (19)")) (script-fu-register "script-fu-set-brush-circle19" "/Script-Fu/Utils/Set Brush/Circle/Circle 19" "set the brush to circle nineteen" "Adrian Likins " "Adrian Likins" "02/15/1998" "RGB* INDEXED* GRAY*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0)