gimp 脚本

1. gimp 简介
2. 用 scheme 操作 gimp
3. 一个添加辅助线的例子
4. 脚本文件

title: gimp 脚本 categories: gimp tags:

gimp
scheme

1 gimp 简介

gimp 是一个类似 photoshop 的开源且免费的图像处理软件. 两者的很多功能基本相同, 不过键位差别还是很大的, 如果你习惯使用 ps 的键位也可以试试 gimpshop 这种分支.

本文将简单介绍如何在 gimp 中使用 scheme(lisp的一种方言) 来进行操作, 当然前提是假设你知道如何编写 lisp 或者类似的方言.

另外 gimp 也支持 python 脚本, 不过这里只介绍 scheme 的操作

2 用 scheme 操作 gimp

打开gimp -> Filters -> Script-Fu -> Console 就会发现出现了一个 scheme 的交互控制台, 可以在里面直接输入命令然后 按回车 执行, 也可以在其他编辑器中写好之后复制到输入框中按回车执行

那么现在的问题是, gimp 的 api 手册在哪?

实际上我还真没有找到 scheme 版的 api 手册, 但是通过查看 https://developer.gimp.org/api/2.0/libgimp/index.html 的api, 可以自己转换为 scheme 版的 api

比如 https://developer.gimp.org/api/2.0/libgimp/libgimp-gimpguides.html 里面有一个 gimp_image_add_vguide() 函数, 这个函数可以添加垂直的辅助线. 在 scheme 里面就可以这样写

;; 在 1图x坐标256处 添加一个 垂直辅助线
;; 这里 1 对应 image_ID (当前打开的第1个图片)
;; 256 对应 xposition
(gimp-image-add-hguide 1 256)

也就是说 api 里面函数名的 下划线 在 scheme 里面要全部写成横岗

3 一个添加辅助线的例子

list 中的每一个 cons 是一个坐标点(x和y, x是添加垂直辅助线, y添加水平辅助线), 这里对一系列坐标点添加辅助线

;; 把这段代码直接复制到输入框中按回车即可执行
(let* ((pos-list (list (cons 601 295) (cons 801 439) (cons 183 556) (cons 383 700)))
       (image-id 1)
       (set-guide (lambda (pos)
		    (begin (gimp-image-add-hguide image-id (cdr pos))
			   (gimp-image-add-vguide image-id (car pos))))))
  (map set-guide pos-list))

这里的 begin 等同于 lisp 中的 progn, 不过是 scheme 中的写法 scheme 和 lisp 的差别见 https://www.cs.utexas.edu/~novak/schemevscl.html

4 脚本文件

除了在控制台中直接执行脚本外, 也可以将脚本保存到 scm 文件中来运行. 不过 scm 文件必须放在指定的位置才能执行, ubuntu 的路径类似 /usr/share/gimp/2.0/scripts, 也可以研究下这个路径里面自带的 scm 文件

Date: <2017-10-25>

Author: Travis CI User

Created: 2017-11-30 Thu 03:18

Emacs 24.5.1 (Org mode 8.2.10)

Validate

Table of Contents

1 gimp 简介

2 用 scheme 操作 gimp

3 一个添加辅助线的例子

4 脚本文件