DLS takeover

SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c 1.2
SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c 1.2

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h
index b68b4cf..ba45207 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h
@@ -1,5 +1,4 @@
-\f
-/* gremlin.h -
+/* @(#)gremlin.h       1.2     %G%

  *
  *
  * This file contains standard definitions used by the gremlin program.
  *
  *
  * This file contains standard definitions used by the gremlin program.

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c
index 5390dab..1c938f5 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c
@@ -1,5 +1,4 @@
-\f
-/* long1.c -
+/* @(#)long1.c 1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -93,7 +92,7 @@ extern int lnum[], fnum[];
 
 int bang;
 
 
 int bang;
 

-\f
+

 /*      The following are defined to allow creation of the command
  * lookup table.
  */
 /*      The following are defined to allow creation of the command
  * lookup table.
  */


@@ -174,7 +173,7 @@ static (*(lrtns[]))() = {
     LGWrite,                   /* write file */
     LGPoint};                  /* create point from cursor */
   
     LGWrite,                   /* write file */
     LGPoint};                  /* create point from cursor */
   

-\f
+

 int
 LGLookup(str, table, next)
 char str[];                    /* Pointer to a string to be looked up */
 int
 LGLookup(str, table, next)
 char str[];                    /* Pointer to a string to be looked up */


@@ -259,7 +258,7 @@ int *next;
     }
 }
 
     }
 }
 

-\f
+

 LGCommand(command)
 char *command;
 
 LGCommand(command)
 char *command;
 


@@ -293,7 +292,7 @@ char *command;
        if (index == -2) error("not a command.");
     }
 }
        if (index == -2) error("not a command.");
     }
 }

-\f
+

 static char badarg[10] = "bad args";
 static char noset[15] = "no current set";
 
 static char badarg[10] = "bad args";
 static char noset[15] = "no current set";
 


@@ -327,7 +326,7 @@ int *index;
        return(result);
 }  /* end GetNumParm */
 
        return(result);
 }  /* end GetNumParm */
 

-\f
+

 LGOpoint(line)
 char *line;
 /*
 LGOpoint(line)
 char *line;
 /*


@@ -361,7 +360,7 @@ char *line;
        LGPoint(line);
 }  /* end LGOpoint */
 
        LGPoint(line);
 }  /* end LGOpoint */
 

-\f
+

 LGPoint(line)
 char *line;
 /*
 LGPoint(line)
 char *line;
 /*


@@ -423,7 +422,7 @@ CP()
        GRBlankPoints();
 }  /* end CP */
 
        GRBlankPoints();
 }  /* end CP */
 

-\f
+

 LGClearPoints(line)
 char *line;
 /*
 LGClearPoints(line)
 char *line;
 /*


@@ -480,7 +479,7 @@ char *line;
        Consume = FALSE;
 }  /* end DeletePoint */
 
        Consume = FALSE;
 }  /* end DeletePoint */
 

-\f
+

 LGShowPoints(line)
 char *line;
 /*
 LGShowPoints(line)
 char *line;
 /*


@@ -514,7 +513,7 @@ char *line;
        Consume = FALSE;
 } /* end ShowPoints */
 
        Consume = FALSE;
 } /* end ShowPoints */
 

-\f
+

 LGText(line)
 char *line;
 /*      This routine implements the text commands.  It first looks
 LGText(line)
 char *line;
 /*      This routine implements the text commands.  It first looks


@@ -564,7 +563,7 @@ char *line;
 }  /* end LGText */
 
 
 }  /* end LGText */
 
 

-\f
+

 LGBrush(line)
 char *line;
 /*
 LGBrush(line)
 char *line;
 /*


@@ -598,7 +597,7 @@ char *line;
 }  /* end LGBrush */
 
 
 }  /* end LGBrush */
 
 

-\f
+

 LGMBrush(line)
 char *line;
 /*
 LGMBrush(line)
 char *line;
 /*


@@ -642,7 +641,7 @@ char *line;
        CHANGED = TRUE;
 } /* end MBrush */
 
        CHANGED = TRUE;
 } /* end MBrush */
 

-\f
+

 LGMFont(line)
 char *line;
 /*
 LGMFont(line)
 char *line;
 /*


@@ -687,7 +686,7 @@ char *line;
        CHANGED = TRUE;
 } /* end MFont */
 
        CHANGED = TRUE;
 } /* end MFont */
 

-\f
+

 LGMSize(line)
 char *line;
 /*
 LGMSize(line)
 char *line;
 /*


@@ -741,7 +740,7 @@ char *line;
        CHANGED = TRUE;
 } /* end MSize */
 
        CHANGED = TRUE;
 } /* end MSize */
 

-\f
+

 LGMText(line)
 char *line;
 /*      This routine allows modification of text by replacing 
 LGMText(line)
 char *line;
 /*      This routine allows modification of text by replacing 


@@ -782,7 +781,7 @@ char *line;
     }  /* end while */
     CHANGED = TRUE;
 }  /* end LGMText */
     }  /* end while */
     CHANGED = TRUE;
 }  /* end LGMText */

-\f
+

 LGMPoint(line)
 char *line;
 /*
 LGMPoint(line)
 char *line;
 /*


@@ -839,7 +838,7 @@ char *line;
        }  /* end if !DBNullelt */
 }  /* end MPOINT */
 
        }  /* end if !DBNullelt */
 }  /* end MPOINT */
 

-\f
+

 LGGripe(line)
 char *line;
 /*
 LGGripe(line)
 char *line;
 /*


@@ -868,7 +867,7 @@ char *line;
        Consume = FALSE;
 }  /* end Little Point */
 
        Consume = FALSE;
 }  /* end Little Point */
 

-\f
+

 SetOrient(orient)
 int orient;
 /*
 SetOrient(orient)
 int orient;
 /*


@@ -915,7 +914,7 @@ char *line;
     SHUpdate();
 }  /* end Orient */
 
     SHUpdate();
 }  /* end Orient */
 

-\f
+

 LGSave(line)
 char *line;
 /*
 LGSave(line)
 char *line;
 /*

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c
index 232c2da..7ec14d8 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c
@@ -1,6 +1,4 @@
-
-\f
-/* long2.c -
+/* @(#)long2.c 1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -107,7 +105,7 @@ char *Editfile;
 
 static char badarg[10] = "bad args";
 
 
 static char badarg[10] = "bad args";
 

-\f
+

 LGFont(line)
 char *line;
 /*
 LGFont(line)
 char *line;
 /*


@@ -143,7 +141,7 @@ char *line;
     }
 }  /* end LGFont */
 
     }
 }  /* end LGFont */
 

-\f
+

 LGJust(line)
 char *line;
 /*
 LGJust(line)
 char *line;
 /*


@@ -186,7 +184,7 @@ char *line;
     }
 }  /* end LGJust */
 
     }
 }  /* end LGJust */
 

-\f
+

 LGSize(line)
 char *line;
 /*
 LGSize(line)
 char *line;
 /*


@@ -242,7 +240,7 @@ char *line;
     Consume = FALSE;
 }  /* end LGAlign */
 
     Consume = FALSE;
 }  /* end LGAlign */
 

-\f
+

 LGIncludeSet(line)
 char *line;
 /*
 LGIncludeSet(line)
 char *line;
 /*


@@ -284,7 +282,7 @@ char *line;
 } /* end LGIncludeSet */
 
 
 } /* end LGIncludeSet */
 
 

-\f
+

 LGMenu(line)
 char *line;
 /*
 LGMenu(line)
 char *line;
 /*


@@ -336,7 +334,7 @@ char *line;
     CHANGED = TRUE;
 }  /* end LGMenu */
 
     CHANGED = TRUE;
 }  /* end LGMenu */
 

-\f
+

 LGRead(line)
 char *line;
 /*
 LGRead(line)
 char *line;
 /*


@@ -389,7 +387,7 @@ char *line;
     CHANGED = TRUE;
 }  /* end LGRead */
 
     CHANGED = TRUE;
 }  /* end LGRead */
 

-\f
+

 LGEdit(line)
 char *line;
 /*
 LGEdit(line)
 char *line;
 /*


@@ -478,7 +476,7 @@ static restorepoints()
     BACKPOINT = pl1;
 }  /* end restorepoints */
 
     BACKPOINT = pl1;
 }  /* end restorepoints */
 

-\f
+

 LGUndo(line)
 char *line;
 /* 
 LGUndo(line)
 char *line;
 /* 


@@ -557,7 +555,7 @@ char *line;
     Consume = FALSE;
 }  /* LGUndo */
 
     Consume = FALSE;
 }  /* LGUndo */
 

-\f
+

 LGWrite(line)
 char *line;
 /*
 LGWrite(line)
 char *line;
 /*


@@ -656,7 +654,7 @@ char *line;
     (void) fclose(fp);
 }  /* end LGWrite */;
 
     (void) fclose(fp);
 }  /* end LGWrite */;
 

-\f
+

 LGQuit(line)
 char *line;
 /*
 LGQuit(line)
 char *line;
 /*


@@ -701,7 +699,7 @@ LGHAdjust()
     Consume = FALSE;
 }
 
     Consume = FALSE;
 }
 

-\f
+

 LGVAdjust()
 /*
  * Vertical adjust -
 LGVAdjust()
 /*
  * Vertical adjust -


@@ -726,7 +724,7 @@ LGVAdjust()
 }
 
 
 }
 
 

-\f
+

 static sign(x)
 float x;
 /*
 static sign(x)
 float x;
 /*


@@ -821,7 +819,7 @@ char *line;
     CHANGED = TRUE;
 }  /* end LGMirror */
 
     CHANGED = TRUE;
 }  /* end LGMirror */
 

-\f
+

 LGPath(line)
 char *line;
 /*
 LGPath(line)
 char *line;
 /*

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c
index 9bade1f..b237603 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c
@@ -1,5 +1,4 @@
-\f
-/* main.c -
+/* @(#)main.c  1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -120,7 +119,7 @@ char *s;
     Consume = FALSE;
 }
 
     Consume = FALSE;
 }
 

-\f
+

 main(argc, argv)
 int argc;
 char *argv[];
 main(argc, argv)
 int argc;
 char *argv[];


@@ -373,7 +372,7 @@ char *argv[];
 
 }  /* end main */
 
 
 }  /* end main */
 

-\f
+

 OnStop(signo)
 int signo;
 
 OnStop(signo)
 int signo;
 


@@ -396,7 +395,7 @@ int signo;
     SHRedis();
 }
 
     SHRedis();
 }
 

-\f
+

 OnCommand()
 
 /*-----------------------------------------------------------------------------
 OnCommand()
 
 /*-----------------------------------------------------------------------------


@@ -473,7 +472,7 @@ OnCommand()
     else 
     {
         TxLine(inline);
     else 
     {
         TxLine(inline);

-        if (cmd != '\\f') putchar(cmd);
+        if (cmd != '\') putchar(cmd);

         (void) fflush(stdout);
         SHCommand(&cmd);
     }
         (void) fflush(stdout);
         SHCommand(&cmd);
     }

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c
index 6dc555c..a58a5fd 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c
@@ -1,5 +1,4 @@
-\f
-/* menu.c -
+/* @(#)menu.c  1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -46,7 +45,7 @@ extern float PX, PY;            /* X and Y of last points specified */
 #define columns 2
 #define border 395
 
 #define columns 2
 #define border 395
 

-\f
+

 /* bytewise definitions of menu symbols (special fonts), left to right,
  * top to bottom.  See textcommand array for corresponding commands.
  */
 /* bytewise definitions of menu symbols (special fonts), left to right,
  * top to bottom.  See textcommand array for corresponding commands.
  */


@@ -206,7 +205,7 @@ MNIcon()
        (void) fflush(display);
 };   /* end Icon */
 
        (void) fflush(display);
 };   /* end Icon */
 

-\f
+

 MNInitMenu(orientation)
 int orientation;               /* orientation of work space */
 /*
 MNInitMenu(orientation)
 int orientation;               /* orientation of work space */
 /*


@@ -259,7 +258,7 @@ int orientation;            /* orientation of work space */
        }   /* end for */;
 }   /* end initmenu */
 
        }   /* end for */;
 }   /* end initmenu */
 

-\f
+

 MNDisplayMenu()
 /*
  *      This routine displays the menu defined by initmenu
 MNDisplayMenu()
 /*
  *      This routine displays the menu defined by initmenu


@@ -310,7 +309,7 @@ MNDisplayMenu()
        GRVector(&bord1, &bord2, bordstyle);
 } /* end displaymenu */;
 
        GRVector(&bord1, &bord2, bordstyle);
 } /* end displaymenu */;
 

-\f
+

 char *MNFindMenuItem(x,y)
 int x, y;
 /*
 char *MNFindMenuItem(x,y)
 int x, y;
 /*


@@ -371,7 +370,7 @@ int sym;
        MNHighLt(sym, eraseany);
 }
 
        MNHighLt(sym, eraseany);
 }
 

-\f
+

 MNInterpretCursor(button, cx, cy)
 int cx, cy, button;
 /* 
 MNInterpretCursor(button, cx, cy)
 int cx, cy, button;
 /* 

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c
index d3550f8..21c13d3 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c
@@ -1,5 +1,4 @@
-\f
-/* path.c
+/* @(#)path.c  1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -42,7 +41,7 @@ static char *realname[NTILDE]  = {NULL, NULL, NULL, NULL, NULL,
     NULL, NULL, NULL, NULL, NULL};
 static int discard = 0;
 
     NULL, NULL, NULL, NULL, NULL};
 static int discard = 0;
 

-\f
+

 int
 PConvertTilde(psource, pdest, size)
 char **psource;                        /* Pointer to a pointer to the source string */
 int
 PConvertTilde(psource, pdest, size)
 char **psource;                        /* Pointer to a pointer to the source string */


@@ -158,7 +157,7 @@ int *size;                  /* Pointer to no. bytes available at pdest */
     return TRUE;
 }
 
     return TRUE;
 }
 

-\f
+

 int
 PSetPath(string)
 char *string;                  /* Pointer to a string that is to become
 int
 PSetPath(string)
 char *string;                  /* Pointer to a string that is to become


@@ -220,7 +219,7 @@ char *string;                       /* Pointer to a string that is to become
     return result;
 }
 
     return result;
 }
 

-\f
+

 char *
 PGetPath()
 
 char *
 PGetPath()
 


@@ -238,7 +237,7 @@ PGetPath()
     return path;
 }
 
     return path;
 }
 

-\f
+

 FILE *
 POpen(file, prealname, search)
 char *file;                    /* Name of the file to be opened. */
 FILE *
 POpen(file, prealname, search)
 char *file;                    /* Name of the file to be opened. */

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c
index 4abbded..02d9734 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c
@@ -1,5 +1,4 @@
-\f
-/* point.c -
+/* @(#)point.c 1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c
index a08e4fa..cd49b8f 100644 (file)
--- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c
@@ -1,5 +1,4 @@
-\f
-/* short.c -
+/* @(#)short.c 1.2     %G%

  *
  * Copyright -C- 1982 Barry S. Roitblat
  *
  *
  * Copyright -C- 1982 Barry S. Roitblat
  *


@@ -86,7 +85,7 @@ extern ELT arhead;                  /* arrow head template           */
 extern char *textpos[], *dispmode[];/* text positioning modes        */
 extern int textmode[];              /* text positioning              */
 
 extern char *textpos[], *dispmode[];/* text positioning modes        */
 extern int textmode[];              /* text positioning              */
 

-\f
+

 extern SHUpdate(), SHDrawArc(), SHDrawCurve(), SHCopy(), SHRedis(),
        SHDefineSet(), SHErase(), SHSetArea(), SHGravity(),
        SHGrid(), SHRotate(), SHScale(), SHTranslate(), SHShellEsc(),
 extern SHUpdate(), SHDrawArc(), SHDrawCurve(), SHCopy(), SHRedis(),
        SHDefineSet(), SHErase(), SHSetArea(), SHGravity(),
        SHGrid(), SHRotate(), SHScale(), SHTranslate(), SHShellEsc(),


@@ -123,7 +122,7 @@ static (*(shrtns[]))() = {
     SHBox,                      /* rectangle from two points */
     SHMAdjust};                        /* manhattan adjust */
   
     SHBox,                      /* rectangle from two points */
     SHMAdjust};                        /* manhattan adjust */
   

-\f
+

 int
 SHLookup(c, table)
 char c;                                /* Pointer to a char to be looked up */
 int
 SHLookup(c, table)
 char c;                                /* Pointer to a char to be looked up */


@@ -159,7 +158,7 @@ char table[];                       /* Pointer to an array of characters
     return(-1);
 }  /* end SHLookup */
 
     return(-1);
 }  /* end SHLookup */
 

-\f
+

 SHCommand(command)
 char *command;
 
 SHCommand(command)
 char *command;
 


@@ -187,7 +186,7 @@ char *command;
        error("no such command");
     }
 }  /* end SHCommand */
        error("no such command");
     }
 }  /* end SHCommand */

-\f
+

 static char nopnt[18] = "not enough points";
 static char noset[15] = "no current set";
 
 static char nopnt[18] = "not enough points";
 static char noset[15] = "no current set";
 


@@ -301,7 +300,7 @@ SHDrawArc()
        }
 }  /* end SHDrawARc */
 
        }
 }  /* end SHDrawARc */
 

-\f
+

 SHDrawCurve()
 /*
  *      This routine creates and displays a curve using points previously
 SHDrawCurve()
 /*
  *      This routine creates and displays a curve using points previously


@@ -365,7 +364,7 @@ SHErase()
        CHANGED = TRUE;
 }  /* end SHErase */
 
        CHANGED = TRUE;
 }  /* end SHErase */
 

-\f
+

 SHGravity()
 /*
  *      This routine toggles the gravity mode.
 SHGravity()
 /*
  *      This routine toggles the gravity mode.


@@ -406,7 +405,7 @@ SHGrid()
        Consume = FALSE;
 }  /* end SHGrid */
 
        Consume = FALSE;
 }  /* end SHGrid */
 

-\f
+

 SHMAdjust()
 /*
  * Manhattan Adjust -
 SHMAdjust()
 /*
  * Manhattan Adjust -


@@ -430,7 +429,7 @@ SHMAdjust()
        Consume = FALSE;
 }
 
        Consume = FALSE;
 }
 

-\f
+

 SHDefineSet()
 /*
  *      This routine defines the current set based upon previously
 SHDefineSet()
 /*
  *      This routine defines the current set based upon previously


@@ -479,7 +478,7 @@ SHSetArea()
        }  /* end while */
 }  /* end SHSetArea */
 
        }  /* end while */
 }  /* end SHSetArea */
 

-\f
+

 SHTranslate()
 /*
  *      This routine translates the elements in the current set as defined
 SHTranslate()
 /*
  *      This routine translates the elements in the current set as defined


@@ -519,7 +518,7 @@ SHTranslate()
        CHANGED = TRUE;
 }  /* end SHTranslate */
 
        CHANGED = TRUE;
 }  /* end SHTranslate */
 

-\f
+

 SHCopy()
 /*
  *      This routine copies the elements in the current set as defined
 SHCopy()
 /*
  *      This routine copies the elements in the current set as defined


@@ -573,7 +572,7 @@ SHCopy()
        CHANGED = TRUE;
 }  /* end SHCopy */
 
        CHANGED = TRUE;
 }  /* end SHCopy */
 

-\f
+

 SHRotate()
 /*
  *      This routine rotates the elements in the current set as defined
 SHRotate()
 /*
  *      This routine rotates the elements in the current set as defined


@@ -643,7 +642,7 @@ SHRotate()
        CHANGED = TRUE;
 }  /* end SHRotate */
 
        CHANGED = TRUE;
 }  /* end SHRotate */
 

-\f
+

 SHScale()
 /*
  *      This routine scales the elements in the current set as defined
 SHScale()
 /*
  *      This routine scales the elements in the current set as defined


@@ -718,7 +717,7 @@ SHScale()
        CHANGED = TRUE;
 }  /* end SHScale */
 
        CHANGED = TRUE;
 }  /* end SHScale */
 

-\f
+

 SHUpdate()
 /*
  *      This routine redraws the graphics screen by clearing the screen ,
 SHUpdate()
 /*
  *      This routine redraws the graphics screen by clearing the screen ,


@@ -752,7 +751,7 @@ SHUpdate()
        Consume = FALSE;
 }  /* end SHUpdate */
 
        Consume = FALSE;
 }  /* end SHUpdate */
 

-\f
+

 SHRedis()
 /*
  *      This routine is used to redisplay the text screen.
 SHRedis()
 /*
  *      This routine is used to redisplay the text screen.


@@ -792,7 +791,7 @@ SHRedis()
         Consume = FALSE;
 }  /* end SHRedis */
 
         Consume = FALSE;
 }  /* end SHRedis */
 

-\f
+

 SHShellEsc()
 /* 
  *      This routine performs a shell escape through the c 'system'
 SHShellEsc()
 /* 
  *      This routine performs a shell escape through the c 'system'


@@ -812,7 +811,7 @@ SHShellEsc()
        SHRedis();  /* reclaim terminal */
 }  /* end ShellEsc */
 
        SHRedis();  /* reclaim terminal */
 }  /* end ShellEsc */
 

-\f
+

 static savemen(sym)
 int sym;
 /*
 static savemen(sym)
 int sym;
 /*


@@ -895,7 +894,7 @@ SHSave4()
 }
 
 
 }
 
 

-\f
+

 SHBox()
 /*
  *      This routine creates and displays a rectangle whose diagonal is
 SHBox()
 /*
  *      This routine creates and displays a rectangle whose diagonal is