1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(require-library iup-base)
(module iup-glcanvas
(glcanvas
call-with-glcanvas glcanvas-is-current?
glcanvas-palette-set! glcanvas-font-set!)
(import
scheme chicken foreign
iup-base)
|
<
|
<
<
<
<
<
<
<
|
1
2
3
4
5
6
7
8
|
;; -*- mode: Scheme; tab-width: 2; -*- ;;
;; {{{ Data types
(foreign-declare
"#include <iup.h>\n"
"#include <iupgl.h>\n")
|
56
57
58
59
60
61
62
63
64
|
;; }}}
;; {{{ Library setup
(foreign-code "IupGLCanvasOpen();")
;; }}}
)
|
<
<
|
48
49
50
51
52
53
54
|
;; }}}
;; {{{ Library setup
(foreign-code "IupGLCanvasOpen();")
;; }}}
|