sonraki »

[eins]

Ben de bunun üzerinde çalışıyordum, henüz optimize edemedim. 152 bytelarda henüz çalışan hali...

Kod:

0 deffnl(q)=(8-2*q+a*q-5*a)*(q>4)*(q<8):forp=0to7:fory=-2to2:a=abs(y):forx=0to7
1 poke6^4+x+y*40,32+(x>=a-fnl(p))*(x<a-fnl(p+4)-(8-2*a)*(p>3)):nextx,y,p:run

[eins]

@skate, abi sen de çok bozmuşsun ama evreleri. Ben tam oturtana kadar 2 saat uğraştım formül üzerinde...

[Skate]

İlk versiyon evrelerden fazla frame çiziyor ve evreleri tam göstermiyordu. Bu versiyon daha uzun ama tam olması gerektiği gibi çiziyor evreleri. Doğrusu bu.

@delimawi: iyi coder lafının üstüne gelir.

115 byte

Kod:

0 forp=.15to8:fory=-2to2:l=7-y*y:forx=-4to3:z=x+p/.8+10.35*(p>5)
1 poke6^4+y*40+x,46+4*(x*x<landz*z>l):nextx,y,p:run

[Skate]

@skate, abi sen de çok bozmuşsun ama evreleri. Ben tam oturtana kadar 2 saat uğraştım formül üzerinde...

Boşluk üzerine ünlem çizdir, sonra benim evrelere laf at.

Edit: Bir de hatırlatma, sağdan sola doğru olacak geçiş. Fark ettiğinden değil de arada muhabbeti geçti, @wizofwor başta tersten vermiş evreleri.

[Skate]

Düşük çözünürlükte tam anlaşılmıyor, zevki çıkmıyor. Ekteki versiyonu warp speed'de deneyin bakın.

[Skate]

Dünden beri çok yoğun çalışıyorum, kafam durdu. Bir süredir boş boş bakıyorum koda. Son geldiğim nokta bu.

114 byte

Kod:

0 forp=.15to9:fory=-2to2:l=7-y*y:forx=-4to3:z=x+p/.8+11.6*(p>5)
1 poke6^4+y*40+x,46+4*(x*x<landz*z>l):nextx,y,p:run

[Skate]

112 byte

Kod:

0 forp=0to7:fory=-2to2:l=8-y*y:forx=-4to3:z=x+p/.7+11.5*(p>4)
1 poke6^4+y*40+x,46+4*(x*x<landz*z>l):nextx,y,p:run

[Skate]

JS versiyonu:

http://jsfiddle.net/opkrmhzk/

[Skate]

Umarım @wizofwor'un yapmayı planladığı şey bu değildir ve spoiler olmuyordur ama eldeki iki rutini ister istemez birleştiriyor insan.

Kod:

0 poke53265,59:poke53272,24:poke53280,2:fori=4^5to2023:pokei,18:next
1 fori=6^5to4^7:pokei,0:next:fory=0to103:w=y-53:l=2401-w*w:forx=-48to47:z=x-13
2 poke9976+y+(yor7)*39+(xor7),b:b=255andb*2-(x*x<landz*z>l-701):nextx,y
3 fory=0to36:forx=-24to23:poke11312+y+(yor7)*39+(xor7),b:z=abs(x*.7)
4 b=255andb*2-(z<y/4andz>y-28orz<28-yandy>13):nextx,y:cont

[eins]

Ohooo burda neler olmuş böyle, çıkarken ışıkları da çık bırakmışsın...
Tebrikler, aslında hep wizofwor'un suçu, cuma soru gelmeyince haftasonu boş geçti, vakit ayıramıyorum fazla, ama bugün bakacağım, uçmuş burası...

[Skate]

@delimawi: sen olmayınca kendimle yarışa yarışa deli gibi hissediyorum.

[eins]

Hala daha ilgilenemedim. Kismetse gece yarisi artik....

[Skate]

110 byte

Kod:

0 forp=0to8:fory=-2to2:l=7-y*y:forx=-4to3:z=x+p/.75+12*(p>4)
1 poke6^4+y*40+x,42-4*(x*x>lorz*z<l):nextx,y,p:run

[Skate]

108 byte

Kod:

0 forp=0to8:fory=-2to2:l=7-y*y:forx=-4to3
1 poke6^4+y*40+x,42-4*(x*x>lor(x+p/.75+12*(p>4))^2<l):nextx,y,p:run

[Skate]

. karakterini koruyarak * yerine @ ile şu versiyon var 107 byte'a düşen. şu an için daha fazla optimizasyon bulamadım. 107 byte'ın altına inen diğer versiyonlar ya çizim karakterlerinden ödün veriyor ya da ay'ın evrelerini güzel ifade edemiyorlar. Güzel ifade edemeyen versiyonlar da teoride legal, sorun çözünürlüğün çok düşük olup küsüratlardan dolayı silinen karakterlerin göze kötü görünmesi. Yoksa gerçekten ayın önünden gölge geçiyor.

Son olarak evreler yeni ay yerine dolunaydan başlayacak olsaydı epey bir byte kurtarırdık.

Kod:

0 forp=0to8:fory=-2to2:l=7-y*y:forx=-4to3
1 poke6^4+y*40+x,-46*(x*x>lor(x+p/.75+12*(p>4))^2<l):nextx,y,p:run

Edit: Dolunaydan başlayan versiyonu da paylaşayım. 99 byte

Kod:

0 forp=-4to3:fory=-2to2:l=7-y*y:forx=-4to3
1 poke6^4+y*40+x,-46*(x*x>lor(x+p/.75)^2<l):nextx,y,p:run