home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / land.scm < prev    next >
Encoding:
Text File  |  2000-12-27  |  3.1 KB  |  84 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; Land --- create a pattern that resembles a Topographic map
  5. ; Copyright (C) 1997 Adrian Karstan Likins
  6. ; aklikins@eos.ncsu.edu
  7. ; 
  8. ;
  9. ;      This script works on the current gradient you have loaded. 
  10. ;      Some suggested gradients: 
  11. ;            Land                  (produces a earthlike map)
  12. ;            Brushed_aluminum      (looks like the moon)
  13. ;  
  14. ;
  15. ; Thanks to Quartic for helping me debug this thing. 
  16. ;
  17. ; This program is free software; you can redistribute it and/or modify
  18. ; it under the terms of the GNU General Public License as published by
  19. ; the Free Software Foundation; either version 2 of the License, or
  20. ; (at your option) any later version.
  21. ; 
  22. ; This program is distributed in the hope that it will be useful,
  23. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  24. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25. ; GNU General Public License for more details.
  26. ; 
  27. ; You should have received a copy of the GNU General Public License
  28. ; along with this program; if not, write to the Free Software
  29. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  30.  
  31.  
  32.  
  33. (define (script-fu-land width height seed detail landheight seadepth xscale yscale gradient)
  34.   (let* (
  35.      (img (car (gimp-image-new width height RGB)))
  36.      (layer-one (car (gimp-layer-new img width height RGB "bottom" 100 NORMAL)))
  37.     )
  38.   (gimp-gradients-set-active gradient)
  39.   (gimp-image-undo-disable img)
  40.   (gimp-image-add-layer img layer-one 0)
  41.  
  42.   (plug-in-solid-noise 1 img layer-one TRUE FALSE seed detail xscale yscale)
  43.   (plug-in-c-astretch 1 img layer-one)
  44.   (set! layer-two (car (gimp-layer-copy layer-one TRUE)))
  45.   (gimp-image-add-layer img layer-two -1)
  46.   (gimp-image-set-active-layer img layer-two)
  47.  
  48.   (plug-in-gradmap 1 img layer-two)
  49.  
  50.  
  51.  
  52.   (gimp-by-color-select layer-one '(190 190 190) 55 REPLACE FALSE FALSE 0 FALSE)
  53.   (plug-in-bump-map 1 img layer-two layer-one 135.0 35 landheight 0 0 0 0 TRUE FALSE 0)
  54.  
  55.   ;(plug-in-c-astretch 1 img layer-two)
  56.   (gimp-selection-invert img)
  57.   (plug-in-bump-map 1 img layer-two layer-one 135.0 35 seadepth 0 0 0 0 TRUE FALSE 0)
  58.  
  59.   ;(plug-in-c-astretch 1 img layer-two)
  60.  
  61.   ; uncomment the next line if you want to keep a selection of the "land"
  62.   (gimp-selection-none img)
  63.  
  64.   (gimp-display-new img)
  65.   (gimp-image-undo-enable img)
  66. ))
  67.  
  68. (script-fu-register "script-fu-land"
  69.             _"<Toolbox>/Xtns/Script-Fu/Patterns/Land..."
  70.             "A Topgraphic map pattern"
  71.             "Adrian Likins <aklikins@eos.ncsu.edu>"
  72.             "Adrian Likins"
  73.             "1997"
  74.             ""
  75.             SF-ADJUSTMENT _"Image Width" '(256 10 1000 1 10 0 1)
  76.             SF-ADJUSTMENT _"Image Height" '(256 10 1000 1 10 0 1)
  77.             SF-ADJUSTMENT _"Random Seed" '(32 0 15000000 1 10 0 1)
  78.             SF-ADJUSTMENT _"Detail Level" '(4 1 15 1 5 0 0)
  79.             SF-ADJUSTMENT _"Land Height" '(60 1 65 1 10 0 1)
  80.             SF-ADJUSTMENT _"Land Height" '(4 1 65 1 10 0 1)
  81.             SF-ADJUSTMENT _"Scale X" '(4 0.1 16 1 5 0.1 0)
  82.             SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 1 5 0.1 0)
  83.             SF-GRADIENT   _"Gradient" "Land_1")
  84.