sonraki »

[eins]

Öncelikle 151 byte

Kod:

2 fory=0to80:print:forx=-48to47:g=yand7:poke9e3-g*39+y*40+(xand-8),d:w=abs(x/2)
3 d=255andd+d-(w*4<yandw>y-48ory>24andw<48-y):poke53265+g,59-g*5:nextx,y

Sonsuz döngülü olsun dersek, ki ben pek sevmiyorum ama olsun, 149 byte

Kod:

2 y=y+1:print:forx=-48to47:g=yand7:poke9e3-g*39+y*40+(xand-8),d:w=abs(x/2)
3 d=255andd+d-(w*4<yandw>y-48ory>24andw<48-y):poke53265+g,59-g*5:next:goto2

Aspect ratio biraz bozulabilir dersek 147 byte

Kod:

2 y=y+1:print:forx=-48to47:g=yand7:poke9e3-g*39+y*40+(xand-8),d:w=abs(x)
3 d=255andd+d-(w*4<yandw>y-60ory>30andw<60-y):poke53265+g,59-g*5:next:goto2

Bence hala potansiyel var bu soruda, bazı yerleri çok üstün körü geçtim. Örneğin poke53265+g,59-g*5 buna daha optmize birşey bulunabilir vb...

[eins]

Dolusu 170'in altına inmez diyorduk bu soru için, 20 küsür byte nasıl da uçtu 3-5 günde...

[Skate]

147 ha. Adım adım, ben 153'deyim...

153 byte

Kod:

0 print:forc=-4to5:poke54100+c,47-c*4:poke9e3+y+(yand-8)*39+c*8,b:b=0:fori=0to7
1 z=abs(c+i/8)*5:b=b+b-(z<y/4andz>y-40orz<40-yandy>20):nexti,c:y=y+1:goto0

[eins]

Abi sonunda aynı kodda buluşacağız

[Skate]

Bu arada benimki de biraz deforme oldu tabii aşırı optimizasyondan ancak tam 1'in 2'nin katları gibi gitmemesine uğraşıyorum. Hep bir eğim var. Slope'lar küsüratlı ilerliyor. Yoksa ben de bir kaç byte uçurabilirim.

Edit: Sen bana başta farklı bir yöntemle render ettiğini söylemiştin (tersten şeklinde) ama aslında benim render yöntemim de aynıydı. Sadece bit bit ilerliyordu. Aynı kodda buluşmamız doğaldır.

[eins]

Senin yıldız daha güzel. Ben işin başında, yanımda bilgiayar yokken başladım, kareli kağıda çizdim. (w*4<yandw>y-60ory>30andw<60-y) formülünü kağıt üzerinde çıkardım. Optimizasyonlar hep onun üzerinden gitti. Aslında bu formül ve ifade ettiği yıldız ideal yıldız değil, o an için karaladağım birşeydi. Belki ideal olsa daha kolay optimize olurdu yada olamayabilirdi...



Bu arada tam detayına bakmadım ama senin yıldız formülün sanırım daha kısa. 

deli : (w*4<yandw>y-60ory>30andw<60-y)
Skate: (z<y/3andz>-morz<mand32>m)

[eins]

Edit: Sen bana başta farklı bir yöntemle render ettiğini söylemiştin (tersten şeklinde) ama aslında benim render yöntemim de aynıydı. Sadece bit bit ilerliyordu. Aynı kodda buluşmamız doğaldır.

Ben son yöntemde iki yöntemi mixledim aslında. İlk başta x,y üzerinden gidip adresi hesaplıyordum. Sonra adres üzerinden gidip x ve y yi bulduğum bir versiyon yaptım. Sonra her 8 bit için x in bir anlamı olmadığını farkettim zira byte byte yazmak daha efektif oluyordu, son olarak yani bu gece paste ettiğim kodlarda gene x ve y üzerinden giden yönteme döndüm ama bir farkla. Her 8 bir dolunca data değişkenini sıfırlamamak için shift register gibi birşey yaptım. d=0: dan kurtuldum ama 255and geldi bu sefer. Olsun gene de her bir satırı bir döngüde yapıyor olmak adres hesabını kolaylaştırdı... 

[Simon (Özay Turay)]

yok artık. Bu gidişle 100 byte'ın altına inecek Ellerinize sağlık, zevkle takip ediyorum.

Retro fütüristik aşık atışmasına döndü resmen. Ben de büyük zevkle takip ediyorum.

[Skate]

Tek loop'a indirince bende de sonuç şimdilik şöyle. Bonus spritelarımız var, efekte tasarım da gelmeye başladı. :p

Düzgün şekil

147 byte

Kod:

0 print:forc=-32to30:poke53242+c,121-3*c:poke9e3+y+(yand-8)*39+(cand-8),b
1 z=abs(c*.7):b=255andb+b-(z<y/4andz>y-40orz<40-yandy>20):next:y=y+1:goto0

Bozuk şekil:

144 byte

Kod:

0 print:forc=-32to30:poke53242+c,121-3*c:poke9e3+y+(yand-8)*39+(cand-8),b
1 z=abs(c):b=255andb+b-(z<y/4andz>y-40orz<40-yandy>20):next:y=y+1:goto0

Edit: Satırları eşit dağıtmamışım, 80 karakteri geçiyordu ilk satır, onu düzenledim.

[Skate]

Bu arada şimdi senin rutininle kıyasladım (ki elbette ki tek loop'a indirirken senin yöntemlerini kullanmıştım, bahsettiğim geri kalan kısmı). Benim parantez içi de dönüp dolaşıp seninkine dönmüş bir bakıma. Ancak plot rutinlerimiz farklı hala. Oradan bir kaç byte fark ediyor.

[Skate]

Proper 146 byte (şekilsiz 143)

Kod:

0 print:forc=-32to31:poke53242+c,121-3*c:poke8991+y+(yand-8)*39-(cor7),b
1 z=abs(c*.7):b=b/2or-128*(z<y/4andz>y-40orz<40-yandy>20):next:y=y+1:goto0

Bu kısım eğlencelik, yoksa diğeriyle aynı. Optimizasyon plot rutininde.

Kod:

b/2or-128*
255andb*2-

[Skate]

Proper 144, diğerini -3 byte olarak hesaplayın işte

Kod:

0 print:forc=-32to31:poke53242+c,121-3*c:poke9038+y+(yor7)*39-(cor7),b
1 z=abs(c*.7):b=b/2or-128*(z<y/4andz>y-40orz<40-yandy>20):next:y=y+1:goto0

[Skate]

Proper 143 byte

Kod:

0 print:forc=-32to31:poke53242+c,121-3*c:poke9e3+y+(yor7)*39+(cor7),b
1 z=abs(c*.7):b=255andb*2-(z<y/4andz>y-40orz<40-yandy>20):next:y=y+1:goto0

[eins]

Aslında görmüşsündür benim kodda g değişkenine ihtiyaç yoktu. Spritelar ve ekran titreşimleri çıkmasın diye eklemiştim. Yoksa birkaç byte daha kısalıyor...

Bu arada sonunda kod 0 sys"uucgen cizen kernal rutini" şeklinde 10 byte a sığacak.

[Skate]

Spritelar hariç yazan yeri göremedim.

Ekranın geri kalanında garbadge data olabilir..