Sayfa 48

Box XS2,YS2 To X2,Y2 Box XS2,YS2 To X2,Y2 Until Mouse Click=l DX2=Abs(XS2-X2) DY2=Abs(YS2-Y2) Zoom 0,XS1,YS1,XS1+DX1,YS1,DY1 To 1 ,XS2,YS2,XS2+DX2,YS2+DY2 Repeat For 1=0 To 1 Screen To Front I Wait 50 Next I Until Mouse Click=l

Şu ana kadar bir sürü ekran komutu gördük. Fakat bunların hiçbiri, ekran renklerine direkt olarak kumanda etmiyordu. Gelin şimdi AMOS dünyamızı biraz daha renklendirelim ve ekran renklerinin ayarlanmasına geçelim.

Daha önce 'colour' komutunu görmüştük. Şimdi ilk olarak daha kuvvetli bir komut olan 'palette' komutunu göreceğiz. Bunu sizi bir sürü satırı tekrarlamak zahmetinden kurtaracak olan 'Default palette' ve 'Get palette' komutları izleyecek.

KOMUT: Palette KULLANILIŞ: palette renk listesi 'colour' komutu, teker teker renkleri ayarlamak için kullanılıyordu, 'palette' ise, bir ekranda kullanılan renklerin hepsini veya bir kısmını tek bir seferde ayarlamak içindir. Aşağıdaki örnek satırlarda bunu daha iyi anlayabilirsiniz:

Palette $ABC,$FFF,$B08 ilk üç rengi set eder. Palette $AAA,$BCC,$007,$011 ise '0,1,5' ve '7' numaralı renkleri değiştirir. Diğerleri aynı kalır.

KOMUT: Default palette KULLANILIŞ: Default palette renk listesi Eğer birden fazla ekran açacaksanız ve bunların hepsinin aynı renklere sahip olmalarını arzu ediyorsanız, bunu 'default palette' komutu ile gerçekleştirebilirsiniz. Kullanımı az önceki gibidir. Farkı fiyatı değildir, yaptığı iştir. Bu komutu kullandıktan sonra açacağınız bütün ekranlar aynı renklere sahip olur.

KOMUT: Get palette KULLANILIŞ: Get palette n[,maske] Bu komut sayesinde bir ekranın renklerini diğer bir ekranda da kullanabilirsiniz. İsteğe bağlı olarak tanımlayabileceğiniz bir maske ile renklerin sadece bir kısmını almak mümkündür. İleride bununla ilgili daha fazla bilgi vereceğim. Konuyla ilgili örnek vermiyorum, çünkü daha evvel yazdığım programların hemen hemen hepsinde kullandığım bir komut. Hiçbir sorun çıkarmayacağından eminim.

Artık ekranların renklerini istediğimiz gibi ayarlayabiliyoruz. Ama daha bitmedi. Bunlar sadece normal komutlar. Daha sırada Deluxe Paint'in 'cycle' efektlerinden tutun da, çok az rastlanan özel renk değiştirme komutlarına kadar bir sürü komutlarımız var.

Aşağıda bunlardan biriyle ilgili bir örnek veriyorum. Bu programa AMOS disketlerimin 'Manual' directory'sinde rastladım. Fakat ya bendeki program bozuktu ya da program hazırlanırken bazı eksiklikler yapılmıştı ki, program pek iyi bir sonuç vermiyordu. Bunun üzerine gerekli değişiklikleri yaptım. Açıklamasını yine gelecek ay vereceğim.

ÖRNEK PROGRAM 4:

Rem******************************************* Rem******************************************* Rem**** **** Rem**** AMIGA DÜNYASI **** Rem**** AMOS APPEAR DEMO **** Rem**** **** Rem**** Modified by Burak OZDEMIR **** Rem**** **** Rem**** using AMOS **** Rem**** **** Rem**** AMOS Copyright 1990 **** Rem**** **** Rem**** Mandarin Software **** Rem**** **** Rem******************************************* Rem******************************************* Screen Open 1,320,200,32,Lowres Load Iff "df0:resim" If Screen Width>600 Then REZ=Hires Else REZ=Lowres Screen Open 0.Screen Width,Screen Height,Screen Colour,REZ Screen Open 2,320,50,2,Lowres Screen Display 2„250„50 Screen Open 3,320,10,2,Lowres Screen Display 3„40„ 10 Screen 3 : Colour 1 ,$0: Curs Off: Cls: Locate 0,0: Centre "Appear" Set Rainbow 0,1,16;'(1,2,16)","( 1,2,16)", "(1,2,16)" : Rainbow 0,0,36,10 Screen 0 : Screen To Front 0 : Get Palette(1): Screen To Front 2 Screen To Front 3 Flash Off Rem Main loop Do Screen 2 : Input "effekt ";E If E>0 Cls : Screen 0 : Cls Appear 1 To 0,E End If Loop

Gelecek sayıya kadar hoşçakalın. Daha yeni komutlar ve programlarla buluşmak üzere...