sonraki »

[Skate]

211 byte ve hız artışı

Kod:

0 m=59:poke53265,m:poke53272,24:fory=0to63:c=9896+40*(yand-8)+(yand7)
1 forx=-32to31:if(xand7)=0thenc=c-8:pokec,0
2 z=abs(x):if(z<landz>-m)or(m<33andz<m)thenpokec,peek(c)or2^(xand7)
3 next:l=l+.3:m=m-1.2:print:next

[Skate]

203 byte

Yeterince uzun beklerseniz bir de ekran kapanış bonus efekti var.

Kod:

0 m=63:poke53265,m:poke53272,24
1 c=9896+40*(yand-8)+(yand7):forx=-32to31:if(xand7)=0thenc=c-8:pokec,0
2 z=abs(x):ifz<landz>-morm<33andz<mthenpokec,peek(c)or2^(xand7)
3 next:l=l+.3:m=m-1.3:print:y=y+1:goto1

[Skate]

200 byte

Kod:

0 m=63:poke53265,m:poke53272,24:c=8384
1 forx=-32to31:if(xand7)=0thenc=c-8:pokec,0
2 z=abs(x):ifz<landz>-morm<33andz<mthenpokec,peek(c)or2^(xand7)
3 next:l=l+.3:m=m-1.3:print:c=c+65-312*((cand7)=7):goto1

[Skate]

198 byte

Kod:

0 m=63:poke53265,m:poke53272,24:c=8384
1 forx=-32to31:if(xand7)=0thenc=c-8:pokec,0
2 z=abs(x):pokec,peek(c)or2^(xand7)*-(z<landz>-morm<33andz<m):next:l=l+.3
3 m=m-1.3:print:c=c+65-312*((cand7)=7):goto1

[joker_]

52 dakika da, 16 byte kısalmış. Müthiş.

[Skate]

Bu arada algoritmanın üzerinde oynaşmak isterseniz c64 versiyonu yavaş kalıyor, ben bunun üzerinde çalışıyorum.

http://jsfiddle.net/sv76zcmk/

[eins]

Dün partiden ayrılırken bu soruyu çok çabuk harcadık demiştim sana. İyi oldu doluya geçirmen, aklıma gelmemişti. Velakin, bu versiyonunun da dibini görmüşsün, daha ne yapılabilir bilmiyorum. Bir iki saat bakınayım, kısalacak mı?

[Skate]

Şekli deforme ederek kısalıyor ama ben olduğu gibi korumayı tercih ettim. Amacım 200'ün altına indirmekti, becerince orada bıraktım. Nasılsa 170'lere inmeyecek. Ama bir iki byte kesin uçar. O kadarına açık kapı var bence.

[hades]

Şuraya iğrenç bir espri bırakayım ve cpu'lar crash etmeden uzaklaşayım.
Programlama dillerinde ABS var ama merkezi kilit, klima, airbag, ASR, EDB, ESP vs. yok.

[Skate]

ASR neden olmasın, ayıp ettin. İllegal diye yaptığın muameleye bak.

http://unusedino.de/ec64/technical/aay/c64/basr.htm

[eins]

İçi dolu yıldıza niyetlenip, içi boş bir yıldız elde etmek... Bira uzun ama değişik bir alternatif. Neyse şimdi içini doldurmaya bakalım...

Kod:

0 poke53265,59:poke53272,24:fori=6^5to4^7:pokei,0:next
1 c=~^8+40*(-8andy)+(yand7)+(xand56):pokec,peek(c)or2^(-xand7)
2 x=x+cos(a):y=y+sin(a):a=~*.4*(int(j/32)*2-int((j+16)/32)):print:j=j+1:goto1

[Skate]

Vaay, çok cool görünüyor. Aslında optimizasyonlar sırasında yanlışlıkla yakın bir görüntü elde etmiştim ama bugları olan bir görüntüydü. Sebebi de alan temizleme işleminin yanlış adımda yapılmasıydı. Aklıma gelmişti içi tam boş da çok güzel durur diye. Eline sağlık.

[eins]

Farklı bir method ile içi dolu yıldız. Bezdirebilir, Warp mode ile denenmeli.
En azından yıldızın temas halinde olduğu yerler temizleniyor.

Ham 196 byte...

Kod:

0 poke53265,59:poke53272,24:forj=99to3step-2:print:x=0:y=-j*.2:fori=jto6*j
1 a=~*.8*int(i/j-.5):x=x-cos(a):y=y+sin(a):c=9896+40*(yand-8)+(yand7)-(xand-8)
2 pokec,-(peek(c)or2^(xand7))*(j<64):nexti,j

[Skate]

Haha! Epic bir versiyon olmuş kardeşim. Sildirme kısmı da çizim kısmı da çok eğlenceli.

[Skate]

Yeni iki trick ile benimkini de 196 byte'a indirdim. Senin kodları da kısaltacak yeni trickimiz şu.

XeN=X*10^N

yani;

9e3=9000

92 yılından kalma bir basic kodumda buldum bunu. 92'de biliyormuşum, şimdi unutmuşum.

Kod:

0 m=63:poke53265,m:c=9e3
1 forx=-32to30:if(xand7)=0thenc=c-8:pokec,0
2 z=abs(x):pokec,peek(c)or2^(xand7)*-(z<landz>-morm<33andz<m):next:l=l+.3
3 m=m-1.3:poke53272,x:print:c=c+65-312*((cand7)=7):goto1