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

DİLLER
A
M
I
G
A
CENKER ÖZKURT
Amiga'da, C ve grafik iyi bir ikili oluşturuyor. İsterseniz bunu
bir inceleyelim ve gerçekleştirelim. Bu ayki konumuz bu olsun
ne dersiniz
Programımız, vermiş olduğumuz bir yazı dizisini, ekranın belirli
bir satırında, pixel pixel scroll yaparak kaydırmak olsun. Her
programcının ilk demosu aşağı yukarı böyle başlar. İçinizde bunu
denemek isteyenlerin olduğunu tahmin ediyorum. Ayrıca bu
program,' sizler için iyi bir grafik alıştırması olacak. Daha önce
görmüş olduğunuz ve zevkle seyrettiğiniz intro ve demolardaki
kayan yazıların basit bir örneği olan programımızı şöyle bir gözden
geçirelim:
/* Amiga Dunyasi */
/* Program : Cenker Ozkurt */
#include
#ınclude
#include
#include
struct NewScreen ns={
0,0,320,256,5,0,1,0,CUSTOMSCREEN,0,0,0,0 };
struct RastPort *rp;
struct Screen *scr;
struct GfxBase *GfxBase;
struct IntuitionBase *IntuitionBase;
int f,s;
UBYTE*m=0xbfe001;
char *string="Amiga Dunyasi'dan. Yazan: Cenker Ozkurt. ";
main()
{
IntuitionBase=(struct IntuitionBase *)
OpenLibrary( "intuition.library",0);
if(IntuitionBase==NULL) {
printf("intuition library error!\n");
return(0);-
}
GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",0);
if(GfxBase==NULL) {
printf("graphics library error!\n");
CloseLibrary( IntuitionBase);
return(0);
}
scr=(struct Screen *)OpenScreen(&ns);
if(scr==NULL) {
printf( "screen error!\n");
CloseLibrary(GfxBase);
CloseLibrary( IntuitionBase);
return(0);
}
rp=&scr->RastPort; /* Screen rastport */
SetAPen(rp,1L); /* Kalem rengi */
while( 1) { /* Sonsuz dongu */
for(f=0;f