lisp遍历列表

时间:2014-07-17 10:26:45

标签: scheme lisp gimp script-fu

我昨天刚开始使用GIMP script-fu脚本编写我需要的脚本,但我不知道如何在局部变量中添加图层自动化,并调用图层添加图层的功能。我尝试迭代列表但优雅地失败了。有人能把我推向正确的方向吗?

(define (script-fu-gifslot inText inFont inFontSize inTextColor)
    (let*
        ((theImageWidth  700) ; define our local variables
         (theImageHeight 100) ; create a new image:
         (theImage)
         (layerX)
         (inOffset)
         (theImage (car (gimp-image-new theImageWidth theImageHeight RGB)))
         (theText)             ;a declaration for the text

         (theLayer (car (gimp-layer-new theImage theImageWidth theImageHeight RGB-IMAGE "layer 1" 100 NORMAL)))
         (theLayer2 (car (gimp-layer-new theImage theImageWidth theImageHeight RGB-IMAGE "layer 2" 100 NORMAL)))
         (theLayer3 (car (gimp-layer-new theImage theImageWidth theImageHeight RGB-IMAGE "layer 3" 100 NORMAL)))
         (theLayer4 (car (gimp-layer-new theImage theImageWidth theImageHeight RGB-IMAGE "layer 4" 100 NORMAL))))

      (define (yannis-add-new-layer layerX inOffset)
          (gimp-image-add-layer theImage layerX 0)
        (gimp-context-set-background '(255 255 255))
        (gimp-context-set-foreground inTextColor)
        (gimp-drawable-fill layerX BACKGROUND-FILL)

        (set! theText (car (gimp-text-fontname theImage layerX 0 0 inText 0 TRUE inFontSize PIXELS "Sans")))
        (set! theImageHeight  (car (gimp-drawable-height theText)))

        (gimp-layer-resize layerX theImageWidth theImageHeight 0 0)
        (gimp-layer-set-offsets theText 0 (- 0 inOffset)))
      (yannis-add-new-layer theLayer 0)
      (yannis-add-new-layer theLayer2 10)
      (yannis-add-new-layer theLayer3 20)
      (yannis-add-new-layer theLayer4 30)
      (gimp-display-new theImage)
      (list theImage layerX theText)))

(script-fu-register 
 "script-fu-gifslot"
 "_GGGIF WORD Slotmachine..."
 "Creates an image with a user specified text string."
 "Yannis De Cleene <yannisdcl@gmail.com>"
 "Yannis De Cleene"
 "July, 2014"
 ""
 SF-TEXT       "Text"                "PASTE\nMULTILINE TEXT\nIN HERE"
 SF-FONT       "Font"                "Sans"
 SF-ADJUSTMENT "Font size (pixels)"  '(100 2 1000 1 10 0 1)
 SF-COLOR      "Color"               '(0 0 0))

(script-fu-menu-register "script-fu-gifslot" "<Image>/File/Create")

1 个答案:

答案 0 :(得分:3)

使用mapfor-eachdo

如果您想在列表中添加1,可以使用(map 1+ '(1 2 3))。或者,如果要动态定义函数,请使用lambda:(map (lambda (x) (+ 1 x)) '(1 2 3))

如果你想要更具势在必行的风格使用呢。你可以阅读它here

您可以使用函数apropos搜索函数(和其他绑定符号)。 E.J。 (apropos "for")(显然不是因为我的鄙视)。

但是我觉得你的问题比仅仅迭代列表要大。例如,在let上定义函数是否有意义?你为什么没有明确地将图像传递给add-new-layer-function?

为了使你的代码更具可读性,我会删除'the',使用' - '代替camelCase,不要在每一行留下一个parentesis。它伤害了可读性。但是我可以看到,这不是你的错,因为在gimp的教程中使用了这种风格。 E.J。 theImage成为图像,TheLayer1成为第1层。

如果你想了解更多关于方案的信息,你应该下载球拍并阅读如何设计程序,这是一个很好的编程介绍。