Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi

DERLEYİCİLER
SpritePtr -> SimpleSprite structure yapısı. .
SpritelmPtr -> Spritelmage structure yapısı.
GetSprite() fonksiyonu ise şöyle çalışıyor:
Kullanımı: SpriteNrl = GetSprite(SpritePtr,SpriteNr2);
Fonksiyonu: SimpleSprite structure yapısına bağlı olarak o
sprite'ı hazırlar.
Parametreleri:
SpriteNrl -> Integer olarak, hazırlanan sprite numarasını verir.
SpriteNr2 olarak verdiğimiz sprite doluysa, bu değerden farklı
oir numara ile geri döner.
SpriteNr2 -> Kullanmak istediğimiz sprite numarasını belirtir.
SpritePtr -> SimpleSprite structure yapısını belirtir.
GetSpriteO ile açmış olduğumuz sprite'ı ise FreeSpriteO ile
şöyle kapatıyoruz:
Kullanımı: FreeSprite(SpriteNr);
Fonksiyonu: SpriteNr ile verilen numaradaki sprite'ı kapar.
Parametreleri:
SpriteNr -> Kapanmasını istediğimiz sprite numarası.
MoveSprite()'m kullanımı ise şöyledir:
MoveSprite(ViewPort, SpritePtr, x, y);
Fonksiyonu: Sprite'm pozisyonunu değiştirir.
Parametreleri:
ViewPort -> ViewPort yapı değişkeni.
SpritePtr -> SimpleSprite yapı değişkeni.
x, y -> yeni pozisyon değerleri.
Sprite'lar için kullandığımız fonksiyonlar bunlardan ibaret. Arlık
program örneğimize bir göz atabiliriz.
Bu örneğimizde ilk olarak WorkBench ekranımız sağdan sola
kayarak temizleniyor. Daha sonra ekrana sprite'imiz geliyor. Sol
tuşa basarak programdan çıkıyoruz.
/* Programming by CENKER OZKURT */
#include
#include
#include
#include
#include
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
struct RastPort *rp;
struct ViewPort *vp;
Ntruct Screen *screen;
#definePI3.14
int a;
float x,y;
/* Spritelmage yapısında hazırlanıyor.*/
USHORT sprite[] =
{
0,0,
0x0000,0xffff,
0xffff,0x0000,
0xffff,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xf000,0x0000,
0xffff,0x0000,
0xffff,0x0000,
0x0000,0xffff,
0,0
};
struct SimpleSprite sp =
{
&sprite[0],
16,0,0,3
};
float sin(),cos();
UBYTE*m=0xbfe001;
main()
{
IntuitionBase=OpenLibrary("intuition.library",0);
if(IntuitionBase==NULL) {
printf("intuition TNn");
return(0);
}
GfxBase=OpenLibrary("graphics.library",0);
if(GfxBase==NULL) {
printf("graphics Ân");
CloseLibrary(IntuitionBase);
return(0);
}
screen=IntuitionBase->ActiveScreen;
rp=&screen->RastPort;
vp=&screen->ViewPort;
SetRGB4 (vp,20,9,9,9);
SetRGB4(vp,21,11,11,11);
SetRGB4(vp,22,13,13,13);
SetRGB4(vp,23,15,15,15);
for(a=0;a