Sayfa 34

Merhaba! Amos Pro Eylül ayında yine karşınızda. Geçen sayı başladığımız programa bu ay devam ediyoruz. Hatırlarsanız program IFF resimler üzerinde efektler yapacaktı. Hâlâ sizden fikir ve rutin bekliyorum. Yazımın sonunda geçen aydan bu yana program üzerinde yaptığım değişiklikleri bulacaksınız. Bazı procedure'ler değişti. Yeni bazı procedure'ler ekledim. Programın girişi ve değişkenleri yenilendi ve sanırım daha sağlam oldu. Programla ilgili daha fazla detaya girmeden önce Kerim ACAR'ın mektubunu cevaplamak istiyorum. İlk olarak şunu belirteyim, yazdığınız mektuplar bazen elimize geçmiyor ya da çok geç ulaşıyor. Bu yüzden mektup yazdığınız halde cevap alamazsanız bize kırılmayın. Çünkü elimize geçen her mektubu mutlaka okuyup cevaplandırıyoruz. Kerim de bana 2. sayıdan itibaren mektup yazdığını ama cevap alamadığını, bu yüzden kırgın olduğunu yazmış. Bu elime geçen ilk Kerim ACAR mektubudur. Sanırım PTT'nin gazabına uğradın Kerim, üzgünüm. Evet şimdi Kerim'in sorunları. Önce neden yazdığın programları Amos diskine kaydediyorsun anlayamadım. Sanırım Amos diski yerine, taktığın herhangi bir diski nasıl tanıtacağını bilmiyorsun. Eğer Amos 1.35 veya daha düşük bir versiyon kullanıyorsan disk işlemleri sırasında ekrana bir window çıkıyor (File Requester). Bu window'un sol üst köşesindeki daireye mouse'un sağ tuşuyla bas. Window'da Device'lar listelenecektir. Amos diskini çıkartıp yerine istediğin bir diski tak ve Df0:'ı seç. Artık bu diske programlarını saklayabilirsin. Eğer Amos Pro kullanıyorsan zaten File Requester window'unda Devices butonu var. Aynı işlemi bu buton sayesinde yapabilirsin. Eski programlarını Amos diskinden başka bir diske almak içinde Disk Master gibi bir program kullan. Dergi kapağına gelince. Kapakları beğendiğin için teşekkürler. Bence de kapaklarımız mükemmel, zaten bizim dergi mükemmel, biz mükemmel insanlarız. Ama açıkçası bu derginin en mükemmel yanı ben ve Amos Pro. Neyse bunları zaten sen ve tüm dünya biliyor. Soruna gelince kapaklarımız Imagine temel olmak üzere birçok programın yardımıyla hazırlanmakta. DPaint'ten Vista Pro'ya kadar pek çok program. Kullanılan makine ise hızlandırılmış bir Amiga 2000. Hafıza ise 9 Mbyte. Yaptığın programları diske atıp ilk olarak onun çalışmasını istiyorsan, diskine bir S directory'si aç ve Startup-Sequence dosyasının ilk satırına programının ismini yaz. RSDM ile ilgili soruna ise bir cevap veremeyeceğim çünkü şimdiye kadar hiç kullanmadım. Ve son soru. Üniversite mezunuyum. Evli değilim. Hiç çocuğum yok. Demokrasi'ye inanırım. 72 İstanbul doğumluyum. Şu anda herhangi bir kamu kuruluşunda çalışmıyorum. Alo Amiga yazarından daha uzun boyum ve saçım var. Ondan daha yakışıklıyım, daha fazla kitap okudum ve daha güçlü dişlerim var. Hepsi bu. Evet şimdi yeniden programa dönüyoruz. Geçen ay yayınlanan versiyon ekrandan daha geniş resimler yüklediğinde sadece ekran boyundaki bölümünü gösterebiliyordu. Bu ay bu sorunu hallettim. Ok tuşları yardımıyla ekranı kaydırabiliyorsunuz. Sol Amiga ve ok tuşları hızlı kaymaya, Sağ Amiga ve ok tuşları ise bir ekranlık atlama yapmaya yarıyor. Sadece ok tuşlarının kullanımıyla ise ekranı birer piksel kaydırırsınız.

Programın son üç procedure'ü ise henüz programa eklenmeyen ekran efektleri. Gelecek aya hazırlık.

Program içindeki yeni procedure'lerden en fazla yabancılık çekebileceğiniz procedure sanırım SCRES. Procedure aktif ekranın çözünürlük modunu (Lowres, Hires, Lowres Lace, Hires Lace) öğrenmek için kullanılıyor. Bunun için kullanılan yöntem ise şöyle;

Screen Base komutuyla Screen Structure'ının adresi öğrenilir. Bu structure içinde ekran modu, renk adedi, çözünürlük, ekran display değerleri yer almaktadır. Deek komutuyla bu adresteki değerler alınır ve Btst komutuyla bu adres içindeki belirli bitler kontrol edilir. Bu bitleri sanırım rutin içinden çıkarabilirsiniz. Program içindeki ScreenRes$ değişkeni yüklediğiniz ekranın modunu içinde tutar. Lace değişkeni de ekran Lace ise 1 değilse 0 değerini alır. Program içinde şimdiye kadar kullanmadığım diğer bir komutsa Key Shift. Komutun kullanımını program içinden öğrenebilirsiniz. Komutun görevi, Shift, Alt, Amiga ve Ctrl tuşlarından herhangi birine basılıp basılmadığını kontrol etmek.

Evet bu ay bu kadar, Gelecek ay görüşmek üzere.

TOLGA KAHRAMAN

Efekt 1.00 'k Tolga Kahraman Amiga Dergisi 1993 * Dim IKONT(10,2),IKONB(10,2), (10) Dim IKONCOL(10) Global CRTL, LAMIGA, RAMIGA Global UARROW, LARRONW, RARROW Global AXIŞAX2,AYİ,AY2,FILEŞ,IKONT(), İKONB(),1KONTEXŞ () IKÖNCOL () , İKONSAY, SCROFFX, e SCROFFY, Global XDISP,YDISP

Global

Degiskenler

Uarrow,Darrow Rarrow lamiga,ramigğa

Yön tuşları

Alansec procedure'den geri dönen değerler kullanıcının resim üzerinde seçtiği alanın koordinatları File$ş Seçilen resim dosyasının ismi IkonT();IkonBi) Ikon dataları IkonSay Toplam ikon sayısı Sereen'e ait offsetler SerRes$ Sereen resolution Lace 1 Laced, 0 Nonlaced

Ydisp,XDisp Ekranin display edilen alanı

MAİN

Procedure MAIN

MAİN LOOP *

Limit Mouse 128,243 To 448,308 Do PRESKEY-Asc(Inkey$) RAWKEYS-Key Shift İf Mouse Keysi Sereen(X Mouse) MY-Y Secreen(Y Mouse) BASILAN—-0I For K-İ To IKONSAY

NOT: Program dökümünde kullanılan « işaret, sütunlarımızın darlığı yüzünden kesilen satırları göstermektedir. Lütfen bu karakterin bulunduğu satırlarda return veya enter'a basmadan altındaki satırı yazmaya devam edin.