1 files changed, 79 insertions, 0 deletions
diff --git a/src/Type1/t1snap.c b/src/Type1/t1snap.c
new file mode 100644
index 0000000..fd26e36
--- /dev/null
+++ b/src/Type1/t1snap.c
@@ -0,0 +1,79 @@
+/* $Xorg: t1snap.c,v 1.3 2000/08/17 19:46:34 cpqbld Exp $ */
+/* Copyright International Business Machines,Corp. 1991
+ * All Rights Reserved
+ *
+ * License to use, copy, modify, and distribute this software
+ * and its documentation for any purpose and without fee is
+ * hereby granted, provided that the above copyright notice
+ * appear in all copies and that both that copyright notice and
+ * this permission notice appear in supporting documentation,
+ * and that the name of IBM not be used in advertising or
+ * publicity pertaining to distribution of the software without
+ * specific, written prior permission.
+ *
+ * IBM PROVIDES THIS SOFTWARE "AS IS", WITHOUT ANY WARRANTIES
+ * OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT
+ * LIMITED TO ANY IMPLIED WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE, AND NONINFRINGEMENT OF
+ * THIRD PARTY RIGHTS.  THE ENTIRE RISK AS TO THE QUALITY AND
+ * PERFORMANCE OF THE SOFTWARE, INCLUDING ANY DUTY TO SUPPORT
+ * OR MAINTAIN, BELONGS TO THE LICENSEE.  SHOULD ANY PORTION OF
+ * THE SOFTWARE PROVE DEFECTIVE, THE LICENSEE (NOT IBM) ASSUMES
+ * THE ENTIRE COST OF ALL SERVICING, REPAIR AND CORRECTION.  IN
+ * NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR
+ * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+ * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+ * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
+ * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+ * SOFTWARE.
+ */
+ 
+#include "objects.h"
+#include "spaces.h"
+#include "paths.h"
+ 
+/*
+:h2.Handle Functions
+ 
+:h3.Phantom() - Returns a Move Segment Equivalent to Handles
+ 
+This is a user operator.  Its new name is QueryHandle.
+*/
+ 
+struct segment *t1_Phantom(obj)
+       register struct xobject *obj;  /* object to take the Phantom of       */
+{
+       struct fractpoint pt; /* handle size will built here                  */
+ 
+       if (obj == NULL)
+               pt.x = pt.y = 0;
+       else
+               PathDelta(obj, &pt);
+ 
+       return(PathSegment(MOVETYPE, pt.x, pt.y));
+}
+ 
+/*
+:h3.Snap() - Force Ending Handle of Object to Origin
+ 
+This is a user operator.
+*/
+ 
+struct xobject *t1_Snap(p)
+       register struct segment *p;  /* path to snap                          */
+{
+       struct fractpoint pt; /* for finding length of path                   */
+ 
+       if (p == NULL)
+               return(NULL);
+       p = UniquePath(p);
+ 
+       PathDelta(p, &pt);
+       if (p->last->type == MOVETYPE) {
+               p->last->dest.x -= pt.x;
+               p->last->dest.y -= pt.y;
+       }
+       else
+               p = JoinSegment(p, MOVETYPE, -pt.x, -pt.y, NULL);
+       return((struct xobject *)p);
+}