Amiga Dünyası sayı 11, sayfa 39

Bu sayfadaki yazılar

Sayfanın metni

Sayfa 39

Screen offset 2,100,50

KOMUT: Screen clone KULLANILIŞ:

Screen clone n

Bu komut, o anda aktif olan ekranın bir kopyasını açacağı 'n' ekranına alır. Normal olarak bu ekran diğeri ile aynı yerde gösterilir, fakat 'screen display' ve 'screen offset' komutları ile bu değiştirilebilir. Hafızada tek bir yerde bulunan bir ekranı, monitörde aynı anda değişik yerlerde göstermek mümkündür.

ÖRNEK:

Screen clone 5

KOMUT: Screen KULLANILIŞ:

Screen n a=screen

Bu komut, bütün grafik ve yazı işlemlerini "n" ekranına yönlendirir. Eğer bu ekran o anda görüntüde değilse, komutun görünür bir etkisi olmaz; fakat hafızada istenen değişiklik yapılmış olduğundan, ekran görünür duruma alındığında sonuca ulaşılmış olunur. İkinci kullanım şeklinde ise 'a' değişkenine o an aktif bulunan ekranın numarası verilir.

KOMUT: Screen

to front KULLANILIŞ:

Screen to front [n]

Bu komut 'n' ekranının monitörde önde görünmesini sağlar. Ekran numarası verilmemişse o an aktif olan ekran öne alınır.

KOMUT: Screen

to back KULLANILIŞ: Screen to back [n]

Bu komut seçilen ekranın monitörde arkaya atılmasını sağlar.

KOMUT: Screen hide KULLANILIŞ:

Screen hide [n]

Bu komut seçilen ekranı tamamen görüntüden kaldırır. Ekran numarası verilmemişse o an aktif olan ekran kaldırılır.

KOMUT: Screen show KULLANILIŞ:

Screen show n Bu komut 'screen hide' komutunun tersidir. O an gösterimde olmayan bir ekranı göstermek için kullanılır.

Bu ay açıklayacağım komutlar bu kadar. Şimdi de size kısa bir program veriyorum. Program ilk olarak disketten bir resim yükler. Daha sonra siz tıpkı 'Deluxe Paint' programındaki gibi ekranın bir bölümünü 'brush' olarak seçersiniz. Bunu yapmak için, ekranın iki yerine kliklemeniz yeterli. Daha sonra program bu seçtiğiniz bölümü yukarıdan aşağıya doğru düşüyormuşçasına kaydıracaktır. Önce programın listesini veriyorum, sonra da satır satır açıklayacağım.

Rem**********************************************

Rem**********************************************

Rem**** AMIGA DÜNYASI ****

Rem**** AMOS DEMO PROGRAM ****

Rem**** written by Burak OZDEMIR ****

Rem**** using AMOS **** Rem**** AMOS Copyright 1990 ****

Rem**** Mandarin Software ****

Rem**********************************************

Rem********************************************** Screen Open 0,320,200,32,Lowres Flash Off Load Iff "df0:resim" Repeat Until Mouse Click=l XS=X Screen(0.X Mouse) YS=Y Screen(0.Y Mouse) Gr Writing 2 Repeat X=X Screen(0,X Mouse) Y=Y Screen(0,Y Mouse) Box XS,YS To X,Y Box XS,YS To X,Y Until Mouse Click=l DX=Abs(XS-X) DY=Abs(YS-Y) Auto View Off Screen Hide 0 Screen Open l,DX,DY,32,Lowres Get Palette 0 Flash Off If XS>X Then Swap XS,X If YS>Y Then Swap YS,Y Screen Copy 0,XS,YS,X,Y To 1,0,0 Screen 1 Screen Clone 2 Screen Hide 2 Auto View On Do Screen To Front 1 For 1=0 To 201 Step 3 Screen Display 1„I„ Wait 1 If Mouse Key>0 Then Exit Next I Boom If Mouse Key>0 Then Exit Wait 40 Screen Show 2 Screen To Front 2 For 1=0 To 201 Step 3 Screen Display 2„I„ Wait 1 If Mouse Key>0 Then Exit Next I Boom Wait 40 If Mouse Key>0 Then Exit Loop

Klavyeyle gezinmek için ← ve → tuşları.