home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
145.lha
/
BonsaiConstructionSet
/
bcs.c
< prev
next >
Wrap
C/C++ Source or Header
|
1986-11-21
|
15KB
|
454 lines
/* bcs.c -- based on the Bonsai programs by R.I.MacDonald
******* taken from Analog Computing No.42 May 1986 *******
Converted to Amiga Lattice 'C' by Terry W. Gintz*/
void IMsg();
/* Include the definitions and functions we need */
#include "trees3.h"
#include "bonsai7.c"
#include "perspec5.c"
#include "mouse.c"
extern int save(),palette();
extern void clear_colors();
extern struct ColorMap *p_Co;
extern SHORT mx,my;
struct IntuiText titletext = {
2,2,JAM1,0,0,NL,(UBYTE *)"Bonsai Construction Set",NL};
struct IntuiText Menu0IText [] = {
{
0,3,JAM2, /* Front Pen, Back Pen, Draw Mode */
0,0, /* Left Edge, Top Edge */
&TestFont, /* pointer to Text Font */
" new tree ", /* text of Menu Item */
NULL /* pointer to next IText */
},
{0,3,JAM2,0,0,&TestFont,"modify color",NULL },
{0,3,JAM2,0,0,&TestFont," load data ",NULL },
{0,3,JAM2,0,0,&TestFont," save data ",NULL },
{0,3,JAM2,0,0,&TestFont,"save picture",NULL },
{0,3,JAM2,0,0,&TestFont," new picture",NULL },
{0,3,JAM2,0,0,&TestFont," quit ",NULL },
};
struct MenuItem Menu0Item[7] = {
{
&Menu0Item[1], /* pointer to next Item */
0,0,120,9, /* Left, Top, Width, Height */
ITEMTEXT | ITEMENABLED | HIGHCOMP, /* Flags */
0, /* no mutual exclude */
(APTR)&Menu0IText[0], /* Render info */
NULL,NULL,NULL, /*Alt Image, Command (amiga) char, subitem*/
MENUNULL /* next select */
},
{&Menu0Item[2],0,9,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[1],NULL,NULL,NULL,MENUNULL},
{&Menu0Item[3],0,18,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[2],NULL,NULL,NULL,MENUNULL},
{&Menu0Item[4],0,27,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[3],NULL,NULL,NULL,MENUNULL},
{&Menu0Item[5],0,36,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[4],NULL,NULL,NULL,MENUNULL},
{&Menu0Item[6],0,45,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[5],NULL,NULL,NULL,MENUNULL},
{NULL,0,54,120,9,ITEMTEXT | ITEMENABLED | HIGHCOMP,
0,(APTR)&Menu0IText[6],NULL,NULL,NULL,MENUNULL},
};
struct IntuiText Menu1IText [] = {
{
0,3,JAM2, /* Front Pen, Back Pen, Draw Mode */
0,0, /* Left Edge, Top Edge */
&TestFont, /* pointer to Text Font */
" Blue ", /* text of Menu Item */
NULL /* pointer to next IText */
},
{0,3,JAM2,0,0,&TestFont," Purple ",NULL },
{0,3,JAM2,0,0,&TestFont," Cyan ",NULL },
{0,3,JAM2,0,0,&TestFont," White ",NULL },
{0,3,JAM2,0,0,&TestFont," Dark Brown",NULL },
{0,3,JAM2,0,0,&TestFont," Red-Orange",NULL },
{0,3,JAM2,0,0,&TestFont," Lime Green",NULL },
{0,3,JAM2,0,0,&TestFont," Red ",NULL },
{0,3,JAM2,0,0,&TestFont," Light Blue",NULL },
{0,3,JAM2,0,0,&TestFont," Violet ",NULL },
{0,3,JAM2,0,0,&TestFont," Blue-Green",NULL },
{0,3,JAM2,0,0,&TestFont," Black ",NULL },
};
struct MenuItem Menu1Item[12] = {
{
&Menu1Item[1], /* pointer to next Item */
0,0,110,9, /* Left, Top, Width, Height */
ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT, /* Flags */
(~(1 << 0)), /* mutual exclude */
(APTR)&Menu1IText[0], /* Render info */
NULL,NULL,NULL, /*Alt Image, Command (amiga) char, subitem*/
MENUNULL /* next select */
},
{&Menu1Item[2],0,9,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 1)),(APTR)&Menu1IText[1],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[3],0,18,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 2)),(APTR)&Menu1IText[2],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[4],0,27,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 3)),(APTR)&Menu1IText[3],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[5],0,36,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT | CHECKED,
(~(1 << 4)),(APTR)&Menu1IText[4],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[6],0,45,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 5)),(APTR)&Menu1IText[5],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[7],0,54,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 6)),(APTR)&Menu1IText[6],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[8],0,63,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 7)),(APTR)&Menu1IText[7],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[9],0,72,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 8)),(APTR)&Menu1IText[8],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[10],0,81,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 9)),(APTR)&Menu1IText[9],NULL,NULL,NULL,MENUNULL},
{&Menu1Item[11],0,90,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 10)),(APTR)&Menu1IText[10],NULL,NULL,NULL,MENUNULL},
{NULL,1,99,110,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 11)),(APTR)&Menu1IText[11],NULL,NULL,NULL,MENUNULL},
};
struct IntuiText Menu2IText [] = {
{
0,3,JAM2, /* Front Pen, Back Pen, Draw Mode */
0,0, /* Left Edge, Top Edge */
&TestFont, /* pointer to Text Font */
" x0.1", /* text of Menu Item */
NULL /* pointer to next IText */
},
{0,3,JAM2,0,0,&TestFont," x0.2",NULL },
{0,3,JAM2,0,0,&TestFont," x0.3",NULL },
{0,3,JAM2,0,0,&TestFont," x0.4",NULL },
{0,3,JAM2,0,0,&TestFont," x0.5",NULL },
{0,3,JAM2,0,0,&TestFont," x0.6",NULL },
{0,3,JAM2,0,0,&TestFont," x0.7",NULL },
{0,3,JAM2,0,0,&TestFont," x0.8",NULL },
{0,3,JAM2,0,0,&TestFont," x0.9",NULL },
{0,3,JAM2,0,0,&TestFont," x1.0",NULL },
{0,3,JAM2,0,0,&TestFont," x1.5",NULL },
{0,3,JAM2,0,0,&TestFont," x2.0",NULL },
};
struct MenuItem Menu2Item[12] = {
{
&Menu2Item[1], /* pointer to next Item */
0,0,50,9, /* Left, Top, Width, Height */
ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT, /* Flags */
(~(1 << 0)), /* mutual exclude */
(APTR)&Menu2IText[0], /* Render info */
NULL,NULL,NULL, /*Alt Image, Command (amiga) char, subitem*/
MENUNULL /* next select */
},
{&Menu2Item[2],0,9,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 1)),(APTR)&Menu2IText[1],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[3],0,18,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 2)),(APTR)&Menu2IText[2],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[4],0,27,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 3)),(APTR)&Menu2IText[3],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[5],0,36,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 4)),(APTR)&Menu2IText[4],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[6],0,45,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 5)),(APTR)&Menu2IText[5],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[7],0,54,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 6)),(APTR)&Menu2IText[6],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[8],0,63,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 7)),(APTR)&Menu2IText[7],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[9],0,72,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 8)),(APTR)&Menu2IText[8],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[10],0,81,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT | CHECKED,
(~(1 << 9)),(APTR)&Menu2IText[9],NULL,NULL,NULL,MENUNULL},
{&Menu2Item[11],0,90,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 10)),(APTR)&Menu2IText[10],NULL,NULL,NULL,MENUNULL},
{NULL,1,99,50,9,ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT,
(~(1 << 11)),(APTR)&Menu2IText[11],NULL,NULL,NULL,MENUNULL},
};
struct Menu BdMenu[3] = {
{
&BdMenu[1], /* ptr to next Menu */
10,0,120,0, /* left,top,width,height--top and height ignored */
MENUENABLED, /* Flags */
" Bonsai ", /* menu title */
&Menu0Item[0] /* First Item in list */
},
{&BdMenu[2],140,0,110,0,MENUENABLED," Color ",&Menu1Item[0]},
{NULL,260,0,50,0,MENUENABLED,"Scale",&Menu2Item[0]}
};
int lod,sav;
UWORD color18, color19;
int color,pt;
extern double scl;
main()
{
USHORT drawing;
drawing=1;
initwind();
init_colors();
init_scr();
pt=1;
color=8;
scl=1.0;
strcpy(name,"title");
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,15,0,0);
SetRGB4(vp,19,15,15,15);
SetPointer(wd,&PointImage,14,16,0,0);
SetAPen(rp,31);
SetDrMd(wd->RPort,JAM1);
RectFill(wd->RPort,0,0,319,199);
mx=159;
my=180;
PrintIText(wd->RPort,&titletext,60,175);
perspec(0);
ClearPointer(wd);
pt=0;
while(drawing)
{
IMsg();
}
} /* end of main */
void IMsg()
{
struct IntuiMessage *BdMsg; /* Intuition message structure */
ULONG Mclass; /* Message class */
USHORT Mcode; /* Message code */
double dd;
dd=drand48(); /* stir up random generator while idling */
while (BdMsg = (struct IntuiMessage *)GetMsg(wd->UserPort))
{
Mclass = BdMsg->Class;
Mcode = BdMsg->Code;
ReplyMsg(BdMsg);
switch (Mclass) {
case CLOSEWINDOW:
clear_colors();
Cleanup();
exit(TRUE);
break;
case MENUPICK:
switch (MENUNUM(Mcode)){
case 0:
switch (ITEMNUM(Mcode)){
case 0:
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,0,15,0);
SetRGB4(vp,19,11,4,0);
SetPointer(wd,&TreeImage,14,16,0,0);
mouse();
ClearPointer(wd);
pt=1;
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,15,0,0);
SetRGB4(vp,19,15,15,15);
SetPointer(wd,&PointImage,14,16,0,0);
perspec(1);
ClearPointer(wd);
break;
case 1:
palette(wd);
break;
case 2:
pt=1;
lod=save(wd);
if (lod==1){
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,0,15,0);
SetRGB4(vp,19,11,4,0);
SetPointer(wd,&TreeImage,14,16,0,0);
mouse();
ClearPointer(wd);
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,15,0,0);
SetRGB4(vp,19,15,15,15);
SetPointer(wd,&PointImage,14,16,0,0);
perspec(0);
ClearPointer(wd);
}
break;
case 3:
sav=save(wd);
if (sav==1){
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,15,0,0);
SetRGB4(vp,19,15,15,15);
SetPointer(wd,&PointImage,14,16,0,0);
writefile(0);
ClearPointer(wd);
}
break;
case 4:
sav=save(wd);
if (sav==1){
color18=GetRGB4(p_Co,18);
color19=GetRGB4(p_Co,19);
SetRGB4(vp,18,15,0,0);
SetRGB4(vp,19,15,15,15);
SetPointer(wd,&PointImage,14,16,0,0);
SavePicture();
ClearPointer(wd);
}
break;
case 5:
SetAPen(rp,31);
SetDrMd(wd->RPort,JAM1);
RectFill(wd->RPort,0,0,319,199);
break;
case 6:
clear_colors();
Cleanup();
exit(TRUE);
break;
}
break;
case 1:
switch(ITEMNUM(Mcode)){
case 0:
color = 4;
break;
case 1:
color = 5;
break;
case 2:
color = 6;
break;
case 3:
color = 7;
break;
case 4:
color = 8;
break;
case 5:
color = 9;
break;
case 6:
color = 10;
break;
case 7:
color = 11;
break;
case 8:
color = 12;
break;
case 9:
color = 13;
break;
case 10:
color = 14;
break;
case 11:
color = 15;
break;
}
break;
case 2:
switch(ITEMNUM(Mcode)){
case 0:
scl = .1;
break;
case 1:
scl = .2;
break;
case 2:
scl = .3;
break;
case 3:
scl = .4;
break;
case 4:
scl = .5;
break;
case 5:
scl = .6;
break;
case 6:
scl = .7;
break;
case 7:
scl = .8;
break;
case 8:
scl = .9;
break;
case 9:
scl = 1.0;
break;
case 10:
scl = 1.5;
break;
case 11:
scl = 2.0;
break;
}
break;
}
}
/* end of Class switch */
}/* while */
}
init_scr()
{
SetMenuStrip(wd,&BdMenu);
} /* end of init_scr */
Cleanup()
{
CloseWindow(wd);
CloseScreen(screen);
}