1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(require-library iup-base)
(module iup-pplot
(pplot
call-with-pplot pplot-add!
pplot-x/y->pixel-x/y
pplot-paint-to)
(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 <iup_pplot.h>\n")
|
69
70
71
72
73
74
75
76
77
|
;; }}}
;; {{{ Library setup
(foreign-code "IupPPlotOpen();")
;; }}}
)
|
<
<
|
60
61
62
63
64
65
66
|
;; }}}
;; {{{ Library setup
(foreign-code "IupPPlotOpen();")
;; }}}
|