Bu sayfadaki yazılar
Sayfanın metni
Sayfa 28
Unpack komutlarını kullanarak bunları Bank'lara atabilirsin. Spack resimleri sıkıştırıp Bank'a atar. Kullanılışı; Spack Ekrno TO BankNo. Unpack ise Bank'taki resimleri ekrana açar. Kullanılışı; Unpack BankNo TO EkrNo. Yalnız, unutmaman gereken bir şey var; resimler için ayrılan Bank'lar, Chip Memory'ye yerleştirilir. Yani Bank genişlikleri arttıkça boş Chip Memory azalır. Ve şimdi UĞUR YILDIRIM'ın gönderdiklerinden bahsetmek istiyorum. Uğur bana EFEKT için 8 adet efekt göndermiş. Bunlardan ilki bu ay yayınlanıyor. Efektin ismini o vermiş, bende aynı isimle programa ekledim. Efektin mantığı gayet basit, fakat sonuç bence etkileyici. Rutinin yaptığı iş, resmin her satırının random itilmesinden ibaret. Kaç pixel itileceği random komutuyla belirlenmekte. Uğur, rutine baktığında bazı değişiklikler göreceksin. Bazı bug'ları hallettim ve parametrik hale getirdim. Ayrıca resmi sadece pozitif yönde itmişsin, artık negatif yönde de resim çekilmekte. Bulanık efektine en fazla kaç pixel iteceğini belirtmek için Bulanık Gadget'ına sağ Mouse butonu ile basın. Açılan ufak Window'da sizden 0 ile 99 arası bir sayı girmeniz beklenmekte. Girdiğiniz sayının 20 olduğunu kabul edersek resminiz -20 ile 20 arasında random itilecektir. Diğer Uğur Yıldırım efektlerine gelecek ay yer vereceğim, çünkü bazı bug'ların halledilmesi ve kullanıcı ara biriminin eklenmesi gerekiyor. Gönderdiğin rutinler için çok teşekkürler. Vee son bir mektuba daha cevap vermek istiyorum. Aslında mektup Amos köşesine değil, VEDAT HALLAÇ'ın hazırladığı MANYETİK PAKET'e gönderilmiş. İmza, Burak - Bora DAYIOĞLU. Mektubun yazılma sebebi, 4. sayıda yayınlanan ufak ilanımız. İlanın içeriğini hatırlatmak istiyorum. İlanda, Amiga ile bir şeyler üreten tüm kullanıcılara seslenilmekte. Bu kullanıcılar, bizimle irtibata geçip, kendi ürünlerini gönderdikleri takdirde, kendilerinin ve ürünlerinin dergide tanıtılacağından bahsedilmekte. Böyle bir girişimde bulunmamızın tek sebebi de, ilanda da yazıldığı gibi Türkiye Amiga sektörünü hareketlendirmek. Mektubu yazan arkadaşlarımız, yazdıkları Amos programlarını da göndermişler. Ve Manyetik Paket'te yayınlanmasını istemişler. Kendilerine teşekkürler. Fakat, bizce karşılanması pek mantıklı olmayan bir de istekleri var. Her ay göndereceklerini taahhüt ettikleri Amos programları karşılığı, kendilerini ücret almadan dergiye ve Manyetik Paket'e abone etmemizi istemişler. Biz dergi olarak ilanda da belirtildiği gibi Amiga sektörünü canlandırmaya çalışıyoruz, bu yüzden sizden ürünlerinizi göndermenizi istedik, ve gönderilen ürünler bizim tarafımızdan herhangi bir amaçla kullanılmamakta. Bu sebepten dolayı arkadaşlarımızın gönderdikleri programlar karşılığında bizden ücret talep etmeleri bizce karşılanması mantıklı olmayan bir istek. Kaldı ki Manyetik Paket'te şimdiye kadar yayınlanan programlara dikkat ederseniz, tamamı Public Domain veya ShareWare'dir. Yani programcılar tarafından hiçbir ücret talep edilmeden veya programı beğenen ve kullanan kişilerden az bir ücret talep edilerek yazılmış programlardır. Manyetik Paket'te yayınlanan programlarınız, adınızı Amiga piyasasında duyurmanın yanında diğer Amiga kullanıcılarına da yardımcı olma amacı gütmelidir. Bizim de MANYETİK PAKET'i çıkarma amacımız temelde budur. Eğer ürettiğiniz programın yararlı olacağına inanıyor ve çalışmalarınızın devamı için kullanıcıdan ücret talep etmek istiyorsanız, program dökümanında ya da program içinde ürününüzün SHAREWARE olduğunu vurgulayın. Bunun dışında bizim dergi olarak MANYETİK PAKET'e gönderdiğiniz programlara kısa vadede herhangi bir ücret ödememiz mümkün değildir. Uff! Bütün mektuplara cevap verdim, mutluyum. Sizden daha fazla mektup bekliyorum. Programda yapılan değişiklikleri yazı sonundan bulabilirsiniz. Manyetik Paket içinde ise programın tamamı iş bulan akla. Ve bu aylık bu kadar. Gelecek ay görüşmek üzere hoşçakalın. TOLGA KAHRAMAN
INITPROG
MAIN
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 29
Procedure MAIN Limit Mouse 128,243 To 448,308 CMDSCRBCK-Ü Do PRESKEY-Asc(Inkey$) RAWKEYS-Key Shift - MOUSEKEY-Mouse Key lif MOÜSEKEY>0 If CMDSCRBCK-İ CMDSCRBCK-0 : Sereen Show O Repeat Until Möuse Key-0 Else MX—X Screen(X Mouse) : Screen(Y Mouse) BASILAN—0 For K-l To IKONSAY I£ and MY>-IKONT(K,2) I£ MX<—IKONB(K,İ) and MY<-IKONB(K,2) Exit End If End If Next If BASILAN>O İf Left$(İKÖNTEX$S(BASILAN),1)<>"&" SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONB(K,2), *© False, İKONTEX$ (K) , IKONCOL(K) |
Repeat Until Mouse Key-0 End If *
If BASILAN-2 Limit Mouse : LODIFF Limit Mouse 128,243 To 448,308 Screen Tö Front 0 : Screen 0 SHADEBOX(IKONT(K,1),IKONT(K,2), '& IKONB(K,1),IKONB(K,2), True, IKONTEX$ (K) , IKONCOL(K) | End If If BASILAN-3 Limit Mouse SAVIFE Limit Mouse 128,243 To 448,308 Söreen To Front 0 : Sereen O SHADEBOX(İKONT(K,1),İIKONT(K,2), IKONBİK,1);IKONB(K,2), True, İKONTEX$ (K) , IKONCOL (K) | End 1f I£ BASILAN-8 BULANIKİ| MOUSEKEY) SHADEBOX(IKONTİ(İK,1),IKONT(K,2), İKONB(K,1),İIKONBİK,2), '© True, IKONTEXŞ (K) , IKONCOL (K) | End If If BASILAN-I10 CMDSCRBCK—-İ SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONB(K,2), '© True, IKONTEXŞ$ (K) , IKONCOL(K) | Screen Hide 0 End If If IKONTEX$ (BASILAN) -"Undoa" UNDO SHADEBOX(IKONT(K,1),IKONT(K,2), '© IKONBİK,1),İIKONB(K,2), True, İKONTEXŞ$ (K) , IKONCOL(K) | End If I£ Fade 3 : Wait 45 : Exit End If End If End If End If ARX—İ : If RAWKEYS-LAMIGA ARX—A : End If If RAWKEYS-RAMIGA ARX—XDISP : ARY-YDISP End If İf PRESKEY-UARRON Add SCROFF'Y, -ARY I£ SCROFEFY>O Screen Offset SCROFEY
Else Sereen Offset 4,SCROFFX, SCROFEY End If End If
If PRESKEY-DARROW Add I£ SCROFFY<Screen Height (4) -YDISP
Sereen Offset SCROFEY Else SCRÖFFY-Screen Height (4) -YDISP Offset 4,SCROFFX,SCROFEY End If End If If PRESKEY-LARROW Add SCROFFX,-ARX If SCROFFX>O Screen Offset 4,SCROFFX, SCROFEY
Else Screen Offset 4,SCROFFX, SCROFEY End İf End If
If PRESKEY-RARROW Add SCROFFX,ARX If SCROFFX<Screen Width(4) -XDISP Screen Offset â,SCROFFX, SCROFFY Else SCROFFX-Screen Width (4) -XDISP Screen Offset 4,SCROFFX, SCROFEY End If End If Loop Screen Close O End Proc Procedure INITPROG 'k VAR: PIXKAY-I10 '* CONTS: RARROW-28 UARROWS30 DARROW—31 LAMIGA-6A RAMIGA-I28 * Degree Sereen Open 0,640,70,16,Hires Sereen Display 0,,244,, Palette $AĞA,0,0,0,0,0,0,0,0, $EFF Curs Off : Flash Off Ink 1 Paint 0,0 Ink 3 : Set Text 6 Text 5,60,"Efekt 1.00 Amiga Dergisi 1993“ Set Text 0 : IİNİTİKON : BASIKON End Proc Procedure INITIKON IKONSAY-İ1 For K-1 To IKONSAY Read IKONT(K,1),IKONT(K,2) Read İKONB(K,1),IKONB(K,2) Read (K) , IKONCOL (K) Next Data Data 6,17,106,30,"Load Iff",5 Data 6,32,106,45,"Save If£f",5 Data 118,2,184,15,"&Sinüs",15 Data 118,17,184,30,"X",4 Data 118,32,184,45,"Y",4 Data Dâta 196,17,265,30,"Bulanik", 5 Data 565,2,615,45,"Ouit",15 Data 625,2,635,6,"",5 Data End Proc Procedure BASIKON For K-l To IKONSAY If Left$(İKONTEX$(K),1)-"$" SHADEBOX(IKONT(K,1), IKONT(K,2), İKONB(K,1),IKONBİK,2), e , IKONCOL (K) | Else SHADEBOX(IKONT(K,1),IKONTİK,2), İKONBİK,İ),İKONBİK,2), True, IKONTEXŞ (K) , IKONCOL (K) | End If Next End Proc Procedure LODIFF If Len(FİLEŞ)>0 For K-Len(FILE$) To 1 Step If Mid$(FILEŞ,K,1)-"/" Exit End If Next C-lhen (FİILEŞ) -K K-KtI1 FIİLEŞ$—Mid$(FILEŞ,K,C)
NOT: Program dökümünde kullanılan «er işareti, 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.