#include "exec/types.h" #include "exec/memory.h" #include "graphics/gfxmacros.h" #include "graphics/copper.h" #include "intuition/intuition.h" #include "hardware/custom.h" struct IntuitionBase *IntuitionBase; struct Window *NoBorder; struct GfxBase *GfxBase; struct Screen *Scrn; struct IntuiMessage *mesg; struct RastPort *r; #define INTUITION_REV 29 #define GRAPHICS_REV 29 #define AANTCOL 90 UWORD colors[AANTCOL] = { 0X00f,0X20f,0X40f,0X60f,0X80f, 0Xa0f,0Xc0f,0Xe0f,0Xc0f,0Xa0f, 0X80f,0X60f,0X40f,0X20f,0X00f, 0Xf00,0Xf02,0Xf04,0Xf06,0Xf08, 0Xf0a,0Xf0c,0Xf0f,0Xf0c,0Xf0a, 0Xf08,0Xf06,0Xf04,0Xf02,0Xf00, 0X00f,0X20f,0X40f,0X60f,0X80f, 0Xa0f,0Xc0f,0Xe0f,0Xc0f,0Xa0f, 0X80f,0X60f,0X40f,0X20f,0X00f, 0Xf00,0Xf02,0Xf04,0Xf06,0Xf08, 0Xf0a,0Xf0c,0Xf0f,0Xf0c,0Xf0a, 0Xf08,0Xf06,0Xf04,0Xf02,0Xf00, 0X00f,0X20f,0X40f,0X60f,0X80f, 0Xa0f,0Xc0f,0Xe0f,0Xc0f,0Xa0f, 0X80f,0X60f,0X40f,0X20f,0X00f, 0Xf00,0Xf02,0Xf04,0Xf06,0Xf08, 0Xf0a,0Xf0c,0Xf0f,0Xf0c,0Xf0a, 0Xf08,0Xf06,0Xf04,0Xf02,0Xf00, }; main() { ULONG flags,mclass; SHORT x,y,w,h,d,c0,c1,einde,txt0ycrd,txt1ycrd,txt2ycrd,xt; USHORT mode; int len; char *txt0,*txt1,*txt2,*txt3,*txt4,*txt5,*txt6,*txt7,*txt8; struct TextFont *FontPtr; static struct TextAttr SysFont= {"topaz.font",9,0,0}; UWORD i,j=0; VOID OpenALL(),*dspins,*sprins,*clrins; struct UCopList *cl; struct ViewPort *vp; txt6 = "BAMIGA SECTOR ONE"; txt7 = "PRESENTS"; txt8 = "FRACTION ACTION (FINAL)"; OpenALL(); /* ======Open een hires custom screen====== */ y=0; w=320; h=200; d=5; /* max 32 colors ! */ c0=0x00; c1=0x01; mode=NULL; Scrn=(struct Screen *) make_screen(y,w,h,d,c0,c1,mode,NULL); /* ======open een borderless window ====== */ x=y=0; w=320; h=200; flags=ACTIVATE|NOCAREREFRESH|BORDERLESS|BACKDROP; NoBorder=(struct Window *) make_window(x,y,w,h,NULL,flags,Scrn); /* ======geen screentitel====== */ ShowTitle(Scrn,0); /* ======definitie van RPort !====== */ r=NoBorder->RPort; vp=ViewPortAddress(NoBorder); SetRGB4(ViewPortAddress(NoBorder),0,0,0,0); for(x=1;x<16;x++) { SetRGB4(ViewPortAddress(NoBorder), x,2+x%14,x,x); SetRGB4(ViewPortAddress(NoBorder),16+x,x,x,2+x%14); }; txt3 = "BAMIGA_SECTOR_ONE "; txt4 = "PRESENTS "; txt5 = "FRACTION ACTION (FINAL) "; for(xt=159;xt>=0;xt--) { SetAPen(r,xt%31); Move(r,79,0);Draw(r,159-xt,99); Move(r,159,99);Draw(r,159-xt,0); Move(r,239,0);Draw(r,159+xt,99); Move(r,159,99);Draw(r,159+xt,0); Move(r,79,199);Draw(r,159-xt,99); Move(r,159,99);Draw(r,159-xt,199); Move(r,239,199);Draw(r,159+xt,99); Move(r,159,99);Draw(r,159+xt,199); }; /* zwart vlak om in te schrijven */ SetAPen(r,0); SetBPen(r,0); for(xt=0;xt<160;xt++) { Move(r,159-xt,99-50);Draw(r,159-xt,99+50); Move(r,160+xt,99-50);Draw(r,160+xt,99+50); } SetAPen(r,3); RectFill(r,5,99-55+10,319-5,99+55-10); SetAPen(r,0); RectFill(r,10,99-55+15,319-10,99+55-15); /* text , zie ook OpenAll() */ /* controle op originaliteit : txt0,txt1,txt2 zijn de echte texten txt3,txt4,txt5 zijn nep texten die niet hetzelfde mogen zijn als de anderen txt6,txt7,txt8 moeten hetzelfe als txt0, txt1, txt2 zijn */ txt0 = "BAMIGA SECTOR ONE"; txt1 = "PRESENTS"; txt2 = "FRACTION ACTION (FINAL)"; if(len=(strcmp(txt0,txt6))!=0) for(;;); if(len=(strcmp(txt1,txt7))!=0) for(;;); if(len=(strcmp(txt2,txt8))!=0) for(;;); if(len=(strcmp(txt0,txt3))==0) for(;;); if(len=(strcmp(txt1,txt4))==0) for(;;); if(len=(strcmp(txt2,txt5))==0) for(;;); /*==Font==*/ FontPtr=(struct TextFont *)OpenFont(&SysFont); if (FontPtr== 0)exit(FALSE); SetAPen(r,31); SetFont(r,FontPtr); SetSoftStyle(r,FSF_BOLD,FSF_BOLD); PrintAt(r,73,99-20-4,txt0); PrintAt(r,118,104-4,txt1); PrintAt(r,159-strlen(txt2)*5,99+33-6,txt2);/* 1LETTER = 10.4 PIXELS*/ SetSoftStyle(r,FS_NORMAL,FS_NORMAL); CloseFont(FontPtr); /* ======einde in stijl !====== */ einde=0; while(!einde) { while((mesg=(struct IntuiMessage *) GetMsg(NoBorder->UserPort))==NULL) { cl = AllocMem(sizeof(struct UCopList),MEMF_PUBLIC|MEMF_CLEAR,MEMF_CHIP); for(i=0;iDspIns; sprins=vp->SprIns; clrins=vp->ClrIns; Forbid(); vp->DspIns=vp->SprIns=vp->ClrIns=0; FreeVPortCopLists(vp); vp->DspIns=dspins; vp->SprIns = sprins; vp->ClrIns=clrins; vp->UCopIns=cl; Permit(); RethinkDisplay(); } ReplyMsg(mesg); mclass=mesg->Class; if(mclass==MOUSEBUTTONS) { einde=1; FreeVPortCopLists(vp);RemakeDisplay(); Delay(10); /* scroll */ /* for(xt=0;xt<50;xt++) { ScrollRaster(r,0,-2,0,99-50+xt*2,319,99+50); WaitTOF(); }; */ scrollscreen(Scrn); CloseLibrary(GfxBase); CloseWindow(NoBorder); CloseScreen(Scrn); } } } /********************************** einde van main **********************/ VOID OpenALL() { /*==Intuition==*/ IntuitionBase=(struct IntuitionBase *) OpenLibrary("intuition.library",INTUITION_REV); if(IntuitionBase==NULL) exit(FALSE); /*==Graphics Library==*/ GfxBase=(struct GfxBase *) OpenLibrary("graphics.library",GRAPHICS_REV); if(GfxBase==NULL) exit(FALSE); } make_window(x,y,w,h,name,flags,screen) SHORT x,y,w,h; UBYTE *name; ULONG flags; struct Screen *screen; { struct NewWindow NewWindow; NewWindow.LeftEdge = x; NewWindow.TopEdge = y; NewWindow.Width = w; NewWindow.Height = h; NewWindow.DetailPen = -1; NewWindow.BlockPen = -1; NewWindow.Title = name; NewWindow.Flags = flags; NewWindow.IDCMPFlags = MOUSEBUTTONS; NewWindow.Type = CUSTOMSCREEN; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Screen = screen; NewWindow.BitMap = NULL; NewWindow.MinWidth = 0; NewWindow.MinHeight = 0; NewWindow.MaxWidth = 0; NewWindow.MaxHeight = 0; return(OpenWindow(&NewWindow)); } make_screen(y,w,h,d,color0,color1,mode,name) SHORT y,w,h,d; UBYTE color0,color1,*name; USHORT mode; { struct NewScreen NewScreen; NewScreen.LeftEdge = 0; NewScreen.TopEdge = y; NewScreen.Width = w; NewScreen.Height = h; NewScreen.Depth = d; NewScreen.DetailPen = color0; NewScreen.BlockPen = color1; NewScreen.ViewModes = mode; NewScreen.Type = CUSTOMSCREEN; NewScreen.Font = NULL; NewScreen.DefaultTitle = name; NewScreen.Gadgets = NULL; NewScreen.CustomBitMap = NULL; return(OpenScreen(&NewScreen)); } scrollscreen(screen) struct Screen *screen; { SHORT i; for(i=0;i<50;i++) MoveScreen(screen,0,4); } PrintAt(rast,x,y,s) struct RastPort *rast; int x,y; char *s; { Move(rast,x,y); Text(rast,s,strlen(s)); }