Sayfa 15

TABL02 CMod= Tiken)

'Süre' değişkeni, yine VBL cinsindendir.

KOMUT: Shift down KULLANILIŞI: Shift down süre,ra,rb,mod Bu komut da, deminki gibi çalışır. Tek farkı, renkleri öbür tarafa kaydırmasıdır. Yukarıda verdiğim değerler için iki tablo daha hazırladım. Eğer fark etmişseniz, bu komutlar 'Deluxe Paint' programındaki 'Cycle' efektinin çok benzeridir. Bence daha da güçlüdür.

KOMUT: Shift off KULLANILIŞI: Shift off Bu komut, ‘shift up’ ve ‘shift down’ komutları ile harekete geçen renk kaymalarını durdurur. Bunu aşağıdaki örnekte görebilirsiniz.

Rem** AMIGA DÜNYASI ** Rem** AMOS DEMO PROGRAM ** Rem** written by Burak OZDEMIR ** Rem** using AMOS ** Rem** AMOS Copyright 1990 ** Rem** Mandarin Software **

Dp*Y%)fc3tc îfc ijc % % îfr: $c % ^c $t % ^c % % ;fc % % % $z ^c .*; ^c %^c ^c % Curs Off Flash Off C=Screen Colour N=320/C NN=N/2 For I=0 To C Ink I Box I*N,0ToI*N+N,200 Paint I*N+NN, 100,1 Next I Screen Open 1,320,50,2,Lowres Screen Display 1,136,200,320,50 Do Print "s="; Input S Print "ra="; Input RA Print "rb="; Input RB Print "m="; Input M Screen 0 Shift Up S,RA,RB,M Wait Key Shift Off Screen 1 Print "devam edecek misiniz ? (e/h)" Input A$ If A$<>"e" Then Exit Loop

Şimdi de sıra, 'Rainbow' komutlarına geldi. Bunlar 'Set rainbow', 'Rainbow' ve 'Rain' olmak üzere üç tanedir. Önce Rainbow'un nasıl bir şey olduğunu inceleyelim. Türkçe'de bu komut gökkuşağı anlamına gelir. Gerçek gökkuşağından farkları ise, yay şeklinde değil de yere paralel şekilde olması ve renk, kalınlık gibi özelliklerini ayarlayabilmeniz.

KOMUT: Set rainbow KULLANILIŞI: Set rainbow n,renk,l,k$,y$,m$ Bu komut, rainbow'ları tanımlamak içindir. Toplam 4 tane kadar değişik rainbow tanımlayabilirsiniz, 'n', rainbow numarasıdır. '0' ile '3' arasında değerler alır. 'renk' değişkeniyle, komutun etkileyeceği renk indisi belirlenir. Bu indisin belirlediği renk, her yatay tarama satırında sizin belirleyeceğiniz bir renge dönüşür. '0' ile '15' arasında değerler alır. 'l' sayısı, renklerin depolanacağı tablonun büyüklüğünü belirler. Alabileceği değerler '16' ile '65500' arasındadır.

Şimdi gelelim renk tablosunun hazırlanmasına. Bu olay 'k$', 'y$' ve 'm$' değişkenleriyle ayarlanır. Herbiri satır renklerinin kırmızı, yeşil ve mavi bileşenlerden birini ayarlar. Bunlar temel değişkenlerden değildir; içinde üç ayrı değer taşıyan karakter dizileridir. Dizilerin temel yapısı aşağıdaki gibidir:

"(satır,adım,tekrar)" 'Satır' değişkeni ile, o bileşenin kaç satırda bir değerini değiştireceği belirlenir. 'adım' değişkeni renk bileşeninin o anki değerine kaç ekleneceğini belirler. Tekrar sayısı ise, bu olayın ne kadar tekrar edeceğini belirler.

KOMUT: Rainbow KULLANILIŞI: Rainbow n,b,y,h Bu komut 'Set rainbow' komutuyla tanımladığınız rainbow'ları göstermek için kullanılır, 'n' rainbow numarasıdır. 'b' değişkeni, gösterilecek renklerin hazırladığınız tablonun neresinden alınmaya başlanacağını belirler. 'y', rainbow'unuzun monitörün hangi satırında başlayacağını belirler. Rainbow'un toplam kalınlığını da 'h' ile ayarlayabilirsiniz.

KOMUT: Rain KULLANILIŞI: Rain(n,l)=c c=Rain(n,l) Bu komut, rainbow komutları arasında en güçlü olanıdır. Bu komut yardımıyla, hazırladığınız bir rainbow tablosunun istediğiniz satırını değiştirebilirsiniz, 'n' rainbow numarası, 'l' satır numarası, 'c' de atanacak değerdir. Komutun ikinci kullanılış şekli, ilkinin tam tersi içindir. Bu sefer, istediğiniz bir satırın rengini öğrenebilirsiniz.

Rem** AMIGA DÜNYASI ** Rem** AMOS DEMO PROGRAM ** Rem** written by Burak OZDEMIR ** Rem** using AMOS ** Rem** AMOS Copyright 1990 ** Rem** Mandarin Software ** Rem** *********************** ** Flash Off Curs Off ClsO

Set Rainbow 0,0,3000, "(10,100.1)", '(5,001,1)", "(20,010.1)"

Do I=0 While I<3001 Rainbow 0,1,0,320 Wait Vbl 1=1+1 Wend