home *** CD-ROM | disk | FTP | other *** search
- /* tdp.h */
-
- #include <stdio.h>
- #include <exec/types.h>
- #include <exec/lists.h>
- #include <intuition/intuition.h>
- #include <graphics/text.h>
- #include "ffp.h"
-
- #define MAXCHAN 64
- #define MAXPOINTS (MAXCHAN * MAXCHAN)
- #define RLARGE 1.E10
- #define DEG2RAD (PI/180.)
- #define MAXHORIZ 600
- #define MAXVERT 380
- #define TOPVERT 400
- #define RESET 0
- #define UP 1
- #define DOWN -1
- #define DATA 1
- #define INTERP 2
- #define BIGINT 2147483000
- #define BACKGND_COLOR 0
- #define PASS_0_COLOR 1
- #define PASS_1_COLOR 3
- #define AXIS_COLOR 2
-
- void pen();
- void hlplot();
- void hlcross();
- void plot3d();
- void calc();
- char *getwrd();
- void initwind();
- void CleanUp();
- extern struct GfxBase *GfxBase;
- extern struct IntuitionBase *IntuitionBase;
-
- # ifdef MAIN_MODULE
- FFP zd[MAXPOINTS], d2r;
- FFP xA[4], yA[4], zA[4]; /* AXES */
- int xA_i[4], yA_i[4];
- FFP sinp, cosp, sint, cost;
- int x[MAXCHAN][MAXCHAN], y[MAXCHAN][MAXCHAN];
- short vhicum[MAXHORIZ], vlocum[MAXHORIZ];
- int debug = 0, inverse_vid = 0, nsides = 1;
- int PlotFile = FALSE, To_mCAD = FALSE;
- FILE *pfp, *mfp;
- char ans, str[20];
- FFP phi, theta;
- int nxpts=0, nypts=0;
- char netplot='y', axes='n';
- struct Window *OpenWindow();
- struct Screen *OpenScreen();
- USHORT class, code;
- struct Window *w;
- struct RastPort *rp;
- struct ViewPort *vp;
- struct IntuiMessage *message;
- struct Screen *screen;
- # else
-
- extern FFP zd[MAXPOINTS], d2r;
- extern FFP xA[], yA[], zA[]; /* AXES */
- extern int xA_i[], yA_i[];
- extern FFP sinp, cosp, sint, cost;
- extern int x[MAXCHAN][MAXCHAN], y[MAXCHAN][MAXCHAN];
- extern short vhicum[MAXHORIZ], vlocum[MAXHORIZ];
- extern int debug, inverse_vid, nsides;
- extern int PlotFile, To_mCAD;
- extern FILE *pfp, *mfp;
- extern char ans, str[];
- extern FFP phi, theta;
- extern int nxpts, nypts;
- extern char netplot, axes;
- extern struct Window *OpenWindow();
- extern struct Screen *OpenScreen();
- extern USHORT class, code;
- extern struct Window *w;
- extern struct RastPort *rp;
- extern struct ViewPort *vp;
- extern struct IntuiMessage *message;
- extern struct Screen *screen;
- #endif
-
- #ifdef MAIN_MODULE
- struct NewScreen ns = {
- 0,0,640,400,2,0,3,HIRES | LACE,CUSTOMSCREEN,NULL,"TDP",NULL
- };
-
- struct NewWindow nw = {
- 0,0,640,400,0,3,MENUPICK,ACTIVATE|BORDERLESS|NOCAREREFRESH,
- NULL,NULL,NULL,NULL,NULL,0,0,0,0,CUSTOMSCREEN
- };
-
- #define MIFlags (ITEMENABLED | ITEMTEXT | HIGHCOMP)
- #define ChH 8
- #define ChW 8
-
- /*** MENU 0 -- PROJECT ****************************************************/
- struct IntuiText M_text03 = {1,14,JAM2,0,0,NULL,"Quit ",NULL};
- struct MenuItem M_item03 =
- {NULL,0,3*ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text03,NULL,NULL,NULL,0};
- #define MI_QUIT 3
-
- struct IntuiText M_text02 = {1,14,JAM2,0,0,NULL,"To mCAD ",NULL};
- struct MenuItem M_item02 =
- {&M_item03,0,2*ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text02,NULL,NULL,NULL,0};
- #define MI_TOMCAD 2
-
- struct IntuiText M_text01 = {1,14,JAM2,0,0,NULL,"Plot ",NULL};
- struct MenuItem M_item01 =
- {&M_item02,0,ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text01,NULL,NULL,NULL,0};
- #define MI_PLOT 1
-
- struct IntuiText M_text00 = {1,14,JAM2,0,0,NULL,"Open ",NULL};
- struct MenuItem M_item00 =
- {&M_item01,0,0,ChW*8,ChH,MIFlags,0L,(APTR)&M_text00,NULL,NULL,NULL,0};
- #define MI_OPEN 0
-
- struct Menu Menu0 =
- {NULL,0,0,ChW*8,ChH,MENUENABLED,"Project ",&M_item00};
- #define M_PROJECT 0
-
- void initwind()
- {
- if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",0)))
- {printf("Can't open graphics library...\n"); exit();}
- if (!(IntuitionBase =
- (struct IntuitionBase *)OpenLibrary("intuition.library",0)))
- {printf("Can't open intuition library...\n"); exit();}
- if (!(screen = OpenScreen(&ns)))
- {printf("Can't open screen...\n"); exit(0);}
-
- nw.Screen = screen;
- if (!(w = OpenWindow(&nw)))
- {printf("Can't open window...\n"); exit(0);}
- rp = w->RPort; vp = &w->WScreen->ViewPort;
- SetRGB4(vp,AXIS_COLOR, 15, 0, 0); SetRGB4(vp,PASS_1_COLOR, 0, 0,15);
- SetDrMd(rp,JAM1); SetAPen(rp,PASS_0_COLOR);
- SetMenuStrip(w,&Menu0); ShowTitle(screen,FALSE);
- }
-
- void CleanUp()
- {
- ClearMenuStrip(w); CloseWindow(w); CloseScreen(screen);
- CloseLibrary(GfxBase); CloseLibrary(IntuitionBase);
- }
- #endif
-