blob: b7c6f11ac8d59b4f7dd7d20a7bc23f09f6bc00cb (
plain)
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
27
28
29
30
31
32
33
34
35
|
require("iupcdaux") -- utility module used in some samples
w = 100
h = 100
image_rgb = cd.CreateImageRGB(w, h)
size = w * h
i = 0
while i < size do
if i < size/2 then
image_rgb.r[i] = 255
image_rgb.g[i] = 0
image_rgb.b[i] = 0
else
image_rgb.r[i] = 0
image_rgb.g[i] = 0
image_rgb.b[i] = 255
end
i = i + 1
end
dlg = iupcdaux.new_dialog(w, h)
cnv = dlg[1] -- retrieve the IUP canvas
-- custom function used in action callback
-- from the iupcdaux module
function cnv:Draw(canvas)
canvas:PutImageRectRGB(image_rgb, 0, 0, w, h, 0, 0, 0, 0)
end
dlg:show()
iup.MainLoop()
|
