ÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÀ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌÀ¬ÀÀÀ¬ÀÀÀ¬ÀÀÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÌ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌ̬ÀÀÀ¬ÀÀÀ¬ÀÀ¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî >‘?€�� p�€�€�°°p°€�°pp° �€�° �p "" ÐÁ€ °" Á  ààp  îÁ° °ÿÀ€°  ðà  � ÐàÀ°¤ð + ˜0  p€°­àðÀÀÀÐðà  0à¡0Ðð À €  ààð ðà��� 0Àý@ îàð1�àÀ°ÀÐ� à   ° ðãý à  0 ÐÿàÀ  €p€ Ðð0àÀ  ð0à   À Ð0ÝÐÐÐ ð0àÀÀ Ðð° €  ã ÀÐðäÀ°  ð À€    �° @À�p Ðð  03 Ð@ 33033 ° ð @ D3°ã €0   D›0 0Ððð    € @�€àÐðßÐ@@° ÐÐÐ@¤ @  0 @ @ <À @� D ° °@ ° ÿÿ pÀ0 À D@ýðÐ" A ° @ ð ° Ààà>À  Ð `ÿÐ0ãàP�ðà0ÀP   €3P� ° 0ãÀª  ÐðÀ €€0B �PÐ ÀD   ð,ÐD@ P а� Р DDP� ,p€€DDDDUUUUPP ¬Ð à  Ê PUPUZUUUDDDDà€ U DDÐ ° à �P D à°  Dà p P �$   ª >àÁ°°ð �  P3� ÐðÐPP àÁ ðP P>àà ðÿ°@ Ð àãà   ðÐ@  °0°" ððß@D° °  ÐÿðÿÐ @ À 0À°ÐÐÐD� À ðÐÐ@ @° °� °@ J ` € @ ýð € °� @À Ðð  ° ¹D @ ðЀ°0> 3D ÀÐÐ  33033� ð 03 €Ð   À ð �� �ðÐ p °@ € À N €€ °>  °  0 ��  � Ý �   Ра°� à`  €  ÿ ° ððÀà0 à€ß>À p À ð0 à à, ð îÀ€ß àààà° ° Ñ�    ÑÀÀÁ�° 0 àp€ðÚ0  Àà‰ðв páJ € ð   Ð  àÿ   îàððÐ Ð �À"   ÀÀ "€! " °  €°  €€    �� 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