电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛

标题: 用 Guile 来为 GTK+ 应用添加扩展语言 Scheme（4） [打印本页]

作者: look_w 时间: 2018-5-18 20:23 标题: 用 Guile 来为 GTK+ 应用添加扩展语言 Scheme（4）

编译测试我们可以根据上面的Makefile文件再写一个用到GTK+库的Makefile来编译我们的应用，这个Makefile的内容如下：

1
2
3
4
5
6
7
8
9
10

CC = gcc
GTK2_CFLAGS = `pkg-config --cflags gtk+-2.0`
GTK2_LIBS = `pkg-config --libs gtk+-2.0`
GUILE_CFLAGS = `guile-config compile`
GUILE_LIBS = `guile-config link`
all:
$(CC) $(GTK2_CFLAGS) $(GUILE_CFLAGS) -c brush.c
$(CC) $(GTK2_LIBS) $(GUILE_LIBS) -o brush brush.o
clean:
rm *.o brush test.png *~ -fr

当我们编译成功后，就可以编写一个简单的绘图文件来测试一下了，如我们在绘图文件test.scm中只写一行：(_line 100 100 300 300)，保存后，在我们的应用中运行一下，应该在绘图板上出现一条斜线，OK，成功了。
下面代码测试了一下弧线、弧线的添充和旋转：

1
2
3
4
5
6
7
8
9
10

;;;设定前景为蓝色
(_color 0 0 65535)
;;; 宽高均为 100 的 270 度的弧，旋转0度
(_arc 80 100 100 100 0 (* 64 270) #f)
;;; 同上，添充效果
(_arc 200 100 100 100 0 (* 64 270) #t)
;;; 宽高均为 100 的270度的弧，旋转90度
(_arc 320 100 100 100 (* 64 90) (* 64 270) #f)
;;; 同上，添充效果
(_arc 440 100 100 100 (* 64 90) (* 64 270) #t)

测试效果如下图所示：

还可以用(_polygon (list (cons 100 150) (cons 100 200) (cons 200 200)) 3 #f)来画一个三角形，自己试一试吧！
封装与扩展我们定义的六个原始过程用起来比较繁琐，但只要对它们进行简单的封装，就可以实现新的过程，来提高它们的易用性。
1、对颜色的封装我们的应用中提供了简单的RGB前景颜色设定过程_color，此过程需要三个参数，分别代表RGB的三个颜色值，下面代码对这个过程进行了简单的封装：

1
2
3
4
5
6
7
8
9
10
11
12

   ;;;set the front color
(define set-color
  (lambda (color)
(case color
   ((white) (_color 65535 65535 65535))
   ((black) (_color 0 0 0))
   ((red) (_color 65535 0 0))
   ((green) (_color 0 65535 0))
   ((blue) (_color 0 0 65535))
   ;;;如果你知道更多的RGB颜色值请在此处按上面规则扩展
   (else
   (display "Error : color not defined!\n")))))

如此，我们只要用set-color过程中加一个颜色名做参数就可以了，如(set-color 'black)。
2、设定背景颜色我们的应用中只提供了设定前景颜色的过程，由于背景和前景是相对的，完全可以用设定前景颜色功能来实现设定背景颜色过程，就是设定前景颜色后，用添充矩形过程来实现，如果此矩形的宽高为画板的默认的宽高，就实现了整个画板的背景颜色设定。如下面代码所示（注意，这样处理后前景和背景颜色都一样了，再绘图时一定要先改一下前景颜色）：

1
2
3
4
5

      (define set-back-color
(lambda (red green blue)
(begin
      (_color red green blue)
      (_rectangle 0 0 600 400 #t))))

3、丰富画点功能下面代码是对画点过程的一系列封装，实现了point，draw-point，draw-dot-hline，draw-color-dot-hline四种功能，相信读者会封装出更优秀的功能来。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

;;;画点 100 100
(_point 100 100)
;;;画点 150, 150
(define point _point)
(point 150 150)
;;;画点 125, 125
(define draw-point _point)
(draw-point 125 125)
;;;画点状横线，从x，y开始，宽度为width，每隔5点画一点
(define draw-dot-hline
  (lambda (x y width)
(let ((a x) (b (+ x width)))
   (while (< a b)
      (_point a y)
      (set! a (+ a 5))))))
;;;测试
(draw-dot-hline 30 30 150)
;;;画带颜色的虚线，颜色为color，从x，y开始，宽度为width
(define draw-color-dot-hline
  (lambda (color x y width)
(begin
   (set-color color)
   (draw-dot-hline x y width)
   (set-color 'black))))
;;;测试
(draw-color-dot-hline 'blue 50 50 200)

4、画圆形和添充圆形过程画圆形过程可以用画弧线过程来实现，毕竟圆形是一条封闭的弧线。只要设定弧线的宽高相等，不旋转（旋转也没有效果），并且度数为360度（应该是64x360，因为这里的单位是64分之一度），就是一个圆了。代码如下：

1
2
3
4
5
6
7
8

      ;;;draw a circle
(define draw-circle
(lambda (x y d)
      (_arc x y d d 0 (* 64 360) #f)))
;;;fill a circle
(define fill-circle
(lambda (x y d)
      (_arc x y d d 0 (* 64 360) #t)))

5、实现项目列表项目列表，即先画一个圆形或矩形，然后再输出一串字符串，同时还可以设定项目标号的颜色，这一功能可由下面的代码实现：

1
2
3
4
5
6
7
8
9

(define item
  (lambda (x y color str)
(begin
   (set-color color)
   (fill-rect x y 10 10)
   (set-color 'black)
   (draw-string (+ x 12) y str))))
;;;test
(item 250 300 'black "A.com")

以上几项只是基础功能的封装，还有画正方形，正三角形，菱形等等常用图形功能尚未实现。我们可以将这些函数统一做一个文件，在起动此应用时就调用这一文件，这样我们就可以在新的绘图文件中调用这些功能了。(详细内容见源码包中的src/brush.scm文件，如果你想实现上面的功能，请将它写入这个文件中去)
事实上我们的结构原理示意图就是用绘图代码做出来的。你发现用Guile为GTK+应用做扩展语言的功能强大了吧:-)，由于笔者条件所限，没能将此软件在开源网站上发布（这正是笔者所想要的），如果那位朋友愿意帮这个忙的话，将不胜感激，当然，还望对图形或CAD感兴趣的朋友多加指点。

欢迎光临电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛 (http://bbs.eccn.com/)