date and time created 83/04/18 13:45:17 by slatteng

SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db2.c 1.1

diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db2.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db2.c
new file mode 100644 (file)
index 0000000..a17cef5
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/db2.c
@@ -0,0 +1,116 @@
+\f
+/* db2.c-
+ *
+ * Copyright -C- 1982 Barry S. Roitblat
+ *
+ *      This file contains routines for implementing the database
+ * manipulations for the gremlin picture editor.
+ */
+
+#include "gremlin.h"
+#include "grem2.h"
+
+/* imports from undodb.c  */
+ 
+extern UNRembAdd(), UNRembMod();
+
+/* imports from db1.c */
+
+extern ELT *DBCreateElt();
+
+/* imports from point.c */
+
+extern POINT *PTMakePoint(), *PTInit();
+
+/* imports from c */
+
+extern char *malloc();
+extern char *strcpy();
+
+ELT *DBCopy(element,transform,db)
+ELT *element, *(*db);
+float transform[3][2];
+/*
+ *      This routine creates a copy of the the element transformed by
+ * the transformation matrix and adds the new copy to the database.
+ */
+
+{
+       POINT *pt, *newlist;
+       char *newtext;
+
+       newlist = PTInit();
+       pt = element->ptlist;
+       while ( !Nullpoint(pt) )
+       {                  /* matrix multiply */
+               (void) PTMakePoint((  ( (pt->x) * transform[0][0])
+                                   + ( (pt->y) * transform[1][0])
+                                   + transform[2][0]),
+                                  (  ( (pt->x) * transform[0][1])
+                                   + ( (pt->y) * transform[1][1])
+                                   + transform[2][1]), &newlist);
+               pt = pt->nextpt;
+       }  /* end while */;
+       newtext = malloc((unsigned) strlen(element->textpt) + 1);
+       (void) strcpy(newtext, element->textpt);
+       return( DBCreateElt(element->type, newlist, element->brushf,
+                           element->size, newtext, db) );
+}  /* end copy */
+
+\f
+DBXform(element, transform, db)
+ELT *element;
+float transform[3][2];
+ELT *(*db);
+/*
+ *      This routine transforms the element by multiplying the
+ * coordinates of each of the points in the element by the 
+ * transformation matrix.
+ */
+
+{
+       POINT *pt;
+       float px, py;
+
+       UNRembMod(element, db);
+       pt = element->ptlist;
+       while ( !Nullpoint(pt) )
+       {
+               px =  ( (pt->x) * transform[0][0] )
+                   + ( (pt->y) * transform[1][0] )
+                   + transform[2][0];
+               py =  ( (pt->x) * transform[0][1] )
+                   + ( (pt->y) * transform[1][1] )
+                   + transform[2][1];
+               pt->x = px;
+               pt->y = py;
+               pt = pt->nextpt;
+       }  /* end while */;
+}  /* end Xform */
+
+\f
+DBChangeBrush(element, brush, db)
+ELT *element, *(*db);
+int brush;
+/*
+ *      This routine changes the brush attribute of the element
+ */
+
+{
+       UNRembMod(element, db);
+       element->brushf = brush;
+}  /* end ChangeBrush */
+
+DBChangeFont(element, font, size, db)
+ELT *element, *(*db);
+int font, size;
+/*
+ *      This routine changes the font and size attributes of the  given
+ * element.
+ */
+
+{
+       UNRembMod(element, db);
+       element->brushf = font;
+       element->size = size;
+}  /* end ChangeFont */