1 files changed, 26 insertions, 0 deletions
diff --git a/noao/onedspec/identify/iddelete.x b/noao/onedspec/identify/iddelete.x
new file mode 100644
index 00000000..cd96abb1
--- /dev/null
+++ b/noao/onedspec/identify/iddelete.x
@@ -0,0 +1,26 @@
+include	"identify.h"
+
+# ID_DELETE -- Delete a feature.
+
+procedure id_delete (id, feature)
+
+pointer	id			# ID pointer
+int	feature			# Feature to be deleted
+
+int	i
+
+begin
+	call mfree (Memi[ID_LABEL(id)+feature-1], TY_CHAR)
+	do i = feature + 1, ID_NFEATURES(id) {
+	    PIX(id,i-1) = PIX(id,i)
+	    FIT(id,i-1) = FIT(id,i)
+	    USER(id,i-1) = USER(id,i)
+	    WTS(id,i-1) = WTS(id,i)
+	    FWIDTH(id,i-1) = FWIDTH(id,i)
+	    FTYPE(id,i-1) = FTYPE(id,i)
+	    Memi[ID_LABEL(id)+i-2] = Memi[ID_LABEL(id)+i-1]
+	}
+	Memi[ID_LABEL(id)+ID_NFEATURES(id)-1] = NULL
+	ID_NFEATURES(id) = ID_NFEATURES(id) - 1
+	ID_NEWFEATURES(id) = YES
+end