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-headers.scm.z / gimp-headers.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  6.0 KB  |  169 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; www.gimp.org web headers
  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. (define (script-fu-headers-gimp-org text font weight slant width font-size text-color high-color side-color shadow-color crop rm-bg index num-colors)
  34.   (let* ((img (car (gimp-image-new 256 256 RGB)))
  35.      (text-layer (car (gimp-text img -1 0 0
  36.                      text 30 TRUE font-size PIXELS
  37.                      "*" font weight slant width "*")))
  38.      (width (car (gimp-drawable-width text-layer)))
  39.      (height (car (gimp-drawable-height text-layer)))
  40.      (bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
  41.      (old-fg (car (gimp-palette-get-foreground)))
  42.      (old-bg (car (gimp-palette-get-background))))
  43.     
  44.     (gimp-image-disable-undo img)
  45.     (gimp-image-resize img width height 0 0)
  46.     (gimp-image-add-layer img bg-layer 1)
  47.     (gimp-layer-set-preserve-trans text-layer TRUE)
  48.     (gimp-palette-set-background text-color)
  49.     (gimp-edit-fill img text-layer)
  50.  
  51.     (gimp-palette-set-background '(255 255 255))
  52.     (gimp-edit-fill img bg-layer)
  53.  
  54.     (let* ((highlight-layer (car (gimp-layer-copy text-layer TRUE)))
  55.        (side-layer (car (gimp-layer-copy text-layer TRUE)))
  56.        (shadow-layer (car (gimp-layer-copy text-layer TRUE))))
  57.  
  58.       (gimp-image-add-layer img highlight-layer 1)
  59.       (gimp-layer-set-preserve-trans highlight-layer TRUE)
  60.       
  61.       (gimp-image-add-layer img side-layer 1)
  62.       (gimp-layer-set-preserve-trans side-layer TRUE)
  63.       
  64.       (gimp-image-add-layer img shadow-layer 1)
  65.       (gimp-layer-set-preserve-trans shadow-layer TRUE)
  66.       
  67.       (gimp-palette-set-background high-color)
  68.       (gimp-edit-fill img highlight-layer)
  69.       (gimp-layer-translate highlight-layer -1 -1)
  70.       
  71.       (gimp-palette-set-background side-color)
  72.       (gimp-edit-fill img side-layer)
  73.       (gimp-layer-translate side-layer 1 1)
  74.  
  75.       (gimp-palette-set-background shadow-color)
  76.       (gimp-edit-fill img shadow-layer)
  77.       (gimp-layer-translate shadow-layer 5 5)
  78.       
  79.       (gimp-layer-set-preserve-trans shadow-layer FALSE)
  80.       (plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
  81.       (gimp-layer-set-opacity shadow-layer 60)
  82.       (gimp-image-lower-layer img shadow-layer)
  83.       (gimp-image-lower-layer img shadow-layer))
  84.   
  85.  
  86.     (set! text-layer (car (gimp-image-flatten img)))
  87.     (gimp-layer-add-alpha text-layer)       
  88.       
  89.  
  90.     (if (= rm-bg TRUE)
  91.     (begin   
  92.       (gimp-by-color-select img text-layer '(255 255 255)
  93.                 1 REPLACE TRUE FALSE 0 FALSE)
  94.       (gimp-edit-clear img text-layer)
  95.       (gimp-selection-clear img)))
  96.         
  97.     (if (= crop TRUE)
  98.      (plug-in-autocrop 1 img text-layer))
  99.  
  100.     (if (= index TRUE)
  101.     (gimp-convert-indexed img TRUE num-colors))
  102.     
  103.  
  104.     (gimp-palette-set-foreground old-fg)
  105.     (gimp-palette-set-background old-bg)
  106.     (gimp-image-enable-undo img)
  107.     (gimp-display-new img)
  108.     
  109.     ))
  110.  
  111.  
  112. (define (script-fu-big-header-gimp-org text font font-size text-color
  113.                     high-color side-color shadow-color
  114.                     crop rm-bg index num-colors)
  115.   (script-fu-headers-gimp-org (string-append " " text)
  116.                   font "bold" "i" "normal" font-size
  117.                   text-color high-color side-color shadow-color
  118.                   crop rm-bg index num-colors))  
  119.  
  120.  
  121. (define (script-fu-small-header-gimp-org text font font-size text-color
  122.                     high-color side-color shadow-color
  123.                     crop rm-bg index num-colors)
  124.   (script-fu-headers-gimp-org text font "medium" "r" "normal"
  125.                   font-size text-color high-color
  126.                   side-color shadow-color
  127.                   crop rm-bg index num-colors))  
  128.  
  129.  
  130. (script-fu-register "script-fu-big-header-gimp-org"
  131.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/Big Header"
  132.             "Big Gimp.org Header"
  133.             "Adrian Likins & Jens Lautenbacher"
  134.             "Adrian Likins & Jens Lautenbacher"
  135.             "1997"
  136.             ""
  137.             SF-VALUE "Text String" "\"gimp.org\""
  138.             SF-VALUE "Font" "\"times\""
  139.             SF-VALUE "Font size" "50"
  140.             SF-COLOR "Text Color" '(82 108 159)
  141.             SF-COLOR "Higlight Color" '(190 220 250)
  142.             SF-COLOR "Dark Color" '(46 74 92)
  143.             SF-COLOR "Shadow Color" '(0 0 0)
  144.             SF-TOGGLE "AutoCrop?" TRUE
  145.             SF-TOGGLE "Remove Background" TRUE
  146.             SF-TOGGLE "Index image?" TRUE
  147.             SF-VALUE "# of colors" "15")
  148.  
  149. (script-fu-register "script-fu-small-header-gimp-org"
  150.             "<Toolbox>/Xtns/Script-Fu/Web page themes/Gimp.Org/Small Header"
  151.             "Small Gimp.org Header"
  152.             "Adrian Likins & Jens Lautenbacher"
  153.             "Adrian Likins & Jens Lautenbacher"
  154.             "1997"
  155.             ""
  156.             SF-VALUE "Text String" "\"gimp.org\""
  157.             SF-VALUE "Font" "\"helvetica\""
  158.             SF-VALUE "Font size" "24"
  159.             SF-COLOR "Text Color" '(135 220 220)
  160.             SF-COLOR "Higlight Color" '(210 240 245)
  161.             SF-COLOR "Dark Color" '(46 74 92)
  162.             SF-COLOR "Shadow Color" '(0 0 0)
  163.             SF-TOGGLE "AutoCrop?" TRUE
  164.             SF-TOGGLE "Remove Background" TRUE
  165.             SF-TOGGLE "Index image?" TRUE
  166.             SF-VALUE "# of colors" "15"
  167.             SF-VALUE "select-by-color threshold" "1")
  168.  
  169.