Sayfa 21

Screen Copy'nin 2. kullanım şekli ise: Screen Copy to Ekr1 nolu ekranın tamamını Ekr2 nolu ekrana kopyalar. Evet, Screen Copy bu kadar. Şimdi ikinci program. Program Colour ve Screen Copy komutlarının ortak kullanıldığı rutinlerden oluşmakta. Yazı içindeki resimler ve XWAVE ve YWAVE procedure'lerinin ortak kullanımı ile elde edilmekte.

XWAVE ve rutinleri birbirine benzer procedure'ler. Proc. parametresi efektin yapılacağı ekranın numarası olarak verilmelidir. Proc.'lar 7 nolu ekranı geçici olarak kullanır. Bu yüzden 7 nolu ekranı parametre olarak vermemeniz faydalı olacaktır. Proc. içindeki hesaplamadan da bahsetmek istiyorum. XWAVE fonksiyonu For X ile başlayan döngüde ekran kopyalama ve dalgalandırma işlemini gerçekleştirir. G(15*Sin) satırı hesaplama işleminin formülüdür. Bu formül işlem gören satırın ne kadar öteleneceğini hesaplar. Örnek olarak X değeri yerine 319'u verirsek (Ki, 319 ekranın genişliğidir. Ekran 0'dan başlar) sonuç 8, 39'u verirsek sonuç yaklaşık 23 olacaktır. Bu da ekranın her bir satırının en fazla 23 piksel öteleneceği anlamına gelir. Dalgalandırma işleminde K değeri satır nosu olduğundan her satır farklı ötelenmelere maruz kalacaktır. Ama sonuçta ekran bir sinüs eğrisine uygun olarak dalgalandırılacaktır. Proc.'unu açıklamak istemiyorum. Çünkü hemen hemen aynı. Evet, bu aylık bu kadar. Her zamanki gibi programlar Manyetik Paket içinde resimleriyle birlikte yer almakta. Manyetik Paket'e abone olmayanlar için duyuru; 2. programın 1. efekti diskten herhangi bir dosya okumuyor. Bu yüzden programın 1. efektini yazıp procedure'lere geçerseniz daha iyi olur. Gelecek ay yeni programlar ve komutlarda görüşmek üzere. Mektuplarınızı bekliyorum.

TOLGA KAHRAMAN

1.PROGRAM

Filter *

3.00 '* AMIGA DERGİSİ 1993 * Jnpack 6 To 1 : Unpack 6 To 0

Hide on LETL(0, Get Palette 1

1

1,31) MOUSKEY : Get Palette 1 CLFIL(0,'r',1,12 MOUSKEY : Get Palette MOUSKEY ; Get Palette 1 MOUSKEY : Get Palette : CLEIL [O, 'bw', 1,12] CLFIL IO, 'NEG', 13,31] Show On

SLETİ. (SOR, RGRS, ERENK) “A Ser 3: edilecek ekran nosu * Rgb$ : Filtre modu * . R Kirmizi * yesil * B Mavi Bu Siyah Beyaz — * NEG Negatif * Brenk: Filtrelemenin baslama rengi * Rrank: Filtrelemenin bitiş rengi — *

Screen SCR : RGB;

-Upper$ (RGB$) : If RGB$S'R' Then If RGBS='G' Then H=16 : Rem** GREEN FILTEF If RGBS='B' Then H=1 : Rem** BLUE FILTER For K-BRENK To ERENK C$‚¿Hex$ (Colour (K) , 3 G-Val (*$"+Mid$ (C$, 3,1)) B-Val ("S"+Right$ (C$,1); C- (R+G+B) /3

Rem*t RED FİLTER Ramtt GREEN FİLTER 1 Remtt BLUE FİLTER

Rem Siyah beyaz Colour K,M End 1£ End 1£ Next Procedure MOUSKEY Repeat : Üntil Mouse Kel Repeat : Üntil Mouse Ke; End Proc