home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / asc2img.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  6.8 KB  |  241 lines
  1. ; Chris Gutteridge / ECS Dept. University of Southampton, England
  2. ; "ASCII 2 Image" script for the Gimp.
  3. ;
  4. ; 8th April 1998
  5. ; 
  6. ; Takes a filename of an ASCII file and converts it to a gimp image.
  7. ; Does sensible things to preserve indents (gimp-text strips them)
  8. ;
  9. ; cjg@ecs.soton.ac.uk
  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. ; Define the function:
  26.  
  27. (define (script-fu-asc-2-img inFile
  28.                  inFont
  29.                  inFontSize
  30.                  inTextColor
  31.                              inTrans
  32.                              inBackColor
  33.                  inBufferAmount)
  34.     
  35.   (set! old-bg (car (gimp-palette-get-background)))
  36.  
  37.   (set! theImage (car (gimp-image-new 10 10 RGB) ) )
  38.   
  39.   (set! theLayer (car (gimp-layer-new theImage
  40.                       10
  41.                       10
  42.                       RGBA_IMAGE
  43.                       "layer 1"
  44.                       100
  45.                       NORMAL) ) )
  46.  
  47.   (gimp-palette-set-background inBackColor)
  48.   (gimp-layer-set-name theLayer "Background")
  49.   (gimp-image-add-layer theImage theLayer 0)
  50.  
  51.   (script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
  52.                  inTextColor inBufferAmount)
  53.   
  54.   (set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
  55.   (set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
  56.   (set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
  57.   
  58.   (gimp-image-resize theImage
  59.              theImageWidth
  60.              theImageHeight
  61.              theBuffer
  62.              theBuffer)
  63.   (gimp-layer-resize theLayer
  64.              theImageWidth
  65.              theImageHeight
  66.              theBuffer
  67.              theBuffer)
  68.   (gimp-selection-all theImage)
  69.   (if (= inTrans TRUE)
  70.       (gimp-edit-clear theLayer)
  71.       (gimp-edit-fill theLayer BG-IMAGE-FILL)
  72.       )
  73.   (gimp-selection-none theImage)
  74.   
  75.   (gimp-palette-set-background old-bg)
  76.   (gimp-display-new theImage)
  77.   
  78.   (gimp-image-clean-all theImage)
  79.   
  80.   (gimp-displays-flush)
  81.   (cons theImage  ()   )
  82. )
  83.  
  84. (define (script-fu-asc-2-img-layer inImage
  85.                    inLayer
  86.                    inFile
  87.                        inFont
  88.                        inFontSize
  89.                    inTextColor)
  90.   
  91.   (set! old-fg (car (gimp-palette-get-foreground)))
  92.   (set! theImage inImage)
  93.   (set! theLayer inLayer)
  94.   (set! theFile (fopen inFile))
  95.   
  96.   (set! otherLayers (cadr (gimp-image-get-layers theImage)))
  97.   (set! nLayers (car (gimp-image-get-layers theImage)))
  98.   (set! n nLayers)
  99.   
  100.   (gimp-palette-set-foreground inTextColor)
  101.   (gimp-selection-none theImage)
  102.   (set! theData ())
  103.   (set! theIndentList ())
  104.   (set! theChar "X")
  105.   (while (not (equal? () theChar))
  106.      (set! allspaces TRUE)
  107.      (set! theIndent 0)
  108.      (set! theLine "")
  109.      (while     (begin     (set! theChar (fread 1 theFile))
  110.                 (and     (not (equal? "\n" theChar))
  111.                     (not (equal? () theChar))
  112.                     )
  113.                 )
  114.             (cond     (    (equal? theChar "\t")
  115.                     (set! theChar "        ")
  116.                     (if (= allspaces TRUE)
  117.                         (set! theIndent (+ theIndent 8))
  118.                         ())
  119.                     )
  120.                 (    (equal? theChar " ")
  121.                     (if (= allspaces TRUE)
  122.                         (set! theIndent (+ theIndent 1))
  123.                         ())
  124.                     )
  125.                 (TRUE (set! allspaces FALSE))
  126.                 )
  127.             (set! theLine (string-append theLine theChar))
  128.             )
  129.      (if     (= allspaces TRUE)
  130.         (set! theLine "")
  131.         ()
  132.         )
  133.      (if     (and     (equal? () theChar)
  134.             (equal? "" theLine)
  135.             )
  136.         ()
  137.         (begin     (set! theData (cons theLine theData))
  138.             (set! theIndentList
  139.                   (cons theIndent theIndentList))
  140.             )
  141.         )
  142.      )
  143.   
  144.   (set! theText (car (gimp-text-fontname theImage
  145.                      -1
  146.                      0
  147.                      0
  148.                      "X"
  149.                      0
  150.                      TRUE
  151.                      inFontSize
  152.                      PIXELS
  153.                      inFont)))
  154.   (set! theCharWidth (car (gimp-drawable-width  theText) ))
  155.   (gimp-edit-cut theText)
  156.   
  157.   (set! theImageHeight 0)
  158.   (set! theImageWidth 0)
  159.   (cjg-add-text (reverse theData)
  160.         (reverse theIndentList)
  161.         inFont
  162.         inFontSize)
  163.   (set! n nLayers)
  164.   (gimp-palette-set-foreground old-fg)
  165.   (gimp-displays-flush)
  166.   )
  167.  
  168. (define (cjg-add-text inData inIndentList inFont inFontSize)
  169.   (if     (equal? () inData)
  170.     ()
  171.     (let     ((theLine (car inData)) (theIndent (car inIndentList)))
  172.       (if     (equal? "" theLine)
  173.         ()
  174.         (begin
  175.           (set! theText (car (gimp-text-fontname theImage
  176.                              -1
  177.                              0
  178.                              0
  179.                              (string-append
  180.                               " " theLine)
  181.                              0
  182.                              TRUE
  183.                              inFontSize
  184.                              PIXELS
  185.                              inFont)))
  186.           (set! theLineHeight (car (gimp-drawable-height  theText) ) )
  187.           (gimp-layer-set-offsets theText
  188.                       (* theCharWidth theIndent)
  189.                       (+ theImageHeight
  190.                          (- inFontSize theLineHeight)))
  191.           (set! theImageWidth (max
  192.                        (+ (car (gimp-drawable-width  theText) )
  193.                       (* theCharWidth theIndent))
  194.                        theImageWidth ))
  195.           (if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
  196.                       (gimp-floating-sel-anchor theText)
  197.               ()
  198.               )
  199.                   (gimp-layer-set-name theText theLine)
  200.           )
  201.         )
  202.       (set! theImageHeight
  203.         (+ theImageHeight inFontSize))
  204.       (cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
  205.   )
  206.  
  207. ; Register the function with the GIMP:
  208.  
  209. (script-fu-register
  210.  "script-fu-asc-2-img"
  211.  _"<Toolbox>/Xtns/Script-Fu/Utils/ASCII to Image..."
  212.  "Create a new image containing text from a simple text file"
  213.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  214.  "8th April 1998"
  215.  "Chris Gutteridge / ECS @ University of Southampton, England"
  216.  ""
  217.  SF-FILENAME   _"Filename"               "afile"
  218.  SF-FONT       _"Font"                   "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
  219.  SF-ADJUSTMENT _"Font Size (pixels)"     '(45 2 1000 1 10 0 1)
  220.  SF-COLOR      _"Text Color"             '(0 0 0)
  221.  SF-TOGGLE     _"Transparent Background" FALSE
  222.  SF-COLOR      _"Background Color"       '(255 255 255)
  223.  SF-ADJUSTMENT _"Buffer Amount (% Height of Text)" '(35 0 100 1 10 0 0)
  224. )
  225.  
  226. (script-fu-register
  227.  "script-fu-asc-2-img-layer"
  228.  _"<Image>/Script-Fu/Utils/ASCII to Image Layer..."
  229.  "Create a new layer of text from a simple text file"
  230.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  231.  "30th April 1998"
  232.  "Chris Gutteridge / ECS @ University of Southampton, England"
  233.  "*"
  234.  SF-IMAGE "Image" 0
  235.  SF-DRAWABLE "Layer" 0
  236.  SF-FILENAME _"Filename"             "afile"
  237.  SF-FONT     _"Font"                 "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
  238.  SF-ADJUSTMENT _"Font Size (pixels)" '(45 2 1000 1 10 0 1)
  239.  SF-COLOR    _"Text Color"           '(0 0 0)
  240. )
  241.