home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 August / ENTER.ISO / files / gimp-2.0.5-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / gimp-labels.scm < prev    next >
Encoding:
Text File  |  2004-09-26  |  6.6 KB  |  162 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; www.gimp.org web labels
  5. ; Copyright (c) 1997 Adrian Likins
  6. ; aklikins@eos.ncsu.edu
  7. ;
  8. ; based on a idea by jtl (Jens  Lautenbacher)
  9. ; and improved by jtl
  10. ;
  11. ; This program is free software; you can redistribute it and/or modify
  12. ; it under the terms of the GNU General Public License as published by
  13. ; the Free Software Foundation; either version 2 of the License, or
  14. ; (at your option) any later version.
  15. ; 
  16. ; This program is distributed in the hope that it will be useful,
  17. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ; GNU General Public License for more details.
  20. ; 
  21. ; You should have received a copy of the GNU General Public License
  22. ; along with this program; if not, write to the Free Software
  23. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. ;
  25. ;  **NOTE**  This fonts use some very common fonts, that are typically
  26. ;  bitmap fonts on most installations. If you want better quality versions
  27. ;  you need to grab the urw font package form www.gimp.org/fonts.html
  28. ;  and install as indicated. This will replace the some current bitmap fonts
  29. ;  with higher quality vector fonts. This is how the actual www.gimp.org
  30. ;  logos were created.
  31. ;
  32. ; ************************************************************************
  33. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  34. ; For use with GIMP 1.1.
  35. ; All calls to gimp-text-* have been converted to use the *-fontname form.
  36. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  37. ; ************************************************************************
  38.  
  39.  
  40. (define (script-fu-labels-gimp-org text font font-size text-color shadow-color bg-color rm-bg index num-colors color-thresh yoff xoff height)
  41.   (let* ((img (car (gimp-image-new 125 height RGB)))
  42.      (text-layer (car (gimp-text-fontname img -1 xoff yoff text 0
  43.                      TRUE font-size PIXELS
  44.                      font)))
  45.      (bg-layer (car (gimp-layer-new  img 125 height
  46.                      RGB-IMAGE "Background" 100 NORMAL-MODE)))
  47.      (shadow-layer (car (gimp-layer-copy text-layer TRUE)))
  48.      (old-fg (car (gimp-palette-get-foreground)))
  49.      (old-bg (car (gimp-palette-get-background))))
  50.     
  51.     (gimp-image-undo-disable img)
  52.     (gimp-image-add-layer img shadow-layer 1)
  53.     (gimp-image-add-layer img bg-layer 2)
  54.     
  55.     (gimp-layer-set-preserve-trans text-layer TRUE)
  56.     (gimp-layer-set-preserve-trans shadow-layer TRUE)
  57.     
  58.     (gimp-palette-set-background text-color)
  59.     (gimp-edit-fill text-layer BACKGROUND-FILL)
  60.  
  61.     (gimp-palette-set-background bg-color)
  62.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  63.  
  64.     (gimp-palette-set-background shadow-color)
  65.     (gimp-edit-fill shadow-layer BACKGROUND-FILL)
  66.     (gimp-layer-translate shadow-layer 1 1)
  67.  
  68.     (set! text-layer (car (gimp-image-flatten img)))
  69.     (gimp-layer-add-alpha text-layer)
  70.  
  71.     (if (= rm-bg TRUE)
  72.     (begin
  73.       (gimp-by-color-select text-layer bg-color
  74.                 color-thresh CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
  75.       (gimp-edit-clear text-layer)
  76.       (gimp-selection-clear img)))
  77.     
  78.     (if (= index TRUE)
  79.        (gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors
  80.                     FALSE FALSE ""))
  81.  
  82.     (gimp-palette-set-foreground old-fg)
  83.     (gimp-palette-set-background old-bg)
  84.     (gimp-image-undo-enable img)
  85.     (gimp-display-new img)))
  86.  
  87.  
  88. ;;;(define (script-fu-tube-button-label-gimp-org text rm-bg index)
  89. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 14 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 8 0 30))
  90. ;;;
  91. ;;;(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  92. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 12 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 7 0 24))
  93. ;;;  
  94. ;;;(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  95. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 10 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 6 0 18))
  96. ;;;
  97.  
  98. (define (script-fu-tube-button-label-gimp-org text rm-bg index)
  99.   (script-fu-labels-gimp-org text "helvetica" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
  100.  
  101. (define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  102.   (script-fu-labels-gimp-org text "helvetica" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
  103.   
  104. (define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  105.   (script-fu-labels-gimp-org text "helvetica" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
  106.  
  107.  
  108. (script-fu-register "script-fu-tube-button-label-gimp-org"
  109.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_Tube Button Label..."
  110.             "Tube Button Label Header for gimp.org"
  111.             "Adrian Likins & Jens Lautenbacher"
  112.             "Adrian Likins & Jens Lautenbacher"
  113.             "1997"
  114.             ""
  115.             SF-STRING _"Text" "?"
  116.             SF-TOGGLE _"Remove Background" TRUE
  117.             SF-TOGGLE _"Index Image" TRUE)
  118.  
  119. (script-fu-register "script-fu-tube-subbutton-label-gimp-org"
  120.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/T_ube Sub-Button Label..."
  121.             "Tube Button Label Header for gimp.org"
  122.             "Adrian Likins & Jens Lautenbacher"
  123.             "Adrian Likins & Jens Lautenbacher"
  124.             "1997"
  125.             ""
  126.             SF-STRING _"Text" "?"
  127.             SF-TOGGLE _"Remove Background" TRUE
  128.             SF-TOGGLE _"Index Image" TRUE)
  129.  
  130. (script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
  131.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/Tub_e Sub-Sub-Button Label..."
  132.             "Tube Button Label Header for gimp.org"
  133.             "Adrian Likins & Jens Lautenbacher"
  134.             "Adrian Likins & Jens Lautenbacher"
  135.             "1997"
  136.             ""
  137.             SF-STRING _"Text" "?"
  138.             SF-TOGGLE _"Remove Background" TRUE
  139.             SF-TOGGLE _"Index Image" TRUE)
  140.  
  141.  
  142. (script-fu-register "script-fu-labels-gimp-org"
  143.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_General Tube Labels..."
  144.             "Tube Button Label Header for gimp.org"
  145.             "Adrian Likins & Jens Lautenbacher"
  146.             "Adrian Likins & Jens Lautenbacher"
  147.             "1997"
  148.             ""
  149.             SF-STRING _"Text" "Gimp.Org"
  150.             SF-FONT   _"Font" "Sans"
  151.             SF-ADJUSTMENT _"Font Size (pixels)" '(18 2 1000 1 10 0 1)
  152.              SF-COLOR  _"Text Color" '(130 165 235)
  153.              SF-COLOR  _"Shadow Color" '(0 0 0)
  154.             SF-COLOR  _"Background Color" '(255 255 255)
  155.             SF-TOGGLE _"Remove Background" TRUE
  156.             SF-TOGGLE _"Index Image" TRUE
  157.             SF-ADJUSTMENT _"Number of Colors" '(15 2 255 1 10 0 1)
  158.             SF-ADJUSTMENT _"Select-By-Color Threshold" '(1 1 256 1 10 0 1)
  159.             SF-ADJUSTMENT _"Offset X" '(8 0 50 1 10 0 1)
  160.             SF-ADJUSTMENT _"Offset Y" '(0 0 50 1 10 0 1)
  161.             SF-ADJUSTMENT _"Height"   '(30 2 1000 1 10 0 1))
  162.