Eve gelebilmiş olsam ben de daha uzun yazacaktım da gün boyu dışarıdaydım. Şimdi klavye başına oturdum.

Bu yarışma benim açımdan da son derece faydalı oldu. Herkes gibi ben de bir çok şey öğrendim. Özellikle 20-25 senedir kullanmadığım CBM Basic'e yeniden, hem de advanced seviyeden el atmak çok keyifli oldu.

Scene'in güzel tarafı bu zaten. Bu yarışma ruhuna sürekli sahip oluyorsunuz. Öyle bir şey ki başka birinin yarışma düzenlemesi ya da size meydan okuması da gerekmiyor. Bazen bir demo izlerken, bazen arabada cama vuran yağmurda gözünüz bir pattern belirlediği anda bilgisayar başına geçip bir demo efekti kodlayasınız geliyor. Hele ki siz efekti yaptıktan sonra biri o efekte cevaben bir kademe öteye taşırsa olayı o noktada eğlence başlıyor.

Son yıllarda scene'de aktivitem yerlerde sürünüyor. Ama ruh aynen durduğu için sürekli alttan alttan bir şeyler yapıyorum. Bu yarışma devam edecek olursa da her daim katılımım devam eder. Ama cbm basic de maşallah abaküsden hallice, uyuz etmiyor dersem yalan olur.

Ortada hırs mı var kardeşim? Berabere kalmaktan onur duyarım.

Günlerdir uğraşacak vakit bulamamıştım. Şimdi trigonometrik yöntemle bir deneme yaptım. Şu an için 113 byte'dayım. Farkı evrelerin küresel koordinat sistemine daha yakın çizilmesi. Ama tamamen legal bir formül değil, bu da çözünürlüğe özelleştirilmiş bir formül.

Şimdi eşim film izlemeye çağırıyor. Yarın yarışma sonuçlanmamış olursa son bir kez uğraşacağım üstünde. Ama başka yöntemle uğraşacağımı sanmıyorum. Bu da büyük ihtimalle 106 byte'ın altına inmez. Şimdiden tebrikler.

Kod:

0 forp=0to7:fory=-2to2:forx=-3.6to4:z=x/(4-abs(y))*sgn(~-p)
1 poke6^4+y*40+x,42-4*(z>1orz<cos(p*.8)):nextx,y,p:run

Bu arada 7 genişliği ok ise başka bir optimizasyonla birlikte 97 byte'a da düşüyor.

Kod:

0 c=p>7:fori=0to28
1 poke6^4-int(.5+2*cos(i/9))*40+(3-p-8*c)*sin(i/9),42-4*c:next:p=p+1and15:goto0

Demek istediğini anladım. Ben moon phase diye eclipse render ediyormuşum.

Henüz gridin köşelerini çizmiyor ve seninki gibi tam evreleri render etmiyor ama kast ettiğin şekilde render eden versiyon. Benim de bu gece bitirmem gereken bir iş var. Yarın kapışırız.

100 byte

Kod:

0 forp=0to15:c=p>7:fori=0to28
1 poke6^4-int(.5+2*cos(i/9))*40+(3.5-p-8*c)*sin(i/9),42-4*c:nexti,p:run

JS versiyonu:
http://jsfiddle.net/6abqd1wd/

. 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

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

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

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

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

JS versiyonu:

http://jsfiddle.net/opkrmhzk/

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

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

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

@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.