̬̬̬̈̬̬̬̬̈̬̬̬̬̬̪쬪̬̬̬̪쬪 >? pppp  p "" "   p    + 0 p  00   0@ 1     0 p 0 0 0 0       @p  03@ 33033  @ D3 0  D0 0  @@@ @@  0 @@ < @ D  @  p0 D@" A @   >  `0P0P   3P  0 0B P D ,D@ P  DDP,pDDDDUUUUPP  PUPUZUUUDDDD UDD PD  D p P $  > P3 PP  P P> @   @ 0" @D   @ 0D  @ @ @ J ` @   @   D @0> 3D 33033 03    p @ N >  0    `     0 > p 0 ,        0 p0   pJ        "  "! "        5-- title: Spirals -- author: www.crisjr.eng.br -- desc: failing at copying that effect -- script: lua POINTS={} WIDTH=8*30 HEIGHT=8*17 function normalize(x,y) local m=math.sqrt(x*x+y*y) return x/m,y/m end function add_points() for _,vx in pairs({-1,1}) do for _,vy in pairs({-1,0,1}) do local nvx,nvy=normalize(vx,vy) local point={ x=WIDTH/2+vx, y=HEIGHT/2+vy, vx=nvx, vy=nvy, t=0, a=1/1000 } table.insert(POINTS,point) end end end function draw_points() cls() for _,p in pairs(POINTS) do pix(p.x,p.y,4) end end function loop_points_colors() for _,p in pairs(POINTS) do local c=pix(p.x,p.y) pix(p.x,p.y,(c+1)%16) end end function update_points() for _,p in pairs(POINTS) do local dx=p.vx local dy=p.vy local dvx=-p.vy*p.t*p.a local dvy=p.vx*p.t*p.a p.t=p.t+1 p.x=p.x+dx p.y=p.y+dy p.vx=p.vx+dvx p.vy=p.vy+dvy --p.vx,p.vy=normalize(p.vx+dvx,p.vy+dvy) end end function maybe_remove_old_points() local outlet={} for _,p in pairs(POINTS) do if p.t<3000 then table.insert(outlet,p) end end POINTS=outlet end cls() CYCLE_COUNT=20 CYCLE_COUNTER=0 function TIC() if CYCLE_COUNTER<=0 then CYCLE_COUNTER=CYCLE_COUNT add_points() end --draw_points() loop_points_colors() update_points() maybe_remove_old_points() CYCLE_COUNTER=CYCLE_COUNTER-1 end