home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 July / CHIP-1999-07.iso / software / gimp / GIMP-SET.EXE / file0379_39f462_39fccc.bin < prev    next >
Encoding:
Text File  |  1999-02-28  |  7.0 KB  |  261 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.                              inFlatten)
  35.     
  36.   (set! theImage (car (gimp-image-new 10 10 RGB) ) )
  37.   
  38.     
  39.  
  40.  
  41.   (set! theLayer (car (gimp-layer-new theImage
  42.                       10
  43.                       10
  44.                       RGBA_IMAGE
  45.                       "layer 1"
  46.                       100
  47.                       NORMAL) ) )
  48.  
  49.   (gimp-palette-set-background inBackColor)
  50.   (gimp-layer-set-name theLayer "Background")
  51.   (gimp-image-add-layer theImage theLayer 0)
  52.  
  53. (script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
  54.                  inTextColor inBufferAmount inFlatten)
  55.  
  56.     (set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
  57.     (set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
  58.     (set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
  59.  
  60.         (gimp-image-resize theImage
  61.                theImageWidth
  62.                theImageHeight
  63.                theBuffer
  64.                theBuffer)
  65.         (gimp-layer-resize theLayer
  66.                theImageWidth
  67.                theImageHeight
  68.                theBuffer
  69.                theBuffer)
  70.       (gimp-selection-all theImage)
  71.         (if (= inTrans TRUE)
  72.           (gimp-edit-clear theLayer)
  73.           (gimp-edit-fill theLayer)
  74.         )
  75.       (gimp-selection-none theImage)
  76.  
  77.         (if (= inFlatten TRUE)
  78.         (gimp-image-merge-visible-layers theImage 0)
  79.             ()
  80.         )
  81.  
  82.  
  83.     (gimp-display-new theImage)
  84.     
  85.     (gimp-image-clean-all theImage)
  86.     
  87.     (gimp-displays-flush)
  88.     (cons theImage  ()   )
  89. )
  90.  
  91. (define (script-fu-asc-2-img-layer inImage
  92.                    inLayer
  93.                 inFile
  94.                        inFont
  95.                        inFontSize
  96.                  inTextColor
  97.                              inFlatten)
  98.     
  99.   (set! theImage inImage)
  100.   (set! theLayer inLayer)
  101.   (set! theFile (fopen inFile))
  102.  
  103.   (set! otherLayers (cadr (gimp-image-get-layers theImage)))
  104.   (set! nLayers (car (gimp-image-get-layers theImage)))
  105.   (set! n nLayers)
  106.   (if (= inFlatten TRUE)
  107.       (while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) FALSE) )
  108.       ()
  109.   )
  110.  
  111.  
  112.   (gimp-palette-set-foreground inTextColor)
  113.   (gimp-selection-none theImage)
  114.   (set! theData ())
  115.   (set! theIndentList ())
  116.   (set! theChar "X")
  117.   (while (not (equal? () theChar))
  118.      (set! allspaces TRUE)
  119.      (set! theIndent 0)
  120.      (set! theLine "")
  121.      (while     (begin     (set! theChar (fread 1 theFile))
  122.                 (and     (not (equal? "\n" theChar))
  123.                     (not (equal? () theChar))
  124.                     )
  125.                 )
  126.             (cond     (    (equal? theChar "\t")
  127.                     (set! theChar "        ")
  128.                     (if (= allspaces TRUE)
  129.                         (set! theIndent (+ theIndent 8))
  130.                         ())
  131.                 )
  132.                 (    (equal? theChar " ")
  133.                     (if (= allspaces TRUE)
  134.                         (set! theIndent (+ theIndent 1))
  135.                         ())
  136.                 )
  137.                 (TRUE (set! allspaces FALSE))
  138.             )
  139.             (set! theLine (string-append theLine theChar))
  140.         )
  141.         (if     (= allspaces TRUE)
  142.             (set! theLine "")
  143.             ()
  144.         )
  145.         (if     (and     (equal? () theChar)
  146.                 (equal? "" theLine)
  147.             )
  148.             ()
  149.             (begin     (set! theData (cons theLine theData))
  150.                 (set! theIndentList
  151.                       (cons theIndent theIndentList))
  152.                 )
  153.             )
  154.         )
  155.  
  156.   (set! theText (car (gimp-text-fontname theImage
  157.                 -1
  158.                 0
  159.                 0
  160.                 "X"
  161.                 0
  162.                 TRUE
  163.                 inFontSize
  164.                 PIXELS
  165.                 inFont)))
  166.      (set! theCharWidth (car (gimp-drawable-width  theText) ))
  167.     (gimp-edit-cut theText)
  168.  
  169.     (set! theImageHeight 0)
  170.     (set! theImageWidth 0)
  171.     (cjg-add-text (reverse theData)
  172.               (reverse theIndentList)
  173.               inFont
  174.               inFontSize)
  175.       (if (= inFlatten TRUE)
  176.         (gimp-image-merge-visible-layers theImage 0)
  177.               ()
  178.       )
  179.       (set! n nLayers)
  180.       (if (= inFlatten TRUE)
  181.               (while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) TRUE) )
  182.               ()
  183.       )
  184.     (gimp-displays-flush)
  185. )
  186.  
  187. (define (cjg-add-text inData inIndentList inFont inFontSize)
  188.   (if     (equal? () inData)
  189.     ()
  190.     (let     ((theLine (car inData)) (theIndent (car inIndentList)))
  191.       (if     (equal? "" theLine)
  192.         ()
  193.         (begin
  194.           (set! theText (car (gimp-text-fontname theImage
  195.                         -1
  196.                         0
  197.                         0
  198.                         (string-append " " theLine)
  199.                         0
  200.                         TRUE
  201.                         inFontSize
  202.                         PIXELS
  203.                         inFont)))
  204.           (set! theLineHeight (car (gimp-drawable-height  theText) ) )
  205.           (gimp-layer-set-offsets theText
  206.                       (* theCharWidth theIndent)
  207.                       (+ theImageHeight
  208.                          (- inFontSize theLineHeight)))
  209.           (set! theImageWidth (max
  210.                        (+ (car (gimp-drawable-width  theText) )
  211.                       (* theCharWidth theIndent))
  212.                        theImageWidth ))
  213.           (if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
  214.                       (gimp-floating-sel-anchor theText)
  215.               ()
  216.                   )
  217.                   (gimp-layer-set-name theText theLine)
  218.           )
  219.         )
  220.       (set! theImageHeight
  221.         (+ theImageHeight inFontSize))
  222.       (cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
  223. )
  224.  
  225. ; Register the function with the GIMP:
  226.  
  227. (script-fu-register
  228.  "script-fu-asc-2-img"
  229.  "<Toolbox>/Xtns/Script-Fu/Utils/ASCII 2 Image"
  230.  "foo"
  231.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  232.  "8th April 1998"
  233.  "Chris Gutteridge / ECS @ University of Southampton, England"
  234.  "bar"
  235.  SF-FILENAME "File Name"       "afile"
  236.  SF-FONT "Font"       "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
  237.  SF-ADJUSTMENT "Font Size (pixels)" '(45 2 1000 1 10 0 1)
  238.  SF-COLOR "Text Color"      '(0 0 0)
  239.  SF-TOGGLE "Transparent BG?" FALSE
  240.  SF-COLOR "Background Color"      '(255 255 255)
  241.  SF-ADJUSTMENT "Buffer amount (% height of text)" '(35 0 100 1 10 0 0)
  242.  SF-TOGGLE "Flatten Image?" TRUE
  243. )
  244.  
  245. (script-fu-register
  246.  "script-fu-asc-2-img-layer"
  247.  "<Image>/Script-Fu/Utils/ASCII 2 Image Layer"
  248.  "foo"
  249.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  250.  "30th April 1998"
  251.  "Chris Gutteridge / ECS @ University of Southampton, England"
  252.  "bar"
  253.  SF-IMAGE "Image" 0
  254.  SF-DRAWABLE "Layer" 0
  255.  SF-FILENAME "File Name"       "afile"
  256.  SF-FONT "Font"       "-*-Charter-*-r-*-*-24-*-*-*-p-*-*-*"
  257.  SF-ADJUSTMENT "Font Size (pixels)" '(45 2 1000 1 10 0 1)
  258.  SF-COLOR "Text Color"      '(0 0 0)
  259.  SF-TOGGLE "Flatten Image?" TRUE
  260. )
  261.