sonraki »

[Skate]

Screenshottaki versiyon üzerinden yürüyorum. Ekranın biraz fazlasını sildiriyor ama;

241 byte

Kod:

0 poke53265,59:poke53272,24:fori=6^5to5^6:pokei,0:next:print"{CLR}
1 fori=0to49:x=25+i/2or0:y=i:gosub2:x=50-x:gosub2:x=i:y=16:gosub2:y=y+i*.7:gosub2:x=50-i:gosub2:next:wait0,0
2 a=8192+40*(yand56)+(yand7)+(xand56):pokea,peek(a)or2^(7-xand7):return

[Skate]

240 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to5^6:pokei,0:next:print"{CLR}
1 fori=1tos:x=28+i/2or0:y=i:gosub2:x=s-x:gosub2:x=i:y=18:gosub2:y=y+i*.7:gosub2:x=s-i:gosub2:next:wait0,0
2 a=8512+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-xand7):return

[Skate]

239 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to5^6:pokei,0:next:print"{CLR}
1 fori=1tos:x=28+i/2:y=i:gosub2:x=s-x:gosub2:x=i:y=18:gosub2:y=y+i*.7:gosub2:x=s-i:gosub2:next:wait0,0
2 a=8512+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[Skate]

READY. çizim alanının üstüne gelince kötü görünüyor ama biraz aşağıya çizim yapıldığında sorun çıkarmadığı için çizimi aşağı aldım ve delimawi'nin de belirttiği gibi programı end ile sonlandırdım.

Hazır sildirmişken de tüm ekranı sildirdim.

235 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:print"{CLR}
1 fori=1tos:x=28+i/2:y=i:gosub2:x=s-x:gosub2:x=i:y=18:gosub2:y=y+i*.7:gosub2:x=s-i:gosub2:next:end
2 a=9792+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[Skate]

Hatta dirty trick diyebilirsiniz ancak ekranda çıkan renklerin ne olduğunun bir önemi var mı? Bence valid.

231 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:print"{CLR}
1 fori=1tos:x=28+i/2:y=i:gosub2:x=s-x:gosub2:x=i:y=18:gosub2:y=y+i*.7:gosub2:x=s-i:gosub2:next
2 a=9792+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[Skate]

Bir satıra bu kadar kod sığar mı derseniz petcat sığdırıyor.

230 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:fori=1tos:x=28+i/2:y=i:gosub1:x=s-x:gosub1:x=i:y=18:gosub1:y=y+i*.7:gosub1:x=s-i:gosub1:next:print"{CLR}
1 a=9792+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[maverick]

Hazır ustalarımız coştururken araya espri katayım dedim 

Kod:

0 ?"      *      "
1 ?"     ***     "
2 ?"*************"
3 ?" *********** "
4 ?"  *********  "
5 ?"   *******   "
6 ?"   *******   "
7 ?"  ***   ***  "
8 ?" **       ** "
9 ?"*           *"

Belki pokedir datadır sprite ile birşeyler yapılır ama kaç byte olur Allah bilir 

[Skate]

petcat'de PI (π) karakterinin karşılığını bulamadım. Source codelarına bile baktım ama sanırım desteklemiyor. Vice'da SHIFT+DELETE ile çıkan karakter. Aşağıdaki kodu petcat ile derledikten sonra Vice'da 2. satırdaki;

1 a=p^8...

olan yeri

1 a=π^8

şeklinde değiştirmeniz gerekiyor. Çalışan PRG ekte.

229 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:fori=1tos:x=28+i/2:y=i:gosub1:x=s-x:gosub1:x=i:y=18:gosub1:y=y+i*.7:gosub1:x=s-i:gosub1:next:print"{CLR}
1 a=p^8+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[Skate]

@hakankaptan: Soru ne yazık ki "Bitmap modunda" diye başlıyor.

[Skate]

PI karakterinin karşılığını buldum Tilde (~) imiş. Derlenebilir code

229 byte

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:fori=1tos:x=28+i/2:y=i:gosub1:x=s-x:gosub1:x=i:y=18:gosub1:y=y+i*.7:gosub1:x=s-i:gosub1:next:print"{CLR}
1 a=~^8+40*(yands)+(yand7)+(xands):pokea,peek(a)or2^(7-(xand7)):return

[eins]

Henüz tam optimize edemedim, belki yarın partide devam ederim. @skate nasıl oluyorda 80 karakterden uzun satırların var çözmedim. Bendeki tüm satırlar legal 80 karakterden kısa. Bu arada her kenarı eşit uzunlukta olan gerçek yıldız...

Bir de VICE da Pi işaretini bir türlü çıkartamadım. Koddaki yapılmamış pi optimizasyonlarını yaparak paste eden olursa şarlarım ona göre...
 
Doğrudan vice'a paste edilbilir 228 Byte. WARP moda alıp çalıştırmanızı tavsiye ederim, çok beklemeyin...

Kod:

0 s=56:t=25:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:forx=-ttot
1 l=sqr(x*x+64):n=atn(x/8):fora=0to4:b=n-31.4*a/t:q=-cos(b)*l-t:w=sin(b)*l+t
2 c=8192+40*(qands)+(qand7)+(wands):pokec,peek(c)or2^(7-(wand7)):print:nexta,x

[eins]

@skate, :print"{CLR} yerine döngü içinde sadece print daha efektif...

[Skate]

@delimawi: Nitpicking... Bazı garbage pixeller çıkıyor ya, bende de çıkıyordu, fixlemeye bir kaç byte kurban etmiştim.

[Skate]

Başka bir yöntem üzerinde çalışıyorum ama senin yöntemin 226 byte'a kadar inebiliyor. Biri, evet o PI olayı, diğeri ise POKE'un parametresinin 24 değil 25 olmasının bir şeyi değiştirmemesi. Ama bundan daha kısası yapılabileceği için dert etme, bu en kısa versiyon olmayacak. Ama uğraştığım yeni versiyon da zorluyor epey.

Kod:

0 s=56:t=25:poke53265,s:poke53272,t:fori=6^5to4^7:pokei,0:next:forx=-ttot
1 l=sqr(x*x+64):n=atn(x/8):fora=0to4:b=n-31.4*a/t:q=-cos(b)*l-t:w=sin(b)*l+t
2 c=~^8+40*(qands)+(qand7)+(wands):pokec,peek(c)or2^(7-(wand7)):print:nexta,x

[eins]

214 byte değişik bir yaklaşım. Daha optimize edilebilir.

Kod:

0 s=56:poke53265,s:poke53272,24:fori=6^5to4^7:pokei,0:next:y=21:forj=0to4
1 readq,w:fori=0to63:x=x+q:y=y+w:c=8192+40*(yands)+(yand7)+(xands):print
2 pokec,peek(c)or2^(7-(xand7)):nexti,j:data1,,-1,.7,.5,-1,.5,1,-1,-.7