home *** CD-ROM | disk | FTP | other *** search
/ ftp.sunet.sepub/pictures / 2014.11.ftp.sunet.se-pictures.tar / ftp.sunet.se / pub / pictures / ACiD-artpacks / programs / unix / editors / gimp-plugins-unstable-0_99_23_tar.gz / gimp-plugins-unstable-0_99_23_tar / gimp-plugins-unstable-0.99.23 / gimple / gimple-init.scm next >
Text File  |  1998-02-26  |  3KB  |  181 lines
  1. ;;;;     Copyright (C) 1998 Lauri Alanko <la@iki.fi>
  2. ;;;; 
  3. ;;;; This program is free software; you can redistribute it and/or modify
  4. ;;;; it under the terms of the GNU General Public License as published by
  5. ;;;; the Free Software Foundation; either version 2, or (at your option)
  6. ;;;; any later version.
  7. ;;;; 
  8. ;;;; This program is distributed in the hope that it will be useful,
  9. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. ;;;; GNU General Public License for more details.
  12. ;;;; 
  13. ;;;; You should have received a copy of the GNU General Public License
  14. ;;;; along with this software; see the file COPYING.  If not, write to
  15. ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  16. ;;;; Boston, MA 02111-1307 USA
  17. ;;;; 
  18. ;;;; The GPL is also available at http://www.gnu.org/copyleft/gpl.html
  19.  
  20.  
  21. ; gimple-init.scm
  22.  
  23.  
  24. (define (enumlist-iter rest idx accum)
  25.   (if
  26.    (null? rest)
  27.    (reverse accum)
  28.    (enumlist-iter (cdr rest)
  29.           (+ idx 1)
  30.           (cons (list 'define (car rest) idx)
  31.             accum))))
  32.  
  33. (defmacro enum enums (cons begin (enumlist-iter enums 0 '())))
  34.  
  35. ;This stuff should prolly be snarfed from the headers..
  36.  
  37. (enum 
  38.  NORMAL
  39.  DISSOLVE
  40.  BEHIND
  41.  MULTIPLY
  42.  SCREEN
  43.  OVERLAY
  44.  DIFFERENCE
  45.  ADDITION
  46.  SUBTRACTION
  47.  DARKEN-ONLY
  48.  LIGHTEN-ONLY
  49.  HUE
  50.  SATURATION
  51.  COLOR
  52.  VALUE)
  53.  
  54. (enum
  55.  FG-BG-RGB
  56.  FG-BG-HSV
  57.  FG-TRANS
  58.  CUSTOM)
  59.  
  60. (enum
  61.  LINEAR
  62.  BILINEAR
  63.  RADIAL
  64.  SQUARE
  65.  CONICAL-SYMMETRIC
  66.  CONICAL-ASYMMETRIC
  67.  SHAPEBURST-ANGULAR
  68.  SHAPEBURST-SPHERICAL
  69.  SHAPEBURST-DIMPLED)
  70.  
  71. (enum
  72.  REPEAT-NONE
  73.  REPEAT-SAWTOOTH
  74.  REPEAT-TRIANGULAR)
  75.  
  76. (enum
  77.  FG-BUCKET-FILL
  78.  BG-BUCKET-FILL
  79.  PATTERN-BUCKET-FILL)
  80.  
  81. (enum
  82.  BG-IMAGE-FILL
  83.  WHITE-IMAGE-FILL
  84.  TRANS-IMAGE-FILL
  85.  NO-IMAGE-FILL)
  86.  
  87.  
  88. (enum
  89.  RGB
  90.  GRAY
  91.  INDEXED)
  92.  
  93. (enum
  94.  RGB-IMAGE
  95.  RGBA-IMAGE
  96.  GRAY-IMAGE
  97.  GRAYA-IMAGE
  98.  INDEXED-IMAGE
  99.  INDEXEDA-IMAGE)
  100.  
  101. (enum
  102.  RED-CHANNEL
  103.  GREEN-CHANNEL
  104.  BLUE-CHANNEL
  105.  GRAY-CHANNEL
  106.  INDEXED-CHANNEL)
  107.  
  108. (enum
  109.  WHITE-MASK
  110.  BLACK-MASK
  111.  ALPHA-MASK)
  112.  
  113. (enum
  114.  APPLY
  115.  DISCARD)
  116.  
  117. (enum
  118.  EXPAND-AS-NECESSARY
  119.  CLIP-TO-IMAGE
  120.  CLIP-TO-BOTTOM-LAYER)
  121.  
  122. (enum
  123.  ADD
  124.  SUB
  125.  REPLACE
  126.  INTERSECT)
  127.  
  128. (enum
  129.  PIXELS
  130.  POINTS)
  131.  
  132. (enum
  133.  IMAGE-CLONE
  134.  PATTERN-CLONE)
  135.  
  136. (enum
  137.  BLUR
  138.  SHARPEN)
  139.  
  140. (enum
  141.  FALSE
  142.  TRUE)
  143.  
  144. (enum
  145.  PARAM-INT32
  146.  PARAM-INT16
  147.  PARAM-INT8
  148.  PARAM-FLOAT
  149.  PARAM-STRING
  150.  PARAM-INT32ARRAY
  151.  PARAM-INT16ARRAY
  152.  PARAM-INT8ARRAY
  153.  PARAM-FLOATARRAY
  154.  PARAM-STRINGARRAY
  155.  PARAM-COLOR
  156.  PARAM-REGION
  157.  PARAM-DISPLAY
  158.  PARAM-IMAGE
  159.  PARAM-LAYER
  160.  PARAM-CHANNEL
  161.  PARAM-DRAWABLE
  162.  PARAM-SELECTION
  163.  PARAM-BOUNDARY
  164.  PARAM-PATH
  165.  PARAM-STATUS
  166.  PARAM-END)
  167.  
  168. (enum
  169.  RUN-INTERACTIVE
  170.  RUN-NONINTERACTIVE
  171.  RUN-WITH-LAST-VALS)
  172.  
  173. (enum
  174.  STATUS-EXECUTION-ERROR
  175.  STATUS-CALLING_ERROR
  176.  STATUS-PASS_THROUGH
  177.  STATUS-SUCCESS)
  178.  
  179. (primitive-load-path "script-fu-compat.scm")
  180.  
  181.