File: ex2.lua

package info (click to toggle)
clanlib 0.5.4-1-6
  • links: PTS
  • area: main
  • in suites: woody
  • size: 10,320 kB
  • ctags: 10,893
  • sloc: cpp: 76,056; xml: 3,281; sh: 2,961; perl: 1,204; asm: 837; makefile: 775
file content (29 lines) | stat: -rw-r--r-- 530 bytes parent folder | download 
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
 
-- Example 2
-- Lenny Palozzi

CL_Display:set_videomode(640, 480, 16,0)

mx = CL_Mouse:get_x()
my = CL_Mouse:get_y()
old_mx = mx
old_my = my

while CL_Keyboard:get_keycode(CL_KEY_ESCAPE) == FALSE
do
	mx = CL_Mouse:get_x()
	my = CL_Mouse:get_y()

	if mx ~= old_mx or my ~= old_my then
		CL_Display:fill_rect(mx, my, mx+8, my+8, call(random, {}), call(random, {}), call(random, {}), 1.0)
		CL_Display:flip_display()
		CL_Display:sync_buffers()
		old_mx = mx;
		old_my = my;
	end
	CL_System:sleep(10)
	CL_System:keep_alive()
end