/* Biorytmi_header.c 09.04.1995 */ #include #include #define XX 588 #define XXX 615 #define YY 1 /******************************************************************** * ABOUT-WINDOW definitions * ********************************************************************/ struct NewWindow aboutWindow = { 0, 82, 639, 106, 1, 1, GADGETDOWN | GADGETUP, SMART_REFRESH | ACTIVATE | NOCAREREFRESH | RMBTRAP, NULL, NULL, NULL, NULL, NULL, 80, 19, 0xFFFF, 0xFFFF, CUSTOMSCREEN, }; /******************************************************************** * WINDOW definitions * ********************************************************************/ struct NewWindow window = { 0, 1, 639, 254, 0, 0, GADGETDOWN | GADGETUP, SMART_REFRESH | ACTIVATE | NOCAREREFRESH | BORDERLESS | BACKDROP | RMBTRAP, NULL, NULL, NULL, NULL, NULL, 80, 19, 0xFFFF, 0xFFFF, CUSTOMSCREEN, }; /******************************************************************** * SCREEN definitions * ********************************************************************/ struct NewScreen screen = { 0, 0, 640, STDSCREENHEIGHT, 3, /* 8 väriä */ 0, 0, HIRES, CUSTOMSCREEN | SCREENBEHIND, NULL, " AMIGA-BIORYTMI ", NULL, NULL, }; /******************************************************************** * GADGET definitions * ********************************************************************/ struct Gadget Gadget1 = { NULL, 0, 1, 24, 9, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 1, NULL }; struct Gadget Gadget2 = { &Gadget1, 27, 1, 24, 9, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 2, NULL }; struct Gadget Gadget3 = { &Gadget2, XX, YY, 24, 9, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 3, NULL }; struct Gadget Gadget4 = { &Gadget3, XXX, YY, 24, 9, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 4, NULL }; struct Gadget Gadget5 = { &Gadget4, 280, 220, 86, 12, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 5, NULL }; #define XM 110 #define YM 219 struct Gadget Gadgets[] = { { &Gadget5, /* next */ XM+0, YM, /* x- & y-coord. */ 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 11, NULL /* id-number */ }, { &Gadgets[0], XM+19, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 12, NULL }, { &Gadgets[1], XM+51, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 13, NULL }, { &Gadgets[2], XM+70, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 14, NULL }, { &Gadgets[3], XM+102, YM, 13, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 15, NULL }, { &Gadgets[4], XM+121, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 16, NULL }, { &Gadgets[5], XM+285, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 17, NULL }, { &Gadgets[6], XM+304, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 18, NULL }, { &Gadgets[7], XM+336, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 19, NULL }, { &Gadgets[8], XM+355, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 20, NULL }, { &Gadgets[9], XM+387, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 21, NULL }, { &Gadgets[10], XM+406, YM, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 22, NULL }, { &Gadgets[11], /* next */ XM+0, YM+24, /* x- & y-coord. */ 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 31, NULL /* id-number */ }, { &Gadgets[12], XM+19, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 32, NULL }, { &Gadgets[13], XM+51, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 33, NULL }, { &Gadgets[14], XM+70, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 34, NULL }, { &Gadgets[15], XM+102, YM+24, 13, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 35, NULL }, { &Gadgets[16], XM+121, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 36, NULL }, { &Gadgets[17], XM+285, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 37, NULL }, { &Gadgets[18], XM+304, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 38, NULL }, { &Gadgets[19], XM+336, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 39, NULL }, { &Gadgets[20], XM+355, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 40, NULL }, { &Gadgets[21], XM+387, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 41, NULL }, { &Gadgets[22], XM+406, YM+24, 14, 5, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 42, NULL } }; UBYTE UNDOBUFFER[50]; UBYTE JonoPuskuri[50]; struct StringInfo JonoInfo = { JonoPuskuri, UNDOBUFFER, 0, 50, 0, 0,0,0,0,0, 0, 0, NULL }; struct Gadget Gadget6 = { &Gadgets[23], 70, 45, 500, 10, NULL, RELVERIFY | GADGIMMEDIATE | STRINGCENTER, STRGADGET, NULL, NULL, NULL, NULL, (APTR)&JonoInfo, 6, NULL }; struct Gadget aboutGadget = { NULL, 6, 3, 24, 9, GADGHCOMP, RELVERIFY | GADGIMMEDIATE, BOOLGADGET, NULL, NULL, NULL, NULL, NULL, 10, NULL }; #ifdef FEA_ENGLISH_LANGUAGE BYTE *error[] = { "Intuition.library can not be opened!", "Diskfont.library can not be opened!", "Graphics.library can not be opened!", "Screen can not be opened!", "Window can not be opened!", "Biorytmi1.font can not be found at FONTS:!", "Biorytmi2.font can not be found at FONTS:!" #else BYTE *error[] = { "Intuition.library ei aukea!", "Diskfont.library ei aukea!", "Graphics.library ei aukea!", "Näyttö ei aukea!", "Ikkuna ei aukea!", "Biorytmi1.font ei ole FONTS: levyllä!", "Biorytmi2.font ei ole FONTS: levyllä!" #endif };