Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume19 / xpt / part01 < prev next >

Wrap

Text File | 1993-04-27 | 70.7 KB | 1,705 lines

Newsgroups: comp.sources.x From: lordj@rpi.edu (<lordj@rpi.edu>) Subject: v19i069: xpt - An X Periodic Table, Part01/01 Message-ID: <1993Mar29.150835.28804@sparky.imd.sterling.com> X-Md4-Signature: cc6d9b22330363a403f9eb7968855901 Date: Mon, 29 Mar 1993 15:08:35 GMT Approved: chris@sparky.imd.sterling.com Submitted-by: lordj@rpi.edu (<lordj@rpi.edu>) Posting-number: Volume 19, Issue 69 Archive-name: xpt/part01 Environment: X11 [There is no man page for this program. It really doesn't need one.] [ -- Chris Olson ] xpt is a simple X-based periodic table, providing a bunch of useful, basic information at a click. Joel Lord (lordj@rpi.edu) ---- cut here ---- #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of shell archive." # Contents: Imakefile Makefile Xprogs.c Xprogs.h fontlist.h init.c # package table.c xpt.c xpt.h # Wrapped by lordj@vccsouth29.its.rpi.edu on Thu Mar 25 17:29:00 1993 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Imakefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Imakefile'\" else echo shar: Extracting \"'Imakefile'\" $331 characters$ sed "s/^X//" >'Imakefile' <<'END_OF_FILE' X# @(#)Imakefile 23.7 91/06/11 X# Imakefile - xlock X# XTARGETS = xpt X XSRCS = xpt.c init.c Xprogs.c table.c X XOBJS = xpt.o init.o Xprogs.o table.o X XLCL_LIB = XawClientLibs XDEPLIBS = XawClientDepLibs XSYS_LIBRARIES = -lm X XAllTarget($(TARGETS)) X XNormalProgramTarget($(TARGETS), $(OBJS), $(DEPLIBS), $(LCL_LIB), $(SYS_LIB)) X XDependTarget() END_OF_FILE if test 331 -ne `wc -c <'Imakefile'`; then echo shar: \"'Imakefile'\" unpacked with wrong size! fi # end of 'Imakefile' fi if test -f 'Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile'\" else echo shar: Extracting \"'Makefile'\" $9984 characters$ sed "s/^X//" >'Makefile' <<'END_OF_FILE' X# Makefile generated by imake - do not edit! X# $XConsortium: imake.c,v 1.65 91/07/25 17:50:17 rws Exp $ X# X# The cpp used on this machine replaces all newlines and multiple tabs and X# spaces in a macro expansion with a single space. Imake tries to compensate X# for this, but is not always successful. X# X X# ------------------------------------------------------------------------- X# Makefile generated from "Imake.tmpl" and </tmp/IIf.sYUBmj> X# $XConsortium: Imake.tmpl,v 1.139 91/09/16 08:52:48 rws Exp $ X# X# Platform-specific parameters may be set in the appropriate <vendor>.cf X# configuration files. Site-specific parameters should be set in the file X# site.def. Full rebuilds are recommended if any parameters are changed. X# X# If your C preprocessor does not define any unique symbols, you will need X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing X# "make World" the first time). X# X X# ------------------------------------------------------------------------- X# site-specific configuration parameters that need to come before X# the platform-specific parameters - edit site.def to change X X# site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ X X# ------------------------------------------------------------------------- X# platform-specific configuration parameters - edit ibm.cf to change X X# platform: $XConsortium: ibm.cf,v 1.29 91/07/28 22:39:58 rws Exp $ X X# operating system: AIX 3.2 X X# $XConsortium: ibmLib.rules,v 1.5 91/05/10 09:27:27 jap Exp $ X X# ------------------------------------------------------------------------- X# site-specific configuration parameters that go after X# the platform-specific parameters - edit site.def to change X X# site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ X X SHELL = /bin/sh X X TOP = . X CURRENT_DIR = . X X AR = ar clq X BOOTSTRAPCFLAGS = X CC = cc X AS = as X X COMPRESS = compress X CPP = /usr/lpp/X11/Xamples/util/cpp/cpp $(STD_CPP_DEFINES) X PREPROCESSCMD = cc -E $(STD_CPP_DEFINES) X INSTALL = /usr/ucb/install X LD = ld X LINT = lint X LINTLIBFLAG = -o X LINTOPTS = -ax X LN = ln -s X MAKE = make X MV = mv X CP = cp X X RM = rm -f X TROFF = psroff X MSMACROS = -ms X TBL = tbl X EQN = eqn X STD_INCLUDES = X STD_CPP_DEFINES = -DSYSV -DAIXV3 X STD_DEFINES = -DSYSV -DAIXV3 X EXTRA_LOAD_FLAGS = -bnodelcsect X EXTRA_LIBRARIES = X TAGS = ctags X X MFLAGS = -$(MAKEFLAGS) X X SHAREDCODEDEF = -DSHAREDCODE X SHLIBDEF = -DAIXSHLIB X X PROTO_DEFINES = X X INSTPGMFLAGS = X X INSTBINFLAGS = -m 0755 X INSTUIDFLAGS = -m 4755 X INSTLIBFLAGS = -m 0644 X INSTINCFLAGS = -m 0444 X INSTMANFLAGS = -m 0444 X INSTDATFLAGS = -m 0444 X INSTKMEMFLAGS = -m 4755 X X PROJECTROOT = /campus/X11/R5/core/1.0/@sys X X TOP_INCLUDES = -I$(INCROOT) X X CDEBUGFLAGS = -O X CCOPTIONS = X X ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) X ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(DEFINES) X CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES) X LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) X X LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) X X LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(LOCAL_LDFLAGS) -L$(USRLIBDIR) X X LDCOMBINEFLAGS = -r X DEPENDFLAGS = X X MACROFILE = ibm.cf X RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut X X IMAKE_DEFINES = X X IRULESRC = $(CONFIGDIR) X IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) X X ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \ X $(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \ X $(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES) X X# ------------------------------------------------------------------------- X# X Window System Build Parameters X# $XConsortium: Project.tmpl,v 1.138.1.1 92/11/11 09:49:19 rws Exp $ X X# ------------------------------------------------------------------------- X# X Window System make variables; this need to be coordinated with rules X X PATHSEP = / X USRLIBDIR = /campus/X11/R5/core/1.0/@sys/lib X BINDIR = /campus/X11/R5/core/1.0/@sys/bin X INCROOT = /campus/X11/R5/core/1.0/@sys/include X BUILDINCROOT = $(TOP) X BUILDINCDIR = $(BUILDINCROOT)/X11 X BUILDINCTOP = .. X INCDIR = $(INCROOT)/X11 X ADMDIR = /usr/adm X LIBDIR = $(USRLIBDIR)/X11 X CONFIGDIR = $(LIBDIR)/config X LINTLIBDIR = $(USRLIBDIR)/lint X X FONTDIR = $(LIBDIR)/fonts X XINITDIR = $(LIBDIR)/xinit X XDMDIR = $(LIBDIR)/xdm X TWMDIR = $(LIBDIR)/twm X MANPATH = /campus/X11/R5/core/1.0/@sys/man X MANSOURCEPATH = $(MANPATH)/man X MANSUFFIX = 1 X LIBMANSUFFIX = 3 X MANDIR = $(MANSOURCEPATH)$(MANSUFFIX) X LIBMANDIR = $(MANSOURCEPATH)$(LIBMANSUFFIX) X NLSDIR = $(LIBDIR)/nls X PEXAPIDIR = $(LIBDIR)/PEX X XAPPLOADDIR = $(LIBDIR)/app-defaults X FONTCFLAGS = -t X X INSTAPPFLAGS = $(INSTDATFLAGS) X X IMAKE = imake X DEPEND = makedepend X RGB = rgb X X FONTC = bdftopcf X X MKFONTDIR = mkfontdir X MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier X X CONFIGSRC = $(TOP)/config X DOCUTILSRC = $(TOP)/doc/util X CLIENTSRC = $(TOP)/clients X DEMOSRC = $(TOP)/demos X LIBSRC = $(TOP)/lib X FONTSRC = $(TOP)/fonts X INCLUDESRC = $(TOP)/X11 X SERVERSRC = $(TOP)/server X UTILSRC = $(TOP)/util X SCRIPTSRC = $(UTILSRC)/scripts X EXAMPLESRC = $(TOP)/examples X CONTRIBSRC = $(TOP)/../contrib X DOCSRC = $(TOP)/doc X RGBSRC = $(TOP)/rgb X DEPENDSRC = $(UTILSRC)/makedepend X IMAKESRC = $(CONFIGSRC) X XAUTHSRC = $(LIBSRC)/Xau X XLIBSRC = $(LIBSRC)/X X XMUSRC = $(LIBSRC)/Xmu X TOOLKITSRC = $(LIBSRC)/Xt X AWIDGETSRC = $(LIBSRC)/Xaw X OLDXLIBSRC = $(LIBSRC)/oldX X XDMCPLIBSRC = $(LIBSRC)/Xdmcp X BDFTOSNFSRC = $(FONTSRC)/bdftosnf X BDFTOSNFSRC = $(FONTSRC)/clients/bdftosnf X BDFTOPCFSRC = $(FONTSRC)/clients/bdftopcf X MKFONTDIRSRC = $(FONTSRC)/clients/mkfontdir X FSLIBSRC = $(FONTSRC)/lib/fs X FONTSERVERSRC = $(FONTSRC)/server X EXTENSIONSRC = $(TOP)/extensions X XILIBSRC = $(EXTENSIONSRC)/lib/xinput X PEXLIBSRC = $(EXTENSIONSRC)/lib/PEXlib X PHIGSLIBSRC = $(EXTENSIONSRC)/lib/PEX X X# $XConsortium: ibmLib.tmpl,v 1.2.1.1 92/11/11 09:50:49 rws Exp $ X XPICFLAGS = -bM\:SRE X X DEPEXTENSIONLIB = X EXTENSIONLIB = -lXext X X DEPXLIB = $(DEPEXTENSIONLIB) X XLIB = $(EXTENSIONLIB) -lX11 X X DEPXMULIB = X XMULIB = -lXmu X X DEPOLDXLIB = X OLDXLIB = -loldX X X DEPXTOOLLIB = $(USRLIBDIR)/libXt.a X XTOOLLIB = -lXt X X DEPXAWLIB = X XAWLIB = -lXaw X X DEPXILIB = X XILIB = -lXi X X DEPPEXLIB = X PEXLIB = -lPEX5 X X SOXLIBREV = SharedXlibRev X SOXTREV = SharedXtRev X SOXAWREV = SharedXawRev X SOOLDXREV = SharedOldXRev X SOXMUREV = SharedXmuRev X SOXEXTREV = SharedXextRev X SOXINPUTREV = SharedXinputRev X SOPEXREV = SharedPexRev X X DEPXAUTHLIB = $(USRLIBDIR)/libXau.a X XAUTHLIB = -lXau X DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a X XDMCPLIB = -lXdmcp X X DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a X PHIGSLIB = -lphigs X X DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a X XBSDLIB = -lXbsd X X LINTEXTENSIONLIB = $(LINTLIBDIR)/llib-lXext.ln X LINTXLIB = $(LINTLIBDIR)/llib-lX11.ln X LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln X LINTXTOOL = $(LINTLIBDIR)/llib-lXt.ln X LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln X LINTXI = $(LINTLIBDIR)/llib-lXi.ln X LINTPEX = $(LINTLIBDIR)/llib-lPEX5.ln X LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln X X DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) X X DEPLIBS1 = $(DEPLIBS) X DEPLIBS2 = $(DEPLIBS) X DEPLIBS3 = $(DEPLIBS) X X# ------------------------------------------------------------------------- X# Imake rules for building libraries, programs, scripts, and data files X# rules: $XConsortium: Imake.rules,v 1.123 91/09/16 20:12:16 rws Exp $ X X# ------------------------------------------------------------------------- X# start of Imakefile X X# @(#)Imakefile 23.7 91/06/11 X# Imakefile - xlock X# XTARGETS = xpt X XSRCS = xpt.c init.c Xprogs.c table.c X XOBJS = xpt.o init.o Xprogs.o table.o X XLCL_LIB = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) XDEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) XSYS_LIBRARIES = -lm X Xall:: $(TARGETS) X X$(TARGETS): $(OBJS) $(DEPLIBS) X $(RM) $@ X $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LCL_LIB) $(LDLIBS) $(SYS_LIB) $(EXTRA_LOAD_FLAGS) X Xclean:: X $(RM) $(TARGETS) X Xdepend:: X $(DEPEND) $(DEPENDFLAGS) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS) X X# ------------------------------------------------------------------------- X# common rules for all Makefiles - do not edit X Xemptyrule:: X Xclean:: X $(RM_CMD) "#"* X XMakefile:: X -@if [ -f Makefile ]; then set -x; \ X $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ X else exit 0; fi X $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) X Xtags:: X $(TAGS) -w *.[ch] X $(TAGS) -xw *.[ch] > TAGS X X# ------------------------------------------------------------------------- X# empty rules for directories that do not have SUBDIRS - do not edit X Xinstall:: X @echo "install in $(CURRENT_DIR) done" X Xinstall.man:: X @echo "install.man in $(CURRENT_DIR) done" X XMakefiles:: X Xincludes:: X X# ------------------------------------------------------------------------- X# dependencies generated by makedepend X END_OF_FILE if test 9984 -ne `wc -c <'Makefile'`; then echo shar: \"'Makefile'\" unpacked with wrong size! fi # end of 'Makefile' fi if test -f 'Xprogs.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Xprogs.c'\" else echo shar: Extracting \"'Xprogs.c'\" $1678 characters$ sed "s/^X//" >'Xprogs.c' <<'END_OF_FILE' X/** X * X * xpt -- An X Periodic Table X * X * Modularized X Windows functions X * X * GetColors(name, cmap, def) X * Allocates color "name", or uses color "def" if "name" is unavailable X * char *name name of color to be allocated X * Colormap cmap colormap to get "name" from X * unsigned long def default color to use if "name" is unavailable X * probably the output from a function like "BlackPixel" X * X * XFontStruct *GetFont(fontname) X * Load a font for use in X Windows X * char *fontname name of font to load X * X * GC CreateGC(window, font, fgcolor, bgcolor) X * Create a Graphics Context for a window X * Window window; the window to create the graphics context for X * XFontStruct font; The default font for the window X * unsigned long fgcolor, bgcolor; X * X * Joel P. Lord 03/05/93 X * X**/ X X#define Xprogs X#include "Xprogs.h" X Xunsigned long GetColors(name, cmap, def) Xchar *name; XColormap cmap; Xunsigned long def; X{ X XColor color; X unsigned long retval; X X if (XParseColor(p_disp, cmap, name, &color) == 0 || X XAllocColor(p_disp, cmap, &color) == 0) X retval = def; X else X retval = color.pixel; X return retval; X} X XXFontStruct *GetFont(fname) Xchar *fname; X{ X XFontStruct *tempfont; X X if ((tempfont = XLoadQueryFont(p_disp,fname)) == NULL) X { X fputs("Can't open font",stderr); X fputs(fname,stderr); X exit(1); X } X return tempfont; X} X XGC CreateGC(wind, fntstruct, fgpix, bgpix) XWindow wind; XXFontStruct *fntstruct; Xunsigned long fgpix, bgpix; X{ X XGCValues gcv; X X gcv.font = fntstruct->fid; X gcv.foreground = fgpix; X gcv.background = bgpix; X X return(XCreateGC(p_disp, wind, (GCFont | GCForeground | GCBackground), &gcv)); X} END_OF_FILE if test 1678 -ne `wc -c <'Xprogs.c'`; then echo shar: \"'Xprogs.c'\" unpacked with wrong size! fi # end of 'Xprogs.c' fi if test -f 'Xprogs.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Xprogs.h'\" else echo shar: Extracting \"'Xprogs.h'\" $1242 characters$ sed "s/^X//" >'Xprogs.h' <<'END_OF_FILE' X/** X * X * Definitions of some useful data types for Xlib programming, X * as well as a few necessary variables (display name, etc) X * X * X * Joel P. Lord 2/6/93 X * X**/ X X#include <stdio.h> X#include <string.h> X#include <X11/Xlib.h> X#include <X11/Xutil.h> X#include <X11/Xresource.h> X#include <X11/cursorfont.h> X#include <X11/keysym.h> X#include "fontlist.h" X X#define WP WhitePixel(p_disp, DefaultScreen(p_disp)) X#define BP BlackPixel(p_disp, DefaultScreen(p_disp)) X Xtypedef struct XWIN X{ X Window xid; X Window parent; X void *data; X void (*event_handler)(); X GC button_gc; X} XWIN; X Xtypedef struct Pix X{ X Pixmap image; X unsigned width; X unsigned height; X} Pix; X Xtypedef struct D_BUTTON X{ X char *label; X int (*action)(); X caddr_t action_args; X Pix *pix; X} D_BUTTON; X X#ifdef MAIN X XXFontStruct *mfontstruct; Xunsigned mfontheight; XDisplay *p_disp; XWindow Main; XGC theGC; XXEvent theEvent; Xchar default_geometry[80]; Xunsigned long mbgpix, mfgpix; XXContext xwin_context; X X#else X Xextern XFontStruct *mfontstruct; Xextern unsigned mfontheight; Xextern Display *p_disp; Xextern Window Main; Xextern GC theGC; Xextern XEvent theEvent; Xextern char default_geometry[80]; Xextern unsigned long mbgpix, mfgpix; Xextern XContext xwin_context; X X#endif END_OF_FILE if test 1242 -ne `wc -c <'Xprogs.h'`; then echo shar: \"'Xprogs.h'\" unpacked with wrong size! fi # end of 'Xprogs.h' fi if test -f 'fontlist.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'fontlist.h'\" else echo shar: Extracting \"'fontlist.h'\" $29524 characters$ sed "s/^X//" >'fontlist.h' <<'END_OF_FILE' X#define COURIER_ITALIC_BOLD_10 "-adobe-courier-bold-o-normal--10-100-75-75-m-60-iso8859-1" X#define COURIER_ITALIC_BOLD_11 "-adobe-courier-bold-o-normal--11-80-100-100-m-60-iso8859-1" X#define COURIER_ITALIC_BOLD_12 "-adobe-courier-bold-o-normal--12-120-75-75-m-70-iso8859-1" X#define COURIER_ITALIC_BOLD_14 "-adobe-courier-bold-o-normal--14-100-100-100-m-90-iso8859-1" X#define COURIER_ITALIC_BOLD_14a "-adobe-courier-bold-o-normal--14-140-75-75-m-90-iso8859-1" X#define COURIER_ITALIC_BOLD_17 "-adobe-courier-bold-o-normal--17-120-100-100-m-100-iso8859-1" X#define COURIER_ITALIC_BOLD_18 "-adobe-courier-bold-o-normal--18-180-75-75-m-110-iso8859-1" X#define COURIER_ITALIC_BOLD_20 "-adobe-courier-bold-o-normal--20-140-100-100-m-110-iso8859-1" X#define COURIER_ITALIC_BOLD_24 "-adobe-courier-bold-o-normal--24-240-75-75-m-150-iso8859-1" X#define COURIER_ITALIC_BOLD_25 "-adobe-courier-bold-o-normal--25-180-100-100-m-150-iso8859-1" X#define COURIER_ITALIC_BOLD_34 "-adobe-courier-bold-o-normal--34-240-100-100-m-200-iso8859-1" X#define COURIER_ITALIC_BOLD_8 "-adobe-courier-bold-o-normal--8-80-75-75-m-50-iso8859-1" X#define COURIER_BOLD_10 "-adobe-courier-bold-r-normal--10-100-75-75-m-60-iso8859-1" X#define COURIER_BOLD_11 "-adobe-courier-bold-r-normal--11-80-100-100-m-60-iso8859-1" X#define COURIER_BOLD_12 "-adobe-courier-bold-r-normal--12-120-75-75-m-70-iso8859-1" X#define COURIER_BOLD_14 "-adobe-courier-bold-r-normal--14-100-100-100-m-90-iso8859-1" X#define COURIER_BOLD_14a "-adobe-courier-bold-r-normal--14-140-75-75-m-90-iso8859-1" X#define COURIER_BOLD_17 "-adobe-courier-bold-r-normal--17-120-100-100-m-100-iso8859-1" X#define COURIER_BOLD_18 "-adobe-courier-bold-r-normal--18-180-75-75-m-110-iso8859-1" X#define COURIER_BOLD_20 "-adobe-courier-bold-r-normal--20-140-100-100-m-110-iso8859-1" X#define COURIER_BOLD_24 "-adobe-courier-bold-r-normal--24-240-75-75-m-150-iso8859-1" X#define COURIER_BOLD_25 "-adobe-courier-bold-r-normal--25-180-100-100-m-150-iso8859-1" X#define COURIER_BOLD_34 "-adobe-courier-bold-r-normal--34-240-100-100-m-200-iso8859-1" X#define COURIER_BOLD_8 "-adobe-courier-bold-r-normal--8-80-75-75-m-50-iso8859-1" X#define COURIER_ITALIC_MEDIUM_10 "-adobe-courier-medium-o-normal--10-100-75-75-m-60-iso8859-1" X#define COURIER_ITALIC_MEDIUM_11 "-adobe-courier-medium-o-normal--11-80-100-100-m-60-iso8859-1" X#define COURIER_ITALIC_MEDIUM_12 "-adobe-courier-medium-o-normal--12-120-75-75-m-70-iso8859-1" X#define COURIER_ITALIC_MEDIUM_14 "-adobe-courier-medium-o-normal--14-100-100-100-m-90-iso8859-1" X#define COURIER_ITALIC_MEDIUM_14a "-adobe-courier-medium-o-normal--14-140-75-75-m-90-iso8859-1" X#define COURIER_ITALIC_MEDIUM_17 "-adobe-courier-medium-o-normal--17-120-100-100-m-100-iso8859-1" X#define COURIER_ITALIC_MEDIUM_18 "-adobe-courier-medium-o-normal--18-180-75-75-m-110-iso8859-1" X#define COURIER_ITALIC_MEDIUM_20 "-adobe-courier-medium-o-normal--20-140-100-100-m-110-iso8859-1" X#define COURIER_ITALIC_MEDIUM_24 "-adobe-courier-medium-o-normal--24-240-75-75-m-150-iso8859-1" X#define COURIER_ITALIC_MEDIUM_25 "-adobe-courier-medium-o-normal--25-180-100-100-m-150-iso8859-1" X#define COURIER_ITALIC_MEDIUM_34 "-adobe-courier-medium-o-normal--34-240-100-100-m-200-iso8859-1" X#define COURIER_ITALIC_MEDIUM_8 "-adobe-courier-medium-o-normal--8-80-75-75-m-50-iso8859-1" X#define COURIER_MEDIUM_10 "-adobe-courier-medium-r-normal--10-100-75-75-m-60-iso8859-1" X#define COURIER_MEDIUM_11 "-adobe-courier-medium-r-normal--11-80-100-100-m-60-iso8859-1" X#define COURIER_MEDIUM_12 "-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1" X#define COURIER_MEDIUM_14 "-adobe-courier-medium-r-normal--14-100-100-100-m-90-iso8859-1" X#define COURIER_MEDIUM_14a "-adobe-courier-medium-r-normal--14-140-75-75-m-90-iso8859-1" X#define COURIER_MEDIUM_17 "-adobe-courier-medium-r-normal--17-120-100-100-m-100-iso8859-1" X#define COURIER_MEDIUM_18 "-adobe-courier-medium-r-normal--18-180-75-75-m-110-iso8859-1" X#define COURIER_MEDIUM_20 "-adobe-courier-medium-r-normal--20-140-100-100-m-110-iso8859-1" X#define COURIER_MEDIUM_24 "-adobe-courier-medium-r-normal--24-240-75-75-m-150-iso8859-1" X#define COURIER_MEDIUM_25 "-adobe-courier-medium-r-normal--25-180-100-100-m-150-iso8859-1" X#define COURIER_MEDIUM_34 "-adobe-courier-medium-r-normal--34-240-100-100-m-200-iso8859-1" X#define COURIER_MEDIUM_8 "-adobe-courier-medium-r-normal--8-80-75-75-m-50-iso8859-1" X#define HELV_ITALIC_BOLD_10 "-adobe-helvetica-bold-o-normal--10-100-75-75-p-60-iso8859-1" X#define HELV_ITALIC_BOLD_11 "-adobe-helvetica-bold-o-normal--11-80-100-100-p-60-iso8859-1" X#define HELV_ITALIC_BOLD_12 "-adobe-helvetica-bold-o-normal--12-120-75-75-p-69-iso8859-1" X#define HELV_ITALIC_BOLD_14 "-adobe-helvetica-bold-o-normal--14-100-100-100-p-82-iso8859-1" X#define HELV_ITALIC_BOLD_14a "-adobe-helvetica-bold-o-normal--14-140-75-75-p-82-iso8859-1" X#define HELV_ITALIC_BOLD_17 "-adobe-helvetica-bold-o-normal--17-120-100-100-p-92-iso8859-1" X#define HELV_ITALIC_BOLD_18 "-adobe-helvetica-bold-o-normal--18-180-75-75-p-104-iso8859-1" X#define HELV_ITALIC_BOLD_20 "-adobe-helvetica-bold-o-normal--20-140-100-100-p-103-iso8859-1" X#define HELV_ITALIC_BOLD_24 "-adobe-helvetica-bold-o-normal--24-240-75-75-p-138-iso8859-1" X#define HELV_ITALIC_BOLD_25 "-adobe-helvetica-bold-o-normal--25-180-100-100-p-138-iso8859-1" X#define HELV_ITALIC_BOLD_34 "-adobe-helvetica-bold-o-normal--34-240-100-100-p-182-iso8859-1" X#define HELV_ITALIC_BOLD_8 "-adobe-helvetica-bold-o-normal--8-80-75-75-p-50-iso8859-1" X#define HELV_BOLD_10 "-adobe-helvetica-bold-r-normal--10-100-75-75-p-60-iso8859-1" X#define HELV_BOLD_11 "-adobe-helvetica-bold-r-normal--11-80-100-100-p-60-iso8859-1" X#define HELV_BOLD_12 "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-1" X#define HELV_BOLD_14 "-adobe-helvetica-bold-r-normal--14-100-100-100-p-82-iso8859-1" X#define HELV_BOLD_14a "-adobe-helvetica-bold-r-normal--14-140-75-75-p-82-iso8859-1" X#define HELV_BOLD_17 "-adobe-helvetica-bold-r-normal--17-120-100-100-p-92-iso8859-1" X#define HELV_BOLD_18 "-adobe-helvetica-bold-r-normal--18-180-75-75-p-103-iso8859-1" X#define HELV_BOLD_20 "-adobe-helvetica-bold-r-normal--20-140-100-100-p-105-iso8859-1" X#define HELV_BOLD_24 "-adobe-helvetica-bold-r-normal--24-240-75-75-p-138-iso8859-1" X#define HELV_BOLD_25 "-adobe-helvetica-bold-r-normal--25-180-100-100-p-138-iso8859-1" X#define HELV_BOLD_34 "-adobe-helvetica-bold-r-normal--34-240-100-100-p-182-iso8859-1" X#define HELV_BOLD_8 "-adobe-helvetica-bold-r-normal--8-80-75-75-p-50-iso8859-1" X#define HELV_ITALIC_MEDIUM_10 "-adobe-helvetica-medium-o-normal--10-100-75-75-p-57-iso8859-1" X#define HELV_ITALIC_MEDIUM_11 "-adobe-helvetica-medium-o-normal--11-80-100-100-p-57-iso8859-1" X#define HELV_ITALIC_MEDIUM_12 "-adobe-helvetica-medium-o-normal--12-120-75-75-p-67-iso8859-1" X#define HELV_ITALIC_MEDIUM_14 "-adobe-helvetica-medium-o-normal--14-100-100-100-p-78-iso8859-1" X#define HELV_ITALIC_MEDIUM_14a "-adobe-helvetica-medium-o-normal--14-140-75-75-p-78-iso8859-1" X#define HELV_ITALIC_MEDIUM_17 "-adobe-helvetica-medium-o-normal--17-120-100-100-p-88-iso8859-1" X#define HELV_ITALIC_MEDIUM_18 "-adobe-helvetica-medium-o-normal--18-180-75-75-p-98-iso8859-1" X#define HELV_ITALIC_MEDIUM_20 "-adobe-helvetica-medium-o-normal--20-140-100-100-p-98-iso8859-1" X#define HELV_ITALIC_MEDIUM_24 "-adobe-helvetica-medium-o-normal--24-240-75-75-p-130-iso8859-1" X#define HELV_ITALIC_MEDIUM_25 "-adobe-helvetica-medium-o-normal--25-180-100-100-p-130-iso8859-1" X#define HELV_ITALIC_MEDIUM_34 "-adobe-helvetica-medium-o-normal--34-240-100-100-p-176-iso8859-1" X#define HELV_ITALIC_MEDIUM_8 "-adobe-helvetica-medium-o-normal--8-80-75-75-p-47-iso8859-1" X#define HELV_MEDIUM_10 "-adobe-helvetica-medium-r-normal--10-100-75-75-p-56-iso8859-1" X#define HELV_MEDIUM_11 "-adobe-helvetica-medium-r-normal--11-80-100-100-p-56-iso8859-1" X#define HELV_MEDIUM_12 "-adobe-helvetica-medium-r-normal--12-120-75-75-p-67-iso8859-1" X#define HELV_MEDIUM_14 "-adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso8859-1" X#define HELV_MEDIUM_14a "-adobe-helvetica-medium-r-normal--14-140-75-75-p-77-iso8859-1" X#define HELV_MEDIUM_17 "-adobe-helvetica-medium-r-normal--17-120-100-100-p-88-iso8859-1" X#define HELV_MEDIUM_18 "-adobe-helvetica-medium-r-normal--18-180-75-75-p-98-iso8859-1" X#define HELV_MEDIUM_20 "-adobe-helvetica-medium-r-normal--20-140-100-100-p-100-iso8859-1" X#define HELV_MEDIUM_24 "-adobe-helvetica-medium-r-normal--24-240-75-75-p-130-iso8859-1" X#define HELV_MEDIUM_25 "-adobe-helvetica-medium-r-normal--25-180-100-100-p-130-iso8859-1" X#define HELV_MEDIUM_34 "-adobe-helvetica-medium-r-normal--34-240-100-100-p-176-iso8859-1" X#define HELV_MEDIUM_8 "-adobe-helvetica-medium-r-normal--8-80-75-75-p-46-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_10 "-adobe-new century schoolbook-bold-i-normal--10-100-75-75-p-66-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_11 "-adobe-new century schoolbook-bold-i-normal--11-80-100-100-p-66-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_12 "-adobe-new century schoolbook-bold-i-normal--12-120-75-75-p-76-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_14 "-adobe-new century schoolbook-bold-i-normal--14-100-100-100-p-88-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_14a "-adobe-new century schoolbook-bold-i-normal--14-140-75-75-p-88-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_17 "-adobe-new century schoolbook-bold-i-normal--17-120-100-100-p-99-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_18 "-adobe-new century schoolbook-bold-i-normal--18-180-75-75-p-111-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_20 "-adobe-new century schoolbook-bold-i-normal--20-140-100-100-p-111-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_24 "-adobe-new century schoolbook-bold-i-normal--24-240-75-75-p-148-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_25 "-adobe-new century schoolbook-bold-i-normal--25-180-100-100-p-148-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_34 "-adobe-new century schoolbook-bold-i-normal--34-240-100-100-p-193-iso8859-1" X#define SCHOOLBOOK_ITALIC_BOLD_8 "-adobe-new century schoolbook-bold-i-normal--8-80-75-75-p-56-iso8859-1" X#define SCHOOLBOOK_BOLD_10 "-adobe-new century schoolbook-bold-r-normal--10-100-75-75-p-66-iso8859-1" X#define SCHOOLBOOK_BOLD_11 "-adobe-new century schoolbook-bold-r-normal--11-80-100-100-p-66-iso8859-1" X#define SCHOOLBOOK_BOLD_12 "-adobe-new century schoolbook-bold-r-normal--12-120-75-75-p-77-iso8859-1" X#define SCHOOLBOOK_BOLD_14 "-adobe-new century schoolbook-bold-r-normal--14-100-100-100-p-87-iso8859-1" X#define SCHOOLBOOK_BOLD_14a "-adobe-new century schoolbook-bold-r-normal--14-140-75-75-p-87-iso8859-1" X#define SCHOOLBOOK_BOLD_17 "-adobe-new century schoolbook-bold-r-normal--17-120-100-100-p-99-iso8859-1" X#define SCHOOLBOOK_BOLD_18 "-adobe-new century schoolbook-bold-r-normal--18-180-75-75-p-113-iso8859-1" X#define SCHOOLBOOK_BOLD_20 "-adobe-new century schoolbook-bold-r-normal--20-140-100-100-p-113-iso8859-1" X#define SCHOOLBOOK_BOLD_24 "-adobe-new century schoolbook-bold-r-normal--24-240-75-75-p-149-iso8859-1" X#define SCHOOLBOOK_BOLD_25 "-adobe-new century schoolbook-bold-r-normal--25-180-100-100-p-149-iso8859-1" X#define SCHOOLBOOK_BOLD_34 "-adobe-new century schoolbook-bold-r-normal--34-240-100-100-p-193-iso8859-1" X#define SCHOOLBOOK_BOLD_8 "-adobe-new century schoolbook-bold-r-normal--8-80-75-75-p-56-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_10 "-adobe-new century schoolbook-medium-i-normal--10-100-75-75-p-60-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_11 "-adobe-new century schoolbook-medium-i-normal--11-80-100-100-p-60-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_12 "-adobe-new century schoolbook-medium-i-normal--12-120-75-75-p-70-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_14 "-adobe-new century schoolbook-medium-i-normal--14-100-100-100-p-81-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_14a "-adobe-new century schoolbook-medium-i-normal--14-140-75-75-p-81-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_17 "-adobe-new century schoolbook-medium-i-normal--17-120-100-100-p-92-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_18 "-adobe-new century schoolbook-medium-i-normal--18-180-75-75-p-104-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_20 "-adobe-new century schoolbook-medium-i-normal--20-140-100-100-p-104-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_24 "-adobe-new century schoolbook-medium-i-normal--24-240-75-75-p-136-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_25 "-adobe-new century schoolbook-medium-i-normal--25-180-100-100-p-136-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_34 "-adobe-new century schoolbook-medium-i-normal--34-240-100-100-p-182-iso8859-1" X#define SCHOOLBOOK_ITALIC_MEDIUM_8 "-adobe-new century schoolbook-medium-i-normal--8-80-75-75-p-50-iso8859-1" X#define SCHOOLBOOK_MEDIUM_10 "-adobe-new century schoolbook-medium-r-normal--10-100-75-75-p-60-iso8859-1" X#define SCHOOLBOOK_MEDIUM_11 "-adobe-new century schoolbook-medium-r-normal--11-80-100-100-p-60-iso8859-1" X#define SCHOOLBOOK_MEDIUM_12 "-adobe-new century schoolbook-medium-r-normal--12-120-75-75-p-70-iso8859-1" X#define SCHOOLBOOK_MEDIUM_14 "-adobe-new century schoolbook-medium-r-normal--14-100-100-100-p-82-iso8859-1" X#define SCHOOLBOOK_MEDIUM_14a "-adobe-new century schoolbook-medium-r-normal--14-140-75-75-p-82-iso8859-1" X#define SCHOOLBOOK_MEDIUM_17 "-adobe-new century schoolbook-medium-r-normal--17-120-100-100-p-91-iso8859-1" X#define SCHOOLBOOK_MEDIUM_18 "-adobe-new century schoolbook-medium-r-normal--18-180-75-75-p-103-iso8859-1" X#define SCHOOLBOOK_MEDIUM_20 "-adobe-new century schoolbook-medium-r-normal--20-140-100-100-p-103-iso8859-1" X#define SCHOOLBOOK_MEDIUM_24 "-adobe-new century schoolbook-medium-r-normal--24-240-75-75-p-137-iso8859-1" X#define SCHOOLBOOK_MEDIUM_25 "-adobe-new century schoolbook-medium-r-normal--25-180-100-100-p-136-iso8859-1" X#define SCHOOLBOOK_MEDIUM_34 "-adobe-new century schoolbook-medium-r-normal--34-240-100-100-p-181-iso8859-1" X#define SCHOOLBOOK_MEDIUM_8 "-adobe-new century schoolbook-medium-r-normal--8-80-75-75-p-50-iso8859-1" X#define SYMBOL_MEDIUM_10 "-adobe-symbol-medium-r-normal--10-100-75-75-p-61-adobe-fontspecific" X#define SYMBOL_MEDIUM_11 "-adobe-symbol-medium-r-normal--11-80-100-100-p-61-adobe-fontspecific" X#define SYMBOL_MEDIUM_12 "-adobe-symbol-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific" X#define SYMBOL_MEDIUM_14 "-adobe-symbol-medium-r-normal--14-100-100-100-p-85-adobe-fontspecific" X#define SYMBOL_MEDIUM_14a "-adobe-symbol-medium-r-normal--14-140-75-75-p-85-adobe-fontspecific" X#define SYMBOL_MEDIUM_17 "-adobe-symbol-medium-r-normal--17-120-100-100-p-95-adobe-fontspecific" X#define SYMBOL_MEDIUM_18 "-adobe-symbol-medium-r-normal--18-180-75-75-p-107-adobe-fontspecific" X#define SYMBOL_MEDIUM_20 "-adobe-symbol-medium-r-normal--20-140-100-100-p-107-adobe-fontspecific" X#define SYMBOL_MEDIUM_24 "-adobe-symbol-medium-r-normal--24-240-75-75-p-142-adobe-fontspecific" X#define SYMBOL_MEDIUM_25 "-adobe-symbol-medium-r-normal--25-180-100-100-p-142-adobe-fontspecific" X#define SYMBOL_MEDIUM_34 "-adobe-symbol-medium-r-normal--34-240-100-100-p-191-adobe-fontspecific" X#define SYMBOL_MEDIUM_8 "-adobe-symbol-medium-r-normal--8-80-75-75-p-51-adobe-fontspecific" X#define TIMES_ITALIC_BOLD_10 "-adobe-times-bold-i-normal--10-100-75-75-p-57-iso8859-1" X#define TIMES_ITALIC_BOLD_11 "-adobe-times-bold-i-normal--11-80-100-100-p-57-iso8859-1" X#define TIMES_ITALIC_BOLD_12 "-adobe-times-bold-i-normal--12-120-75-75-p-68-iso8859-1" X#define TIMES_ITALIC_BOLD_14 "-adobe-times-bold-i-normal--14-100-100-100-p-77-iso8859-1" X#define TIMES_ITALIC_BOLD_14a "-adobe-times-bold-i-normal--14-140-75-75-p-77-iso8859-1" X#define TIMES_ITALIC_BOLD_17 "-adobe-times-bold-i-normal--17-120-100-100-p-86-iso8859-1" X#define TIMES_ITALIC_BOLD_18 "-adobe-times-bold-i-normal--18-180-75-75-p-98-iso8859-1" X#define TIMES_ITALIC_BOLD_20 "-adobe-times-bold-i-normal--20-140-100-100-p-98-iso8859-1" X#define TIMES_ITALIC_BOLD_24 "-adobe-times-bold-i-normal--24-240-75-75-p-128-iso8859-1" X#define TIMES_ITALIC_BOLD_25 "-adobe-times-bold-i-normal--25-180-100-100-p-128-iso8859-1" X#define TIMES_ITALIC_BOLD_34 "-adobe-times-bold-i-normal--34-240-100-100-p-170-iso8859-1" X#define TIMES_ITALIC_BOLD_8 "-adobe-times-bold-i-normal--8-80-75-75-p-47-iso8859-1" X#define TIMES_BOLD_10 "-adobe-times-bold-r-normal--10-100-75-75-p-57-iso8859-1" X#define TIMES_BOLD_11 "-adobe-times-bold-r-normal--11-80-100-100-p-57-iso8859-1" X#define TIMES_BOLD_12 "-adobe-times-bold-r-normal--12-120-75-75-p-67-iso8859-1" X#define TIMES_BOLD_14 "-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1" X#define TIMES_BOLD_14a "-adobe-times-bold-r-normal--14-140-75-75-p-77-iso8859-1" X#define TIMES_BOLD_17 "-adobe-times-bold-r-normal--17-120-100-100-p-88-iso8859-1" X#define TIMES_BOLD_18 "-adobe-times-bold-r-normal--18-180-75-75-p-99-iso8859-1" X#define TIMES_BOLD_20 "-adobe-times-bold-r-normal--20-140-100-100-p-100-iso8859-1" X#define TIMES_BOLD_24 "-adobe-times-bold-r-normal--24-240-75-75-p-132-iso8859-1" X#define TIMES_BOLD_25 "-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1" X#define TIMES_BOLD_34 "-adobe-times-bold-r-normal--34-240-100-100-p-177-iso8859-1" X#define TIMES_BOLD_8 "-adobe-times-bold-r-normal--8-80-75-75-p-47-iso8859-1" X#define TIMES_ITALIC_MEDIUM_10 "-adobe-times-medium-i-normal--10-100-75-75-p-52-iso8859-1" X#define TIMES_ITALIC_MEDIUM_11 "-adobe-times-medium-i-normal--11-80-100-100-p-52-iso8859-1" X#define TIMES_ITALIC_MEDIUM_12 "-adobe-times-medium-i-normal--12-120-75-75-p-63-iso8859-1" X#define TIMES_ITALIC_MEDIUM_14 "-adobe-times-medium-i-normal--14-100-100-100-p-73-iso8859-1" X#define TIMES_ITALIC_MEDIUM_14a "-adobe-times-medium-i-normal--14-140-75-75-p-73-iso8859-1" X#define TIMES_ITALIC_MEDIUM_17 "-adobe-times-medium-i-normal--17-120-100-100-p-84-iso8859-1" X#define TIMES_ITALIC_MEDIUM_18 "-adobe-times-medium-i-normal--18-180-75-75-p-94-iso8859-1" X#define TIMES_ITALIC_MEDIUM_20 "-adobe-times-medium-i-normal--20-140-100-100-p-94-iso8859-1" X#define TIMES_ITALIC_MEDIUM_24 "-adobe-times-medium-i-normal--24-240-75-75-p-125-iso8859-1" X#define TIMES_ITALIC_MEDIUM_25 "-adobe-times-medium-i-normal--25-180-100-100-p-125-iso8859-1" X#define TIMES_ITALIC_MEDIUM_34 "-adobe-times-medium-i-normal--34-240-100-100-p-168-iso8859-1" X#define TIMES_ITALIC_MEDIUM_8 "-adobe-times-medium-i-normal--8-80-75-75-p-42-iso8859-1" X#define TIMES_MEDIUM_10 "-adobe-times-medium-r-normal--10-100-75-75-p-54-iso8859-1" X#define TIMES_MEDIUM_11 "-adobe-times-medium-r-normal--11-80-100-100-p-54-iso8859-1" X#define TIMES_MEDIUM_12 "-adobe-times-medium-r-normal--12-120-75-75-p-64-iso8859-1" X#define TIMES_MEDIUM_14 "-adobe-times-medium-r-normal--14-100-100-100-p-74-iso8859-1" X#define TIMES_MEDIUM_14a "-adobe-times-medium-r-normal--14-140-75-75-p-74-iso8859-1" X#define TIMES_MEDIUM_17 "-adobe-times-medium-r-normal--17-120-100-100-p-84-iso8859-1" X#define TIMES_MEDIUM_18 "-adobe-times-medium-r-normal--18-180-75-75-p-94-iso8859-1" X#define TIMES_MEDIUM_20 "-adobe-times-medium-r-normal--20-140-100-100-p-96-iso8859-1" X#define TIMES_MEDIUM_24 "-adobe-times-medium-r-normal--24-240-75-75-p-124-iso8859-1" X#define TIMES_MEDIUM_25 "-adobe-times-medium-r-normal--25-180-100-100-p-125-iso8859-1" X#define TIMES_MEDIUM_34 "-adobe-times-medium-r-normal--34-240-100-100-p-170-iso8859-1" X#define TIMES_MEDIUM_8 "-adobe-times-medium-r-normal--8-80-75-75-p-44-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_10 "-b&h-lucidabright-demibold-i-normal--10-100-75-75-p-59-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_11 "-b&h-lucidabright-demibold-i-normal--11-80-100-100-p-66-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_12 "-b&h-lucidabright-demibold-i-normal--12-120-75-75-p-72-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_14 "-b&h-lucidabright-demibold-i-normal--14-100-100-100-p-84-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_14a "-b&h-lucidabright-demibold-i-normal--14-140-75-75-p-84-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_17 "-b&h-lucidabright-demibold-i-normal--17-120-100-100-p-101-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_18 "-b&h-lucidabright-demibold-i-normal--18-180-75-75-p-107-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_19 "-b&h-lucidabright-demibold-i-normal--19-190-75-75-p-114-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_20 "-b&h-lucidabright-demibold-i-normal--20-140-100-100-p-119-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_24 "-b&h-lucidabright-demibold-i-normal--24-240-75-75-p-143-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_25 "-b&h-lucidabright-demibold-i-normal--25-180-100-100-p-149-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_26 "-b&h-lucidabright-demibold-i-normal--26-190-100-100-p-156-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_34 "-b&h-lucidabright-demibold-i-normal--34-240-100-100-p-203-iso8859-1" X#define LUCIDABRIGHT_ITALIC_BOLD_8 "-b&h-lucidabright-demibold-i-normal--8-80-75-75-p-48-iso8859-1" X#define LUCIDABRIGHT_BOLD_10 "-b&h-lucidabright-demibold-r-normal--10-100-75-75-p-59-iso8859-1" X#define LUCIDABRIGHT_BOLD_11 "-b&h-lucidabright-demibold-r-normal--11-80-100-100-p-66-iso8859-1" X#define LUCIDABRIGHT_BOLD_12 "-b&h-lucidabright-demibold-r-normal--12-120-75-75-p-71-iso8859-1" X#define LUCIDABRIGHT_BOLD_14 "-b&h-lucidabright-demibold-r-normal--14-100-100-100-p-84-iso8859-1" X#define LUCIDABRIGHT_BOLD_14a "-b&h-lucidabright-demibold-r-normal--14-140-75-75-p-84-iso8859-1" X#define LUCIDABRIGHT_BOLD_17 "-b&h-lucidabright-demibold-r-normal--17-120-100-100-p-101-iso8859-1" X#define LUCIDABRIGHT_BOLD_18 "-b&h-lucidabright-demibold-r-normal--18-180-75-75-p-107-iso8859-1" X#define LUCIDABRIGHT_BOLD_19 "-b&h-lucidabright-demibold-r-normal--19-190-75-75-p-114-iso8859-1" X#define LUCIDABRIGHT_BOLD_20 "-b&h-lucidabright-demibold-r-normal--20-140-100-100-p-118-iso8859-1" X#define LUCIDABRIGHT_BOLD_24 "-b&h-lucidabright-demibold-r-normal--24-240-75-75-p-143-iso8859-1" X#define LUCIDABRIGHT_BOLD_25 "-b&h-lucidabright-demibold-r-normal--25-180-100-100-p-149-iso8859-1" X#define LUCIDABRIGHT_BOLD_26 "-b&h-lucidabright-demibold-r-normal--26-190-100-100-p-155-iso8859-1" X#define LUCIDABRIGHT_BOLD_34 "-b&h-lucidabright-demibold-r-normal--34-240-100-100-p-202-iso8859-1" X#define LUCIDABRIGHT_BOLD_8 "-b&h-lucidabright-demibold-r-normal--8-80-75-75-p-47-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_10 "-b&h-lucidabright-medium-i-normal--10-100-75-75-p-57-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_11 "-b&h-lucidabright-medium-i-normal--11-80-100-100-p-63-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_12 "-b&h-lucidabright-medium-i-normal--12-120-75-75-p-67-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_14 "-b&h-lucidabright-medium-i-normal--14-100-100-100-p-80-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_14a "-b&h-lucidabright-medium-i-normal--14-140-75-75-p-80-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_17 "-b&h-lucidabright-medium-i-normal--17-120-100-100-p-96-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_18 "-b&h-lucidabright-medium-i-normal--18-180-75-75-p-102-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_19 "-b&h-lucidabright-medium-i-normal--19-190-75-75-p-109-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_20 "-b&h-lucidabright-medium-i-normal--20-140-100-100-p-113-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_24 "-b&h-lucidabright-medium-i-normal--24-240-75-75-p-136-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_25 "-b&h-lucidabright-medium-i-normal--25-180-100-100-p-142-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_26 "-b&h-lucidabright-medium-i-normal--26-190-100-100-p-148-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_34 "-b&h-lucidabright-medium-i-normal--34-240-100-100-p-194-iso8859-1" X#define LUCIDABRIGHT_ITALIC_MEDIUM_8 "-b&h-lucidabright-medium-i-normal--8-80-75-75-p-45-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_10 "-b&h-lucidabright-medium-r-normal--10-100-75-75-p-56-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_11 "-b&h-lucidabright-medium-r-normal--11-80-100-100-p-63-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_12 "-b&h-lucidabright-medium-r-normal--12-120-75-75-p-68-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_14 "-b&h-lucidabright-medium-r-normal--14-100-100-100-p-80-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_14a "-b&h-lucidabright-medium-r-normal--14-140-75-75-p-80-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_17 "-b&h-lucidabright-medium-r-normal--17-120-100-100-p-96-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_18 "-b&h-lucidabright-medium-r-normal--18-180-75-75-p-103-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_19 "-b&h-lucidabright-medium-r-normal--19-190-75-75-p-109-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_20 "-b&h-lucidabright-medium-r-normal--20-140-100-100-p-114-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_24 "-b&h-lucidabright-medium-r-normal--24-240-75-75-p-137-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_25 "-b&h-lucidabright-medium-r-normal--25-180-100-100-p-142-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_26 "-b&h-lucidabright-medium-r-normal--26-190-100-100-p-149-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_34 "-b&h-lucidabright-medium-r-normal--34-240-100-100-p-193-iso8859-1" X#define LUCIDABRIGHT_MEDIUM_8 "-b&h-lucidabright-medium-r-normal--8-80-75-75-p-45-iso8859-1" X#define CHARTER_ITALIC_BOLD_10 "-bitstream-charter-bold-i-normal--10-100-75-75-p-62-iso8859-1" X#define CHARTER_ITALIC_BOLD_11 "-bitstream-charter-bold-i-normal--11-80-100-100-p-68-iso8859-1" X#define CHARTER_ITALIC_BOLD_12 "-bitstream-charter-bold-i-normal--12-120-75-75-p-74-iso8859-1" X#define CHARTER_ITALIC_BOLD_14 "-bitstream-charter-bold-i-normal--14-100-100-100-p-86-iso8859-1" X#define CHARTER_ITALIC_BOLD_15 "-bitstream-charter-bold-i-normal--15-140-75-75-p-93-iso8859-1" X#define CHARTER_ITALIC_BOLD_17 "-bitstream-charter-bold-i-normal--17-120-100-100-p-105-iso8859-1" X#define CHARTER_ITALIC_BOLD_19 "-bitstream-charter-bold-i-normal--19-140-100-100-p-117-iso8859-1" X#define CHARTER_ITALIC_BOLD_19a "-bitstream-charter-bold-i-normal--19-180-75-75-p-117-iso8859-1" X#define CHARTER_ITALIC_BOLD_25 "-bitstream-charter-bold-i-normal--25-180-100-100-p-154-iso8859-1" X#define CHARTER_ITALIC_BOLD_25a "-bitstream-charter-bold-i-normal--25-240-75-75-p-154-iso8859-1" X#define CHARTER_ITALIC_BOLD_33 "-bitstream-charter-bold-i-normal--33-240-100-100-p-203-iso8859-1" X#define CHARTER_ITALIC_BOLD_8 "-bitstream-charter-bold-i-normal--8-80-75-75-p-50-iso8859-1" X#define CHARTER_BOLD_10 "-bitstream-charter-bold-r-normal--10-100-75-75-p-63-iso8859-1" X#define CHARTER_BOLD_11 "-bitstream-charter-bold-r-normal--11-80-100-100-p-69-iso8859-1" X#define CHARTER_BOLD_12 "-bitstream-charter-bold-r-normal--12-120-75-75-p-75-iso8859-1" X#define CHARTER_BOLD_14 "-bitstream-charter-bold-r-normal--14-100-100-100-p-88-iso8859-1" X#define CHARTER_BOLD_15 "-bitstream-charter-bold-r-normal--15-140-75-75-p-94-iso8859-1" X#define CHARTER_BOLD_17 "-bitstream-charter-bold-r-normal--17-120-100-100-p-107-iso8859-1" X#define CHARTER_BOLD_19 "-bitstream-charter-bold-r-normal--19-140-100-100-p-119-iso8859-1" X#define CHARTER_BOLD_19a "-bitstream-charter-bold-r-normal--19-180-75-75-p-119-iso8859-1" X#define CHARTER_BOLD_25 "-bitstream-charter-bold-r-normal--25-180-100-100-p-157-iso8859-1" X#define CHARTER_BOLD_25a "-bitstream-charter-bold-r-normal--25-240-75-75-p-157-iso8859-1" X#define CHARTER_BOLD_33 "-bitstream-charter-bold-r-normal--33-240-100-100-p-206-iso8859-1" X#define CHARTER_BOLD_8 "-bitstream-charter-bold-r-normal--8-80-75-75-p-50-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_10 "-bitstream-charter-medium-i-normal--10-100-75-75-p-55-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_11 "-bitstream-charter-medium-i-normal--11-80-100-100-p-60-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_12 "-bitstream-charter-medium-i-normal--12-120-75-75-p-65-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_14 "-bitstream-charter-medium-i-normal--14-100-100-100-p-76-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_15 "-bitstream-charter-medium-i-normal--15-140-75-75-p-82-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_17 "-bitstream-charter-medium-i-normal--17-120-100-100-p-92-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_19 "-bitstream-charter-medium-i-normal--19-140-100-100-p-103-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_19a "-bitstream-charter-medium-i-normal--19-180-75-75-p-103-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_25 "-bitstream-charter-medium-i-normal--25-180-100-100-p-136-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_25a "-bitstream-charter-medium-i-normal--25-240-75-75-p-136-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_33 "-bitstream-charter-medium-i-normal--33-240-100-100-p-179-iso8859-1" X#define CHARTER_ITALIC_MEDIUM_8 "-bitstream-charter-medium-i-normal--8-80-75-75-p-44-iso8859-1" X#define CHARTER_MEDIUM_10 "-bitstream-charter-medium-r-normal--10-100-75-75-p-56-iso8859-1" X#define CHARTER_MEDIUM_11 "-bitstream-charter-medium-r-normal--11-80-100-100-p-61-iso8859-1" X#define CHARTER_MEDIUM_12 "-bitstream-charter-medium-r-normal--12-120-75-75-p-67-iso8859-1" X#define CHARTER_MEDIUM_14 "-bitstream-charter-medium-r-normal--14-100-100-100-p-78-iso8859-1" X#define CHARTER_MEDIUM_15 "-bitstream-charter-medium-r-normal--15-140-75-75-p-84-iso8859-1" X#define CHARTER_MEDIUM_17 "-bitstream-charter-medium-r-normal--17-120-100-100-p-95-iso8859-1" X#define CHARTER_MEDIUM_19 "-bitstream-charter-medium-r-normal--19-140-100-100-p-106-iso8859-1" X#define CHARTER_MEDIUM_19a "-bitstream-charter-medium-r-normal--19-180-75-75-p-106-iso8859-1" X#define CHARTER_MEDIUM_25 "-bitstream-charter-medium-r-normal--25-180-100-100-p-139-iso8859-1" X#define CHARTER_MEDIUM_25a "-bitstream-charter-medium-r-normal--25-240-75-75-p-139-iso8859-1" X#define CHARTER_MEDIUM_33 "-bitstream-charter-medium-r-normal--33-240-100-100-p-183-iso8859-1" X#define CHARTER_MEDIUM_8 "-bitstream-charter-medium-r-normal--8-80-75-75-p-45-iso8859-1" X#define XMAHJONGG "xmahjongg" X#define XTREK "xtrek" X#define GLYPH "olglyph-10" X#define CURSOR "cursor" X#define ULTIMA_FONT "k14" END_OF_FILE if test 29524 -ne `wc -c <'fontlist.h'`; then echo shar: \"'fontlist.h'\" unpacked with wrong size! fi # end of 'fontlist.h' fi if test -f 'init.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'init.c'\" else echo shar: Extracting \"'init.c'\" $1047 characters$ sed "s/^X//" >'init.c' <<'END_OF_FILE' X/** X * X * xpt -- An X Periodic Table X * X * init.c -- initialize the colors needed X * X * Written by Joel P. Lord 03/05/93 X * X * This software is available for free distribution, X * under the condition that this not be removed from the X * source code. X * X**/ X X X#include "xpt.h" X Xunsigned long GetNumColor(); X Xinit_colors() X{ X default_cmap = DefaultColormap(p_disp, DefaultScreen(p_disp)); X X mbgpix = GetColors("NavyBlue", default_cmap, BP); X mfgpix = GetColors("white", default_cmap, WP); X red = GetColors("red", default_cmap, WP); X white = mfgpix; X slate_grey = GetColors("slategrey", default_cmap, BP); X} X Xunsigned long GetNumColor(num, cmap, def) Xunsigned long num; XColormap cmap; Xunsigned long def; X{ X XColor color; X unsigned long retval; X X color.pixel = num; X color.red = ((num >> 16) * 256); X color.green = ((num >> 8) & 0xFF) * 256; X color.blue = (num & 0xFF) * 256; X color.flags = DoBlue | DoGreen | DoRed; X X if (XAllocColor(p_disp, cmap, &color) == 0) X retval = def; X else X retval = color.pixel; X X return retval; X} END_OF_FILE if test 1047 -ne `wc -c <'init.c'`; then echo shar: \"'init.c'\" unpacked with wrong size! fi # end of 'init.c' fi if test -f 'package' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'package'\" else echo shar: Extracting \"'package'\" $93 characters$ sed "s/^X//" >'package' <<'END_OF_FILE' Xtar -cvf xpt.tar *.c *.h Makefile Imakefile Xsetup mtools Xmwrite xpt.tar a:xpt.tar Xrm xpt.tar END_OF_FILE if test 93 -ne `wc -c <'package'`; then echo shar: \"'package'\" unpacked with wrong size! fi chmod +x 'package' # end of 'package' fi if test -f 'table.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'table.c'\" else echo shar: Extracting \"'table.c'\" $10040 characters$ sed "s/^X//" >'table.c' <<'END_OF_FILE' X/** X * X * xpt -- An X Periodic Table X * X * table.c - Create the periodic table, and handle data requests X * X * Written bu Joel P. Lord 03/05/93 X * X * This software is available for free distribution, X * under the condition that this not be removed from the X * source code. X * X**/ X X#include "xpt.h" X#include <X11/Xaw/AsciiText.h> X Xvoid init_table() X{ X Widget elements[104]; X Widget quit_button; X int n = 0, i = 0, j = 0, k = 0, horiz_offset = 0; X Arg args[20]; X char title[3]; X void element_choice(), quit(); X XEvent tevent; X static char *table[] = { X"H He", X"LiBe B C N O F Ne", X"NaMg AlSiP S ClAr", X"K CaScTiVaCrMnFeCoNiCuZnGaGeAsSeBrKr", X"RbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI Xe", X"CsBaLaHfTaW ReOsIrPtAuHgTlPbBiPoAtRn", X"FrRaAc ", X" ", X" CePrNdPmSmEuGdTbDyHoErTmTbLu", X" ThPaU NpPuAmCmBkCfEsFmMdNoLr" X}; X X n = 0; X XtSetArg(args[n], XtNfromHoriz, NULL); X n++; X XtSetArg(args[n], XtNfromVert, NULL); X n++; X XtSetArg(args[n], XtNhorizDistance, 5); X n++; X XtSetArg(args[n], XtNvertDistance, 5); X n++; X XtSetArg(args[n], XtNwidth, 24); X n++; X XtSetArg(args[n], XtNheight, 32); X n++; X mbgpix = GetColors("NavyBlue", default_cmap, BP); X XtSetArg(args[n], XtNbackground, slate_grey); X n++; X XtSetArg(args[n], XtNforeground, mfgpix); X n++; X XtSetArg(args[n], XtNfont, mfontstruct); X n++; X X title[2] = 0; X for (j = 0; j < 10; j++) X { X for(i = 0; i < 36; i += 2) X { X title[0] = table[j][i]; X title[1] = table[j][i+1]; X if (title[0] != ' ') X { X elements[k] = XtCreateWidget(title, commandWidgetClass, X MainW, args, n); X XtAddCallback(elements[k], XtNcallback, element_choice, k); X XtRealizeWidget(elements[k]); X XtManageChild(elements[k]); X k++; X horiz_offset = 0; X XtSetArg(args[0], XtNfromHoriz, elements[k - 1]); X XtSetArg(args[2], XtNhorizDistance, 0); X } X else X { X horiz_offset += 26; X XtSetArg(args[2], XtNhorizDistance, horiz_offset); X } X } X horiz_offset = 0; X XtSetArg(args[0], XtNfromHoriz, NULL); X XtSetArg(args[1], XtNfromVert, elements[k-1]); X XtSetArg(args[2], XtNhorizDistance, 5); X XtSetArg(args[3], XtNvertDistance, 0); X } X X XtSetArg(args[0], XtNfromHoriz, NULL); X XtSetArg(args[1], XtNfromVert, NULL); X XtSetArg(args[2], XtNhorizDistance, 160); X XtSetArg(args[3], XtNvertDistance, 5); X XtSetArg(args[4], XtNwidth, 49); X XtSetArg(args[5], XtNheight, 32); X XtSetArg(args[6], XtNbackground, red); X XtSetArg(args[7], XtNforeground, white); X XtSetArg(args[9], XtNborderColor, red); X X quit_button = XtCreateManagedWidget("Quit", commandWidgetClass, MainW, X args, n + 1); X XtRealizeWidget(quit_button); X XtAddCallback(quit_button, XtNcallback, quit, 0); X} X Xstatic destroy_info; X Xvoid element_choice(w, element, event) XWidget w; Xint element; XXEvent *event; X{ X Widget element_info, ok_button, help_button; X Arg args[20]; X char *data_buf; X void ok(), help(); X X destroy_info = 0; X X data_buf = (char *)malloc(1000); X X element_info = XtVaCreateManagedWidget("Element Info",formWidgetClass, MainW, X XtNfromHoriz, NULL, X XtNfromVert, NULL, X XtNwidth, 200, X XtNheight, 250, X XtNvertDistance, 60, X XtNhorizDistance, 240, X XtNbackground, mbgpix, X XtNforeground, mfgpix, X XtNfont, mfontstruct, X XtNborderColor, slate_grey, NULL); X display_info(element_info, element); X X ok_button = XtVaCreateManagedWidget("Done", commandWidgetClass, element_info, X XtNfromHoriz, NULL, X XtNfromVert, NULL, X XtNwidth, 40, X XtNheight, 32, X XtNvertDistance, 210, X XtNhorizDistance, 100, X XtNbackground, slate_grey, X XtNforeground, mfgpix, X XtNfont, mfontstruct, X XtNborderColor, mbgpix, NULL); X X XtAddCallback(ok_button, XtNcallback, ok, 0); X X help_button = XtVaCreateManagedWidget("Help", commandWidgetClass, X element_info, X XtNfromHoriz, NULL, X XtNfromVert, NULL, X XtNwidth, 40, X XtNheight, 32, X XtNvertDistance, 210, X XtNhorizDistance, 60, X XtNbackground, slate_grey, X XtNforeground, mfgpix, X XtNfont, mfontstruct, X XtNborderColor, mbgpix, NULL); X XtAddCallback(help_button, XtNcallback, help, 0); X X while (!destroy_info && !done) X { X XtNextEvent(&theEvent); X XtDispatchEvent(&theEvent); X if (theEvent.type == Expose) X display_info(element_info, element); X } X XtDestroyWidget(element_info); X free(data_buf); X} X Xvoid ok(w, client_data, call_data) XWidget w; XXtPointer client_data, call_data; X{ X destroy_info = 1; X} X Xvoid quit(w, client_data, call_data) XWidget w; XXtPointer client_data; XXtPointer call_data; X{ X done = 1; X} X Xstatic unsigned destroy_help = 1; Xstatic Widget help_window; X Xvoid help(w, client_data, call_data) XWidget w; XXtPointer client_data, call_data; X{ X if (!destroy_help) X { X XtDestroyWidget(help_window); X destroy_help = 1; X } X else X { X destroy_help = 0; X X help_window = XtVaCreateManagedWidget("Element Info",formWidgetClass, X MainW, X XtNfromHoriz, NULL, X XtNfromVert, NULL, X XtNwidth, 200, X XtNheight, 250, X XtNvertDistance, 60, X XtNhorizDistance, 40, X XtNbackground, mbgpix, X XtNforeground, mfgpix, X XtNfont, mfontstruct, X XtNborderColor, slate_grey, NULL); X display_help(help_window); X X while (!destroy_info && !done && !destroy_help) X { X XtNextEvent(&theEvent); X XtDispatchEvent(&theEvent); X if(theEvent.type == Expose) X display_help(); X } X XtDestroyWidget(help_window); X destroy_help = 1; X } X} X Xdisplay_help(w) XWidget w; X{ X XDrawString(p_disp, XtWindow(w), theGC, 10, 10 + mfontheight, "Number", 6); X XDrawString(p_disp, XtWindow(w), BigGC, X 100 - XTextWidth(BigFont, "Sy", 2) / 2, 110 + mfontheight, X "Sy", 2); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, "Mass", 4), X 10 + mfontheight, "Mass", 4); X XDrawString(p_disp, XtWindow(w), theGC, 10, 60 + mfontheight, "BP", 2); X XDrawString(p_disp, XtWindow(w), theGC, 10, 100 + mfontheight, "MP", 2); X XDrawString(p_disp, XtWindow(w), theGC, 10, 140 + mfontheight, "Density", 7); X X XDrawString(p_disp, XtWindow(w), theGC, X 185 - XTextWidth(mfontstruct, "Atomic", 6), X 55 + mfontheight, "Atomic", 6); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, "Radius", 6), X 55 + 2 * mfontheight, "Radius", 6); X X XDrawString(p_disp, XtWindow(w), theGC, X 185 - XTextWidth(mfontstruct, "Covalent", 8), X 95 + mfontheight, "Covalent", 8); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, "Radius", 6), X 95 + 2 * mfontheight, "Radius", 6); X X XDrawString(p_disp, XtWindow(w), theGC, X 185 - XTextWidth(mfontstruct, "Atomic", 6), X 135 + mfontheight, "Atomic", 6); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, "Volume", 6), X 135 + 2 * mfontheight, "Volume", 6); X X XDrawString(p_disp, XtWindow(w), theGC, X 100 - XTextWidth(mfontstruct, "Name", 4) / 2, X 190 + mfontheight, "Name", 4); X} X Xdisplay_info(w, element) XWidget w; Xunsigned element; X{ X char *temp_buf, *temp2; X X temp_buf = (char *)malloc(100); X X sprintf(temp_buf, "%d", p_table[element].atomic_number); X XDrawString(p_disp, XtWindow(w), theGC, 10, 10 + mfontheight, temp_buf, X strlen(temp_buf)); X X sprintf(temp_buf, "%s", p_table[element].symbol); X temp2 = strchr(temp_buf, ' '); X *temp2 = 0; X XDrawString(p_disp, XtWindow(w), BigGC, X 100 - XTextWidth(BigFont, temp_buf, strlen(temp_buf)) / 2, X 110 + mfontheight, temp_buf, strlen(temp_buf)); X X sprintf(temp_buf, "%1.4lf", p_table[element].atomic_mass); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, temp_buf, strlen(temp_buf)), X 10 + mfontheight, temp_buf, strlen(temp_buf)); X X if (p_table[element].boiling_pt > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].boiling_pt); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, 10, 60 + mfontheight, temp_buf, X strlen(temp_buf)); X X if (p_table[element].melting_pt > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].melting_pt); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, 10, 100 + mfontheight, temp_buf, X strlen(temp_buf)); X X X if (p_table[element].density > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].density); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, 10, 140 + mfontheight, temp_buf, X strlen(temp_buf)); X X if (p_table[element].atomic_radius > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].atomic_radius); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, temp_buf, strlen(temp_buf)), X 60 + mfontheight, temp_buf, strlen(temp_buf)); X X if (p_table[element].covalent_radius > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].covalent_radius); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, temp_buf, strlen(temp_buf)), X 100 + mfontheight, temp_buf, strlen(temp_buf)); X X if (p_table[element].atomic_volume > 0.0) X sprintf(temp_buf, "%.2lf", p_table[element].atomic_volume); X else X strcpy(temp_buf, "--"); X XDrawString(p_disp, XtWindow(w), theGC, X 190 - XTextWidth(mfontstruct, temp_buf, strlen(temp_buf)), X 140 + mfontheight, temp_buf, strlen(temp_buf)); X X strcpy(temp_buf, p_table[element].name); X temp2 = strchr(temp_buf, ' '); X *temp2 = 0; X XDrawString(p_disp, XtWindow(w), theGC, X 100 - XTextWidth(mfontstruct, temp_buf, strlen(temp_buf)) / 2, X 190 + mfontheight, temp_buf, strlen(temp_buf)); X X free(temp_buf); X} END_OF_FILE if test 10040 -ne `wc -c <'table.c'`; then echo shar: \"'table.c'\" unpacked with wrong size! fi # end of 'table.c' fi if test -f 'xpt.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xpt.c'\" else echo shar: Extracting \"'xpt.c'\" $1291 characters$ sed "s/^X//" >'xpt.c' <<'END_OF_FILE' X/** X * X * xpt -- An X Periodic Table X * X * Written by Joel P. Lord 03/05/93 X * X * This software is available for free distribution, X * under the condition that this not be removed from the X * source code. X * X**/ X X#define MAIN X#include <stdio.h> X#include "xpt.h" X Xmain(argc, argv) Xint argc; Xchar *argv[]; X{ X Arg args[20]; X int n = 0; X XGCValues gcv; X X toplevel = XtInitialize("xpt", "X Periodic Table", X NULL, 0, &argc, argv); X X p_disp = XtDisplay(toplevel); X X mfontstruct = (XFontStruct *)GetFont(HELV_MEDIUM_12); X BigFont = (XFontStruct *)GetFont(HELV_BOLD_24); X mfontheight = mfontstruct->max_bounds.ascent + X mfontstruct->max_bounds.descent; X X init_colors(); X X XtSetArg(args[n], XtNfont, mfontstruct); X n++; X XtSetArg(args[n], XtNheight, 320); X n++; X XtSetArg(args[n], XtNwidth, 480); X n++; X XtSetArg(args[n], XtNbackground, mbgpix); X n++; X XtSetArg(args[n], XtNforeground, mfgpix); X n++; X X MainW = XtCreateManagedWidget("Xpt", formWidgetClass, toplevel, args, n); X X XtRealizeWidget(toplevel); X X theGC = (GC)CreateGC(XtWindow(MainW), mfontstruct, mfgpix, mbgpix); X BigGC = (GC)CreateGC(XtWindow(MainW), BigFont, mfgpix, mbgpix); X X init_table(); X X done = 0; X X while (!done) X { X XtNextEvent(&theEvent); X XtDispatchEvent(&theEvent); X } X} END_OF_FILE if test 1291 -ne `wc -c <'xpt.c'`; then echo shar: \"'xpt.c'\" unpacked with wrong size! fi # end of 'xpt.c' fi if test -f 'xpt.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xpt.h'\" else echo shar: Extracting \"'xpt.h'\" $10551 characters$ sed "s/^X//" >'xpt.h' <<'END_OF_FILE' X/** X * X * xpt -- An X Periodic Table X * X * xpt.h -- some necessary global variables, data types, and LOTS of info X * X * Written by Joel P. Lord 03/05/93 X * X * This software is available for free distribution, X * under the condition that this not be removed from the X * source code. X * X**/ X X#include <X11/Intrinsic.h> X#include <X11/StringDefs.h> X#include <X11/Xaw/XawInit.h> X#include <X11/Xaw/Simple.h> X#include <X11/Xaw/Command.h> X#include <X11/extensions/Xext.h> X#include <X11/Xaw/Command.h> X#include <X11/Xaw/Box.h> X#include <X11/Xaw/Form.h> X#include <X11/Xaw/Dialog.h> X#include <X11/Xaw/Scrollbar.h> X#include <X11/Xaw/List.h> X#include <X11/Xaw/Label.h> X#include "Xprogs.h" X#include "fontlist.h" X Xstruct element_stats { X double atomic_radius; X double covalent_radius; X unsigned atomic_number; X double atomic_mass; X char symbol[4]; X double boiling_pt; X double melting_pt; X double density; X double atomic_volume; X char name[14]; X}; X X#ifdef MAIN X XWidget toplevel, MainW; Xint done; XColormap default_cmap; Xunsigned long red, white, slate_grey; XXFontStruct *BigFont; XGC BigGC; X Xstruct element_stats p_table[] = { X0.79, 0.32, 1, 1.00794 , "H ", 20.268, 14.025 , 0.0899 , 14.4 , X "Hydrogen ", X0.49, 0.93, 2, 4.002602 , "He ", 4.215 , 0.95 , 0.1787 , 0.0 , X "Helium ", X2.05, 1.23, 3, 6.941 , "Li ", 1615 , 453.7 , 0.53 , 13.10, X "Lithium ", X1.40, 0.90, 4, 9.012182 , "Be ", 2745 , 1560.0 , 1.85 , 5.0 , X "Beryllium ", X1.17, 0.82, 5, 10.811 , "B ", 4275 , 2300.0 , 2.34 , 4.6 , X "Boron ", X0.91, 0.77, 6, 12.011 , "C ", 4470.0, 4100.0 , 2.62 , 4.58 , X "Carbon ", X0.75, 0.75, 7, 14.00674 , "N ", 77.35 , 63.14 , 1.251 , 17.3 , X "Nitrogen ", X0.65, 0.73, 8, 15.9994 , "O ", 90.18 , 50.35 , 1.429 , 14.0 , X "Oxygen ", X0.57, 0.72, 9, 18.9984032 , "F ", 84.95 , 53.48 , 1.696 , 17.1 , X "Fluorine ", X0.51, 0.71, 10, 20.1797 , "Ne ", 27.096, 24.553 , 0.901 , 16.7 , X "Neon ", X2.23, 1.54, 11, 22.989768 , "Na ", 1156 , 371.0 , 0.97 , 23.7 , X "Sodium ", X1.72, 1.36, 12, 24.3050 , "Mg ", 1363 , 922 , 1.74 , 13.97, X "Magnesium ", X1.82, 1.18, 13, 26.981539 , "Al ", 2793 , 933.25 , 2.70 , 10.0 , X "Aluminum ", X1.46, 1.11, 14, 28.0855 , "Si ", 3540.0, 1685 , 2.33 , 12.1 , X "Silicon ", X1.23, 1.06, 15, 30.97362 , "P ", 550.0 , 317.30 , 1.82 , 17.0 , X "Phosphorus ", X1.09, 1.02, 16, 32.066 , "S ", 717.75, 388.36 , 2.07 , 15.5 , X "Sulfur ", X0.97, 0.99, 17, 35.4527 , "Cl ", 239.1 , 172.16 , 3.17 , 22.7 , X "Chlorine ", X0.88, 0.98, 18, 39.948 , "Ar ", 87.30 , 83.81 , 1.784 , 28.5 , X "Argon ", X2.77, 2.03, 19, 39.0983 , "K ", 1032 , 336.35 , 0.86 , 45.46, X "Potassium ", X2.23, 1.91, 20, 40.078 , "Ca ", 1757 , 1112 , 1.55 , 29.9 , X "Calcium ", X2.09, 1.62, 21, 44.955910 , "Sc ", 3104 , 1812 , 3.0 , 15.0 , X "Scandium ", X2.00, 1.45, 22, 47.88 , "Ti ", 3562 , 1943 , 4.50 , 10.64, X "Titanium ", X1.92, 1.34, 23, 50.9415 , "V ", 3682 , 2175 , 5.8 , 8.78 , X "Vanadium ", X1.85, 1.18, 24, 51.9961 , "Cr ", 2945 , 2130.0 , 7.19 , 7.23 , X "Chromium ", X1.79, 1.17, 25, 54.93085 , "Mn ", 2335 , 1517 , 7.43 , 1.39 , X "Manganese ", X1.72, 1.17, 26, 55.847 , "Fe ", 3135 , 1809 , 7.86 , 7.1 , X "Iron ", X1.67, 1.16, 27, 58.93320 , "Co ", 3201 , 1768 , 8.90 , 6.7 , X "Cobalt ", X1.62, 1.15, 28, 58.69 , "Ni ", 3187 , 1726 , 8.90 , 6.59 , X "Nickel ", X1.57, 1.17, 29, 63.546 , "Cu ", 2836 , 1357.6 , 8.96 , 7.1 , X "Copper ", X1.53, 1.25, 30, 65.39 , "Zn ", 1180.0, 692.73 , 7.14 , 9.2 , X "Zinc ", X1.81, 1.26, 31, 69.723 , "Ga ", 2478 , 302.90 , 5.91 , 11.8 , X "Gallium ", X1.52, 1.22, 32, 72.61 , "Ge ", 3107 , 1210.4 , 5.32 , 13.6 , X "Germanium ", X1.33, 1.20, 33, 74.92159 , "As ", 876 , 1081 , 5.72 , 13.1 , X "Arsenic ", X1.22, 1.16, 34, 78.96 , "Se ", 958 , 494 , 4.80 , 16.45, X "Selenium ", X1.12, 1.14, 35, 79.904 , "Br ", 332.25, 265.90 , 3.12 , 23.5 , X "Bromine ", X1.03, 1.12, 36, 83.80 , "Kr ", 119.80, 115.78 , 3.74 , 38.9 , X "Krypton ", X2.98, 2.16, 37, 85.4678 , "Rb ", 961 , 312.64 , 1.53 , 55.9 , X "Rubidium ", X2.45, 1.91, 38, 87.62 , "Sr ", 1650.0, 1041 , 2.6 , 33.7 , X "Strontium ", X2.27, 1.62, 39, 88.90585 , "Y ", 3611 , 1799 , 4.5 , 19.8 , X "Yttrium ", X2.16, 1.45, 40, 91.224 , "Zr ", 4682 , 2125 , 6.49 , 14.1 , X "Zirconium ", X2.09, 1.34, 41, 92.90638 , "Nb ", 5017 , 2740.0 , 8.55 , 10.87, X "Niobium ", X2.01, 1.30, 42, 95.94 , "Mo ", 4912 , 2890.0 , 10.2 , 9.4 , X "Molybdenum ", X1.95, 1.27, 43, 98 , "Tc ", 4538 , 2473 , 11.5 , 8.5 , X "Technetium ", X1.89, 1.25, 44, 101.07 , "Ru ", 4423 , 2523 , 12.2 , 8.3 , X "Ruthenium ", X1.83, 1.25, 45, 102.90550 , "Rh ", 3970.0, 2236 , 12.4 , 8.3 , X "Rhodium ", X1.79, 1.28, 46, 106.42 , "Pd ", 3237 , 1825 , 12.0 , 8.9 , X "Palladium ", X1.75, 1.34, 47, 107.8682 , "Ag ", 2436 , 1234 , 10.5 , 10.3 , X "Silver ", X1.71, 1.48, 48, 112.411 , "Cd ", 1040.0, 594.18 , 8.65 , 13.1 , X "Cadmium ", X2.00, 1.44, 49, 114.82 , "In ", 2346 , 429.76 , 7.31 , 15.7 , X "Indium ", X1.72, 1.41, 50, 118.710 , "Sn ", 2876 , 505.06 , 7.30 , 16.3 , X "Tin ", X1.53, 1.40, 51, 121.75 , "Sb ", 1860.0, 904 , 6.68 , 18.23, X "Antimony ", X1.42, 1.36, 52, 127.60 , "Te ", 1261 , 722.65 , 6.24 , 20.5 , X "Tellurium ", X1.32, 1.33, 53, 126.90447 , "I ", 458.4 , 386.7 , 4.92 , 25.74, X "Iodine ", X1.24, 1.31, 54, 131.29 , "Xe ", 165.03, 161.36 , 5.89 , 37.3 , X "Xenon ", X3.34, 2.35, 55, 132.90543 , "Cs ", 944 , 301.55 , 1.87 , 71.07, X "Cesium ", X2.78, 1.98, 56, 137.327 , "Ba ", 2171 , 1002 , 3.5 , 39.24, X "Barium ", X2.74, 1.69, 57, 138.9055 , "La ", 3730.0, 1193 , 6.7 , 20.73, X "Lanthanum ", X2.16, 1.44, 72, 178.49 , "Hf ", 4876 , 2500.0 , 13.1 , 13.6 , X "Hafnium ", X2.09, 1.34, 73, 180.9479 , "Ta ", 5731 , 3287 , 16.6 , 10.90, X "Tantalum ", X2.02, 1.30, 74, 183.85 , "W ", 5828 , 3680.0 , 19.3 , 9.53 , X "Tungsten ", X1.97, 1.28, 75, 186.207 , "Re ", 5869 , 3453 , 21.0 , 8.85 , X "Rhenium ", X1.92, 1.26, 76, 190.2 , "Os ", 5285 , 3300.0 , 22.4 , 8.49 , X "Osmium ", X1.87, 1.27, 77, 192.22 , "Ir ", 4701 , 2716 , 22.5 , 8.54 , X "Iridium ", X1.83, 1.30, 78, 195.08 , "Pt ", 4100.0, 2045 , 21.4 , 9.10 , X "Platinum ", X1.79, 1.34, 79, 196.96654 , "Au ", 3130.0, 1337.58, 19.3 , 10.2 , X "Gold ", X1.76, 1.49, 80, 200.59 , "Hg ", 630.0 , 234.28 , 13.53 , 14.82, X "Mercury ", X2.08, 1.48, 81, 204.3833 , "Tl ", 1746 , 577 , 11.85 , 17.2 , X "Thallium ", X1.81, 1.47, 82, 207.2 , "Pb ", 2023 , 600.6 , 11.4 , 18.17, X "Lead ", X1.63, 1.46, 83, 208.98037 , "Bi ", 1837 , 544.52 , 9.8 , 21.3 , X "Bismuth ", X1.53, 1.46, 84, 209 , "Po ", 1235 , 527 , 9.4 , 22.23, X "Polonium ", X1.43, 1.45, 85, 210.0 , "At ", 610.0 , 575 , 0.0 , 0.0 , X "Astatine ", X1.34, 1.43, 86, 222 , "Rn ", 211 , 202 , 9.91 , 50.5 , X "Radon ", X3.50, 2.50, 87, 223 , "Fr ", 950.0 , 300.0 , 0.0 , 0.0 , X "Francium ", X3.00, 2.40, 88, 226.025 , "Ra ", 1809 , 973 , 5 , 45.20, X "Radium ", X3.20, 2.20, 89, 227.028 , "Ac ", 3473 , 1323 , 10.07 , 22.54, X "Actinium ", X2.70, 1.65, 58, 140.115 , "Ce ", 3699 , 1071 , 6.78 , 20.67, X "Cerium ", X2.67, 1.65, 59, 140.90765 , "Pr ", 3785 , 1204 , 6.77 , 20.8 , X "Praseodymium ", X2.64, 1.64, 60, 144.24 , "Nd ", 3341 , 1289 , 7.00 , 20.6 , X "Neodymium ", X2.62, 1.63, 61, 145 , "Pm ", 3785 , 1204 , 6.475 , 22.39, X "Promethium ", X2.59, 1.62, 62, 150.36 , "Sm ", 2064 , 1345 , 7.54 , 19.95, X "Samarium ", X2.56, 1.85, 63, 151.965 , "Eu ", 1870.0, 1090.0 , 5.26 , 28.9 , X "Europium ", X2.54, 1.61, 64, 157.25 , "Gd ", 3539 , 1585 , 7.89 , 19.9 , X "Gadolinium ", X2.51, 1.59, 65, 158.92534 , "Tb ", 3496 , 1630.0 , 8.27 , 19.2 , X "Terbium ", X2.49, 1.59, 66, 162.50 , "Dy ", 2835 , 1682 , 8.54 , 19.0 , X "Dysprosium ", X2.47, 1.58, 67, 164.93032 , "Ho ", 2968 , 1743 , 8.80 , 18.7 , X "Holmium ", X2.45, 1.57, 68, 167.26 , "Er ", 3136 , 1795 , 9.05 , 18.4 , X "Erbium ", X2.42, 1.56, 69, 168.93421 , "Tm ", 2220.0, 1818 , 9.33 , 18.1 , X "Thulium ", X2.40, 1.74, 70, 173.04 , "Yb ", 1467 , 1097 , 6.98 , 24.79, X "Ytterbium ", X2.25, 1.56, 71, 174.967 , "Lu ", 3668 , 1936 , 9.84 , 17.78, X "Lutetium ", X3.16, 1.65, 90, 232.0381 , "Th ", 5061 , 2028 , 11.7 , 19.9 , X "Thorium ", X3.14, 0.0 , 91, 231.03588 , "Pa ", 0.0 , 0.0 , 15.4 , 15.0 , X "Protactinium ", X3.11, 1.42, 92, 238.0289 , "U ", 4407 , 1405 , 18.90 , 12.59, X "Uranium ", X3.08, 0.0 , 93, 237.048 , "Np ", 0.0 , 910.0 , 20.4 , 11.62, X "Neptunium ", X3.05, 0.0 , 94, 244 , "Pu ", 3503 , 913 , 19.8 , 12.32, X "Plutonium ", X3.02, 0.0 , 95, 243 , "Am ", 2880.0, 1268 , 13.6 , 17.86, X "Americium ", X2.99, 0.0 , 96, 247 , "Cm ", 0.0 , 1340.0 , 13.511 , 18.28, X "Curium ", X2.97, 0.0 , 97, 247 , "Bk ", 0.0 , 0.0 , 0.0 , 0.0 , X "Berkelium ", X2.95, 0.0 , 98, 251 , "Cf ", 0.0 , 900.0 , 0.0 , 0.0 , X "Californium ", X2.92, 0.0 , 99, 252 , "Es ", 0.0 , 0.0 , 0.0 , 0.0 , X "Einsteinium ", X2.90, 0.0 , 100, 257 , "Fm ", 0.0 , 0.0 , 0.0 , 0.0 , X "Fermium ", X2.87, 0.0 , 101, 258 , "Md ", 0.0 , 0.0 , 0.0 , 0.0 , X "Mendelevium ", X2.85, 0.0 , 102, 259 , "No ", 0.0 , 0.0 , 0.0 , 0.0 , X "Nobelium ", X2.82, 0.0 , 103, 260.0 , "Lr ", 0.0 , 0.0 , 0.0 , 0.0 , X "Lawrencium " X}; X X#else X Xextern Widget toplevel, MainW; Xextern Colormap default_cmap; Xextern unsigned long red, white, slate_grey; Xextern struct element_stats p_table[]; Xextern int done; Xextern XFontStruct *BigFont; Xextern GC BigGC; X X#endif END_OF_FILE if test 10551 -ne `wc -c <'xpt.h'`; then echo shar: \"'xpt.h'\" unpacked with wrong size! fi # end of 'xpt.h' fi echo shar: End of shell archive. exit 0 exit 0 # Just in case... -- // chris@IMD.Sterling.COM | Send comp.sources.x submissions to: \X/ Amiga - The only way to fly! | "It's intuitively obvious to the most | sources-x@imd.sterling.com casual observer..." |