rj@amiga.UUCP (Robert J. Mical) (12/31/85)
/*
MAND2.C - Menus
Mandelbrot Self-Squared Dragon Generator
For the Commodore Amiga
Version 1.00
Accompanies MAND.C
Copyright (C) 1985, Robert S. French
Placed in the Public Domain
Assorted Goodies and Intuition-stuff by =RJ Mical= 1985
This program may be distributed free of charge as long as the above
notice is retained.
*/
#include "mand.h"
struct IntuiText OptionsText[OPTIONS_COUNT] =
{
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Stop",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"1/4 size display",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Full-size display",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Redisplay",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Close display",
NULL, /* next */
}
};
struct IntuiText ZoomText[ZOOM_COUNT] =
{
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Set Zoom Frame Center",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Set Zoom Frame Size",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom to Current Frame",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom In x 10",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom Out x 2",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom Out x 10",
NULL, /* next */
},
};
struct MenuItem OptionsItems[OPTIONS_COUNT] =
{
{
&OptionsItems[1], /* next menuitem */
0, ITEM_HEIGHT * 0, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&OptionsText[0], /* text */
NULL, /* select */
'S', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[2], /* next menuitem */
0, ITEM_HEIGHT * 1, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&OptionsText[1], /* text */
NULL, /* select */
'Q', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[3], /* next menuitem */
0, ITEM_HEIGHT * 2, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&OptionsText[2], /* text */
NULL, /* select */
'F', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[4], /* next menuitem */
0, ITEM_HEIGHT * 3, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&OptionsText[3], /* text */
NULL, /* select */
'R', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
NULL, /* next menuitem */
0, ITEM_HEIGHT * 4, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&OptionsText[4], /* text */
NULL, /* select */
'C', /* command */
NULL, /* next item */
NULL, /* next select */
},
};
struct MenuItem ZoomItems[ZOOM_COUNT] =
{
{
&ZoomItems[1], /* next menuitem */
0, ITEM_HEIGHT * 0, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[0], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[2], /* next menuitem */
0, ITEM_HEIGHT * 1, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[1], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[3], /* next menuitem */
0, ITEM_HEIGHT * 2, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[2], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[4], /* next menuitem */
0, ITEM_HEIGHT * 3, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[3], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[5], /* next menuitem */
0, ITEM_HEIGHT * 4, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[4], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
NULL, /* next menuitem */
0, ITEM_HEIGHT * 5, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
&ZoomText[5], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
};
struct Menu MainMenu[MENU_COUNT] =
{
{
&MainMenu[1], /* next menu */
5, 0, /* select box left, top */
70, 8, /* select box width, height */
MENUENABLED, /* flags */
"Display", /* text */
&OptionsItems[0], /* first item */
0, 0, 0, 0, /* for the mystery variables */
},
{
NULL, /* next menu */
70 + 5, 0, /* select box left, top */
70, 8, /* select box width, height */
MENUENABLED, /* flags */
"Zoom", /* text */
&ZoomItems[0], /* first item */
0, 0, 0, 0, /* for the mystery variables */
},
};rj@amiga.UUCP (Robert J. Mical) (01/11/86)
/*
MAND2.C - Menus
Mandelbrot Self-Squared Dragon Generator
For the Commodore Amiga
Version 2.01
Copyright (C) 1985, Robert S. French
Vastly Enhanced by =RJ Mical= 1985/86
Copyright (C) 1986, =Robert J. Mical=
Placed in the Public Domain
This program may be distributed free of charge as long as the above
notice is retained.
*/
#include "mand.h"
struct IntuiText ProjectText[PROJECT_COUNT] =
{
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Save Picture",
NULL, /* next */
},
};
struct IntuiText OptionsText[OPTIONS_COUNT] =
{
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"1/16 size display",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Full-size display",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Redisplay",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Play With Colors",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Stop",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Close display",
NULL, /* next */
},
};
struct IntuiText ZoomText[ZOOM_COUNT] =
{
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Set Zoom Frame Center",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Set Zoom Frame Size",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Set Zoom Frame Proportional",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom to Current Frame",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom In x 10",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom Out x 2",
NULL, /* next */
},
{
0, 1, JAM2, /* frontpen, backpen, drawmode */
1, 1, /* left, top */
NULL, /* font */
"Zoom Out x 10",
NULL, /* next */
},
};
struct MenuItem ProjectItems[PROJECT_COUNT] =
{
{
NULL, /* next menuitem */
0, ITEM_HEIGHT * 0, /* select box left, top */
PROJECT_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ProjectText[0], /* text */
NULL, /* select */
'S', /* command */
NULL, /* next item */
NULL, /* next select */
},
};
struct MenuItem OptionsItems[OPTIONS_COUNT] =
{
{
&OptionsItems[1], /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 0, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[0], /* text */
NULL, /* select */
'Q', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[2], /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 1, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[1], /* text */
NULL, /* select */
'F', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[3], /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 2, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[2], /* text */
NULL, /* select */
'R', /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[4], /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 3, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[3], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&OptionsItems[5], /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 4, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[4], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
NULL, /* next menuitem */
OPTIONS_LEFT, ITEM_HEIGHT * 5, /* select box left, top */
OPTIONS_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&OptionsText[5], /* text */
NULL, /* select */
'C', /* command */
NULL, /* next item */
NULL, /* next select */
},
};
struct MenuItem ZoomItems[ZOOM_COUNT] =
{
{
&ZoomItems[1], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 0, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[0], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[2], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 1, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[1], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[3], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 2, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[2], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[4], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 3, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[3], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[5], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 4, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[4], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
&ZoomItems[6], /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 5, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[5], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
{
NULL, /* next menuitem */
ZOOM_LEFT, ITEM_HEIGHT * 6, /* select box left, top */
ZOOM_WIDTH, ITEM_HEIGHT, /* select box width, height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
0, /* mutual exclude */
(APTR)&ZoomText[6], /* text */
NULL, /* select */
NULL, /* command */
NULL, /* next item */
NULL, /* next select */
},
};
struct Menu MainMenu[MENU_COUNT] =
{
{
&MainMenu[1], /* next menu */
5, 0, /* select box left, top */
70, 8, /* select box width, height */
MENUENABLED, /* flags */
"Project", /* text */
&ProjectItems[0], /* first item */
0, 0, 0, 0, /* for the mystery variables */
},
{
&MainMenu[2], /* next menu */
70 + 5, 0, /* select box left, top */
70, 8, /* select box width, height */
MENUENABLED, /* flags */
"Display", /* text */
&OptionsItems[0], /* first item */
0, 0, 0, 0, /* for the mystery variables */
},
{
NULL, /* next menu */
70 + 70 + 5, 0, /* select box left, top */
70, 8, /* select box width, height */
MENUENABLED, /* flags */
"Zoom", /* text */
&ZoomItems[0], /* first item */
0, 0, 0, 0, /* for the mystery variables */
},
};