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 / xodometr / part01 < prev next >

Wrap

Text File | 1993-04-27 | 56.8 KB | 1,887 lines

Newsgroups: comp.sources.x From: lusol@Turkey.CC.Lehigh.EDU (Stephen O. Lidie) Subject: v19i037: xodometer - Track pointer and measure distance moved, Part01/04 Message-ID: <csx-v19i037=xodometer.101510@sparky.IMD.Sterling.COM> X-Md4-Signature: 95dd29d6b637e4ff1feab057e63510ca Date: Thu, 11 Mar 1993 16:15:37 GMT Approved: chris@sparky.imd.sterling.com Submitted-by: lusol@Turkey.CC.Lehigh.EDU (Stephen O. Lidie) Posting-number: Volume 19, Issue 37 Archive-name: xodometer/part01 Environment: X11 #! /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 archive 1 (of 4)." # Contents: Imakefile MANIFEST Makefile.Sun README bitmaps # bitmaps/cur_mask.xbm bitmaps/cursor.xbm bitmaps/icon.xbm # bitmaps/pulldown.xbm evap evap/genmp evap/genmp.skl evap/xodo.mm # evap/xodo_pdt evap/xodo_pdt.out evap/xodo_pdt.skl patchlevel.h # xodo.man # Wrapped by lusol@Turkey.CC.Lehigh.EDU on Wed Mar 10 19:42:11 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'\" $2072 characters$ sed "s/^X//" >'Imakefile' <<'END_OF_FILE' X# X# Imakefile for xodometer. X# X# Stephen O. Lidie, Lehigh University Computing Center, 93/02/11. X# X# lusol@Lehigh.EDU X# X# Prior to running xmkmf inspect/change the following variables: X# X# BINDIR binary directoy X# MANDIR man page directory X# RANLIB what is ranlib (sorry, not defined in AIX) X# PERLDIR path name of Perl (it's OK if you don't have Perl!) X# CDEBUGFLAGS cc compiler options X# MATHLIB name of math library X# LOCAL_LIBRARIES which libraries X# X# Then: xmkmf; make; make install X# X X# X# Where you want things installed. X# XBINDIR = /usr/local/bin XMANDIR = /usr/local/man/man1 X X# X# Whether or not you have/need ranlib. X# XRANLIB = ranlib # have or need ranlib X#RANLIB = /bin/true # do not have or need ranlib X X# X# Where to get Perl. It's OK if you don't have Perl, but expect an error X# from the program genmp during a 'make install' - the error can be safely X# ignored. I use genmp (generate_man_page) so that the xodometer man page X# is always up-to-date, but the one that you have received in this X# distribution is by definition the latest and greatest. X# XPERLDIR = /usr/local/bin X XCDEBUGFLAGS = -O XMATHLIB = -lm XLOCAL_LIBRARIES = $(XLIB) $(MATHLIB) X X XSRCS = xodo.c evap/evap.c XOBJS = xodo.o evap/evap.o X Xall:: xodo_a xodo X Xclean:: X rm xodo xodo.o xodomm.a evap/evap.o X Xevap/evap.o: evap/evap.c evap/evap.h X (cd evap; $(CC) $(CDEBUGFLAGS) -DP_EVAP_MM_PATH=\"$(BINDIR)\" -c evap.c) X Xxodo_a: X ar rcv xodomm.a evap\/xodo.mm X $(RANLIB) xodomm.a X sed -e "s!/usr/local/bin!$(BINDIR)!g" evap/xodo_pdt.skl > evap/xodo_pdt.out X Xinstall:: X $(INSTALL) -c $(INSTPGMFLAGS) xodo $(BINDIR) X $(INSTALL) -c $(INSTPGMFLAGS) xodomm.a $(BINDIR) X sed -e "s!/usr/local/bin!$(PERLDIR)!" evap/genmp.skl > evap/genmp X chmod 755 evap/genmp X @echo " " X @echo "******* Any errors from genmp can be safely ignored!" X -evap/genmp $(BINDIR)/xodo 1> /dev/null 2> /dev/null X @echo "******* Any errors from genmp can be safely ignored!" X @echo " " X $(INSTALL) -c $(INSTMANFLAGS) xodo.man $(MANDIR)/xodo.1 X XComplexProgramTarget(xodo) X X END_OF_FILE if test 2072 -ne `wc -c <'Imakefile'`; then echo shar: \"'Imakefile'\" unpacked with wrong size! fi # end of 'Imakefile' fi if test -f 'MANIFEST' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'MANIFEST'\" else echo shar: Extracting \"'MANIFEST'\" $827 characters$ sed "s/^X//" >'MANIFEST' <<'END_OF_FILE' X File Name Archive # Description X----------------------------------------------------------- X Imakefile 1 X MANIFEST 1 This shipping list X Makefile 2 X Makefile.AIX 2 X Makefile.Sun 1 X README 1 X bitmaps 1 X bitmaps/cur_mask.xbm 1 X bitmaps/cursor.xbm 1 X bitmaps/icon.xbm 1 X bitmaps/pulldown.xbm 1 X evap 1 X evap/evap.c 2 X evap/evap.h 3 X evap/genmp 1 X evap/genmp.skl 1 X evap/xodo.mm 1 X evap/xodo_pdt 1 X evap/xodo_pdt.out 1 X evap/xodo_pdt.skl 1 X patchlevel.h 1 X xodo.c 4 X xodo.man 1 END_OF_FILE if test 827 -ne `wc -c <'MANIFEST'`; then echo shar: \"'MANIFEST'\" unpacked with wrong size! fi # end of 'MANIFEST' fi if test -f 'Makefile.Sun' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile.Sun'\" else echo shar: Extracting \"'Makefile.Sun'\" $10520 characters$ sed "s/^X//" >'Makefile.Sun' <<'END_OF_FILE' X# Makefile generated by imake - do not edit! X# $XConsortium: imake.c,v 1.51 89/12/12 12:37:30 jim 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.a26214> X# $XConsortium: Imake.tmpl,v 1.77 89/12/18 17:01:37 jim Exp $ X# X# Platform-specific parameters may be set in the appropriate .cf X# configuration files. Site-wide parameters may be set in the file X# site.def. Full rebuilds are recommended if any parameters are changed. X# X# If your C preprocessor doesn't define any unique symbols, you'll need X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing X# "make Makefile", "make Makefiles", or "make World"). X# X# If you absolutely can't get imake to work, you'll need to set the X# variables at the top of each Makefile as well as the dependencies at the X# bottom (makedepend will do this automatically). X# X X########################################################################### X# platform-specific configuration parameters - edit sun.cf to change X X# platform: $XConsortium: sun.cf,v 1.38 89/12/23 16:10:10 jim Exp $ X# operating system: SunOS 4.1 X X########################################################################### X# site-specific configuration parameters - edit site.def to change X X# site: $XConsortium: site.def,v 1.21 89/12/06 11:46:50 jim Exp $ X X SHELL = /bin/sh X X TOP = . X CURRENT_DIR = . X X AR = ar cq X BOOTSTRAPCFLAGS = X CC = cc X X COMPRESS = compress X CPP = /lib/cpp $(STD_CPP_DEFINES) X PREPROCESSCMD = cc -E $(STD_CPP_DEFINES) X INSTALL = install X LD = ld X LINT = lint X LINTLIBFLAG = -C X LINTOPTS = -axz X LN = ln -s X MAKE = make X MV = mv X CP = cp X RANLIB = ranlib X RANLIBINSTFLAGS = X RM = rm -f X STD_INCLUDES = X STD_CPP_DEFINES = X STD_DEFINES = X EXTRA_LOAD_FLAGS = X EXTRA_LIBRARIES = X TAGS = ctags X X SHAREDCODEDEF = -DSHAREDCODE X SHLIBDEF = -DSUNSHLIB X X PROTO_DEFINES = X X INSTPGMFLAGS = X X INSTBINFLAGS = -m 0755 X INSTUIDFLAGS = -m 4755 X INSTLIBFLAGS = -m 0664 X INSTINCFLAGS = -m 0444 X INSTMANFLAGS = -m 0444 X INSTDATFLAGS = -m 0444 X INSTKMEMFLAGS = -m 4755 X X DESTDIR = X X TOP_INCLUDES = -I$(INCROOT) X X CDEBUGFLAGS = -O X CCOPTIONS = X COMPATFLAGS = X X ALLINCLUDES = $(STD_INCLUDES) $(TOP_INCLUDES) $(INCLUDES) $(EXTRA_INCLUDES) X ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(PROTO_DEFINES) $(DEFINES) $(COMPATFLAGS) X CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES) X LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) X LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) X LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) X LDCOMBINEFLAGS = -X -r X X MACROFILE = sun.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.63 89/12/18 16:46:44 jim Exp $ X X########################################################################### X# X Window System make variables; this need to be coordinated with rules X# $XConsortium: Project.tmpl,v 1.63 89/12/18 16:46:44 jim Exp $ X X PATHSEP = / X USRLIBDIR = $(DESTDIR)/usr/local/lib X BINDIR = $(DESTDIR)/usr/bin/X11 X INCROOT = $(DESTDIR)/usr/include X BUILDINCROOT = $(TOP) X BUILDINCDIR = $(BUILDINCROOT)/X11 X BUILDINCTOP = .. X INCDIR = $(INCROOT)/X11 X ADMDIR = $(DESTDIR)/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 AWMDIR = $(LIBDIR)/awm X TWMDIR = $(LIBDIR)/twm X GWMDIR = $(LIBDIR)/gwm X MANPATH = $(DESTDIR)/usr/man X MANSOURCEPATH = $(MANPATH)/man X MANDIR = $(MANSOURCEPATH)n X LIBMANDIR = $(MANSOURCEPATH)3 X XAPPLOADDIR = $(LIBDIR)/app-defaults X X SOXLIBREV = 4.2 X SOXTREV = 4.0 X SOXAWREV = 4.0 X SOOLDXREV = 4.0 X SOXMUREV = 4.0 X SOXEXTREV = 4.0 X X FONTCFLAGS = -t X X INSTAPPFLAGS = $(INSTDATFLAGS) X X IMAKE = imake X DEPEND = makedepend X RGB = rgb X FONTC = bdftosnf X MKFONTDIR = mkfontdir X MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier.sh X X CONFIGSRC = $(TOP)/config 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 MKFONTDIRSRC = $(FONTSRC)/mkfontdir X EXTENSIONSRC = $(TOP)/extensions X X DEPEXTENSIONLIB = $(USRLIBDIR)/libXext.a X EXTENSIONLIB = -lXext X X DEPXLIB = $(DEPEXTENSIONLIB) X XLIB = $(EXTENSIONLIB) -lX11 X X DEPXAUTHLIB = $(USRLIBDIR)/libXau.a X XAUTHLIB = -lXau X X DEPXMULIB = X XMULIB = -lXmu X X DEPOLDXLIB = X OLDXLIB = -loldX X X DEPXTOOLLIB = X XTOOLLIB = -lXt X X DEPXAWLIB = X XAWLIB = -lXaw X X LINTEXTENSIONLIB = $(USRLIBDIR)/llib-lXext.ln X LINTXLIB = $(USRLIBDIR)/llib-lX11.ln X LINTXMU = $(USRLIBDIR)/llib-lXmu.ln X LINTXTOOL = $(USRLIBDIR)/llib-lXt.ln X LINTXAW = $(USRLIBDIR)/llib-lXaw.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.67 89/12/18 17:14:15 jim Exp $ X X########################################################################### X# start of Imakefile X X# X# Imakefile for xodometer. X# X# Stephen O. Lidie, Lehigh University Computing Center, 93/02/11. X# X# lusol@Lehigh.EDU X# X# Prior to running xmkmf inspect/change the following variables: X# X# BINDIR binary directoy X# MANDIR man page directory X# RANLIB what is ranlib (sorry, not defined in AIX) X# PERLDIR path name of Perl (it's OK if you don't have Perl!) X# CDEBUGFLAGS cc compiler options X# MATHLIB name of math library X# LOCAL_LIBRARIES which libraries X# X# Then: xmkmf; make; make install X# X X# X# Where you want things installed. X# XBINDIR = /usr/local/bin XMANDIR = /usr/local/man/man1 X X# X# Whether or not you have/need ranlib. X# XRANLIB = ranlib # have or need ranlib X#RANLIB = /bin/true # do not have or need ranlib X X# X# Where to get Perl. It's OK if you don't have Perl, but expect an error X# from the program genmp during a 'make install' - the error can be safely X# ignored. I use genmp (generate_man_page) so that the xodometer man page X# is always up-to-date, but the one that you have received in this X# distribution is by definition the latest and greatest. X# XPERLDIR = /usr/local/bin X XCDEBUGFLAGS = -O XMATHLIB = -lm XLOCAL_LIBRARIES = $(XLIB) $(MATHLIB) X XSRCS = xodo.c evap/evap.c XOBJS = xodo.o evap/evap.o X Xall:: xodo_a xodo X Xclean:: X rm xodo xodo.o xodomm.a evap/evap.o X Xevap/evap.o: evap/evap.c evap/evap.h X (cd evap; $(CC) $(CDEBUGFLAGS) -DP_EVAP_MM_PATH=\"$(BINDIR)\" -c evap.c) X Xxodo_a: X ar rcv xodomm.a evap\/xodo.mm X $(RANLIB) xodomm.a X sed -e "s!/usr/local/bin!$(BINDIR)!g" evap/xodo_pdt.skl > evap/xodo_pdt.out X Xinstall:: X $(INSTALL) -c $(INSTPGMFLAGS) xodo $(BINDIR) X $(INSTALL) -c $(INSTPGMFLAGS) xodomm.a $(BINDIR) X sed -e "s!/usr/local/bin!$(PERLDIR)!" evap/genmp.skl > evap/genmp X chmod 755 evap/genmp X @echo " " X @echo "******* Any errors from genmp can be safely ignored!" X -evap/genmp $(BINDIR)/xodo 1> /dev/null 2> /dev/null X @echo "******* Any errors from genmp can be safely ignored!" X @echo " " X $(INSTALL) -c $(INSTMANFLAGS) xodo.man $(MANDIR)/xodo.1 X X PROGRAM = xodo X Xall:: xodo X Xxodo: $(OBJS) $(DEPLIBS) X $(RM) $@ X $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LOCAL_LIBRARIES) $(LDLIBS) $(EXTRA_LOAD_FLAGS) X Xinstall:: xodo X $(INSTALL) -c $(INSTPGMFLAGS) xodo $(BINDIR) X Xinstall.man:: xodo.man X $(INSTALL) -c $(INSTMANFLAGS) xodo.man $(MANDIR)/xodo.n X Xdepend:: X $(DEPEND) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS) X Xlint: X $(LINT) $(LINTFLAGS) $(SRCS) $(LINTLIBS) Xlint1: X $(LINT) $(LINTFLAGS) $(FILE) $(LINTLIBS) X Xclean:: X $(RM) $(PROGRAM) 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 \ X echo " $(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \ 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 10520 -ne `wc -c <'Makefile.Sun'`; then echo shar: \"'Makefile.Sun'\" unpacked with wrong size! fi # end of 'Makefile.Sun' fi if test -f 'README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'README'\" else echo shar: Extracting \"'README'\" $2780 characters$ sed "s/^X//" >'README' <<'END_OF_FILE' X X X xodometer 1.1 X XAs my first X application I present xodometer, which tracks the total distance Xyour cursor and pointing device (typically a mouse) travel. It also maintains X"trip" distance since the application started or since you clicked on a trip Xreset button. X XA pull-down menu allows you to select in which units the distance is Xdisplayed, from millimeters to nautical miles to light-nanoseconds, and more. X Xxodometer requires a one-time calibration procedure which is fully described Xby reading the man page or by entering "xodo -full_help". X Xxodometer was inspired by the Macintosh Mouse Odometer program written by XSean P. Nolan, while xneko by Masayuki Koba provided my initial insights into Xwriting X programs. X XAn IBM RS/6000 model 320 running AIX 3.2.3 with mwm and X11 Release 4 was the Xprimary developement environment, although some small amount of testing was Xdone on a Sun SPARC 1+ running SunOS 4.1.1 with twm. Please report any bugs Xand be sure to fully specify your configuration. X XAlthough in theory the cursor distance can be reliably tracked, the actual Xdistance your pointing device moves is only APPROXIMATED and will not be very Xexact, so don't report this as a bug :-)! X XAgain, remember that this was done as an exercise to learn Xlib programming; Xuse xodometer without warranty! It took me thirty days to write, which Xseems like a long time, but maybe not too bad considering the learning curve Xand the fact that I'm over forty.... (-: X X X Installation X XThe xodometer tar file is available via anonymous FTP from FTP.Lehigh.EDU in Xthe directory pub/xodo. After modifying the Imakefile variables as Xrequired generate your Makefile from the Imakefile in the standard manner. XThen run "make" followed by "make install". Sample Makefiles have been Xprovided for your pleasure. X XI welcome comments, enhancements, and bug reports. Take care. X X XStephen O. Lidie XLehigh University Computing Center X Xlusol@Lehigh.EDU X X X Revision History X Xlusol@Lehigh.EDU, LUCC, 93/02/23. X . Original version 1.0 release. X Xlusol@Lehigh.EDU, LUCC, 93/03/05 X . Version 1.1 release. Display absolute screen coordinates of the X cursor to assist in calibrating xodometer. Use select rather than X setitimer and signals for the microsecond timing requirements. X . Various bug fixes/observations by Larry W. Virden (lwv26@cas.org). X . More valuable bug fixes/observations by Ti Kan (ti@bazooka.amb.org). X Ti also tested xodometer on the following platforms: X USL UNIX SVR4.2.1 "Destiny" on a i486 PC X SCO UNIX SVR3.2.2 on a i486 PC X Altos UNIX SVR3.2 2.1bC0 on a i486 PC X SunOS 4.1.2 on a Sun Sparc IPX workstation X Stratus FTX SVR4 2.1 on a Stratus XA/R fault-tolerant server X Many thanks! X END_OF_FILE if test 2780 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test ! -d 'bitmaps' ; then echo shar: Creating directory \"'bitmaps'\" mkdir 'bitmaps' fi if test -f 'bitmaps/cur_mask.xbm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'bitmaps/cur_mask.xbm'\" else echo shar: Extracting \"'bitmaps/cur_mask.xbm'\" $320 characters$ sed "s/^X//" >'bitmaps/cur_mask.xbm' <<'END_OF_FILE' X#define cursor_mask_width 17 X#define cursor_mask_height 12 Xstatic char cursor_mask_bits[] = { X 0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00, X 0x1c, 0x8f, 0x00, 0x9c, 0xbf, 0x00, 0xfc, 0x3f, 0x01, 0xfc, 0x7f, 0x01, X 0xfe, 0x7f, 0x01, 0xfe, 0xff, 0x00, 0xff, 0xff, 0x00, 0xff, 0x7f, 0x00}; END_OF_FILE if test 320 -ne `wc -c <'bitmaps/cur_mask.xbm'`; then echo shar: \"'bitmaps/cur_mask.xbm'\" unpacked with wrong size! fi # end of 'bitmaps/cur_mask.xbm' fi if test -f 'bitmaps/cursor.xbm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'bitmaps/cursor.xbm'\" else echo shar: Extracting \"'bitmaps/cursor.xbm'\" $351 characters$ sed "s/^X//" >'bitmaps/cursor.xbm' <<'END_OF_FILE' X#define cursor_width 17 X#define cursor_height 12 X#define cursor_x_hot 8 X#define cursor_y_hot 7 Xstatic char cursor_bits[] = { X 0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00, X 0x14, 0x8f, 0x00, 0x94, 0xb0, 0x00, 0x7c, 0x20, 0x01, 0x0c, 0x4c, 0x01, X 0x0a, 0x42, 0x01, 0x42, 0x82, 0x00, 0x3b, 0x87, 0x00, 0xff, 0x7f, 0x00}; END_OF_FILE if test 351 -ne `wc -c <'bitmaps/cursor.xbm'`; then echo shar: \"'bitmaps/cursor.xbm'\" unpacked with wrong size! fi # end of 'bitmaps/cursor.xbm' fi if test -f 'bitmaps/icon.xbm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'bitmaps/icon.xbm'\" else echo shar: Extracting \"'bitmaps/icon.xbm'\" $1325 characters$ sed "s/^X//" >'bitmaps/icon.xbm' <<'END_OF_FILE' X#define icon_width 40 X#define icon_height 40 Xstatic char icon_bits[] = { X 0x80, 0x03, 0x00, 0x80, 0x03, 0x60, 0x04, 0x00, 0x40, 0x0c, 0x10, 0x08, X 0x00, 0x20, 0x10, 0x08, 0x10, 0x00, 0x10, 0x20, 0xc8, 0x13, 0x00, 0x90, X 0x27, 0xe4, 0x27, 0x00, 0xc8, 0x4f, 0xe4, 0x27, 0x00, 0xc8, 0x4f, 0xf2, X 0x4f, 0x00, 0xe4, 0x9f, 0xf2, 0x8f, 0xff, 0xe3, 0x9f, 0xf2, 0x0f, 0x00, X 0xe0, 0x9f, 0xf2, 0x0f, 0x00, 0xe0, 0x9f, 0xf2, 0x87, 0x00, 0xc2, 0x9f, X 0xe2, 0xc3, 0x01, 0x87, 0x8f, 0x04, 0xc0, 0x01, 0x07, 0x40, 0x04, 0xc0, X 0x01, 0x07, 0x40, 0xf8, 0x81, 0x00, 0x02, 0x3f, 0x00, 0x02, 0x00, 0x80, X 0x00, 0x00, 0x0c, 0x00, 0x60, 0x00, 0x00, 0x08, 0x00, 0x20, 0x00, 0x00, X 0x10, 0x00, 0x10, 0x00, 0x00, 0x10, 0x00, 0x10, 0x00, 0x00, 0x20, 0x00, X 0x08, 0x00, 0x10, 0x20, 0x00, 0x08, 0x01, 0x60, 0x40, 0x00, 0x04, 0x06, X 0xc0, 0x41, 0x00, 0x04, 0x1c, 0x80, 0x87, 0x00, 0x02, 0x78, 0xff, 0x8f, X 0x00, 0xf2, 0xff, 0x80, 0x07, 0x01, 0x01, 0x78, 0xc0, 0x01, 0x01, 0x01, X 0x1c, 0x60, 0x00, 0x82, 0x00, 0x06, 0x10, 0xe0, 0x83, 0x0f, 0x01, 0x00, X 0x10, 0x44, 0x10, 0x00, 0x00, 0xc8, 0xc7, 0x27, 0x00, 0x00, 0x24, 0x7c, X 0x48, 0x00, 0x00, 0x12, 0x82, 0x90, 0x00, 0x00, 0x09, 0xaa, 0x20, 0x01, X 0x80, 0x04, 0x82, 0x40, 0x02, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x00, 0x00, X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; END_OF_FILE if test 1325 -ne `wc -c <'bitmaps/icon.xbm'`; then echo shar: \"'bitmaps/icon.xbm'\" unpacked with wrong size! fi # end of 'bitmaps/icon.xbm' fi if test -f 'bitmaps/pulldown.xbm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'bitmaps/pulldown.xbm'\" else echo shar: Extracting \"'bitmaps/pulldown.xbm'\" $198 characters$ sed "s/^X//" >'bitmaps/pulldown.xbm' <<'END_OF_FILE' X#define pulldown_width 9 X#define pulldown_height 9 Xstatic char pulldown_bits[] = { X 0x54, 0x00, 0x38, 0x00, 0x92, 0x00, 0x54, 0x00, 0x39, 0x01, 0x92, 0x00, X 0x54, 0x00, 0x38, 0x00, 0x10, 0x00}; END_OF_FILE if test 198 -ne `wc -c <'bitmaps/pulldown.xbm'`; then echo shar: \"'bitmaps/pulldown.xbm'\" unpacked with wrong size! fi # end of 'bitmaps/pulldown.xbm' fi if test ! -d 'evap' ; then echo shar: Creating directory \"'evap'\" mkdir 'evap' fi if test -f 'evap/genmp' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/genmp'\" else echo shar: Extracting \"'evap/genmp'\" $2201 characters$ sed "s/^X//" >'evap/genmp' <<'END_OF_FILE' X#!/usr/local/bin/perl -w X# X# generate_man_page list_of_commands X# X# Use the output from Display Command Information to create a X# man page template. Output written on list_of_commands.man. X# X# SOL, LUCC. 92/12/11 X# SOL, LUCC. 93/03/05. Fix for public distribution with xodmeter. X# Thanks to Larry W. Virden and Ti Kan. X X Xwhile ( ($command = shift( @ARGV )) ) { X @path_elements = split( /\//, $command ); X $basename = $path_elements[$#path_elements]; X X open( U, "$command -usage_help |" ); X @u = <U>; X close ( U ); X @u = grep( s/Usage: //, @u ); X @tokens = split( ' ', $u[0] ); X $u[0] = $basename . ' ' . join( ' ', @tokens[1 .. $#tokens] ); X X open( D, "$command -full_help |" ); X X $_ = <D>; # skip command source X $_ = <D>; X $_ = <D>; # skip message module name X die "$command.mm does not appear to be an evaluate_parameters message_module.\nCannot create your man pages: $!" X if $_ !~ /Message Module Name/; X X open( M, ">$basename.man" ); X X while ( <D> ) { # skip leading blank lines X last if $_ ne "\n"; X } X chop( $command = $_ ); X @commands = split( /,/, $command ); X $command = $commands[$#commands]; X chop( $date = `date` ); X $date = substr( $date, 4, 6 ) . ', ' . substr( $date, 24, 4 ); X X print M ".TH \"$command\" 1 \"$date\"\n"; X print M ".SH NAME\n"; X print M join( ', ', @commands), "\n"; X print M ".SH SYNOPSIS\n"; X print M $u[0], "\n"; X print M ".SH DESCRIPTION\n"; X while ( <D> ) { X s/\t/ /; X last if /^Parameters/; X if ( /CALIBRATION/ ) { X print M ".SH CALIBRATION\n"; X next; X } X if ( /TESTED CONFIGURATIONS/ ) { X print M ".SH TESTED CONFIGURATIONS\n"; X next; X } X if ( length( $_ ) < 8 ) { X print M "\n"; X } else { X print M substr( $_, 8); X } X } X $_ = <D>; # skip one blank line X print M ".SH OPTIONS\n"; X while ( <D> ) { X s/\t//; X if ( /^-/ ) { X print M "\n$_\n"; X } else { X print M " $_"; X } X X } X print M "\n.SH AUTHOR\n"; X print M "Stephen O. Lidie, lusol@Lehigh.EDU\n\n"; X print M "Copyright (C) 1993 - 1993, Lehigh University.\n"; X print M "All rights reserved.\n"; X X close ( M ); X close ( D ); X X} # whilend X END_OF_FILE if test 2201 -ne `wc -c <'evap/genmp'`; then echo shar: \"'evap/genmp'\" unpacked with wrong size! fi chmod +x 'evap/genmp' # end of 'evap/genmp' fi if test -f 'evap/genmp.skl' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/genmp.skl'\" else echo shar: Extracting \"'evap/genmp.skl'\" $2201 characters$ sed "s/^X//" >'evap/genmp.skl' <<'END_OF_FILE' X#!/usr/local/bin/perl -w X# X# generate_man_page list_of_commands X# X# Use the output from Display Command Information to create a X# man page template. Output written on list_of_commands.man. X# X# SOL, LUCC. 92/12/11 X# SOL, LUCC. 93/03/05. Fix for public distribution with xodmeter. X# Thanks to Larry W. Virden and Ti Kan. X X Xwhile ( ($command = shift( @ARGV )) ) { X @path_elements = split( /\//, $command ); X $basename = $path_elements[$#path_elements]; X X open( U, "$command -usage_help |" ); X @u = <U>; X close ( U ); X @u = grep( s/Usage: //, @u ); X @tokens = split( ' ', $u[0] ); X $u[0] = $basename . ' ' . join( ' ', @tokens[1 .. $#tokens] ); X X open( D, "$command -full_help |" ); X X $_ = <D>; # skip command source X $_ = <D>; X $_ = <D>; # skip message module name X die "$command.mm does not appear to be an evaluate_parameters message_module.\nCannot create your man pages: $!" X if $_ !~ /Message Module Name/; X X open( M, ">$basename.man" ); X X while ( <D> ) { # skip leading blank lines X last if $_ ne "\n"; X } X chop( $command = $_ ); X @commands = split( /,/, $command ); X $command = $commands[$#commands]; X chop( $date = `date` ); X $date = substr( $date, 4, 6 ) . ', ' . substr( $date, 24, 4 ); X X print M ".TH \"$command\" 1 \"$date\"\n"; X print M ".SH NAME\n"; X print M join( ', ', @commands), "\n"; X print M ".SH SYNOPSIS\n"; X print M $u[0], "\n"; X print M ".SH DESCRIPTION\n"; X while ( <D> ) { X s/\t/ /; X last if /^Parameters/; X if ( /CALIBRATION/ ) { X print M ".SH CALIBRATION\n"; X next; X } X if ( /TESTED CONFIGURATIONS/ ) { X print M ".SH TESTED CONFIGURATIONS\n"; X next; X } X if ( length( $_ ) < 8 ) { X print M "\n"; X } else { X print M substr( $_, 8); X } X } X $_ = <D>; # skip one blank line X print M ".SH OPTIONS\n"; X while ( <D> ) { X s/\t//; X if ( /^-/ ) { X print M "\n$_\n"; X } else { X print M " $_"; X } X X } X print M "\n.SH AUTHOR\n"; X print M "Stephen O. Lidie, lusol@Lehigh.EDU\n\n"; X print M "Copyright (C) 1993 - 1993, Lehigh University.\n"; X print M "All rights reserved.\n"; X X close ( M ); X close ( D ); X X} # whilend X END_OF_FILE if test 2201 -ne `wc -c <'evap/genmp.skl'`; then echo shar: \"'evap/genmp.skl'\" unpacked with wrong size! fi chmod +x 'evap/genmp.skl' # end of 'evap/genmp.skl' fi if test -f 'evap/xodo.mm' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/xodo.mm'\" else echo shar: Extracting \"'evap/xodo.mm'\" $7405 characters$ sed "s/^X//" >'evap/xodo.mm' <<'END_OF_FILE' X Xxodometer X X Track the total distance your pointing device and cursor X travel. The distance can be displayed in various units. X X xodometer displays total distance and "trip" distance X since the application started (or since you clicked on X a trip reset button). X X xodometer requires certain information to ensure X accurate distance tracking. Refer to the following X sections to learn about calibrating xodometer, and to X view a list of tested configurations. X X xodometer is typically started from the .xinitrc file. X Use the left button for selections. Use the middle X button to reset both trip odometers simultaneously. X X Every xodometer command line parameter can have an X application resource in the xrdb database or .Xdefaults X file. A resource follows this convention: X X xodo.parameter_name : parameter_value X X Therefore to specify xodometer's default font the X following resource entry could be specified: X X xodo.fontname : Rom8 X X For further help try xodo -full_help. X X Examples: X X xodo -bd red -bg wheat1 -fg blue -g -0-0 X X xodo -fn rom6 -o cursor -dwm 300 -dhm 234 X X X CALIBRATION X X xodometer requires the display dimensions in both pixels X and millimeters in order to correctly compute distances. X Look for this information in the appropriate hardware X reference manual for your display. If you cannot find X this information it's still easy to determine. For the X display dimensions in pixels simply run xodometer, jam X the cursor in the bottom-right corner and note the X/Y X coordinates displayed at the bottom of the window - add X one to get the actual pixel count. For the display X dimensions in millimeters just grab a tape measure and X measure your screen - if inches multiply by 25.4 and if X centimeters multiply by 10. Select "About" and verify X that xodometer is calibrated properly by using a ruler X to measure the calibration scale. The default values X for these dimensions are suitable for an IBM RS/6000 X machine with a 6091 19" color monitor. Refer to the X next section for values of other tested configurations. X X Assuming that the display dimension data is correct the X cursor distance can be accurately tracked. The actual X distance that your pointing device, typically a mouse, X travels is INFERRED by accleration information provided X by the X server and pointer scaling information that X you must provide. The default scale factor is 3.4, X meaning that the cursor travels 3.4 times as far as the X pointing device moves. This value is appropriate for an X IBM RS/6000 machine with a 6091 19" color monitor. X Refer to the next section for values of other tested X configurations. X X If you cannot find the correct scale factor for your X mouse then you must determine it by measuring. It is X rather easy to do this: first enter "xset m 1 1" to X set the X threshold and acceleration to 1, then enter X "xodo -psf 1.0" to set xodometer's pointer scale factor X also to 1. Once xodo is running pull-down the Units X menu and select "inches". Then, using a ruler, place X the pointing device against one edge, click the second X button to reset the trip odometers, and then trace a X known distance, say, one inch. The distance recorded X by the pointer's trip odometer is the proper scaling X factor. Repeat the measurement several times for X accuracy. X X At the bottom of the xodometer window is a status line X that displays the current distance Units and the X/Y X cordinates of the cursor. In the "About" window the X pointer Scale factor, and the X Threshold and X Acceleration are displayed. X X All the calibration information you supply is either X passed on the command line, stored in environment X variables, or placed in your .Xdefaults file. The X applicable environment variables are: X X D_XODO_DWM display_width_millimeters X D_XODO_DHM display_height_millimeters X D_XODO_DWP display_width_pixels X D_XODO_DHP display_height_pixels X D_XODO_PSF pointer_scale_factor X X X TESTED CONFIGURATIONS X X For each machine, Operating System/window manager and X display configuration, a sample xodometer command line X is given: X X - IBM RS/6000, AIX 3.2.3/mwm, 16" color X xodo -dwm 300 -dhm 234 -dwp 1280 -dhp 1024 -psf 3.0 X X - IBM RS/6000, AIX 3.2.3/mwm, 19" color X xodo -dwm 350 -dhm 274 -dwp 1280 -dhp 1024 -psf 3.4 X X - IBM RS/6000, AIX 3.2.3/mwm, 23" color X xodo -dwm 430 -dhm 340 -dwp 1280 -dhp 1024 -psf 4.0 X X - Sun SPARC 1+, SunOS 4.1.1/twm, 17" monochrome X xodo -dwm 292 -dhm 232 -dwp 1152 -dhp 900 -psf 2.0 X X - Sun SPARC 1+, SunOS 4.1.1/twm, 19" color X xodo -dwm 358 -dhm 274 -dwp 1152 -dhp 900 -psf 4.0 X.display X The X display name; default is the DISPLAY variable. X.display_width_millimeters X The width in millimeters of the X display. The default X is 350 mm (an IBM 6091 19" color monitor). X.display_height_millimeters X The height in millimeters of the X display. The default X is 274 mm (an IBM 6091 19" color monitor). X.display_width_pixels X The width of the X display in pixels. The default X is 1280 pixels (an IBM 6091 19" color monitor). X.display_height_pixels X The height of the X display in pixels. The default X is 1024 pixels (an IBM 6091 19" color monitor). X.pointer_scale_factor X The scale factor to convert pointer movement to cursor X movement. A scale factor of 2.0 means that for every D X units of distance the pointing device moves, the cursor X moves 2 * D units. The default is 3.4, suitable for an X IBM 6091 19" color monitor. X.border X xodometer's border color. X.background X xodometer's background color. X.foreground X xodometer's foreground color. X.fontname X xodometer's odometer font. An extremely small font X is "rom6" while a rather large font is "helvr30". X.fontname2 X xodometer's button font. In general you should NOT X change this font since the action buttons do not X change size. Another suitable font is "Rom8", but X that is not available on all X servers. X.geometry X Specifies the X geometry in the standard notation. X The width and height are not normally specified since X xodometer calculates them based on the fontname. If X an "offset" value is positive it is measured from the X top or left edge of the display, and if negative it is X measured from the bottom or right edge of the screen. X So, to start xodometer in the bottom-right corner a X geometry string of "-0-0" would be specified. X.iconic X If specified xodometer starts up already iconified. X.microsecond_interval_time X The number of microseconds between odometer updates. The X default value of 100,000 means that the pointer position X is sampled 10 times per second, which seems to provide X accurate distance measurements without consuming X excessive amounts of your machine's resources. X.odometer X A keyword that specifies whether to display both X odometers, or just one of them, and if just one, X which one. X.odometer_file X The path name of the file to record total mouse distance X (in millimeters) and other application information. This X file is read during xodometer startup to initialize the X distance totals and establish the distance units. When X you "Quit" xodometer the updated distance/unit data is X written to this file. X.odometer_autosave_time X Specifies the time interval in minutes between odometer X file updates. This is just for good luck, as xodometer X updates the odometer file when these event are received: X X - control/c X - window close X - window manager exit X.title X The xodometer window title line. END_OF_FILE if test 7405 -ne `wc -c <'evap/xodo.mm'`; then echo shar: \"'evap/xodo.mm'\" unpacked with wrong size! fi # end of 'evap/xodo.mm' fi if test -f 'evap/xodo_pdt' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/xodo_pdt'\" else echo shar: Extracting \"'evap/xodo_pdt'\" $857 characters$ sed "s/^X//" >'evap/xodo_pdt' <<'END_OF_FILE' XPDT (/usr/local/bin/xodomm.a/xodo.mm) xodometer, xodo X display, d: string = DISPLAY, "" X display_width_millimeters, dwm: integer = D_XODO_DWM, 350 X display_height_millimeters, dhm: integer = D_XODO_DHM, 274 X display_width_pixels, dwp: integer = D_XODO_DWP, 1280 X display_height_pixels, dhp: integer = D_XODO_DHP, 1024 X pointer_scale_factor, psf: real = D_XODO_PSF, 3.4 X border, bd: name = Black X background, bg: name = White X foreground, fg: name = Black X fontname, fn: string = "9x15" X fontname2, fn2: string = "6x10" X geometry, g: string = "<width>x<height>{+-}<xoffset>{+-}<yoffset>" X iconic, i: switch X microsecond_interval_time, mit: integer = 100000 X odometer, o: key cursor, pointer, both, keyend = both X odometer_file, of: file = $HOME/.xodo X odometer_autosave_time, oat: integer = 2 X title, t: string = "xodo" XPDTEND no_file_list END_OF_FILE if test 857 -ne `wc -c <'evap/xodo_pdt'`; then echo shar: \"'evap/xodo_pdt'\" unpacked with wrong size! fi # end of 'evap/xodo_pdt' fi if test -f 'evap/xodo_pdt.out' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/xodo_pdt.out'\" else echo shar: Extracting \"'evap/xodo_pdt.out'\" $4190 characters$ sed "s/^X//" >'evap/xodo_pdt.out' <<'END_OF_FILE' X/* XPDT (/usr/local/bin/xodomm.a/xodo.mm) xodometer, xodo X display, d: string = DISPLAY, "" X display_width_millimeters, dwm: integer = D_XODO_DWM, 350 X display_height_millimeters, dhm: integer = D_XODO_DHM, 274 X display_width_pixels, dwp: integer = D_XODO_DWP, 1280 X display_height_pixels, dhp: integer = D_XODO_DHP, 1024 X pointer_scale_factor, psf: real = D_XODO_PSF, 3.4 X border, bd: name = Black X background, bg: name = White X foreground, fg: name = Black X fontname, fn: string = "9x15" X fontname2, fn2: string = "6x10" X geometry, g: string = "<width>x<height>{+-}<xoffset>{+-}<yoffset>" X iconic, i: switch X microsecond_interval_time, mit: integer = 100000 X odometer, o: key cursor, pointer, both, keyend = both X odometer_file, of: file = $HOME/.xodo X odometer_autosave_time, oat: integer = 2 X title, t: string = "xodo" XPDTEND no_file_list X*/ X X/* X#define P_EVAP_EXTERN in separately compiled modules! XThis will declare pvt as an external so you can reference Xparameter values. No storage is allocated in this case. X*/ X#ifndef P_EVAP_EXTERN X Xstruct pdt_header pdt = { X "PDT Version 1.2 for U*X", X "/usr/local/bin/xodomm.a/xodo.mm", X "no_file_list" X}; X XParameter_Value pvt [] = { X X {"help", "disci", X FALSE, TRUE, P_TYPE_SWITCH, X NULL, X "FALSE", X ": Display Command Information", X NULL}, X X {"display", "d", X FALSE, TRUE, P_TYPE_STRING, X "DISPLAY", X "", X ": string = DISPLAY, \"\"", X NULL}, X X {"display_width_millimeters", "dwm", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DWM", X "350", X ": integer = D_XODO_DWM, 350", X NULL}, X X {"display_height_millimeters", "dhm", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DHM", X "274", X ": integer = D_XODO_DHM, 274", X NULL}, X X {"display_width_pixels", "dwp", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DWP", X "1280", X ": integer = D_XODO_DWP, 1280", X NULL}, X X {"display_height_pixels", "dhp", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DHP", X "1024", X ": integer = D_XODO_DHP, 1024", X NULL}, X X {"pointer_scale_factor", "psf", X FALSE, TRUE, P_TYPE_REAL, X "D_XODO_PSF", X "3.4", X ": real = D_XODO_PSF, 3.4", X NULL}, X X {"border", "bd", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "Black", X ": name = Black", X NULL}, X X {"background", "bg", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "White", X ": name = White", X NULL}, X X {"foreground", "fg", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "Black", X ": name = Black", X NULL}, X X {"fontname", "fn", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "9x15", X ": string = \"9x15\"", X NULL}, X X {"fontname2", "fn2", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "6x10", X ": string = \"6x10\"", X NULL}, X X {"geometry", "g", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "<width>x<height>{+-}<xoffset>{+-}<yoffset>", X ": string = \"<width>x<height>{+-}<xoffset>{+-}<yoffset>\"", X NULL}, X X {"iconic", "i", X FALSE, TRUE, P_TYPE_SWITCH, X NULL, X "FALSE", X ": switch", X NULL}, X X {"microsecond_interval_time", "mit", X FALSE, TRUE, P_TYPE_INTEGER, X NULL, X "100000", X ": integer = 100000", X NULL}, X X {"odometer", "o", X FALSE, TRUE, P_TYPE_KEY, X NULL, X "both", X ": key cursor, pointer, both, keyend = both", X "cursor", X "pointer", X "both", X NULL}, X X {"odometer_file", "of", X FALSE, TRUE, P_TYPE_FILE, X NULL, X "$HOME/.xodo", X ": file = $HOME/.xodo", X NULL}, X X {"odometer_autosave_time", "oat", X FALSE, TRUE, P_TYPE_INTEGER, X NULL, X "2", X ": integer = 2", X NULL}, X X {"title", "t", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "xodo", X ": string = \"xodo\"", X NULL}, X X {NULL} /* end of parameters */ X X}; X#else Xextern Parameter_Value pvt []; X#endif X#define P_DISPLAY 1 X#define P_DISPLAY_WIDTH_MILLIMETERS 2 X#define P_DISPLAY_HEIGHT_MILLIMETERS 3 X#define P_DISPLAY_WIDTH_PIXELS 4 X#define P_DISPLAY_HEIGHT_PIXELS 5 X#define P_POINTER_SCALE_FACTOR 6 X#define P_BORDER 7 X#define P_BACKGROUND 8 X#define P_FOREGROUND 9 X#define P_FONTNAME 10 X#define P_FONTNAME2 11 X#define P_GEOMETRY 12 X#define P_ICONIC 13 X#define P_MICROSECOND_INTERVAL_TIME 14 X#define P_ODOMETER 15 X#define P_ODOMETER_FILE 16 X#define P_ODOMETER_AUTOSAVE_TIME 17 X#define P_TITLE 18 X#define P_NUMBER_OF_PARAMETERS 19 END_OF_FILE if test 4190 -ne `wc -c <'evap/xodo_pdt.out'`; then echo shar: \"'evap/xodo_pdt.out'\" unpacked with wrong size! fi # end of 'evap/xodo_pdt.out' fi if test -f 'evap/xodo_pdt.skl' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'evap/xodo_pdt.skl'\" else echo shar: Extracting \"'evap/xodo_pdt.skl'\" $4190 characters$ sed "s/^X//" >'evap/xodo_pdt.skl' <<'END_OF_FILE' X/* XPDT (/usr/local/bin/xodomm.a/xodo.mm) xodometer, xodo X display, d: string = DISPLAY, "" X display_width_millimeters, dwm: integer = D_XODO_DWM, 350 X display_height_millimeters, dhm: integer = D_XODO_DHM, 274 X display_width_pixels, dwp: integer = D_XODO_DWP, 1280 X display_height_pixels, dhp: integer = D_XODO_DHP, 1024 X pointer_scale_factor, psf: real = D_XODO_PSF, 3.4 X border, bd: name = Black X background, bg: name = White X foreground, fg: name = Black X fontname, fn: string = "9x15" X fontname2, fn2: string = "6x10" X geometry, g: string = "<width>x<height>{+-}<xoffset>{+-}<yoffset>" X iconic, i: switch X microsecond_interval_time, mit: integer = 100000 X odometer, o: key cursor, pointer, both, keyend = both X odometer_file, of: file = $HOME/.xodo X odometer_autosave_time, oat: integer = 2 X title, t: string = "xodo" XPDTEND no_file_list X*/ X X/* X#define P_EVAP_EXTERN in separately compiled modules! XThis will declare pvt as an external so you can reference Xparameter values. No storage is allocated in this case. X*/ X#ifndef P_EVAP_EXTERN X Xstruct pdt_header pdt = { X "PDT Version 1.2 for U*X", X "/usr/local/bin/xodomm.a/xodo.mm", X "no_file_list" X}; X XParameter_Value pvt [] = { X X {"help", "disci", X FALSE, TRUE, P_TYPE_SWITCH, X NULL, X "FALSE", X ": Display Command Information", X NULL}, X X {"display", "d", X FALSE, TRUE, P_TYPE_STRING, X "DISPLAY", X "", X ": string = DISPLAY, \"\"", X NULL}, X X {"display_width_millimeters", "dwm", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DWM", X "350", X ": integer = D_XODO_DWM, 350", X NULL}, X X {"display_height_millimeters", "dhm", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DHM", X "274", X ": integer = D_XODO_DHM, 274", X NULL}, X X {"display_width_pixels", "dwp", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DWP", X "1280", X ": integer = D_XODO_DWP, 1280", X NULL}, X X {"display_height_pixels", "dhp", X FALSE, TRUE, P_TYPE_INTEGER, X "D_XODO_DHP", X "1024", X ": integer = D_XODO_DHP, 1024", X NULL}, X X {"pointer_scale_factor", "psf", X FALSE, TRUE, P_TYPE_REAL, X "D_XODO_PSF", X "3.4", X ": real = D_XODO_PSF, 3.4", X NULL}, X X {"border", "bd", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "Black", X ": name = Black", X NULL}, X X {"background", "bg", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "White", X ": name = White", X NULL}, X X {"foreground", "fg", X FALSE, TRUE, P_TYPE_NAME, X NULL, X "Black", X ": name = Black", X NULL}, X X {"fontname", "fn", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "9x15", X ": string = \"9x15\"", X NULL}, X X {"fontname2", "fn2", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "6x10", X ": string = \"6x10\"", X NULL}, X X {"geometry", "g", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "<width>x<height>{+-}<xoffset>{+-}<yoffset>", X ": string = \"<width>x<height>{+-}<xoffset>{+-}<yoffset>\"", X NULL}, X X {"iconic", "i", X FALSE, TRUE, P_TYPE_SWITCH, X NULL, X "FALSE", X ": switch", X NULL}, X X {"microsecond_interval_time", "mit", X FALSE, TRUE, P_TYPE_INTEGER, X NULL, X "100000", X ": integer = 100000", X NULL}, X X {"odometer", "o", X FALSE, TRUE, P_TYPE_KEY, X NULL, X "both", X ": key cursor, pointer, both, keyend = both", X "cursor", X "pointer", X "both", X NULL}, X X {"odometer_file", "of", X FALSE, TRUE, P_TYPE_FILE, X NULL, X "$HOME/.xodo", X ": file = $HOME/.xodo", X NULL}, X X {"odometer_autosave_time", "oat", X FALSE, TRUE, P_TYPE_INTEGER, X NULL, X "2", X ": integer = 2", X NULL}, X X {"title", "t", X FALSE, TRUE, P_TYPE_STRING, X NULL, X "xodo", X ": string = \"xodo\"", X NULL}, X X {NULL} /* end of parameters */ X X}; X#else Xextern Parameter_Value pvt []; X#endif X#define P_DISPLAY 1 X#define P_DISPLAY_WIDTH_MILLIMETERS 2 X#define P_DISPLAY_HEIGHT_MILLIMETERS 3 X#define P_DISPLAY_WIDTH_PIXELS 4 X#define P_DISPLAY_HEIGHT_PIXELS 5 X#define P_POINTER_SCALE_FACTOR 6 X#define P_BORDER 7 X#define P_BACKGROUND 8 X#define P_FOREGROUND 9 X#define P_FONTNAME 10 X#define P_FONTNAME2 11 X#define P_GEOMETRY 12 X#define P_ICONIC 13 X#define P_MICROSECOND_INTERVAL_TIME 14 X#define P_ODOMETER 15 X#define P_ODOMETER_FILE 16 X#define P_ODOMETER_AUTOSAVE_TIME 17 X#define P_TITLE 18 X#define P_NUMBER_OF_PARAMETERS 19 END_OF_FILE if test 4190 -ne `wc -c <'evap/xodo_pdt.skl'`; then echo shar: \"'evap/xodo_pdt.skl'\" unpacked with wrong size! fi # end of 'evap/xodo_pdt.skl' fi if test -f 'patchlevel.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'patchlevel.h'\" else echo shar: Extracting \"'patchlevel.h'\" $102 characters$ sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE' X#define VERSION "1.1" /* 3 characters exactly */ X#define PATCHLEVEL 0 /* xodometer patch level */ END_OF_FILE if test 102 -ne `wc -c <'patchlevel.h'`; then echo shar: \"'patchlevel.h'\" unpacked with wrong size! fi # end of 'patchlevel.h' fi if test -f 'xodo.man' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xodo.man'\" else echo shar: Extracting \"'xodo.man'\" $8581 characters$ sed "s/^X//" >'xodo.man' <<'END_OF_FILE' X.TH "xodometer" 1 "Mar 10, 1993" X.SH NAME Xxodometer X.SH SYNOPSIS Xxodo [ -disci -d -dwm -dhm -dwp -dhp -psf -bd -bg -fg -fn -fn2 -g -i -mit -o -of -oat -t] X.SH DESCRIPTION X XTrack the total distance your pointing device and cursor Xtravel. The distance can be displayed in various units. X Xxodometer displays total distance and "trip" distance Xsince the application started (or since you clicked on Xa trip reset button). X Xxodometer requires certain information to ensure Xaccurate distance tracking. Refer to the following Xsections to learn about calibrating xodometer, and to Xview a list of tested configurations. X Xxodometer is typically started from the .xinitrc file. XUse the left button for selections. Use the middle Xbutton to reset both trip odometers simultaneously. X XEvery xodometer command line parameter can have an Xapplication resource in the xrdb database or .Xdefaults Xfile. A resource follows this convention: X X xodo.parameter_name : parameter_value X XTherefore to specify xodometer's default font the Xfollowing resource entry could be specified: X X xodo.fontname : Rom8 X XFor further help try xodo -full_help. X XExamples: X X xodo -bd red -bg wheat1 -fg blue -g -0-0 X X xodo -fn rom6 -o cursor -dwm 300 -dhm 234 X X X.SH CALIBRATION X Xxodometer requires the display dimensions in both pixels Xand millimeters in order to correctly compute distances. XLook for this information in the appropriate hardware Xreference manual for your display. If you cannot find Xthis information it's still easy to determine. For the Xdisplay dimensions in pixels simply run xodometer, jam Xthe cursor in the bottom-right corner and note the X/Y Xcoordinates displayed at the bottom of the window - add Xone to get the actual pixel count. For the display Xdimensions in millimeters just grab a tape measure and Xmeasure your screen - if inches multiply by 25.4 and if Xcentimeters multiply by 10. Select "About" and verify Xthat xodometer is calibrated properly by using a ruler Xto measure the calibration scale. The default values Xfor these dimensions are suitable for an IBM RS/6000 Xmachine with a 6091 19" color monitor. Refer to the Xnext section for values of other tested configurations. X XAssuming that the display dimension data is correct the Xcursor distance can be accurately tracked. The actual Xdistance that your pointing device, typically a mouse, Xtravels is INFERRED by accleration information provided Xby the X server and pointer scaling information that Xyou must provide. The default scale factor is 3.4, Xmeaning that the cursor travels 3.4 times as far as the Xpointing device moves. This value is appropriate for an XIBM RS/6000 machine with a 6091 19" color monitor. XRefer to the next section for values of other tested Xconfigurations. X XIf you cannot find the correct scale factor for your Xmouse then you must determine it by measuring. It is Xrather easy to do this: first enter "xset m 1 1" to Xset the X threshold and acceleration to 1, then enter X"xodo -psf 1.0" to set xodometer's pointer scale factor Xalso to 1. Once xodo is running pull-down the Units Xmenu and select "inches". Then, using a ruler, place Xthe pointing device against one edge, click the second Xbutton to reset the trip odometers, and then trace a Xknown distance, say, one inch. The distance recorded Xby the pointer's trip odometer is the proper scaling Xfactor. Repeat the measurement several times for Xaccuracy. X XAt the bottom of the xodometer window is a status line Xthat displays the current distance Units and the X/Y Xcordinates of the cursor. In the "About" window the Xpointer Scale factor, and the X Threshold and XAcceleration are displayed. X XAll the calibration information you supply is either Xpassed on the command line, stored in environment Xvariables, or placed in your .Xdefaults file. The Xapplicable environment variables are: X X D_XODO_DWM display_width_millimeters X D_XODO_DHM display_height_millimeters X D_XODO_DWP display_width_pixels X D_XODO_DHP display_height_pixels X D_XODO_PSF pointer_scale_factor X X X.SH TESTED CONFIGURATIONS X XFor each machine, Operating System/window manager and Xdisplay configuration, a sample xodometer command line Xis given: X X- IBM RS/6000, AIX 3.2.3/mwm, 16" color X xodo -dwm 300 -dhm 234 -dwp 1280 -dhp 1024 -psf 3.0 X X- IBM RS/6000, AIX 3.2.3/mwm, 19" color X xodo -dwm 350 -dhm 274 -dwp 1280 -dhp 1024 -psf 3.4 X X- IBM RS/6000, AIX 3.2.3/mwm, 23" color X xodo -dwm 430 -dhm 340 -dwp 1280 -dhp 1024 -psf 4.0 X X- Sun SPARC 1+, SunOS 4.1.1/twm, 17" monochrome X xodo -dwm 292 -dhm 232 -dwp 1152 -dhp 900 -psf 2.0 X X- Sun SPARC 1+, SunOS 4.1.1/twm, 19" color X xodo -dwm 358 -dhm 274 -dwp 1152 -dhp 900 -psf 4.0 X X.SH OPTIONS X X-help, disci: Display Command Information X X X Indicates display brief help information, which includes X a command description with examples, plus a synopsis of X the command line parameters. If you specify -full_help X rather than -help complete parameter help is displayed X if it's available. X X X-display, d: string = DISPLAY, "" X X X The X display name; default is the DISPLAY variable. X X X-display_width_millimeters, dwm: integer = D_XODO_DWM, 350 X X X The width in millimeters of the X display. The default X is 350 mm (an IBM 6091 19" color monitor). X X X-display_height_millimeters, dhm: integer = D_XODO_DHM, 274 X X X The height in millimeters of the X display. The default X is 274 mm (an IBM 6091 19" color monitor). X X X-display_width_pixels, dwp: integer = D_XODO_DWP, 1280 X X X The width of the X display in pixels. The default X is 1280 pixels (an IBM 6091 19" color monitor). X X X-display_height_pixels, dhp: integer = D_XODO_DHP, 1024 X X X The height of the X display in pixels. The default X is 1024 pixels (an IBM 6091 19" color monitor). X X X-pointer_scale_factor, psf: real = D_XODO_PSF, 3.4 X X X The scale factor to convert pointer movement to cursor X movement. A scale factor of 2.0 means that for every D X units of distance the pointing device moves, the cursor X moves 2 * D units. The default is 3.4, suitable for an X IBM 6091 19" color monitor. X X X-border, bd: name = Black X X X xodometer's border color. X X X-background, bg: name = White X X X xodometer's background color. X X X-foreground, fg: name = Black X X X xodometer's foreground color. X X X-fontname, fn: string = "9x15" X X X xodometer's odometer font. An extremely small font X is "rom6" while a rather large font is "helvr30". X X X-fontname2, fn2: string = "6x10" X X X xodometer's button font. In general you should NOT X change this font since the action buttons do not X change size. Another suitable font is "Rom8", but X that is not available on all X servers. X X X-geometry, g: string = "<width>x<height>{+-}<xoffset>{+-}<yoffset>" X X X Specifies the X geometry in the standard notation. X The width and height are not normally specified since X xodometer calculates them based on the fontname. If X an "offset" value is positive it is measured from the X top or left edge of the display, and if negative it is X measured from the bottom or right edge of the screen. X So, to start xodometer in the bottom-right corner a X geometry string of "-0-0" would be specified. X X X-iconic, i: switch X X X If specified xodometer starts up already iconified. X X X-microsecond_interval_time, mit: integer = 100000 X X X The number of microseconds between odometer updates. The X default value of 100,000 means that the pointer position X is sampled 10 times per second, which seems to provide X accurate distance measurements without consuming X excessive amounts of your machine's resources. X X X-odometer, o: key cursor, pointer, both, keyend = both X X X A keyword that specifies whether to display both X odometers, or just one of them, and if just one, X which one. X X X-odometer_file, of: file = $HOME/.xodo X X X The path name of the file to record total mouse distance X (in millimeters) and other application information. This X file is read during xodometer startup to initialize the X distance totals and establish the distance units. When X you "Quit" xodometer the updated distance/unit data is X written to this file. X X X-odometer_autosave_time, oat: integer = 2 X X X Specifies the time interval in minutes between odometer X file updates. This is just for good luck, as xodometer X updates the odometer file when these event are received: X X - control/c X - window close X - window manager exit X X X-title, t: string = "xodo" X X X The xodometer window title line. X X X.SH AUTHOR XStephen O. Lidie, lusol@Lehigh.EDU X XCopyright (C) 1993 - 1993, Lehigh University. XAll rights reserved. END_OF_FILE if test 8581 -ne `wc -c <'xodo.man'`; then echo shar: \"'xodo.man'\" unpacked with wrong size! fi # end of 'xodo.man' fi echo shar: End of archive 1 $of 4$. cp /dev/null ark1isdone MISSING="" for I in 1 2 3 4 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 4 archives. echo "Read README for installation instructions." rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## 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..." |