学用Gimp，从画圆到script-FU编程。

doooom

昨天闲来无事翻到一个前几天得贴子说gimp不能画圆，然后有兄弟比较PS和gimp孰优孰劣。
其实这两个软件各有所长，PS的新版本非常强大，gimp总体比较我觉得优于PS5，用起来没有PS6那么舒服了。

PS在路经的功能方面比gimp强很多。而gimp有script-FU做基础也不输给PS的其他方面多少，甚至说script的扩展性使得gimp给予使用者更多的自己发挥的空间。你可以在gimp上面完成很多在PS下面不可完成的任务。

我要写有关script的东西，但是既然提到了画圆，先说说怎么简单的画一些图形。

比如我要画圆
1. 用圆形选择工具画出你想画的形状。
2. 选择颜色和画笔
3. 在图片上面右键，选择  编辑》勾画
(如果要精确一些的话，可以在圆形选取的时候打开“工具配置”给圆形选区指定固定的宽高比例。)

这是第一种方法，有gimp丰富的可随意扩展的画笔做后盾，你可以画出很多有意思的东西

第二中方法。
1. 建立圆形选区
2. 在图片上面右键   选择 》边界
3. 指定你要勾画的线宽
4. 图片右键   编辑 》填充

附件里面是一个用这些方法画出来的东西，其实在PS5里面我记得没有画圆工具想画一个圆挺麻烦的。相比之下gimp要比ps5强一些

注：gimp版本1.2

doooom

说了现有的命令，下面看看怎么用script-FU来扩展gimp的功能。

下面是一段小代码，我先贴上来慢慢加注释。
拷贝粘贴存为一个文件放到目录
~/.gimp-1.2/scripts/
(这个目录根据不同的版本会不一样哦，自己用TAB键试试就职到了。)
然后重起gimp或者选择菜单 xtns 》script-fu 》刷新

接着在任意一个图片上面点右键，选择 script-fu 》linuxsir 》draw circle
选择好你想用的颜色，选择圆心，半径，线宽。

1. 
   
2. ; define 和下面看到的let是脚本里面基本的保留子
   
3. ; 世界上还有几个小教程可以看 在google上面找一下
   
4. ; script fu tutorial. 应该可以学会这些基本的语法.
   
5. 
   
6. (define (doooom-draw-circle image drawable cx cy r thick)
   
7. 
   
8. ; 这里dooom...circle是函数名 后面的几个参数是从
   
9. ; 对话框传递过来的变量, 具体看下面的register
   
10. 
    
11. (let* (
    
12. 
    
13. (up_corner_x (- cx r))
    
14. 
    
15. ; up....x是被副职的变量,后面是副的值.
    
16. ; (- cx r) 就是 cx-r 的意思.
    
17. 
    
18. (up_corner_y (- cy r))
    
19. (height (* r 2))
    
20.         )
    
21. 
    
22.         (gimp-selection-clear image) ; 清空选区
    
23.         (gimp-ellipse-select image (- up_corner_x thick) (- up_corner_y thick)
    
24.                 (+ height (* thick 2)) (+ height (* thick 2)) 0 FALSE 0 0)
    
25. ; 按照给定值选择一个椭圆选区
    
26. 
    
27.         (gimp-ellipse-select image up_corner_x up_corner_y
    
28.         height height 1 FALSE 0 0)
    
29. ; 选择一个小一些的圆, 并且和前面的选区做"减"运算
    
30. 
    
31.         (gimp-edit-fill drawable 0)
    
32. ; 填充选区, 用前景色
    
33. 
    
34.         (gimp-selection-clear image)
    
35.    (gimp-displays-flush)
    
36. ; 清除选区并且刷新图象
    
37. ; 如果不刷新图象是不会update到已有的变化的
    
38.         )
    
39.         )
    
40. ; ========================================
    
41. ; 下面的部分在你的gimp里面注册这个脚本
    
42. ; dooo...circle是你的程序入口, <image> 是说明添加到
    
43. ; 右键菜单, 后面是一层层的菜单名称, 可以随便写
    
44. ; 也就是说你的脚本可以作为一个entry添加到菜单的
    
45. ; 任何位置.
    
46. (script-fu-register "doooom-draw-circle"
    
47.                 "<Image>/Script-Fu/Linuxsir/Draw Circle..."
    
48.                 "Draw a circle with given center and radius"
    
49.                 "doooom at linuxsir"
    
50.                 "doooom"
    
51.                 "June 2003"
    
52.                 ""
    
53.                 SF-IMAGE "Image" 0
    
54.                 SF-DRAWABLE "Drawable" 0
    
55.                 SF-VALUE "Center X" "5"
    
56.                 SF-VALUE "Center Y" "5"
    
57.                 SF-VALUE "Radius" "4"
    
58.                 SF-VALUE "Thick" "3"
    
59.                 )
    
60. ; SF-image 和SF-DR... 是右键菜单脚本特有的
    
61. ; 他返回了当前操作的位置. 省下的很简单
    
62. ; 就是定义菜单和缺省值
    

复制代码

另外我说一下, 脚本编写的问题, 你可以用任何的编辑器了哦。分号是注释。
我是把这些脚本存为扩展名为scm的文件，应该存成别的名字也行。

从gimp主菜单 xtns 》script-fu 》console 可以调出script的控制台。这里面可以实验你的语句。从控制台可以调出script列表，这个非常有用，看一下就知道了，嘿嘿。

调试脚本我没有什么特别好的方法，就是一句一句注释一下调试的，
有啥好方法，大生们多多赐教。

比如你可以画出这样的精确的东西，好象PS不太好做。

ps：如果看不到图，加一个出国代理。

doooom

script-fu就是一系列gimp动作，会photoshop的兄弟会说我们可以在ps里面用action同样可以记录动作而且狠方便，调节度也很大。但是script-fu作为从lisp衍生出来的一种东东，功能远不止是批处理。

你可以在script里面实现数学计算，if，while流程控制，甚至是子程序调用。下面看看怎么用了哦。NOW WE CAN START REAL ROCK&ROLL。HEI HEI

下面这个代码是一个简单的递归调用绘制一个分形图案 ( PS卫道者要吐血了 )，很久不写程序了各位学CS的大哥不要因为丑陋的代码来砍我。

还是拷贝到那个目录，然后更新script-fu，这里我随便插一句，你每次改动了你的脚本的时候都要更新script，才可以在gimp里面生效。

1. 
   
2. ; 下面这个小routine是从yahoo的script-fu group抄来的
   
3. ; 有一些小改动, 注意这个里面使用了浮点数组, 嘿嘿
   
4. ; script 强吧.  yahoo那个group不错, 可以看看
   
5. (define (script-drawline img xcoord ycoord xcoord2 ycoord2)
   
6. (set! thecoords (cons-array 6 'double))
   
7. (aset thecoords 0 xcoord)
   
8. (aset thecoords 1 ycoord)
   
9. (aset thecoords 2 xcoord2)
   
10. (aset thecoords 3 ycoord2)
    
11. (gimp-pencil (car (gimp-image-active-drawable img)) 4 thecoords)
    
12. ; 这里的 (car (gimp-image-active-drawable img)) 狠有用
    
13. ; 是从当前image提取drawable, 我还不太明白啥是drawable
    
14. ; 但是有这个语句就无所谓了.
    
15. (gimp-displays-flush)
    
16.   )
    
17. 
    
18. (define (draw-edge image sx sy fx fy)
    
19.         (let* ( ; 下面是一堆付值和计算, 当笑话看吧,
    
20.                         (distance (sqrt (+ (pow (- sx fx) 2)
    
21.                                 (pow (- fy sy) 2))))
    
22.                         (xstep (/ (- fx sx) 3))
    
23.                         (ystep (/ (- fy sy) 3))
    
24.                         (c1x (+ sx xstep))
    
25.                         (c1y (+ sy ystep))
    
26.                         (vertexx (- (+ c1x (/ xstep 2)) (* ystep 0.86603)))
    
27.                         (vertexy (+ (+ c1y (/ ystep 2)) (* xstep 0.86603)))
    
28.                         (c2x (+ c1x xstep))
    
29.                         (c2y (+ c1y ystep))
    
30.                         )
    
31.                         (if (> distance 1)
    
32. ; if是一个狠tricky的语句, 费了我不少心思figure out 文档太少了 :(
    
33. ; if 后面的是 逻辑判断, 一目了然, TRUE或者1 FALSE或者0
    
34. ; 逻辑判断后面的 ( ) 是如果为真的时候执行的语句
    
35. ; 不是象有一个xx文档说的是好几条, 只能有一条哦.
    
36. ; (begin .... ) 的结构是符合语句
    
37. ; 然后在后面第二个 ( ) 是else时候执行的.
    
38.                                 (begin
    
39.                                 (script-drawline image c1x c1y sx sy)
    
40.                                 (script-drawline image c2x c2y fx fy)
    
41.                                 (draw-edge image vertexx vertexy c2x c2y)
    
42.                                 (draw-edge image c1x c1y vertexx vertexy)
    
43. ; 调用画线的程序和递归.        
    
44.                         ))
    
45.                         )
    
46.         )
    
47. 
    
48. (define (doooom-fractal-art width)
    
49. (let* ((image (car (gimp-image-new width (/ width 3) RGB)))
    
50.         (layer (car (gimp-layer-new image width (/ width 3)
    
51.                      RGB-IMAGE "foobar" 100 NORMAL-MODE)))        )
    
52.        (gimp-drawable-fill layer BG-IMAGE-FILL)
    
53.        (gimp-image-add-layer image layer 0)
    
54.        (gimp-display-new image)
    
55. ; 前面这一部分也是抄的, 建立一个新图象, 加一个新layer
    
56. ; 具体可以参见那个文档,你肯定从google里面找到了
    
57. ; 因为一共就那么几个文档, 呵呵
    
58.         (draw-edge image 0  4 (- width 1) 4 )
    
59.         (gimp-displays-flush)
    
60.         )
    
61.         )
    
62. ; =====================================
    
63. ; <toolbox> 是注册在主菜单的意思, 后面随意
    
64. (script-fu-register "doooom-fractal-art"
    
65.                 "<Toolbox>/Xtns/Script-Fu/Linuxsir/Fractal Art..."
    
66.                 "Draw some fractal art blah blah"
    
67.                 "doooom at linuxsir"
    
68.                 "doooom"
    
69.                 "June 2003"
    
70.                 ""
    
71.                 SF-VALUE "Canvas Width" "300"
    
72.                 )
    
73. 
    

复制代码

执行的时候，在菜单选择 xtns 》 script-fu 》linuxsir 》fractal art，然后指定想要的图片宽度，还有就是指定好颜色和画笔，建议用小点的笔头哦。

执行结果：

doooom

接着我们再看一个叫PS fans彻底FT的script ( 我可不是gimp卫道者哦，PS狠不错的，但是也狠贵，别说盗版，你试试在ebay上卖一个盗版PS7，保准送你去消声客监狱 )。

gimp可以将每一个layer的图象作为gif或者video (mpeg1/2)的一桢来输出。这样我们可以使用gimp来制作mpg或者gif动画。mpg需要安装一些软件和script。这里说说做gif。

下面是一个简单的脚本，说简单是我没有在里面加入复杂的动作(比较懒)，只是做了一个圆周运动的东东。如果你喜欢你可以用脚本写出来，九大星星的运动轨道，或者xxxx，反正能编程了上么写不出呢？这里只是show一下script的潜力。

还是一样在 xtns 》linuxsir 脚本anim，选择你要输出的文件和运动半径，指定好画笔和颜色。

1. 
   
2. 
   
3. ; 这个routine和前面画线的是一起ref来的.呵呵
   
4. (define (script-setdot img xcoord ycoord)
   
5. (set! thecoords (cons-array 4 'double))
   
6. (aset thecoords 0 xcoord)
   
7. (aset thecoords 1 ycoord)
   
8. (gimp-paintbrush (car (gimp-image-active-drawable img))
   
9.         0 2 thecoords 0 0)
   
10. )
    
11. 
    
12. (define (doooom-little-anim r outfile)
    
13. (let* ((image (car (gimp-image-new (* r 3) (* r 3) RGB))) (layer 0)
    
14.                 (cx (* r 1.5))
    
15.                 (cy (* r 1.5))
    
16.                 (x 1) (y 1)
    
17.                 (angularstep (/ (* 3.1415926 2) 30))
    
18.                 (ang 0)
    
19.                 )
    
20.         (gimp-display-new image)
    
21. 
    
22. ; 好象没什么好说的了,这个是while循环,呵呵
    
23.         (while (< ang (* 3.14 2))
    
24.                 (set! layer (car (gimp-layer-new image (* r 3) (* r 3)
    
25.                      RGB-IMAGE "foobar" 100 NORMAL-MODE)))
    
26.                 (gimp-drawable-fill layer BG-IMAGE-FILL)
    
27.                 (gimp-image-add-layer image layer 0)
    
28.                 (set! x (+ cx (* r (sin ang))))
    
29.                 (set! y (+ cy (* r (cos ang))))
    
30.                 (script-setdot image x y)
    
31.                 (set! ang (+ ang angularstep))
    
32.                 )
    
33.         (gimp-convert-indexed image 1 0 256 0 0 "")
    
34. ; 这个是转换成所有色图象, 只有这样才可以保存成gif
    
35.         (file-gif-save 1 image  (car (gimp-image-active-drawable image))
    
36.                  outfile outfile TRUE 1 0 0)
    
37. ; 里面第一个参数是run_mod 如果是0 的话, gimp会弹出窗口
    
38. ; 1 不会弹出,按照你命令的设置直接执行了.
    
39.         (gimp-displays-flush)
    
40.         )
    
41.         )
    
42. 
    
43. (script-fu-register "doooom-little-anim"
    
44.                 "<Toolbox>/Xtns/Script-Fu/Linuxsir/Little Anim..."
    
45.                 "compose a gif animation of a rolling point in circular track."
    
46.                 "doooom at linuxsir"
    
47.                 "doooom"
    
48.                 "July 2003"
    
49.                 ""
    
50.                 SF-VALUE "Radius" "100"
    
51.                 SF-STRING "Output File" "anim.gif"
    
52.                 )
    
53. 
    

复制代码

输出成这样，嘿嘿, " ~~~拉拉~~我是一个青椒~椒~椒~椒椒椒~~~~~"

wide288

谢谢兄弟的方法了。：)
我也发两个我做的。做的不好

wide288

最初由 wide288 发表
谢谢兄弟的方法了。：)
我也发两个我做的。做的不好

wide288

doooom 兄你的第一个脚本试成功了吗，我怎么加不上脚本呢。
还有脚本的基础语法那有介绍啊。

doooom

呵呵，这个可要到google上面好好找了，写这几个东西可费了些功夫，主要是很多小地方只能自己实验，没有上么现成的文档。：(
我在代码里面加些注释吧。

你要拷贝到正确的目录，还有要刷新script。第一个调用是在图片的右键菜单里面，后面两个在主菜单里面。

lucida

doooom是偶像啊，这几篇太cool了!

wide288

我照着第一个 script-fu 》linuxsir 》draw circle
这样做的，在/home/wide288/.gimp-1.2/scripts/linuxsir/draw_circle
中写了这个可是在script-fu 》linuxsir 》draw circle中找不到 linuxsir

我看可能是还要改许多的东西。如：
pluginrc
改上面这个文件
plug-ins:
加到上面这个目录里。

不对，是我理解错了，我找到资料了。
在
www.gimp.org
正在看