home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / gimp-labels.scm.z / gimp-labels.scm
Encoding:
Text File  |  1999-07-21  |  6.2 KB  |  158 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.  
  34. (define (script-fu-labels-gimp-org text font font-size weight slant width text-color shadow-color bg-color rm-bg index num-colors color-thresh yoff xoff height)
  35.   (let* ((img (car (gimp-image-new 125 height RGB)))
  36.      (text-layer (car (gimp-text img -1 xoff yoff text 0
  37.                      TRUE font-size PIXELS
  38.                      "*" font weight slant width "*")))
  39.      (bg-layer (car (gimp-layer-new  img 125 height
  40.                      RGB_IMAGE "Background" 100 NORMAL)))
  41.      (shadow-layer (car (gimp-layer-copy text-layer TRUE)))
  42.      (old-fg (car (gimp-palette-get-foreground)))
  43.      (old-bg (car (gimp-palette-get-background))))
  44.     
  45.     (gimp-image-disable-undo img)
  46.     (gimp-image-add-layer img shadow-layer 1)
  47.     (gimp-image-add-layer img bg-layer 2)
  48.     
  49.     (gimp-layer-set-preserve-trans text-layer TRUE)
  50.     (gimp-layer-set-preserve-trans shadow-layer TRUE)
  51.     
  52.     (gimp-palette-set-background text-color)
  53.     (gimp-edit-fill img text-layer)
  54.  
  55.     (gimp-palette-set-background bg-color)
  56.     (gimp-edit-fill img bg-layer)
  57.  
  58.     (gimp-palette-set-background shadow-color)
  59.     (gimp-edit-fill img shadow-layer)
  60.     (gimp-layer-translate shadow-layer 1 1)
  61.  
  62.     (set! text-layer (car (gimp-image-flatten img)))
  63.     (gimp-layer-add-alpha text-layer)       
  64.  
  65.     (if (= rm-bg TRUE)
  66.     (begin
  67.       (gimp-by-color-select img text-layer bg-color
  68.                 color-thresh REPLACE TRUE FALSE 0 FALSE)
  69.       (gimp-edit-clear img text-layer)
  70.       (gimp-selection-clear img)))
  71.     
  72.     (if (= index TRUE)
  73.     (gimp-convert-indexed img TRUE num-colors))
  74.    
  75.     (gimp-palette-set-foreground old-fg)
  76.     (gimp-palette-set-background old-bg)
  77.     (gimp-image-enable-undo img)
  78.     (gimp-display-new img)))
  79.  
  80.  
  81. ;;;(define (script-fu-tube-button-label-gimp-org text rm-bg index)
  82. ;;;  (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))
  83. ;;;
  84. ;;;(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  85. ;;;  (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))
  86. ;;;  
  87. ;;;(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  88. ;;;  (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))
  89. ;;;
  90.  
  91. (define (script-fu-tube-button-label-gimp-org text rm-bg index)
  92.   (script-fu-labels-gimp-org text "helvetica" 14 "medium" "r" "normal" '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
  93.  
  94. (define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  95.   (script-fu-labels-gimp-org text "helvetica" 12 "medium" "r" "normal" '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
  96.   
  97. (define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  98.   (script-fu-labels-gimp-org text "helvetica" 10 "medium" "r" "normal" '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
  99.  
  100.  
  101. (script-fu-register "script-fu-tube-button-label-gimp-org"
  102.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/Tube Button Label"
  103.             "Tube Button Label Header for gimp.org"
  104.             "Adrian Likins & Jens Lautenbacher"
  105.             "Adrian Likins & Jens Lautenbacher"
  106.             "1997"
  107.             ""
  108.             SF-VALUE "Text String" "\"?\""
  109.             SF-TOGGLE "Remove Background" TRUE
  110.             SF-TOGGLE "Index Image" TRUE)
  111.  
  112. (script-fu-register "script-fu-tube-subbutton-label-gimp-org"
  113.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/Tube Sub-Button Label"
  114.             "Tube Button Label Header for gimp.org"
  115.             "Adrian Likins & Jens Lautenbacher"
  116.             "Adrian Likins & Jens Lautenbacher"
  117.             "1997"
  118.             ""
  119.             SF-VALUE "Text String" "\"?\""
  120.             SF-TOGGLE "Remove Background" TRUE
  121.             SF-TOGGLE "Index Image" TRUE)
  122.  
  123. (script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
  124.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/Tube Sub-Sub-Button Label"
  125.             "Tube Button Label Header for gimp.org"
  126.             "Adrian Likins & Jens Lautenbacher"
  127.             "Adrian Likins & Jens Lautenbacher"
  128.             "1997"
  129.             ""
  130.             SF-VALUE "Text String" "\"?\""
  131.             SF-TOGGLE "Remove Background" TRUE
  132.             SF-TOGGLE "Index Image" TRUE)
  133.  
  134.  
  135. (script-fu-register "script-fu-labels-gimp-org"
  136.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/General Tube Labels"
  137.             "Tube Button Label Header for gimp.org"
  138.             "Adrian Likins & Jens Lautenbacher"
  139.             "Adrian Likins & Jens Lautenbacher"
  140.             "1997"
  141.             ""
  142.             SF-VALUE "Text String" "\"Gimp.Org\""
  143.             SF-VALUE "Font" "\"helvetica\""
  144.             SF-VALUE "Font Size" "18"
  145.             SF-VALUE "Weight" "\"medium\""
  146.             SF-VALUE "Slant" "\"r\""
  147.             SF-VALUE "Width" "\"normal\""
  148.              SF-COLOR "Text Color" '(130 165 235)
  149.              SF-COLOR "Shadow Color" '(0 0 0)
  150.             SF-COLOR "Background Color" '(255 255 255)
  151.             SF-TOGGLE "Remove Background" TRUE
  152.             SF-TOGGLE "Index Image" TRUE
  153.             SF-VALUE "# of colors" "15"
  154.             SF-VALUE "select-by-color threshold" "1"
  155.             SF-VALUE "Y-Offset" "8"
  156.             SF-VALUE "X-Offset" "0"
  157.             SF-VALUE "Height"   "30")
  158.