-- kalid2.lua

w,h = pmode()
w=w-1
h=h-1
pclear()


function plonk(x,y)
	pline(px,py,x,y)
	pline(w-px,py,w-x,y)
 	pline(px,h-py,x,h-y)
 	pline(w-px,h-py,w-x,h-y)
 	pline(py,px,y,x)
	pline(h-py,px,h-y,x)
 	pline(py,w-px,y,w-x)
 	pline(h-py,w-px,h-y,w-x)
	px=x
	py=y
end

while 1 do
id,x,y = pevent()
if id == penMove then
	plonk(x,y)
end


if id == penDown then
	px=x
	py=y
	plonk(x,y)
end
end