Sayfa 25

C000) çalıştırdığınızda dalganın niye yukarı kayması gerektiğini anlayacaksınız. Bu işlemi yapan rutin de aşağıda yer almaktadır.

— PROGRAM>2 ., CO50 Ldy $C110 ., €055 Lda XY Sta $coco,x — Inx #$50 Bne $C055 Inc $C110; sayaç

Gördüğünüz gibi oldukça basit programlar kullanarak çok hoş bir efekt elde etmemiz mümkün. Fakat bu rutinde asıl göz alıcı nokta, sinüslerin hoş bir şekilde dizilmesi (benim yaptığım gibi değil) olacaktır. Bunu yapmak için belli birkaç adrese uzunlukları, 8, 16, 24, 32, vb. olan sinüsler yerleştirin (benim kullandığım programda 16 ve 32 baytlık sinüsler var sadece). Daha sonra bu sinüslerin tamamını, yarısını, çeyreğini, vb. değişik kombinasyonlarla (Birinin yarısını diğerinin ikinci yarısıyla birleştirerek bile olabilir) asıl sinüs tablosuna dizin. 0'dan 7'ye kadar değerler alabilecek bu sinüs baytlarını multicolor (çok renkli) ekran modu için $D0'la, normal (iki renkli) ekran modu için $C0'la ORA'layın (ya da değerlerine $C0 veya $D0'ı ekleyin). Programın tablo uzunluğunu doldurunca da bu halini saklayın (kasede veya diske) ve daha sonra programınızı çalıştırın. Her tür intro'da kullanılabilecek hoş bir efekt elde etmiş olacaksınız. Şimdi de size bir soru... Eğer logonun ardışık satırlarının ayrı bir sinüs ile dalgalanmasını isterseniz (1. piksel sinüsün en tepesindeyken ikinci en altında olacak şekilde mesela... Fakat hemen sonra 1. piksel maksimumun bir altına, 2.'si ise minimumun bir üstüne çıkmalı, ya da daha açıkçası 1. piksel minimuma 2. ise maksimumun bir altı olmamalı) bu programı kullanabilir misiniz? Kullanabilirseniz nerelerini değiştirmeniz gereklidir? Eh, bu aylık bu kadar. Gelecek ay görüşmek üzere hoşçakalın.

|

| |