AMOS PRO

Tolga Kahraman · Amiga Dergisi sayı 4, Mayıs 1993 · sayfa 16

Selam! Bu ay da grafik komutlarını açıklamaya devam ediyorum. Ek olarak da, beğeneceğinizi umduğum ufak bir sürpriz var. Lafı uzatmadan komutlara geçiyorum. Geçen ay başladığım ekran komutlarına kaldığım yerden devam ediyorum. Ekran komutları: Screen To Front (Ekr): Ekr ile numarası verilen ekranı öne çıkartır. Bu sadece ekranın diğer ekranlardan daha önde görüntülenmesini sağlar. Ekranı aktif hale getirmez. Screen To Back (Ekr): Screen to front'un aksine verilen ekranı diğer ekranların arkasına atar. Screen Height: Aktif screen'in Y ekseninde sahip olduğu nokta sayısını verir. Screen Width: Aktif screen'in X ekseninde sahip olduğu nokta sayısını verir. Screen Colour: Aktif screen'in renk sayısını verir. Screen Display (Ekr, x, y): Ekranların görüntü ayarlarını değiştirmek için kullanılır. Ekr: Ekran numarası. X: 0 ile 448 arası bir değer verilebilir. Ekranın, monitörde görüntülenmeye başladığı X pozisyonunu belirler. Ekranın görüntüye girebildiği minimum değer 112'dir. Verilen değerler 16'nın katı olmak zorundadır. Y: Ekran görüntüsünün Y pozisyonunu belirler. -170 ile 312 arası değer verilebilir. Görüntüye girebilmesi için verilmesi gereken değerler 30 ile 300 arası olmalıdır. Width: Ekranın X ekseninde görüntülenecek nokta sayısı. Örneğin 352 uzunluğundaki bir ekranın sadece 320 piksellik bir bölümünün görüntülenmesini sağlayabilirsiniz. Height: Ekranın Y ekseninde görüntülenecek nokta sayısı. Sıra geldi ufak bir örnek programı

Screen Open 32, Lowres
Cure C££ : Flash O££ : Cis 0
Print Screen ; Screen Height
Print Screen Colsur
Wait Key
Opan 1,320,
Curs C££ : Flash Ö££ : Cis 0
Print Sere
Print Söze
Screen To Front 1

Renk kaydırma komutları:

Shift Up (Renk) (Değil)

Bek : Her kaydırmadan sonra beklenecek süre. Eğer saniyede 50 defa renk kaydırmak (cycle) istiyorsanız bu değer 1 olarak verilmeli. İlk Renk : Renk kaydırma işleminin başlayacağı renk numarası. Son Renk : Kaydırma işleminin biteceği rengin numarası. Değ : Değeri olarak verilen parametre. Eğer 1 verilirse

kaydırma işlemi renklerin yerlerinin değiştirilmesi ile gerçekleştirlir.
Bu da ekrandak renklerin sürekli kaydırılmasını sağlar. Eğer O
ğerini verirseniz. Renkler birbirinin üzerine kopyalanır. İk kaydırma
işleminden sonra , ekranda ki tüm renkler İlk renkle ayrı değerlere
sahip olurlar.
Ufak bir örnek:
Screen Open 0,320,256,16, Lowres
1=20
For K=1 To 16
Ink K
Baz L 20,0 To L,255
Shift Up 10,1,15,1 : 100
Shift | Wait S0
Shift Up 10,1,15,0 : Waât 140
or

Shift Down (Bek), (İlk) Gördüğünüz gibi parametre bakımından Shift Up ile aralarında herhangi bir fark yok. Yalnız Shift Up, ilk rengi ikinciye, ikinciyi üçüncüye kopyalayarak kaydırma işlemini gerçekleştirir. Shift Down ise tam ters yönde kopyalama yapar. Bu yüzden de ekran üzerinde verdiği efekt Shift Up ile tam ters yönde olacaktır. Shift Off : Shift Up veya Shift Down komutlarıyla başlatılan kaydırma işlemini durdurur. Shift komutları interrupt (program çalışmaya devam ederken işlevini sürdürme) çalışan komutlardır. Shift Up/Down komutu program içerisinde bir kez verildiğinde, Shift Off komutuna kadar kaydırma işlemi sürekli gerçekleştirilir ve program akışına görünür herhangi bir etki yapmaz. (Bek) : Program akışını Bek değeri kadar bekletir. 50 verirseniz, program akışı 1 saniye durur. Bekleme süresi makinanın hızından bağımsızdır. Yani programınız Amiga 500'de de, Amiga 4000'de de aynı miktarda bekler. Bu arada interrupt çalışan bütün programlar çalışmalarına devam ederler. Joystick komutları da kısaca şöyledir: JDown (port) : Joystick'in aşağı çekilip çekilmediğine bakar. Joystick aşağı çekiliyorsa -1 değerini geri gönderir. (port) : gibi çalışır. Görevi joystick'in yukarı itilip itilmediğini kontrol etmektir. JRight (port) : Joystick'in sağa hareketini kontrol eder. JLeft (port) : Joystick'in sola hareketini kontrol eder. Fire (port) : Ateş tuşuna basılıp basılmadığını kontrol eder. Port : Joystick'in bağlı olduğu port numarası, 1 veya 2 olabilir. Bu ayın programı yine Ofset kullanımıyla ilgili. Ama ek olarak Shift komutlarını ve kontrol komutlarını da ekledim. Program grafik datasıyla birlikte Manyetik Paket içinde yer almakta. Umarım beğenirsiniz. Görüşmek üzere, hoşçakalın.

TOLGA KAHRAMAN '4 Screen Offset & Shift Up — * Örnek 2.1 * Amiga Dergisi 1993 * Hide Unpack 7 to 0

Seraen Hide O
Screen Display 0.128, , 320,256
Screen Offset 0,150,0
For K<0 To 7
Colour K,$0
Next
Screen Show O
Fada 5, $0, ŞARA, 9246, $246, 9246, 9246
Wait 100
Shâft Up 1,2,7,1
:
Do
T£
1£
End TE
Screen Offset 0, XYER,O
End 1£
I£ (1)
T£ XYER>320
End Te
Screen Offset 0,KYER, O
End
Tire(1) Then Exit