Amiga Dunyasi - Sayi 19 (Aralik 1991).pdf - Retro Dergi

DİLLER
CloseLibrary(IntuitionBase);
retum(l);
}
Bu programda, 64x20 boyutlarında bir bitmap hafıza açıyoruz.
Bu bitmap bir ekran ile aynı özellikleri taşıyor. Fakat ekran gibi
görülmüyor. Normal bir ekrana çizer gibi, bu ekrana da herhangi
bir grafik komutuyla çizim yapabiliyoruz. Şu yaptığımız çizimleri
de ekrana getirerek görmemiz mümkün.
Bizim bu programımız da, aynı şekilde bu bitmap'e çizilen bir
resmi ekrana yayıyor.
Programımızın diğer bölümleri önceki programımızda olduğu
gibi. Bu nedenle farklı yönlerini açıklamaya başlıyorum,
struct RastPort rpx;
struct BitMap bmx;
64x20 boyutlarındaki hafıza bloğumuzun rastport ve bitmap
değişkenlerini tanımlıyoruz. Burada dikkat ettiyseniz rpx ve bmx
pointer olarak tanımlanmamış. Çünkü bu hafıza bloğumuz ilk defa
bizim tarafımızdan tanımlanıyor. Bundan dolayı rastport ve
bitmap yapıları da bizim tarafımızdan tanımlanmak zorunda, rpx
ve bmx gerçek rastport ve bitmap özelliklerinde ve uzunluğunda
bulunuyor. Bu nedenle değişkenleri bir komut içerisinde kullanırken,
başlarına & işaretini koymalıyız.
InitBitMap(&bmx,2,64,20);
Bu fonksiyon ile bitmap'imizi yaratıyoruz, bmx oluşturulacak
olan bitmap'in kendisi, 2 bitplane sayısı yani 4 renk, 64x20 ise
bitmap'in x ve y boyunu belirtiyor.
bmx.Planes[0]=AllocMem( 160,MElvlF_CHIPIMEMF_CLEAR);
bmx.Planes[0], oluşturulan bitmap'in ilk plane bloğu. Bizim bu
hafıza bloğunu kullandığımızı sisteme belirtmemiz ya da diğer
bir deyişle ayırtmamız gerekiyor.
AllocMem( 160,MEMF_CHIPIMEMF_CLEAR);
AllocMem fonksiyonu, bu işlemi yapmamızı sağlıyor. Bu fonksiyon
işledikten sonra ayırılan hafıza blok adresinin başlangıç adresiyle
geri dönüyor. 160 değeri bize gereken boş hafıza byte sayısını
belirtiyor. Bu sayıyı,
160 = 64/8*20
ile hesaplıyoruz. 64, x genişliğidir; 8, x boyunca harcanan byte
sayısını bulmaya yarar; 20 ise, y boyunu belirtiyor. Bildiğiniz gibi
soldan sağa 8 pixellik bir nokta, hafızada 1 byte yer harcar.
AllocMem içerisindeki MEMF_CHIP macrosu, ayrılacak olan
hafıza bloğunun chip memory'de ayrılacağını belirtiyor. Burada
MEMF_CHIP ya da MEMF_FAST macrolarını kullanmak mümkün.
MEMF_CLEAR, blok ayrılırken bloğun temizlenmesini sağlıyor.
MEMF_CHIP ile MEMF_CLEAR macrolarını aynı anda
kullanmak için, MEMF_CHIPIMEMF_CLEAR yazıyoruz. Burada
iki macro birbirleri ile OR yapılmış oluyor.
Blok ayırırken dikkat edilecek husus, eğer blok içerisinde grafik
komutları kullanılacaksa, bloğun chip hafızada ayrılması gerekiyor.
Bu nedenle biz de MEMF_CHIPIMEMF_CLEAR macrolarını
kullandık. Fast hafızada ayrılan hafıza bloklarına grafik
komutları ile erişemiyoruz.
Daha sonra hafızanın yeterli olup olmadığını kontrol ederek
yetersizse memory mesajıyla programdan geri çıkıyoruz. Bir
hata oluşmazsa ikinci plane için de aynı işlemleri yapıyor ve bu
bitmap için bir de rastport açıyoruz.
InitRastPort(&rpx);
rpx, bu rastport'u belirtiyor.
rpx.BitMap=&bmx;
ile, rpx'in kullanacağı bitmap'i gösteriyoruz.
DrawEllipse(&rpx,32,10,30,8);
for(x=0;x