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 / title-header.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2004-09-26  |  5.5 KB  |  174 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; Bump-mapped title script --- create a bump-mapped title image for web pages
  5. ; Copyright (C) 1997 Federico Mena Quintero
  6. ; federico@nuclecu.unam.mx
  7. ; ************************************************************************
  8. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  9. ; For use with GIMP 1.1.
  10. ;
  11. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  12. ; The call to gimp-palette-set-background has been given a real layer
  13. ; (although it is not used) otherwise gimp 1.1 crashed.
  14. ; ************************************************************************
  15. ; 
  16. ; This program is free software; you can redistribute it and/or modify
  17. ; it under the terms of the GNU General Public License as published by
  18. ; the Free Software Foundation; either version 2 of the License, or
  19. ; (at your option) any later version.
  20. ; 
  21. ; This program is distributed in the hope that it will be useful,
  22. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  23. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24. ; GNU General Public License for more details.
  25. ; 
  26. ; You should have received a copy of the GNU General Public License
  27. ; along with this program; if not, write to the Free Software
  28. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29.  
  30.  
  31. (define (script-fu-title-header text
  32.                 size
  33.                 fontname
  34.                 gradient-reverse)
  35.   (let* (; Parameters
  36.      
  37.      (padding 8)
  38.      (fade-width 64)
  39.  
  40.      ; Save foreground and background colors
  41.  
  42.      (old-fg-color (car (gimp-palette-get-foreground)))
  43.      (old-bg-color (car (gimp-palette-get-background)))
  44.  
  45.      ; Image 
  46.  
  47.      (img (car (gimp-image-new 256 256 RGB)))
  48.  
  49.      ; Text layer
  50.  
  51.      (text-layer (car (gimp-text-fontname
  52.                img
  53.                -1
  54.                0
  55.                0
  56.                text
  57.                padding
  58.                TRUE
  59.                size
  60.                PIXELS
  61.                fontname)))
  62.      (text-width (car (gimp-drawable-width text-layer)))
  63.      (text-height (car (gimp-drawable-height text-layer)))
  64.  
  65.      ; Sizes
  66.  
  67.      (text-layers-offset (/ text-height 2))
  68.  
  69.      (img-width (+ text-layers-offset text-width fade-width))
  70.      (img-height text-height)
  71.  
  72.      ; Additional layers
  73.      
  74.      (bg-layer (car (gimp-layer-new img img-width img-height RGBA-IMAGE
  75.                     "bg-layer" 100 NORMAL-MODE)))
  76.      (bumpmap-layer (car (gimp-layer-new img
  77.                          text-width
  78.                          text-height
  79.                          RGBA-IMAGE
  80.                          "bumpmap-layer"
  81.                          100
  82.                          NORMAL-MODE)))
  83.      (fore-layer (car (gimp-layer-new img text-width text-height RGBA-IMAGE
  84.                       "fore-layer" 100 NORMAL-MODE))))
  85.  
  86.     ; Create image
  87.  
  88.     (gimp-image-undo-disable img)
  89.     (gimp-image-resize img img-width img-height 0 0)
  90.  
  91.     (gimp-image-add-layer img bg-layer -1)
  92.     (gimp-image-add-layer img bumpmap-layer -1)
  93.     (gimp-image-add-layer img fore-layer -1)
  94. ;    (gimp-image-add-layer img text-layer -1)
  95.     (gimp-image-raise-layer img text-layer)
  96.     (gimp-image-raise-layer img text-layer)
  97.     (gimp-image-raise-layer img text-layer)
  98.     (gimp-layer-set-offsets bg-layer 0 0)
  99.     (gimp-layer-set-offsets text-layer text-layers-offset 0)
  100.     (gimp-layer-set-offsets bumpmap-layer text-layers-offset 0)
  101.     (gimp-layer-set-offsets fore-layer text-layers-offset 0)
  102.  
  103.     ; Create bumpmap layer
  104.  
  105.     (gimp-palette-set-background '(0 0 0))
  106.     (gimp-edit-fill bumpmap-layer BACKGROUND-FILL)
  107.     (gimp-selection-layer-alpha text-layer)
  108.     (gimp-palette-set-background '(255 255 255))
  109.     (gimp-edit-fill bumpmap-layer BACKGROUND-FILL)
  110.     (gimp-selection-none img)
  111.     (plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE)
  112.  
  113.     ; Fore layer, bumpmap
  114.  
  115.     (gimp-palette-set-background '(255 255 255))
  116.     (gimp-edit-fill fore-layer BACKGROUND-FILL)
  117.     (plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
  118.  
  119.     ; Text layer
  120.  
  121.     (gimp-drawable-set-visible text-layer TRUE)
  122.     (gimp-layer-set-preserve-trans text-layer TRUE)
  123.  
  124.     (gimp-edit-blend text-layer CUSTOM-MODE NORMAL-MODE
  125.              GRADIENT-LINEAR 100 0 REPEAT-NONE gradient-reverse
  126.              FALSE 0.2 3 TRUE
  127.              padding padding
  128.              (- text-width padding 1) (- text-height padding 1))
  129.  
  130.     ; Semicircle at the left
  131.  
  132.     (gimp-palette-set-background '(0 0 0))
  133.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  134.  
  135.     (gimp-ellipse-select img 0 0 text-height text-height CHANNEL-OP-REPLACE TRUE FALSE 0)
  136.     (gimp-palette-set-background (car (gimp-image-pick-color img text-layer
  137.                                  text-layers-offset 0
  138.                                  TRUE FALSE 0)))
  139.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  140.  
  141.     ; Fade-out gradient at the right
  142.  
  143.     (gimp-rect-select img (- img-width fade-width) 0 fade-width text-height
  144.               CHANNEL-OP-REPLACE FALSE 0)
  145.     (gimp-palette-set-foreground (car (gimp-palette-get-background)))
  146.     (gimp-palette-set-background '(0 0 0))
  147.  
  148.     (gimp-edit-blend bg-layer FG-BG-RGB-MODE NORMAL-MODE
  149.              GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
  150.              FALSE 0.2 3 TRUE
  151.              (- img-width fade-width) 0 (- img-width 1) 0)
  152.  
  153.     (gimp-selection-none img)
  154.  
  155.     ; Done
  156.     
  157. ;    (gimp-image-flatten img)
  158.     (gimp-palette-set-foreground old-fg-color)
  159.     (gimp-palette-set-background old-bg-color)
  160.     (gimp-image-undo-enable img)
  161.     (gimp-display-new img)))
  162.  
  163. (script-fu-register "script-fu-title-header"
  164.             _"<Toolbox>/Xtns/Script-Fu/Logos/Web Title Header..."
  165.             "Web title header"
  166.             "Federico Mena Quintero"
  167.             "Federico Mena Quintero"
  168.             "June 1997"
  169.             ""
  170.             SF-STRING     _"Text"               "Hello world!"
  171.             SF-ADJUSTMENT _"Font Size (pixels)" '(32 2 256 1 10 0 0)
  172.             SF-FONT       _"Font"               "Sans"
  173.             SF-TOGGLE     _"Gradient Reverse"   FALSE)
  174.