xmap/ 42755 1753 1753 0 6376312006 11660 5ustar wolfpackwolfpackxmap/Graph.c100600 1753 1753 16340 6227441767 13210 0ustar wolfpackwolfpack#include #include extern parse(); extern error(); /* $XConsortium: Graph.c,v 1.2 88/10/25 17:40:25 swick Exp $ */ /* Copyright Massachusetts Institute of Technology 1987, 1988 */ /* this is a modification of the template widget provided by the */ /* XConsortium. */ /* Programmer Dan Bennett */ #include #include #include #include "Graph.h" #include "GraphP.h" static char defaultTranslations[]= ": cmap() \n\ : uncmap() "; static XtResource resources[] = { #define offset(field) XtOffset(GraphWidget, graph.field) /* {name, class, type, size, offset, default_type, default_addr}, */ {XtNforeground,XtCForeground,XtRPixel, sizeof(Pixel), offset(foreground), XtRString, "XtDefaultForeground"}, {XtNbackground,XtCBackground,XtRPixel, sizeof(Pixel), offset(background), XtRString, "XtDefaultBackground"}, #undef offset }; /*******************************************************/ /* this solution (Adding a translation to map and unamp*/ /* is incorrect according to the X11R4 standards but */ /* I can't get the reccomended method to work. */ /*******************************************************/ static void CMAP(),UNCMAP(); static XtActionsRec actionsList[]= { {"cmap", CMAP}, {"uncmap", UNCMAP}, }; static void CMAP(wid,event,params,num_params) GraphWidget wid; XEvent *event; String *params; Cardinal *num_params; { XInstallColormap(XtDisplay(wid),wid->core.colormap); } static void UNCMAP(wid,event,params,num_params) GraphWidget wid; XEvent *event; String *params; Cardinal *num_params; { XUninstallColormap(XtDisplay(wid),wid->core.colormap); } void XGPCopyArea(wid,slx,sly,swd,shg,dlx,dly) GraphWidget wid; Position slx,sly,swd,shg,dlx,dly; { XCopyArea(XtDisplay(wid),wid->core.background_pixmap,XtWindow(wid), wid->graph.XGPgc,slx,sly,swd,shg, dlx,dly); } void redisplay_picture(wid) GraphWidget wid; { XSetForeground(XtDisplay(wid),wid->graph.XGPgc,1); XFillRectangle(XtDisplay(wid),wid->core.background_pixmap, wid->graph.XGPgc,0,0,wid->core.width,wid->core.height); } void XGPDrawPoint(wid,x,y,len,multfact,col) int col,x,y,len,multfact; GraphWidget wid; { int i,j; if ((even(x) & even(y)) | (!even(x)& !even(y))){ XSetForeground(XtDisplay(wid),wid->graph.XGPgc,col); for(j=0;jcore.background_pixmap ,wid->graph.XGPgc,x*multfact+j,y*multfact+i); } } } XSetForeground(XtDisplay(wid),wid->graph.XGPgc,wid->graph.background); XGPCopyArea(wid,x*multfact,y*multfact,len,len ,x*multfact,y*multfact); } void DrawPoint(wid,x,y,len,multfact,col) int col,x,y,len,multfact; GraphWidget wid; { int i,j; if ((even(x) & even(y)) | (!even(x)& !even(y))){ XSetForeground(XtDisplay(wid),wid->graph.XGPgc,col); for(j=0;jcore.background_pixmap ,wid->graph.XGPgc,x*multfact+j,y*multfact+i); } } } XSetForeground(XtDisplay(wid),wid->graph.XGPgc,wid->graph.background); } void displaypicture(pic,wid,len,hei,multfact) int *pic,len,hei,multfact; GraphWidget wid; { int x,y,i,j; for(x=0;xcore.width,wid->core.height,0,0); } void rawdrawpoint(wid,x,y) GraphWidget wid; Position x,y; { XDrawPoint(XtDisplay(wid),wid->core.background_pixmap ,wid->graph.XGPgc,x,y); } static void XGPInitialize(junk,new) GraphWidget junk,new; { } void XGPInit(wid) GraphWidget wid; { XGPInitialize(NULL,wid); } static void XGPRealize(w,valueMask, attributes) GraphWidget w; Mask *valueMask; XSetWindowAttributes *attributes; { XGCValues values; Display *disp; int scrnnum; (widgetClassRec.core_class.realize)(w,valueMask,attributes); /*******************************************************************/ /* find the display and the screen number, then finally point to */ /* the default colormap of the wm */ /*******************************************************************/ disp = XtDisplay(w); scrnnum = XDefaultScreen(disp); w->core.colormap = XCreateColormap(disp,XtWindow(w) ,DefaultVisual(disp,scrnnum),AllocNone); /*******************************************************************/ /* get a pixmap to draw in so that all is nice and purdy */ /*******************************************************************/ w->core.background_pixmap = XCreatePixmap(disp,XtWindow(w), w->core.width,w->core.height, XDefaultDepthOfScreen(XtScreen(w))); w->graph.XGPgc = XtGetGC(w,GCForeground|GCBackground,&values); redisplay_picture(w); } static void XGPResize(w,event) GraphWidget w; XEvent *event; { if (XtIsRealized(w) != True) { return; } else { XFreePixmap(XtDisplay(w),w->core.background_pixmap); w->core.background_pixmap = XCreatePixmap(XtDisplay(w),XtWindow(w), w->core.width,w->core.height, XDefaultDepthOfScreen(XtScreen(w))); redisplay_picture(w); } } static void XGPExpose(wid,event) GraphWidget wid; XEvent *event; { XGPCopyArea(wid,0,0,wid->core.width,wid->core.height,0,0); } GraphClassRec graphClassRec = { { /* core fields */ /* superclass */ (WidgetClass) &widgetClassRec, /* class_name */ "Graph", /* widget_size */ sizeof(GraphRec), /* class_initialize */ NULL, /* class_part_initialize */ NULL, /* class_inited */ FALSE, /* initialize */ XGPInitialize, /* initialize_hook */ NULL, /* realize */ XGPRealize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ FALSE, /* compress_exposure */ TRUE, /* compress_enterleave */ TRUE, /* visible_interest */ FALSE, /* destroy */ NULL, /* resize */ XGPResize, /* expose */ XGPExpose, /* set_values */ NULL, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ XtInheritQueryGeometry, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* graph fields */ /* empty */ 0 } }; WidgetClass graphWidgetClass = (WidgetClass)&graphClassRec; xmap/Graph.h100600 1753 1753 3353 6227441767 13175 0ustar wolfpackwolfpack#include /* $XConsortium: Graph.h,v 1.2 88/10/25 17:22:09 swick Exp $ */ /* Copyright Massachusetts Institute of Technology 1987, 1988 */ #ifndef _Graph_h #define _Graph_h /**************************************************************** * * Graph widget * ****************************************************************/ /* Resources: Name Class RepType Default Value ---- ----- ------- ------------- background Background Pixel XtDefaultBackground border BorderColor Pixel XtDefaultForeground borderWidth BorderWidth Dimension 1 destroyCallback Callback Pointer NULL height Height Dimension 0 mappedWhenManaged MappedWhenManaged Boolean True sensitive Sensitive Boolean True width Width Dimension 0 x Position Position 0 y Position Position 0 font Font XFontStruct* XtDefaultFont foreground Foreground Pixel XtDefaultForeground buisy Buisy Callback NULL response Response Callback NULL */ /* define any special resource names here that are not in */ #ifndef XtNforeground #define XtNforeground "foreground" #define XtNbackground "background" #endif #ifndef XtCForeground #define XtCForeground "Foreground" #define XtCBackground "Background" #endif extern void displaypicture(); /* declare specific GraphWidget class and instance datatypes */ typedef struct _GraphClassRec* GraphWidgetClass; typedef struct _GraphRec* GraphWidget; /* declare the class constant */ extern WidgetClass graphWidgetClass; #define even(x) ((x&1) != 1 ) #endif _Graph_h xmap/GraphColor.c100600 1753 1753 13172 6227441767 14207 0ustar wolfpackwolfpack#include "GraphP.h" void AssignColorField(foo,bar) char *foo,**bar; { if (foo != NULL) { if (*bar != NULL) { free(*bar); } *bar =(char*) malloc((strlen(foo)+1)*sizeof(char)); strcpy(*bar,foo); } } unsigned long MakeColor(wid,name) GraphWidget wid; char *name; { XColor exact,close; Display *disp; Screen *scrn; int scrnnum; disp = XtDisplay(wid); scrnnum = XDefaultScreen(disp); scrn = XScreenOfDisplay(disp,scrnnum); if (XLookupColor(disp,wid->core.colormap,name,&exact,&close) == 1) { if(XAllocColor(disp,wid->core.colormap,&exact)){ return(exact.pixel); } else { return(wid->graph.foreground); } } else { return(wid->graph.foreground); } } /*******************************************/ /* make a new colormap if the default is the default color map and nothing if the colormap is curently not the default *******************************************/ void MakeColormap(wid) GraphWidget wid; { Display *disp; XColor fg,bg; disp = XtDisplay(wid); wid->core.colormap = XCreateColormap(disp,XtWindow(wid), DefaultVisual(disp,XDefaultScreen(disp)),AllocNone); } void UnFillColorMap(w) GraphWidget w; { Display *disp; disp = XtDisplay(w); XFreeColormap(disp,w->core.colormap); MakeColormap(w); } int dexp2(num) int num; { int accum,i; accum = 2; for(i=1;icore.colormap,&exact); } for(i=13;i<23;i++){ exact.pixel = (unsigned long) i; exact.red = (unsigned short) 0; exact.green = (unsigned short) (i-8) * 65535/16; exact.blue = (unsigned short) 0; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); } for(i=23;i<28;i++){ exact.pixel = (unsigned long) i; exact.red = (unsigned short) (i-15) * 65535/16;; exact.green = (unsigned short) 0; exact.blue = (unsigned short) 0; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); } } void NationFillColorMap(w) GraphWidget w; { XColor exact,close; Display *disp; Screen *scrn; int scrnnum,depth,i,shade,ncolors,j; disp = XtDisplay(w); scrnnum = XDefaultScreen(disp); scrn = XScreenOfDisplay(disp,scrnnum); depth = XDefaultDepthOfScreen(XtScreen(w)); ncolors = (int) dexp2(depth); shade = (int) 65535/ncolors; exact.pixel = (unsigned long) 1; exact.red = (unsigned short) 65535; exact.green = (unsigned short)65535; exact.blue = (unsigned short) 65535; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); exact.pixel = (unsigned long) 0; exact.red = (unsigned short) 0; exact.green = (unsigned short)0; exact.blue = (unsigned short) 0; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); exact.pixel = (unsigned long) 2; exact.red = (unsigned short) 200; exact.green = (unsigned short) 15000; exact.blue = (unsigned short) 40000; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); for(i=4;i<((int)(ncolors/3));i +=3){ exact.pixel = (unsigned long) i; exact.red = (unsigned short) (i-ncolors/3)*shade; exact.green = (unsigned short) 0*shade; exact.blue = (unsigned short) 0*shade; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); } for(i=5;i<((int)(ncolors/3));i +=3){ exact.pixel = (unsigned long) i; exact.green = (unsigned short) (i-ncolors/3)*shade; exact.red = (unsigned short) 0*shade; exact.blue = (unsigned short) 0*shade; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); } for(i=6;i<((int)(ncolors/3));i +=3){ exact.pixel = (unsigned long) i; exact.blue = (unsigned short) (i-ncolors/3)*shade; exact.green = (unsigned short) 0*shade; exact.red = (unsigned short) 0*shade; exact.flags = DoRed | DoGreen |DoBlue; XAllocColor(disp,w->core.colormap,&exact); } } xmap/GraphP.h100600 1753 1753 1741 6227441767 13314 0ustar wolfpackwolfpack#include /* $XConsortium: GraphP.h,v 1.2 88/10/25 17:37:59 swick Exp $ */ /* Copyright Massachusetts Institute of Technology 1987, 1988 */ #ifndef _GraphP_h #define _GraphP_h /* include superclass private header file */ #include #include #include "Graph.h" /* define unique representation types not found in */ #define XtRGraphResource "GraphResource" #ifndef TRUE #define TRUE 1 #endif #ifndef FALSE #define FALSE 0 #endif #define OutOfMemmory 1 typedef struct { int empty; } GraphClassPart; typedef struct _GraphClassRec { CoreClassPart core_class; GraphClassPart graph_class; } GraphClassRec; extern GraphClassRec graphClassRec; typedef struct { /*resources */ int empty; Pixel foreground, background, fghold,bghold; GC XGPgc; } GraphPart; typedef struct _GraphRec { CorePart core; GraphPart graph; } GraphRec; #endif _GraphP_h xmap/Makefile100600 1753 1753 547 6227441767 13405 0ustar wolfpackwolfpackCC = cc CFLAGS = -g LIB1 = -ll -lm -lXaw -lXmu -lXt -lX11 -lXext LIB = -lm INC = /usr/include/Xw OBJS = Graph.o GraphColor.o SRCS = Graph.c GraphColor.c xmap : xmap.c $(OBJS) $(CC) -o xmap xmap.c $(OBJS) $(CFLAGS) $(LIB1) .c.o : $(CC) -c $< $(CFLAGS) clean : rm -f *.o core square four Graph.o : Graph.h GraphP.h GraphColor.o : Graph.h GraphP.h xmap/xmap.c100600 1753 1753 10267 6227441767 13116 0ustar wolfpackwolfpack#include "gamesdef.h" #include "misc.h" #include "sect.h" #include #include #include #include #include #include #include #include #include #ifdef sys5 #include #else #include #endif sys5 #include "Graph.h" #include Widget thegraph, toplevel; char *sectfil=EMPPATH(data/sector); struct sctstr sects[WORLD_Y*WORLD_X/2]; #define XSIZE WORLD_X #define YSIZE WORLD_Y int uimage[WORLD_X][WORLD_Y]; #define BOX_SIZE 4 get_sect_file() { int sectf; sectf = open(sectfil, 0); if (sectf < 0) { perror(sectfil); exit(1); } read(sectf, sects, sizeof(sects)); close(sectf); } void quitit(wid,cdat,rdat) Widget wid; caddr_t cdat,rdat; { exit(1); } void ClearIt(wid,cdat,rdat) Widget wid; caddr_t cdat,rdat; { int i,j; for(i=0;isct_elev+120)/10)+1; sp++; } } } displaypicture(uimage,thegraph,XSIZE,YSIZE,BOX_SIZE); } static void donat(wid,cdat,rdat) Widget wid; caddr_t cdat,rdat; { int x, y; struct sctstr *sp = sects; UnFillColorMap(thegraph); NationFillColorMap(thegraph); for (y = 0; y < WORLD_Y; y++) { for (x = 0; x < WORLD_X; x++) { if (((x ^ y) & 1)){ continue; } else { uimage[x][y] = sp->sct_own+10; if(sp->sct_own == 0) { if (sp->sct_type == SCT_WATER ) { uimage[x][y] = 2; }} sp++; } } } displaypicture(uimage,thegraph,XSIZE,YSIZE,BOX_SIZE); } main(argc,argv) int argc; char *argv[]; { Widget box, Quit, Clear, natb, elevb, TITLE; Arg args[10]; int i,j; int pict[XSIZE][YSIZE]; XtTranslations trans; static XtCallbackRec quiter[][2]= {{{quitit,NULL},{NULL,NULL}}, {{doalt,NULL},{NULL,NULL}}, {{donat,NULL},{NULL,NULL}}, {{ClearIt,NULL},{NULL,NULL}}}; toplevel = XtInitialize(argv[0],"FOURIER",NULL,0,&argc,argv); XtSetArg(args[0],XtNborderWidth,0); box = XtCreateManagedWidget("FOURIER",formWidgetClass,toplevel,args,1); XtSetArg(args[0],XtNlabel,(XtArgVal) "Empire Diety Utility"); TITLE = XtCreateManagedWidget("label",labelWidgetClass,box,args,1); XtSetArg(args[0],XtNlabel,(XtArgVal) "Clear"); XtSetArg(args[1],XtNfromHoriz,TITLE); XtSetArg(args[2],XtNcallback,quiter[3]); Clear = XtCreateManagedWidget("label",commandWidgetClass,box,args,3); XtSetArg(args[0],XtNlabel,(XtArgVal) "Elevations"); XtSetArg(args[1],XtNfromHoriz,Clear); XtSetArg(args[2],XtNcallback,quiter[1]); elevb = XtCreateManagedWidget("label",commandWidgetClass,box,args,3); XtSetArg(args[0],XtNlabel,(XtArgVal) "Nations"); XtSetArg(args[1],XtNfromHoriz,elevb); XtSetArg(args[2],XtNcallback,quiter[2]); natb = XtCreateManagedWidget("label",commandWidgetClass,box,args,3); XtSetArg(args[0],XtNlabel,(XtArgVal) "Quit"); XtSetArg(args[1],XtNfromHoriz,natb); XtSetArg(args[2],XtNcallback,quiter[0]); Quit = XtCreateManagedWidget("label",commandWidgetClass,box,args,3); XtSetArg(args[0],XtNheight,YSIZE*BOX_SIZE); XtSetArg(args[1],XtNwidth,XSIZE*BOX_SIZE); XtSetArg(args[4],XtNfromVert,TITLE); thegraph = XtCreateManagedWidget("hello",graphWidgetClass,box,args,5); XtRealizeWidget(toplevel); ClearIt(thegraph,NULL,NULL); get_sect_file(); XtMainLoop(); } xmap/GNUmakefile100600 1753 1753 2571 6227441767 14036 0ustar wolfpackwolfpack# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := LIBS := -ll -lXaw -lXmu -lXt -lX11 -lXext -lm \ ../../../lib/$(ARCH)/libcommon.a \ ../../../lib/$(ARCH)/libgen.a ../../../lib/$(ARCH)/libglobal.a BIN := xmap #-----------------------------------# # Productions: # depend: create the dependencies # all: make the binary # saber: load things for saber # tags: make tags include ../../../make/GenMakefile include $(DEPENDENCIES) .PHONY: all dirs saber tags TAGS ifdef ARCH ARCHBIN := $(ARCH)/$(BIN) ARCHOBJS := $(addprefix $(ARCH)/,$(OBJS)) all: dirs $(ARCHBIN) $(ARCHBIN): $(ARCHOBJS) FRC $(CC) $(LFLAGS) $(ARCHOBJS) $(LIBS) $(TAILLIBS) -o $@ FRC:: clean: -rm -f $(ARCHOBJS) $(ARCHBIN) .PHONY: $(BIN) $(BIN): $(ARCH)/$(BIN) install: rm -f $(BINDIR)/$(BIN) cp $(ARCH)/$(BIN) $(BINDIR)/$(BIN) else all: dirs $(BIN) $(BIN): $(OBJS) $(LIBS) $(CC) $(LFLAGS) $(OBJS) $(LIBS) $(TAILLIBS) -o $@ clean: -rm -f $(OBJS) $(BIN) install: rm -f $(BINDIR)/$(BIN) cp $(BIN) $(BINDIR)/$(BIN) endif saber: %load $(CFLAGS) $(SRCS) $(SFLAGS) TAGSRCS := $(SRCDIR)/h/*.h *.c $(patsubst %,$(SRCDIR)/empmain/%/*.c,$(DIRS)) tags: @echo "Making tags in $(SRCDIR)/h . $(DIRS)..." @ctags $(TAGSRCS) @echo "done." TAGS: @echo "Making tags in $(SRCDIR)/h . $(DIRS)..." @etags $(TAGSRCS) @echo "done."