-- kalid.lua

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


function plonk(x,y)
   pset( x,y )
   pset(w-x,y)
   pset(x,h-y)
   pset(w-x,h-y)
   pset(y,x)
   pset(h-y,x)
  pset(y,w - x)
 pset(h-y,w-x)
end

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


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