rsalz@uunet.uu.net (Rich Salz) (01/25/89)
Submitted-by: Stephen A. Uhler <sau@bellcore.com>
Posting-number: Volume 17, Issue 24
Archive-name: mgr/part23
#! /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 23 (of 61)."
# Contents: demo/misc/dmgr.c demo/misc/mgrmail.c demo/misc/omgrmail.c
# font-16/Ugal13x20b font-16/Ugal13x20r font-32/Ugal13x20b
# font-32/Ugal13x20r src/graph_subs.c
# Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:27 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'demo/misc/dmgr.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'demo/misc/dmgr.c'\"
else
echo shar: Extracting \"'demo/misc/dmgr.c'\" \(5769 characters\)
sed "s/^X//" >'demo/misc/dmgr.c' <<'END_OF_FILE'
X/* Copyright (c) 1987 Bellcore
X * All Rights Reserved
X * Permission is granted to copy or use this program, EXCEPT that it
X * may not be sold for profit, the copyright notice must be reproduced
X * on copies, and credit should be given to Bellcore where it is due.
X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
X */
X/* $Header: dmgr.c,v 4.1 88/06/30 10:06:21 bianchi Exp $
X $Source: /tmp/mgrsrc/demo/misc/RCS/dmgr.c,v $
X*/
Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/dmgr.c,v $$Revision: 4.1 $";
X
X/* Ditroff to MGR conversion filter (sample version) */
X
X#include "term.h"
X#include <signal.h>
X#include <ctype.h>
X
X/* ditroff macros */
X
X#define t_push()
X#define t_pop()
X#define hmot(N) (hpos+=(N))
X#define hgoto(N) (hpos = (N))
X#define vmot(N) (vpos+=(N))
X#define vgoto(N) (vpos=(N))
X#define put1s(c) put1('?')
X#define put1a(N) printf("\\%3.3o",N);
X#define t_text(S) printf("{%s}",S)
X#define draw(S) printf("\nDRAW %s\n",S);
X#define setfont(S) (font=(S))
X#define setsize(N) (size=(N))
X#define t_page() (page++>0?(getpass("\007"),m_clear()):0)
X#define t_newline() m_flush()
X#define t_init()
X#define t_trailer()
X#define t_reset(C)
X#define loadfont(N, S1, S2)
X#define error printf
X#define done() getpass("\007")
X
X/* mgr defines */
X
X#define GMAX 1000 /* maximum coordinate */
X
X/* these should be calculated from the ditroff input file */
X
X#define PAGE_WIDE 2300 /* page width (pixels) */
X#define PAGE_HIGH 3200 /* page height (pixels) */
X
Xint hpos,vpos;
Xint font;
Xint size;
Xint page=0;
X
Xmain()
X {
X
X int clean();
X
X /* setup MGR */
X
X m_setup(M_DEBUG);
X m_push(P_FLAGS|P_FONT);
X signal(SIGTERM,clean);
X signal(SIGINT,clean);
X m_setmode(M_OVERSTRIKE);
X m_func(14);
X /* m_font(4); */
X m_clear();
X
X /* display output */
X
X conv(stdin);
X
X /* wait for ack. */
X
X getpass("\007");
X clean(0);
X }
X
X/* print a character */
X
Xint
Xput1(c)
Xregister char c; /* the character to print */
X {
X register int x = hpos * GMAX / PAGE_WIDE;
X register int y = vpos * GMAX / PAGE_HIGH;
X
X m_movecursor(x,y);
X putc(c,m_termout);
X switch(font) {
X case 2: /* italic */
X m_printstr("\010_");
X break;
X case 3: /* bold */
X m_incr(2);
X break;
X }
X }
X
X/* do ditroff conversion (standard template) */
X
Xconv(fp)
Xregister FILE *fp;
X{
X register int c, k, sign;
X int m, n, i, n1, m1;
X char str[100], buf[300];
X
X while ((c = getc(fp)) != EOF) {
X switch (c) {
X case '\n': /* when input is text */
X case ' ':
X case 0: /* occasional noise creeps in */
X break;
X case '{': /* push down current environment */
X t_push();
X break;
X case '}':
X t_pop();
X break;
X case '0': case '1': case '2': case '3': case '4':
X case '5': case '6': case '7': case '8': case '9':
X /* two motion digits plus a character */
X hmot((c-'0')*10 + getc(fp)-'0');
X put1(getc(fp));
X break;
X case 'c': /* single ascii character */
X put1(getc(fp));
X break;
X case 'C':
X fscanf(fp, "%s", str);
X put1s(str);
X break;
X case 'N': /* absolute character number */
X fscanf(fp, "%d", &n);
X put1a(n);
X break;
X case 't': /* straight text */
X fgets(buf, sizeof(buf), fp);
X t_text(buf);
X break;
X case 'D': /* draw function */
X fgets(buf, sizeof(buf), fp);
X draw(buf);
X break;
X case 's':
X fscanf(fp, "%d", &n); /* ignore fractional sizes */
X setsize(n);
X break;
X case 'f':
X fscanf(fp, "%d", &n);
X setfont(n);
X if (n==3) /* bold */
X m_func(1);
X else if (n==1 || n==2)
X m_func(14);
X break;
X case 'H': /* absolute horizontal motion */
X /* fscanf(fp, "%d", &n); */
X while ((c = getc(fp)) == ' ')
X ;
X k = 0;
X do {
X k = 10 * k + c - '0';
X } while (isdigit(c = getc(fp)));
X ungetc(c, fp);
X hgoto(k);
X break;
X case 'h': /* relative horizontal motion */
X /* fscanf(fp, "%d", &n); */
X while ((c = getc(fp)) == ' ')
X ;
X k = 0;
X sign = 1;
X if (c == '-') {
X sign = -1;
X c = getc(fp);
X }
X do {
X k = 10 * k + c - '0';
X } while (isdigit(c = getc(fp)));
X ungetc(c, fp);
X hmot(sign * k);
X break;
X case 'w': /* word space */
X break;
X case 'V':
X fscanf(fp, "%d", &n);
X vgoto(n);
X break;
X case 'v':
X fscanf(fp, "%d", &n);
X vmot(n);
X break;
X case 'p': /* new page */
X fscanf(fp, "%d", &n);
X t_page(n);
X break;
X case 'n': /* end of line */
X while (getc(fp) != '\n')
X ;
X t_newline();
X break;
X case '#': /* comment */
X while (getc(fp) != '\n')
X ;
X break;
X case 'x': /* device control */
X devcntrl(fp);
X break;
X default:
X error("unknown input character %o %c\n", c, c);
X fprintf(stderr, "input context is:\n%c", c);
X for (i = 0; i < 10; i++) {
X if (fgets(buf, sizeof(buf), fp) == NULL)
X break;
X fprintf(stderr, "%s", buf);
X }
X done();
X }
X }
X }
X
Xdevcntrl(fp) /* interpret device control functions */
XFILE *fp;
X{
X char str[20], str1[50], buf[50];
X int c, n;
X
X fscanf(fp, "%s", str);
X switch (str[0]) { /* crude for now */
X case 'i': /* initialize */
X t_init();
X break;
X case 'T': /* device name */
X fscanf(fp, "%s", buf);
X break;
X case 't': /* trailer */
X t_trailer();
X break;
X case 'p': /* pause -- can restart */
X t_reset('p');
X break;
X case 's': /* stop */
X t_reset('s');
X break;
X case 'r': /* resolution assumed when prepared */
X fscanf(fp, "%d", &n);
X break;
X case 'f': /* font used */
X fscanf(fp, "%d %s", &n, str);
X fgets(buf, sizeof buf, fp); /* in case there's a filename */
X ungetc('\n', fp); /* fgets goes too far */
X str1[0] = 0; /* in case there's nothing to come in */
X sscanf(buf, "%s", str1);
X loadfont(n, str, str1);
X break;
X }
X while ((c = getc(fp)) != '\n') /* skip rest of input line */
X if (c == EOF)
X break;
X}
X
Xint
Xclean(n)
Xint n;
X {
X m_pop();
X m_clear();
X }
END_OF_FILE
# end of 'demo/misc/dmgr.c'
fi
if test -f 'demo/misc/mgrmail.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'demo/misc/mgrmail.c'\"
else
echo shar: Extracting \"'demo/misc/mgrmail.c'\" \(5947 characters\)
sed "s/^X//" >'demo/misc/mgrmail.c' <<'END_OF_FILE'
X/* Copyright (c) 1987 Bellcore
X * All Rights Reserved
X * Permission is granted to copy or use this program, EXCEPT that it
X * may not be sold for profit, the copyright notice must be reproduced
X * on copies, and credit should be given to Bellcore where it is due.
X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
X */
X/* $Header: mgrmail.c,v 4.2 88/06/22 14:37:50 bianchi Exp $
X $Source: /tmp/mgrsrc/demo/misc/RCS/mgrmail.c,v $
X*/
Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/mgrmail.c,v $$Revision: 4.2 $";
X
X/* check for new mail (experimental version) */
X
X#include <sys/types.h>
X#include <sys/stat.h>
X#include <signal.h>
X#include <stdio.h>
X#include "term.h"
X
X#define MSG_1 "\fLooking for new mail"
X#define MSG_2 "\f\007You have new mail"
X#define MSG_3 "\freading mail ...\r"
X#define MSG_4 "\rChecking for new mail..."
X#define MSG_5 "\fMail window is active"
X#define MSG_6 "\rYou don't have mail "
X
X#define MAILF "/usr/spool/mail" /* spool file */
X#define MAIL "mail" /* name of mail command */
X#define POLL 60 /* polling interval */
X#define XPOS 240 /* x start of mail window */
X#define YPOS 190 /* y start of mail window */
X#define W_WIDE 650 /* width of mail window */
X#define W_HIGH 394 /* height of mail window */
X
X#define PROCESSED 2 /* new mail already processed */
X
X#define S(x) statb.x
X#define Isflag(arg,flag) (!strncmp(arg,flag,strlen(flag)))
X#define Max(x,y) ((x)>(y)?(x):(y))
X#define dprintf if(debug) fprintf
X
X#define MENU_COUNT (sizeof(menu)/sizeof(struct menu_entry))
X
Xstruct menu_entry menu[] = {
X "print","t\r",
X "delete","dt\r",
X "next","n\r",
X "quit","q\r",
X "help","?\r",
X "headers","h *\r",
X "abort","x\r",
X};
X
Xstruct stat statb; /* spool file status */
Xchar mail[255]; /* spool file path name */
Xlong omtime=0l; /* previous file mod. time */
Xint state = 0; /* mail & window state */
Xint poll = POLL; /* poll interval */
Xint debug=0; /* for mgrmail -d >& /dev/tty?? */
X
Xmain(argc,argv)
X char **argv;
X{
X register int i;
X int xpos = XPOS; /* screen position of mail subwindow */
X int ypos = YPOS;
X int font = -1; /* font to use for mail subwindow */
X int shape = 1; /* initially reshape window */
X char *command = MAIL; /* name of readmail command */
X
X char *getenv();
X char *user = getenv("USER");
X char line[80]; /* event input buffer */
X
X int clean(), update();
X
X ckmgrterm( *argv );
X
X /* make sure environment is ok */
X if (user==NULL || *user=='\0') {
X fprintf(stderr,"%s: Who are you?\n",argv[0]);
X exit(2);
X }
X
X /* process arguments */
X
X for(i=1;i<argc;i++) {
X if (Isflag(argv[i],"-s"))
X shape = 0;
X else if (Isflag(argv[i],"-d"))
X debug = 1;
X else if (Isflag(argv[i],"-x"))
X xpos = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-y"))
X ypos = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-f"))
X font = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-p"))
X poll = Max(atoi(argv[i]+2),10);
X else if (Isflag(argv[i],"-M"))
X command = argv[i]+2;
X else
X usage(argv[0],argv[i]);
X }
X sprintf(mail,"%s/%s",MAILF,user);
X
X /* set up window environment */
X
X m_setup(M_FLUSH);
X m_ttyset();
X m_push(P_MENU|P_EVENT|P_FLAGS);
X dprintf(stderr,"pushing environment\n"); fflush(stderr);
X m_setmode(M_NOWRAP);
X
X signal(SIGTERM,clean);
X signal(SIGINT,clean);
X signal(SIGALRM,update);
X
X m_setmode(M_ACTIVATE);
X if (shape) {
X m_size(strlen(MSG_1),1);
X }
X
X m_setevent(ACTIVATE,"A\r");
X m_setevent(REDRAW,"R\r");
X
X m_clearmode(M_ACTIVATE);
X m_clear();
X m_printstr(MSG_1);
X
X dprintf(stderr,"Starting state 0x%x\n",state); fflush(stderr);
X
X update();
X
X /* wait for an event */
X
X while(1) {
X m_gets(line);
X dprintf(stderr,"state 0x%x line : %c\n",state,*line); fflush(stderr);
X switch(*line) {
X case 'A': /* window is activated */
X if (!stat(mail,&statb) && S(st_size))
X do_mail(command,font,xpos,ypos);
X else {
X m_printstr(MSG_6);
X sleep(2);
X m_clearmode(M_ACTIVATE);
X }
X state &= ~PROCESSED;
X update();
X break;
X case 'R': /* screen is redrawn */
X state &= ~PROCESSED;
X update();
X break;
X }
X }
X}
X
X/* run readmail in a subwindow */
X
Xdo_mail(command,font,xpos,ypos)
Xchar *command;
Xint font,xpos,ypos;
X {
X int code;
X int n;
X
X alarm(0);
X dprintf(stderr,"doing mail\n"); fflush(stderr);
X n=m_makewindow(xpos,ypos,W_WIDE,W_HIGH);
X if (n==0) { /* can't make window */
X m_printstr("\007\fCan't open mail window, sorry");
X return(0);
X }
X m_clearevent(ACTIVATE);
X m_printstr(MSG_5);
X m_selectwin(n);
X menu_load(1,MENU_COUNT,menu);
X m_selectmenu(1);
X m_printstr(MSG_3);
X m_ttyreset();
X code = system(command);
X m_printstr(MSG_4);
X sleep(1); /* for "New mail arrived" message */
X dprintf(stderr,"Readmail completed code %d\n",code); fflush(stderr);
X m_ttyset();
X m_destroywin(n);
X m_setevent(ACTIVATE,"A\r");
X m_clearmode(M_ACTIVATE);
X dprintf(stderr,"window deactivated\n"); fflush(stderr);
X }
X
X/* check the spool file for new mail and update message */
X
Xint
Xupdate()
X{
X alarm(0);
X dprintf(stderr,"checking mail state 0x%x\n",state); fflush(stderr);
X if (!stat(mail,&statb) && S(st_mtime)>S(st_atime) && S(st_size)) {
X state &= ~PROCESSED;
X if (S(st_mtime) != omtime) {
X dprintf(stderr," First time New mail\n"); fflush(stderr);
X m_printstr(MSG_2);
X m_setmode(M_WOB);
X omtime = S(st_mtime);
X }
X }
X else if (!(state&PROCESSED)) {
X dprintf(stderr," Clearing new mail\n"); fflush(stderr);
X m_clearmode(M_WOB);
X m_printstr(MSG_1);
X state |= PROCESSED;
X }
X alarm(poll);
X}
X
X/* Clean up and exit */
X
Xclean()
X{
X m_popall();
X m_ttyreset();
X exit(1);
X}
X
Xusage(name,error)
Xchar *name, *error;
X{
X fprintf(stderr,"Invalid flag: %s\n",error);
X fprintf(stderr,
X "usage: %s -[s|x<pos>|y<pos>|f<font>|p<poll>|M<mail_program>]\n"
X ,name);
X exit(1);
X}
END_OF_FILE
# end of 'demo/misc/mgrmail.c'
fi
if test -f 'demo/misc/omgrmail.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'demo/misc/omgrmail.c'\"
else
echo shar: Extracting \"'demo/misc/omgrmail.c'\" \(5590 characters\)
sed "s/^X//" >'demo/misc/omgrmail.c' <<'END_OF_FILE'
X/* Copyright (c) 1987 Bellcore
X * All Rights Reserved
X * Permission is granted to copy or use this program, EXCEPT that it
X * may not be sold for profit, the copyright notice must be reproduced
X * on copies, and credit should be given to Bellcore where it is due.
X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
X */
X/* $Header: omgrmail.c,v 4.2 88/06/22 14:37:57 bianchi Exp $
X $Source: /tmp/mgrsrc/demo/misc/RCS/omgrmail.c,v $
X*/
Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/omgrmail.c,v $$Revision: 4.2 $";
X
X/* check for new mail */
X
X#include <sys/types.h>
X#include <sys/stat.h>
X#include <signal.h>
X#include <stdio.h>
X#include "term.h"
X
X#define MSG_1 "\fLooking for new mail"
X#define MSG_2 "\f\007You have new mail"
X#define MSG_3 "\freading mail ...\r"
X#define MSG_4 "\rChecking for new mail..."
X
X#define MAILF "/usr/spool/mail" /* spool file */
X#define MAIL "mail" /* name of mail command */
X#define POLL 60 /* polling interval */
X#define XPOS 200 /* x start of mail window */
X#define YPOS 150 /* y start of mail window */
X
X#define PROCESSED 2 /* new mail already processed */
X
X#define S(x) statb.x
X#define Isflag(arg,flag) (!strncmp(arg,flag,strlen(flag)))
X#define Max(x,y) ((x)>(y)?(x):(y))
X#define dprintf if(debug) fprintf
X
X#define MENU_COUNT (sizeof(menu)/sizeof(struct menu_entry))
X
Xstruct menu_entry menu[] = {
X "print","t\r",
X "delete","dt\r",
X "next","n\r",
X "quit","q\r",
X "help","?\r",
X "headers","h *\r",
X "abort","x\r",
X};
X
Xstruct stat statb; /* spool file status */
Xchar mail[255]; /* spool file path name */
Xlong omtime=0l; /* previous file mod. time */
Xint state = 0; /* mail & window state */
Xint poll = POLL; /* poll interval */
Xint debug=0; /* for mgrmail -d >& /dev/tty?? */
X
Xmain(argc,argv)
X char **argv;
X{
X register int i;
X int xpos = XPOS; /* screen position of mail subwindow */
X int ypos = YPOS;
X int font = -1; /* font to use for mail subwindow */
X int shape = 1; /* initially reshape window */
X char *command = MAIL; /* name of readmail command */
X
X char *getenv();
X char *user = getenv("USER");
X char line[80]; /* event input buffer */
X
X int clean(), update();
X
X /* make sure environment is ok */
X
X ckmgrterm( *argv );
X
X if (user==NULL || *user=='\0') {
X fprintf(stderr,"%s: Who are you?\n",argv[0]);
X exit(2);
X }
X
X /* process arguments */
X
X for(i=1;i<argc;i++) {
X if (Isflag(argv[i],"-s"))
X shape = 0;
X else if (Isflag(argv[i],"-d"))
X debug = 1;
X else if (Isflag(argv[i],"-x"))
X xpos = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-y"))
X ypos = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-f"))
X font = atoi(argv[i]+2);
X else if (Isflag(argv[i],"-p"))
X poll = Max(atoi(argv[i]+2),10);
X else if (Isflag(argv[i],"-M"))
X command = argv[i]+2;
X else
X usage(argv[0],argv[i]);
X }
X sprintf(mail,"%s/%s",MAILF,user);
X
X /* set up window environment */
X
X m_setup(M_FLUSH);
X m_ttyset();
X m_push(P_MENU|P_EVENT|P_FLAGS);
X dprintf(stderr,"pushing environment\n"); fflush(stderr);
X m_setmode(M_NOWRAP);
X
X signal(SIGTERM,clean);
X signal(SIGINT,clean);
X signal(SIGALRM,update);
X
X m_setmode(M_ACTIVATE);
X if (shape) {
X m_size(strlen(MSG_1),1);
X }
X
X menu_load(1,MENU_COUNT,menu);
X m_selectmenu(1);
X m_setevent(ACTIVATE,"A\r");
X m_setevent(REDRAW,"R\r");
X
X m_clearmode(M_ACTIVATE);
X m_clear();
X m_printstr(MSG_1);
X
X dprintf(stderr,"Starting state 0x%x\n",state); fflush(stderr);
X
X update();
X
X /* wait for an event */
X
X while(1) {
X m_gets(line);
X dprintf(stderr,"state 0x%x line : %c\n",state,*line); fflush(stderr);
X switch(*line) {
X case 'A': /* window is activated */
X if (!stat(mail,&statb) && S(st_size))
X do_mail(command,font,xpos,ypos);
X state &= ~PROCESSED;
X update();
X break;
X case 'R': /* screen is redrawn */
X state &= ~PROCESSED;
X update();
X break;
X }
X }
X}
X
X/* run readmail in a subwindow */
X
Xdo_mail(command,font,xpos,ypos)
Xchar *command;
Xint font,xpos,ypos;
X {
X int x,y,dummy;
X int code;
X
X alarm(0);
X m_push(P_POSITION|P_EVENT|P_FLAGS|P_FONT);
X dprintf(stderr,"doing mail\n"); fflush(stderr);
X if (font != -1)
X m_font(font);
X m_sizeall(xpos,ypos,80,24);
X m_printstr(MSG_3);
X m_ttyreset();
X code = system(command);
X m_printstr(MSG_4);
X sleep(2); /* for "New mail arrived" message */
X dprintf(stderr,"Readmail completed code %d\n",code); fflush(stderr);
X m_ttyset();
X get_size(&x,&y,&dummy,&dummy);
X m_pop();
X dprintf(stderr,"done with mail\n"); fflush(stderr);
X if (x!=xpos || y!=ypos) {
X m_movewindow(x,y);
X xpos = x;
X dprintf(stderr,"moving mail window\n"); fflush(stderr);
X ypos = y;
X }
X m_clearmode(M_ACTIVATE);
X dprintf(stderr,"window deactivated\n"); fflush(stderr);
X }
X
X/* check the spool file for new mail and update message */
X
Xint
Xupdate()
X{
X alarm(0);
X dprintf(stderr,"checking mail state 0x%x\n",state); fflush(stderr);
X if (!stat(mail,&statb) && S(st_mtime)>S(st_atime) && S(st_size)) {
X state &= ~PROCESSED;
X if (S(st_mtime) != omtime) {
X dprintf(stderr," First time New mail\n"); fflush(stderr);
X m_printstr(MSG_2);
X m_setmode(M_WOB);
X omtime = S(st_mtime);
X }
X }
X else if (!(state&PROCESSED)) {
X dprintf(stderr," Clearing new mail\n"); fflush(stderr);
X m_clearmode(M_WOB);
X m_printstr(MSG_1);
X state |= PROCESSED;
X }
X alarm(poll);
X}
X
X/* Clean up and exit */
X
Xclean()
X{
X m_popall();
X m_ttyreset();
X exit(1);
X}
X
Xusage(name,error)
Xchar *name, *error;
X{
X fprintf(stderr,"Invalid flag: %s\n",error);
X fprintf(stderr,
X "usage: %s -[s|x<pos>|y<pos>|f<font>|p<poll>|M<mail_program>]\n"
X ,name);
X exit(1);
X}
END_OF_FILE
# end of 'demo/misc/omgrmail.c'
fi
if test -f 'font-16/Ugal13x20b' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'font-16/Ugal13x20b'\"
else
echo shar: Extracting \"'font-16/Ugal13x20b'\" \(5772 characters\)
sed "s/^X//" >'font-16/Ugal13x20b' <<'END_OF_FILE'
Xbegin 644 gal13x20b.fnt
XM%@T4!8
XM . =P!W!P'C@> < X< .!X 8!^ ?
XM@!P'\!X#_@^ ?@ ?
XM _' #\ & 8 # < \ !@
XMX 'P #P' >
XM #@'
XM< =Q_#-P/P/@ <#@ ' _ . _P/\ \!_ X!_X9P,\
XM /X X/^ ?S_@_\?^!_/CX_@?Q\>? >#^!X?!_P'P_X#_G_WP_P]__^'_#
XMS_P/QP _ #P . !P / ;@ X #@ .> <
XM !P!P!P
XM X!W '<_XS<'.#X / \
XM !P9P'@<>&'@/ P < X,..&'@ 'O .!PP,.<>'##A@PYP
XM<#@!P..#@#AYP,,\..#/''!PYG,X&<&.YG S@8PX#@. !P!^ ' \
XM!P &X > X #C@ ' !@ < < <
XM
XM . =P#N=_,^!S@. #@' X&.#X&#C X'P, .
XM##CC@X !AP/P'P<.&!G#APPX88&<' X <#G X \>>#&'#AQAQPX
XMX&!P.!CC#N8X8<, . X#@ < YP !P ' < #@ #@ X !P
XM 8 #@' .
XM #@'<#_W=Q[@
XM<X#@!X!X ^ .#CA^ X .!\& #@ !PXXX. </^!\
XM'#A@!P<< . & '!P. ' [@. /'GPQ@XX<8.<..!@<#@8XP[F/,#F ' . < '
XM <. ? !P ' X X . < .
XM X!P#@
XM X!W _]W !P#\!P < . ' #@ ' X
XMX#@ . '@W!_AP 8',.#@X < < '#AP;!PXX <'' #@#@!P<#@!P/P#
XM@#QY\,X..'.#G#CP ' X&.,/YAS Y@!P#@' !P 'P'X=\#^ _P? . /V
XM/\#X /CCP'!_\-\!^/_ ?9[P/\?^/OOA___\_\??_ . < X
XM
XM . '</P <!\ X ' #@=W X !P.. X #@/P-P<\=\ & ^#QX?
XM' > #P #AP<,X<<. '!QQ@XPX <' X <#X X ^^;C.#CCC@YPP? !P.!AV
XM#_P/@'P X X X < X#G'_ASPY\<<#@'/CW@. XYP!P/_GW@SQYX,^/
XMN'' X!QQP,[F>&.!G#P' ' '
XM #@ !W!_ . _ , !P X
XM'_P. X#C@. !P'\&< 'G_@#@' ?^'P#X >#_P? !P=[#.'_#@!P<?
XMX/\. '_P. ' ^ . /OF<S@X_PX.?X#X <#@8=@=\!P X . . . '
XMQQX\8<,/.#A_#APXX#@ ..X <#NXXX8></&'CSAPP. <<.&.YCS!PQAX#P!P
XM!X
XM X [@'X' ?X < . =P#@ < XX#@ X 'A
XMG YX\ P#X#[@X ^ ? _\!\ X'_PQAPXX <''&#C#@!P<#@!P/P#@#[YGLX.
XM. .#GX /@' X&'8'_ < . ' #@!P!P !\<'. '!S@X. X<.. X #C\
XM ' [N...#G!S@XX > #@''#ACN8?@<, \ < < < >,
XM .
XM.X!W!P'/P ' #@ /_@ #_X ' .. X < XQP .<' ,!G X ' ? '
XMP<!^\?\<'. '!QP X X_<' X <#^ X W^8[.#C@#@Y_ \!P.!@X!_P/@#@!
XMP X . < #W'!S@!P<_^#@.'#C@. X^ !P.[CCC@YP<X.. #X X!QP
XM<P?\#P#F > #@' . /W
XM #@ /_ =P[QQ\ !X!X!W#_X _
XM^ #@#C@. . ./_ #G!P' XX < 'P !\' ?O&''!S@!P<< . .#G!P
XM. ' [P. -[F'S@XX X.=X '@<#@8/ ?X&< X X . #@' !QQP<X <'
XM. X!S@XX#@ ./P <#NXXXX.<'.#C@ /@. <<','_ > Y@/ X!P#@#_@
XM
XM #_QW</F<> . <!_\#@ X X XP#@' ,#G_S YP<!@
XM.. ' X ? _\!\ '?Q@QP<8 <'' #@!@YP<#@!P.>#@#>Y@\8,. '#'/#
XMX' X&#P#N!G@. . #@ <!P <<<'. '!S@ . ?P.. X #C^ ' [N...
XM#G!S@XX \#@'' ^!_P/P'P'@ . < X!WX
XM =P?^'9G'
XM #P/ =W X X ? < ', X#@S@P!PX.>& 8#C@#@? ' !X/_!\ !P P.<
XM''!G!AP8X <.<' X <#CPX,S.8/'##@!XQQXP.!P/# 8 [@PX#@' X ' <
XM '''ASPQX\< #@. #C@. X[P!P.[CCCPQP8\.. &' XQQP/@.X&>!\
XM#PP' ' ' 8\
XM #@ .X#_!V8_\ <#@ < . ? 'P' !^
XM.!_\?X <''#_ . <P#P'P#X '@ \ ' . ,#G#@XQQP<&. #CG!P. ' X>.#
XM,SF!PY@X /X</.' <!_P& .X8' X!PP/P X_ ![Q\X<</?#C@X#_PX
XMX#@ ..> <#NXXX>8>,'GC@!QP/8>\!P#N##P.!X<!P!P!P
XM
XM X #N ' X\'W #AP /@#@'P X#@ / ?\?_#\ ' _@?@# #X'P X ^
XM < < !P#_WA__P'X_P/_GP ?CX^/X!P?#W_WM_P.'P? !X/A[_@?P/X!@#
XMN/#X? _\#\ ./P /^;\#^!]X?@? ?^??#^ #GSX?Q__??#\'^ _Y\
XM?X!\#[@< [CY^#@?_ / <!X
XM
XM < #@ /\
XM < _
XM &#@ PX !P . P '
XM
XM '
XM X '
XM 9[ ?_P # 8 ..
XM < #@ < !P
XM
XM #@ <
XM !@ /@
XM '_\ P& #S ' X
XM & <
XM !P
XM .
XM#P
XM /_ ?@ !P . /@ '
XM
XM 8
XM # X
XM !_@ #P
X:^ 'P #P !P
X
Xend
END_OF_FILE
# end of 'font-16/Ugal13x20b'
fi
if test -f 'font-16/Ugal13x20r' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'font-16/Ugal13x20r'\"
else
echo shar: Extracting \"'font-16/Ugal13x20r'\" \(5772 characters\)
sed "s/^X//" >'font-16/Ugal13x20r' <<'END_OF_FILE'
Xbegin 644 gal13x20r.fnt
XM%@T4!8
XM , 9@!F!@'# < 8 P8 ,!P 0!\ ?
XM !@'X!P#_ \ ? >
XM ^& #X $ 0 " 8 X !
XMP '@ #@& <
XM # &
XM8 9A^")@/@/ 8# & ^ , _@/X X!^ P!_P1@(X
XM /P P/\ ?C_ _X?\!^/#P_ ?AX<> <#L!P>!_@'@_P#_'_G@[@Y_>\'>#
XMC_@/A@ ^ #@ , !@ . 3 P # ,< 8
XM !@!@!@
XM P!F &8_PB8&,#P . X
XM !@1@' 8<$' . @ 8 P(,,$' '. ,!@@(,8<&"#! @Q@
XM8# !@,,# #!Q@((X,,".&&!@Q&(P$8$,Q& C 0@P# , !@!L & X
XM!@ $P < P ## & ! 8 8 8
XM
XM , 9@#,9N(L!C , # & P$,#P$#" P%@( ,
XM"### P !!@/@%@8,$!&#!@@P00$8& P 8#& P X<<"$&#!A!A@P
XMP$!@,!#"#,0P08( , P# 8 Q@ !@ & 8 # # P !@
XM 0 # & ,
XM # &8#_F9AS
XM8P# !P!P \ ,##!L P ,!8$ # !@PPP, 8/\!8
XM&#! !@88 , $ &!@, & S , .''@A PP80,8,,! 8# 0P@S$.(#$ & , 8 &
XM 8, > !@ & P P , 8 ,
XM P!@#
XM P!F _YF !@#X!@ 8 , & # & P
XMP# , ' F!_!@ 0&(,# P 8 8 &#!@2!@PP 8&& # # !@8# !@-@#
XM #AQ8(P,,&,#&##@ & P$,(.Q!B Q !@# & !@ '@'P9X#\ ]@> , /D
XM-X#P /##@&!NX)X!\.^ >1S@/X?\///!W^[X]X>?^ , 8 P
XM
XM , &8/@ 8!X P & # 9F P !@,, P # /@)@8X9X $ T#AP>
XM& < #@ #!@8(P88, &!AA P@P 8& P 8#P P LL3",#### Q@@> !@,!!D
XM#N@- &@ P P P 8 P#&&_!C@QX88# &/#G , PQ@!@-W'G CAQP(\-
XM,&& P!AA@(S$<$,!&#@& & &
XM # !F!^ , ^ ( !@ P
XM';@, P## , !@'X$8 '&_ # & ?L'@#P <#_@> !@9R",'^# !@8?
XMP/X, '_@, & \ , ++$8C PW@P,?P#P 8# 09 9H!@ P , , , &
XMAAPX08(.,#!^#!@PP# ,,P 8#,PPP0<8.$'#C!@@, 88,$,Q#B!@A!P#@!@
XM!P
XM P S 'P& =P 8 , 9@# 8 PP# P '!
XM& QPX @"P#S P \ > _X!X P&^@A!@PP 8&&$#"# !@8# !@/@# "RQ'(P,
XM, ,#'P / & P$&0&Z 8 , & # !@!@ !X8&, &!C P, P8,, P ##X
XM & S,,,,#&!C PP < # &&#!#,0= 8( X 8 8 8 <(
XM ,
XM,P!F!@&-@ & # /_ #_P & ,, P 8 PA@ ,8& (!& P & > '
XM@8!LH?X8&, &!A@ P P^8& P 8#< P FL0R,## # QN X!@,! P!W@+ # !
XM@ P , 8 #F&!C !@8_\# ,&## , P\ !@,S### Q@8P,, #P P!A@
XM8@;H#@#$ < # & , /F
XM # /^ 9@SAAX !P!P!F#_P _
XM\ # ## , , ,/^ #&!@& PP 8 '@ !X& ;*$&&!C !@88 , ,#&!@
XM, & S@, )S$&C PP P,9P ' 8# 0. =P$8 P P , # & !AA@8P 8&
XM, P!C PP# ,/@ 8#,PPPP,8&,## / , 88&(': < Q . P!@# #;
XM
XM #_AF8-$8< , 8!VX# P P P@# & (#'_B Q@8!
XM,, & P > _X!X &?A A@80 8&& # ! Q@8# !@,<# "<Q X0(, &"&."
XMP& P$#@#,!' , , # 8!@ 888&, &!C , ?@,, P ##< & S,,,,
XM#&!C PP X# && T!V@+@&@' , 8 P!GP
XM 9@?\&1&&
XM #@. 9F P P > 8 &( P# C @!@P,<$ 0## # > & !P/^!X !@ @,8
XM&&!&!!@0P 8,8& P 8##@P(B,0.&"# !PAAP@,!@." 0 S @P# & P & 8
XM &&'!C@APX8 # , ## , PS@!@,S###@A@0X,, $& PAA@- ,P$<!H
XM#@@& & & 0X
XM # ,P#^!D0_X 8# 8 , > '@& !\
XM,!_X?P 8&&#^ , 8@#@'@#P ' X & , (#&# PAA@8$, ##&!@, & P<,"
XM(C$!@Q P /P8.,& 8!_@$ ,P0& P!@@/@ P^ !SAXP88.6## P#_@P
XMP# ,,< 8#,PPP<0<(''# !A@.0<X!@#,"#@,!P8!@!@!@
XM
XM P #, & PX'F #!@ / # '@ P# . ?X?^#X & _ ? " #P'@ P \
XM 8 8 !@#_G![_@'P_@/_'@ ?#P\/P!@>#G_G)[@,'@> !P/!S_ ?@/P! #
XM,.#P> _X#X ,/@ /<3X#\!YP? > ?\>>#\ #'CP?AWN>>#X'\ _QX
XM?P!X#S 8 S#Q\# ?^ . 8!P
XM
XM 8 # /X
XM 8 ^
XM $# @P !@ , @ &
XM
XM &
XM P &
XM 1R ?_@ " 0 ,,
XM 8 # 8 !@
XM
XM # 8
XM ! /
XM '_X @$ #B & P
XM $ 8
XM !@
XM ,
XM#@
XM /^ ? !@ , / &
XM
XM 0
XM " P
XM !_ #@
X:\ '@ #@ !@
X
Xend
END_OF_FILE
# end of 'font-16/Ugal13x20r'
fi
if test -f 'font-32/Ugal13x20b' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'font-32/Ugal13x20b'\"
else
echo shar: Extracting \"'font-32/Ugal13x20b'\" \(5772 characters\)
sed "s/^X//" >'font-32/Ugal13x20b' <<'END_OF_FILE'
Xbegin 644 gal13x20b.fnt
XM& T4!8
XM . =P!W!P'C@> < X< .!X 8!^ ?
XM@!P'\!X#_@^ ?@ ?
XM _' #\ & 8 # < \ !@
XMX 'P #P' >
XM #@'
XM< =Q_#-P/P/@ <#@ ' _ . _P/\ \!_ X!_X9P,\
XM /X X/^ ?S_@_\?^!_/CX_@?Q\>? >#^!X?!_P'P_X#_G_WP_P]__^'_#
XMS_P/QP _ #P . !P / ;@ X #@ .> <
XM !P!P!P
XM X!W '<_XS<'.#X / \
XM !P9P'@<>&'@/ P < X,..&'@ 'O .!PP,.<>'##A@PYP
XM<#@!P..#@#AYP,,\..#/''!PYG,X&<&.YG S@8PX#@. !P!^ ' \
XM!P &X > X #C@ ' !@ < < <
XM
XM . =P#N=_,^!S@. #@' X&.#X&#C X'P, .
XM##CC@X !AP/P'P<.&!G#APPX88&<' X <#G X \>>#&'#AQAQPX
XMX&!P.!CC#N8X8<, . X#@ < YP !P ' < #@ #@ X !P
XM 8 #@' .
XM #@'<#_W=Q[@
XM<X#@!X!X ^ .#CA^ X .!\& #@ !PXXX. </^!\
XM'#A@!P<< . & '!P. ' [@. /'GPQ@XX<8.<..!@<#@8XP[F/,#F ' . < '
XM <. ? !P ' X X . < .
XM X!P#@
XM X!W _]W !P#\!P < . ' #@ ' X
XMX#@ . '@W!_AP 8',.#@X < < '#AP;!PXX <'' #@#@!P<#@!P/P#
XM@#QY\,X..'.#G#CP ' X&.,/YAS Y@!P#@' !P 'P'X=\#^ _P? . /V
XM/\#X /CCP'!_\-\!^/_ ?9[P/\?^/OOA___\_\??_ . < X
XM
XM . '</P <!\ X ' #@=W X !P.. X #@/P-P<\=\ & ^#QX?
XM' > #P #AP<,X<<. '!QQ@XPX <' X <#X X ^^;C.#CCC@YPP? !P.!AV
XM#_P/@'P X X X < X#G'_ASPY\<<#@'/CW@. XYP!P/_GW@SQYX,^/
XMN'' X!QQP,[F>&.!G#P' ' '
XM #@ !W!_ . _ , !P X
XM'_P. X#C@. !P'\&< 'G_@#@' ?^'P#X >#_P? !P=[#.'_#@!P<?
XMX/\. '_P. ' ^ . /OF<S@X_PX.?X#X <#@8=@=\!P X . . . '
XMQQX\8<,/.#A_#APXX#@ ..X <#NXXX8></&'CSAPP. <<.&.YCS!PQAX#P!P
XM!X
XM X [@'X' ?X < . =P#@ < XX#@ X 'A
XMG YX\ P#X#[@X ^ ? _\!\ X'_PQAPXX <''&#C#@!P<#@!P/P#@#[YGLX.
XM. .#GX /@' X&'8'_ < . ' #@!P!P !\<'. '!S@X. X<.. X #C\
XM ' [N...#G!S@XX > #@''#ACN8?@<, \ < < < >,
XM .
XM.X!W!P'/P ' #@ /_@ #_X ' .. X < XQP .<' ,!G X ' ? '
XMP<!^\?\<'. '!QP X X_<' X <#^ X W^8[.#C@#@Y_ \!P.!@X!_P/@#@!
XMP X . < #W'!S@!P<_^#@.'#C@. X^ !P.[CCC@YP<X.. #X X!QP
XM<P?\#P#F > #@' . /W
XM #@ /_ =P[QQ\ !X!X!W#_X _
XM^ #@#C@. . ./_ #G!P' XX < 'P !\' ?O&''!S@!P<< . .#G!P
XM. ' [P. -[F'S@XX X.=X '@<#@8/ ?X&< X X . #@' !QQP<X <'
XM. X!S@XX#@ ./P <#NXXXX.<'.#C@ /@. <<','_ > Y@/ X!P#@#_@
XM
XM #_QW</F<> . <!_\#@ X X XP#@' ,#G_S YP<!@
XM.. ' X ? _\!\ '?Q@QP<8 <'' #@!@YP<#@!P.>#@#>Y@\8,. '#'/#
XMX' X&#P#N!G@. . #@ <!P <<<'. '!S@ . ?P.. X #C^ ' [N...
XM#G!S@XX \#@'' ^!_P/P'P'@ . < X!WX
XM =P?^'9G'
XM #P/ =W X X ? < ', X#@S@P!PX.>& 8#C@#@? ' !X/_!\ !P P.<
XM''!G!AP8X <.<' X <#CPX,S.8/'##@!XQQXP.!P/# 8 [@PX#@' X ' <
XM '''ASPQX\< #@. #C@. X[P!P.[CCCPQP8\.. &' XQQP/@.X&>!\
XM#PP' ' ' 8\
XM #@ .X#_!V8_\ <#@ < . ? 'P' !^
XM.!_\?X <''#_ . <P#P'P#X '@ \ ' . ,#G#@XQQP<&. #CG!P. ' X>.#
XM,SF!PY@X /X</.' <!_P& .X8' X!PP/P X_ ![Q\X<</?#C@X#_PX
XMX#@ ..> <#NXXX>8>,'GC@!QP/8>\!P#N##P.!X<!P!P!P
XM
XM X #N ' X\'W #AP /@#@'P X#@ / ?\?_#\ ' _@?@# #X'P X ^
XM < < !P#_WA__P'X_P/_GP ?CX^/X!P?#W_WM_P.'P? !X/A[_@?P/X!@#
XMN/#X? _\#\ ./P /^;\#^!]X?@? ?^??#^ #GSX?Q__??#\'^ _Y\
XM?X!\#[@< [CY^#@?_ / <!X
XM
XM < #@ /\
XM < _
XM &#@ PX !P . P '
XM
XM '
XM X '
XM 9[ ?_P # 8 ..
XM < #@ < !P
XM
XM #@ <
XM !@ /@
XM '_\ P& #S ' X
XM & <
XM !P
XM .
XM#P
XM /_ ?@ !P . /@ '
XM
XM 8
XM # X
XM !_@ #P
X:^ 'P #P !P
X
Xend
END_OF_FILE
# end of 'font-32/Ugal13x20b'
fi
if test -f 'font-32/Ugal13x20r' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'font-32/Ugal13x20r'\"
else
echo shar: Extracting \"'font-32/Ugal13x20r'\" \(5772 characters\)
sed "s/^X//" >'font-32/Ugal13x20r' <<'END_OF_FILE'
Xbegin 644 gal13x20r.fnt
XM& T4!8
XM , 9@!F!@'# < 8 P8 ,!P 0!\ ?
XM !@'X!P#_ \ ? >
XM ^& #X $ 0 " 8 X !
XMP '@ #@& <
XM # &
XM8 9A^")@/@/ 8# & ^ , _@/X X!^ P!_P1@(X
XM /P P/\ ?C_ _X?\!^/#P_ ?AX<> <#L!P>!_@'@_P#_'_G@[@Y_>\'>#
XMC_@/A@ ^ #@ , !@ . 3 P # ,< 8
XM !@!@!@
XM P!F &8_PB8&,#P . X
XM !@1@' 8<$' . @ 8 P(,,$' '. ,!@@(,8<&"#! @Q@
XM8# !@,,# #!Q@((X,,".&&!@Q&(P$8$,Q& C 0@P# , !@!L & X
XM!@ $P < P ## & ! 8 8 8
XM
XM , 9@#,9N(L!C , # & P$,#P$#" P%@( ,
XM"### P !!@/@%@8,$!&#!@@P00$8& P 8#& P X<<"$&#!A!A@P
XMP$!@,!#"#,0P08( , P# 8 Q@ !@ & 8 # # P !@
XM 0 # & ,
XM # &8#_F9AS
XM8P# !P!P \ ,##!L P ,!8$ # !@PPP, 8/\!8
XM&#! !@88 , $ &!@, & S , .''@A PP80,8,,! 8# 0P@S$.(#$ & , 8 &
XM 8, > !@ & P P , 8 ,
XM P!@#
XM P!F _YF !@#X!@ 8 , & # & P
XMP# , ' F!_!@ 0&(,# P 8 8 &#!@2!@PP 8&& # # !@8# !@-@#
XM #AQ8(P,,&,#&##@ & P$,(.Q!B Q !@# & !@ '@'P9X#\ ]@> , /D
XM-X#P /##@&!NX)X!\.^ >1S@/X?\///!W^[X]X>?^ , 8 P
XM
XM , &8/@ 8!X P & # 9F P !@,, P # /@)@8X9X $ T#AP>
XM& < #@ #!@8(P88, &!AA P@P 8& P 8#P P LL3",#### Q@@> !@,!!D
XM#N@- &@ P P P 8 P#&&_!C@QX88# &/#G , PQ@!@-W'G CAQP(\-
XM,&& P!AA@(S$<$,!&#@& & &
XM # !F!^ , ^ ( !@ P
XM';@, P## , !@'X$8 '&_ # & ?L'@#P <#_@> !@9R",'^# !@8?
XMP/X, '_@, & \ , ++$8C PW@P,?P#P 8# 09 9H!@ P , , , &
XMAAPX08(.,#!^#!@PP# ,,P 8#,PPP0<8.$'#C!@@, 88,$,Q#B!@A!P#@!@
XM!P
XM P S 'P& =P 8 , 9@# 8 PP# P '!
XM& QPX @"P#S P \ > _X!X P&^@A!@PP 8&&$#"# !@8# !@/@# "RQ'(P,
XM, ,#'P / & P$&0&Z 8 , & # !@!@ !X8&, &!C P, P8,, P ##X
XM & S,,,,#&!C PP < # &&#!#,0= 8( X 8 8 8 <(
XM ,
XM,P!F!@&-@ & # /_ #_P & ,, P 8 PA@ ,8& (!& P & > '
XM@8!LH?X8&, &!A@ P P^8& P 8#< P FL0R,## # QN X!@,! P!W@+ # !
XM@ P , 8 #F&!C !@8_\# ,&## , P\ !@,S### Q@8P,, #P P!A@
XM8@;H#@#$ < # & , /F
XM # /^ 9@SAAX !P!P!F#_P _
XM\ # ## , , ,/^ #&!@& PP 8 '@ !X& ;*$&&!C !@88 , ,#&!@
XM, & S@, )S$&C PP P,9P ' 8# 0. =P$8 P P , # & !AA@8P 8&
XM, P!C PP# ,/@ 8#,PPPP,8&,## / , 88&(': < Q . P!@# #;
XM
XM #_AF8-$8< , 8!VX# P P P@# & (#'_B Q@8!
XM,, & P > _X!X &?A A@80 8&& # ! Q@8# !@,<# "<Q X0(, &"&."
XMP& P$#@#,!' , , # 8!@ 888&, &!C , ?@,, P ##< & S,,,,
XM#&!C PP X# && T!V@+@&@' , 8 P!GP
XM 9@?\&1&&
XM #@. 9F P P > 8 &( P# C @!@P,<$ 0## # > & !P/^!X !@ @,8
XM&&!&!!@0P 8,8& P 8##@P(B,0.&"# !PAAP@,!@." 0 S @P# & P & 8
XM &&'!C@APX8 # , ## , PS@!@,S###@A@0X,, $& PAA@- ,P$<!H
XM#@@& & & 0X
XM # ,P#^!D0_X 8# 8 , > '@& !\
XM,!_X?P 8&&#^ , 8@#@'@#P ' X & , (#&# PAA@8$, ##&!@, & P<,"
XM(C$!@Q P /P8.,& 8!_@$ ,P0& P!@@/@ P^ !SAXP88.6## P#_@P
XMP# ,,< 8#,PPP<0<(''# !A@.0<X!@#,"#@,!P8!@!@!@
XM
XM P #, & PX'F #!@ / # '@ P# . ?X?^#X & _ ? " #P'@ P \
XM 8 8 !@#_G![_@'P_@/_'@ ?#P\/P!@>#G_G)[@,'@> !P/!S_ ?@/P! #
XM,.#P> _X#X ,/@ /<3X#\!YP? > ?\>>#\ #'CP?AWN>>#X'\ _QX
XM?P!X#S 8 S#Q\# ?^ . 8!P
XM
XM 8 # /X
XM 8 ^
XM $# @P !@ , @ &
XM
XM &
XM P &
XM 1R ?_@ " 0 ,,
XM 8 # 8 !@
XM
XM # 8
XM ! /
XM '_X @$ #B & P
XM $ 8
XM !@
XM ,
XM#@
XM /^ ? !@ , / &
XM
XM 0
XM " P
XM !_ #@
X:\ '@ #@ !@
X
Xend
END_OF_FILE
# end of 'font-32/Ugal13x20r'
fi
if test -f 'src/graph_subs.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'src/graph_subs.c'\"
else
echo shar: Extracting \"'src/graph_subs.c'\" \(5999 characters\)
sed "s/^X//" >'src/graph_subs.c' <<'END_OF_FILE'
X/* Copyright (c) 1987 Bellcore
X * All Rights Reserved
X * Permission is granted to copy or use this program, EXCEPT that it
X * may not be sold for profit, the copyright notice must be reproduced
X * on copies, and credit should be given to Bellcore where it is due.
X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
X */
X/* $Header: graph_subs.c,v 4.1 88/06/21 13:33:53 bianchi Exp $
X $Source: /tmp/mgrsrc/src/RCS/graph_subs.c,v $
X*/
Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/graph_subs.c,v $$Revision: 4.1 $";
X
X/* graphics subs - mostly from the BLIT */
X
X#include "bitmap.h"
X
X/* circle of radius r centered at x1,y1 */
X
Xcircle(b,x1,y1,r,f)
XBITMAP *b;
Xint x1;
Xregister int y1;
Xint r, f;
X{
X register err = 0; /* x^2 + y^2 - r^2 */
X register dxsq = 1; /* (x+dx)^2-x^2*/
X register dysq = 1 - 2*r;
X register exy;
X int x0 = x1;
X register y0 = y1 - r;
X
X y1 += r;
X while(y1 > y0) {
X bit_point(b,x0,y0,f);
X bit_point(b,x0,y1,f);
X bit_point(b,x1,y0,f);
X bit_point(b,x1,y1,f);
X exy = err + dxsq + dysq;
X if(-exy <= err+dxsq) {
X y1--;
X y0++;
X err += dysq;
X dysq += 2;
X }
X if(exy <= -err) {
X x1++;
X x0--;
X err += dxsq;
X dxsq += 2;
X }
X }
X bit_point(b,x0,y0,f);
X bit_point(b,x1,y0,f);
X }
X
X
X#define labs(x,y) if((x=y)<0) x= -x
X#define BIG 0x7fff
X#define HUGE 0x3fffffffL
X
Xint bit_point();
X
X/* draw an ellipse centered at x0,y0 with half-axes a,b */
X
Xellipse(screen, x, y, a, b, f)
XBITMAP *screen;
Xint x, y;
Xint a, b;
Xint f;
X {
X if(a==0 || b==0)
X bit_line(screen, x-a, y-b, x+a, y+b, f);
X else
X ellip1(screen, x, y, a, b, bit_point, 0, b, 0, b, f);
X }
X
X/* calculate b*b*x*x + a*a*y*y - a*a*b*b avoiding ovfl */
X
Xstatic long
Xresid(a,b,x,y)
Xregister a,b;
X {
X long result = 0;
X long u = b*((long)a*a - (long)x*x);
X long v = (long)a*y*y;
X register q = u>BIG? HUGE/u: BIG;
X register r = v>BIG? HUGE/v: BIG;
X while(a || b) {
X if(result>=0 && b) {
X if(q>b) q = b;
X result -= q*u;
X b -= q;
X }
X else {
X if(r>a) r = a;
X result += r*v;
X a -= r;
X }
X }
X return(result);
X }
X
X/*
X * clockwise ellipse centered at x0,y0 with half-axes a,b.
X * from x1,y1 to x2,y2
X * do "action" at each point
X */
X
Xellip1(screen, x0,y0, a, b, action, x1,y1, x2,y2, f)
Xint x0,y0, x1,y1, x2, y2;
Xregister void (*action)();
XBITMAP *screen;
Xint f;
X {
X int z;
X int dx = y1>0? 1: y1<0? -1: x1>0? -1: 1;
X int dy = x1>0? -1: x1<0? 1: y1>0? -1: 1;
X long a2 = (long)a*a;
X long b2 = (long)b*b;
X register long dex = b2*(2*dx*x1+1);
X register long e;
X register long dey = a2*(2*dy*y1+1);
X register long ex, ey, exy;
X
X e = resid(a, b, x1, y1);
X a2 *= 2;
X b2 *= 2;
X do {
X labs(ex, e+dex);
X labs(ey, e+dey);
X labs(exy, e+dex+dey);
X if(exy<=ex || ey<ex) {
X y1 += dy;
X e += dey;
X dey += a2;
X }
X if(exy<=ey || ex<ey) {
X x1 += dx;
X e += dex;
X dex += b2;
X }
X (*action)(screen, x0+x1, y0+y1, f);
X if(x1 == 0) {
X dy = -dy;
X dey = -dey + a2;
X }
X else if(y1 == 0) {
X for(z=x1; abs(z+=dx)<=a; )
X (*action)(screen, x0+z, y0+y1, f);
X dx = -dx;
X dex = -dex + b2;
X }
X } while(x1!=x2 || y1!=y2);
X }
X
X/*----------------------------------------------------------------------*/
X
X#define sq(x) ((long)(x)*(x))
X#define sgn(x) ((x)<0? -1 : (x)==0? 0 : 1)
X
Xstatic long
XLabs(x)
Xlong x;
X {
X return(x<0? -x : x);
X }
X
X/* Draw an approximate arc centered at x0,y0 of an
X * integer grid and running anti-clockwise from
X * x1,y1 to the vicinity of x2,y2.
X * If the endpoints coincide, draw a complete circle.
X *
X * The "arc" is a sequence of vertically, horizontally,
X * or diagonally adjacent points that minimize
X * abs(x^2+y^2-r^2).
X *
X * The circle is guaranteed to be symmetric about
X * the horizontal, vertical, and diagonal axes
X */
X
Xarc(bp, x0,y0, x2,y2, x1,y1, f)
Xregister BITMAP *bp;
Xint x0,y0,x1,y1,x2,y2;
X {
X register dx, dy;
X register eps; /* x^2 + y^2 - r^2 */
X int dxsq, dysq; /* (x+dx)^2-x^2, ...*/
X int ex, ey, exy;
X
X x1=x1-x0;
X y1=y1-y0;
X x2=x2-x0;
X y2=y2-y0;
X
X nearby(x1,y1,x2,y2, &x2, &y2);
X
X dx = -sgn(y1);
X dy = sgn(x1);
X dxsq = (2*x1 + dx)*dx;
X dysq = (2*y1 + dy)*dy;
X eps = 0;
X do {
X if(x1 == 0) {
X dy = -sgn(y1);
X dysq = (2*y1 + dy)*dy;
X }
X else if(y1 == 0) {
X dx = -sgn(x1);
X dxsq = (2*x1 + dx)*dx;
X }
X ex = abs(eps + dxsq);
X ey = abs(eps + dysq);
X exy = abs(eps + dxsq + dysq);
X if(ex<ey || exy<=ey) {
X x1 += dx;
X eps += dxsq;
X dxsq += 2;
X }
X if(ey<ex || exy<=ex) {
X y1 += dy;
X eps += dysq;
X dysq += 2;
X }
X bit_point(bp,x0+x1, y0+y1,f);
X /* bit_blit(bp,x0+x1-1,y0+y1-1,2,2,f,NULL_DATA,0,0); */
X }
X while(!(x1==x2 && y1==y2)); /* Note1 */
X }
X
X/* Note1: the equality end test is justified
X * because it is impossible that
X * abs(x^2+y^2-r^2)==abs((x+\010+-1)^2+y^2-r^2) or
X * abs(x^2+y^2-r^2)==abs(x^2+(y+\010+-1)-r^2),
X * and no values of x or y are skipped.
X *
X */
X
Xnearby(x1,y1, x2,y2, rx, ry)
Xregister int x1, y1, x2, y2;
Xint *rx, *ry;
X {
X long eps, exy, Labs(); /*integers but many bits*/
X int d, dy;
X register dx;
X eps = sq(x2) + sq(y2) - sq(x1) - sq(y1);
X d = eps>0? -1: 1;
X for( ; ; eps=exy, x2+=dx, y2+=dy) {
X if(abs(y2) > abs(x2)) {
X dy = d*sgn(y2);
X dx = 0;
X }
X else {
X dy = 0;
X dx = d*sgn(x2);
X if(dx==0)
X dx = 1;
X }
X exy = eps + (2*x2+dx)*dx + (2*y2+dy)*dy;
X if(Labs(eps) <= Labs(exy))
X break;
X }
X *rx = x2;
X *ry = y2;
X return(0);
X }
END_OF_FILE
# end of 'src/graph_subs.c'
fi
echo shar: End of archive 23 \(of 61\).
cp /dev/null ark23isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \
38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \
55 56 57 58 59 60 61 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 61 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.