first shoot

lib/fimg-pnm.c

@@ -0,0 +1,76 @@
+/*
+ *		fimg-pnm.c
+ *
+ *
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <unistd.h>
+#include  "string.h"
+
+#include  "../floatimg.h"
+
+extern int verbosity;		/* must be declared around main() */
+
+/* ---------------------------------------------------------------- */
+/* ---------------------------------------------------------------- */
+
+int fimg_save_as_pnm(FloatImg *head, char *fname, int notused)
+{
+FILE		*fp;
+float		maximum, fk;
+int		idx, sz, Rv, Gv, Bv, foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %-25s ( %p '%s' %d )\n", __func__, head,
+						fname, notused);
+#endif
+
+if (head->type != 3) {
+#if DEBUG_LEVEL 
+	fprintf(stderr, "%s : type %d is bad.\n", __func__, head->type);
+#endif
+	return -1;
+	}
+
+if (NULL==(fp=fopen(fname, "w"))) {
+	perror(fname);
+	return -1;
+	}
+
+fprintf(fp, "P3\n%d %d\n", head->width, head->height);
+
+maximum = fimg_get_maxvalue(head);
+fprintf(fp, "#  maxval  %15f\n", maximum);
+fk = maximum / 65536.0;
+fprintf(fp, "# divisor  %15f\n", fk);
+fprintf(fp, "65535\n");
+sz = head->width*head->height;
+
+foo = 0;
+for (idx=0; idx<sz; idx++) {
+	if (fk > 0) {
+		Rv = (int)(head->R[idx] / fk);
+		Gv = (int)(head->G[idx] / fk);
+		Bv = (int)(head->B[idx] / fk);
+		}
+	else	{
+		Rv = Gv = Bv = 0;
+		}
+	foo += fprintf(fp, "%d %d %d", Rv, Gv, Bv);
+	if (foo > 60) {
+		fputs("\n", fp); 	foo = 0;
+		}
+	else	{
+		fputs(" ", fp);		foo++;
+		}
+	}
+fputs("\n", fp);
+
+
+fclose(fp);
+
+return 0;
+}
+/* ---------------------------------------------------------------- */