ΞΜΜΜ̈ˆˆ¬ͺͺͺ¬ˆˆˆ¬ΜΜΜ¬ΜΐΜ¬ΜΐΜ¬ΜΐΜΜΜμΜξͺͺΐΐξΜ¬ΐΜΐ¬ΐΐΐ¬ΐΐΐ¬ΐΐΞΜΜΜ̈ˆˆ¬ͺͺͺ¬ˆˆˆ¬ΜΜΜ¬ΜΜΜ¬ΜΐΜ¬ΜΐΜΜΜμΜξͺͺΐΐξΜ¬ΐΜΜ¬ΐΐΐ¬ΐΐΐ¬ΐΐ¬ΜΜΜ¬ͺͺͺ¬ͺ¬ͺ¬ͺΚΜ¬ͺͺͺŒˆˆˆΜΐΜΞΜΜΞΜ¬Μͺͺΐμ¬ͺΐξͺͺΐξͺͺΐΜξΐμξΜΜξξ¬ΜΜΜ¬ͺͺͺ¬ͺ¬ͺ¬ͺΚΜ¬ͺͺͺŒˆˆˆΜΐΜΞΜΜΞΜ¬Μͺͺΐμ¬ͺΐξͺͺΐξͺͺΐΜξΐμξΜΜξξ >–)ΐΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜ ΐΠ Π ΐΠ ΐ Π ΐ ΐΠΠΠΠΠ ΐΠ ΐ ΐΠΠ ΐ ΠΠ ΐ ΠΠΠΠ ΐΠΠ ΐ ΐ ΠΠΠ ΐΠΠ Π ΐΠ ΐΠΠ ΐ Π Π ΐ Π ΐΠ Π ΐΠΠΠ ΐ ΐ Π ΐ Π Π ΐ Π ΐΠ ΐ Π ΐΠΠ ΐΠ ΐΠ Π Π ΐ ΠΠ ΐ ΐΠ  ΠΠ ΐΠ ΐ ΐΠ ΐ ΐ ΐ ΐ ΐ ΐΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜ W-- title: bugs -- author: me -- desc: clip experiments -- script: lua sh=40 sw=100 t=0 n=150 pxs={} for i=1,n do table.insert(pxs,{ x=math.random(120-sw/2,120+sw/2), y=math.random(68-sh/2,68+sh/2), c=13 }) end di={-1,0,1,0} dj={0,1,0,-1} function TIC() cls(0) clip(119-sw/2, 67-sh/2, sw+2, sh+2) cls(12) clip(120-sw/2, 68-sh/2, sw, sh) cls(0) for i=1,n do p=pxs[i] col=0 for j=1,4 do local nx,ny=p.x+di[j],p.y+dj[j] if valid(nx, ny) and pix(nx,ny)~=0 then col=col+1 end end if col>=2 then p.c=2 else p.x=p.x+math.random(-1,1) p.y=p.y+math.random(-1,1) end p.x=math.max(120-sw/2,math.min(120+sw/2,p.x)) p.y=math.max(68-sh/2,math.min(68+sh/2,p.y)) pix(p.x,p.y,p.c) end clip() end function valid(x,y) return x>=120-sw/2 and x<=120+sw/2 and y>=68-sh/2 and y<=68+sh/2 end