*** empty log message ***

diff --git a/win/share/ppmwrite.c b/win/share/ppmwrite.c
new file mode 100644 (file)
index 0000000..ced5ffc
--- /dev/null
+++ b/win/share/ppmwrite.c
@@ -0,0 +1,171 @@
+/* this produces a raw ppm file, with a 15-character header of
+ * "P6 3-digit-width 3-digit-height 255\n"
+ */
+
+#include "config.h"
+#include "tile.h"
+
+#ifndef MONITOR_HEAP
+extern long *FDECL(alloc, (unsigned int));
+#endif
+
+FILE *ppm_file;
+
+struct ppmscreen {
+       int     Width;
+       int     Height;
+} PpmScreen;
+
+static int tiles_across, tiles_down, curr_tiles_across;
+static pixel **image;
+
+static void NDECL(write_header);
+static void NDECL(WriteTileStrip);
+
+static void
+write_header()
+{
+       (void) fprintf(ppm_file, "P6 %03d %03d 255\n",
+                               PpmScreen.Width, PpmScreen.Height);
+}
+
+static void
+WriteTileStrip()
+{
+       int i, j;
+
+       for (j = 0; j < TILE_Y; j++) {
+               for (i = 0; i < PpmScreen.Width; i++) {
+                       (void) fputc((char)image[j][i].r, ppm_file);
+                       (void) fputc((char)image[j][i].g, ppm_file);
+                       (void) fputc((char)image[j][i].b, ppm_file);
+               }
+       }
+}
+
+boolean
+fopen_ppm_file(filename, type)
+const char *filename;
+const char *type;
+{
+       int i;
+
+       if (strcmp(type, WRBMODE)) {
+               Fprintf(stderr, "using writing routine for non-writing?\n");
+               return FALSE;
+       }
+       ppm_file = fopen(filename, type);
+       if (ppm_file == (FILE *)0) {
+               Fprintf(stderr, "cannot open ppm file %s\n", filename);
+               return FALSE;
+       }
+
+       if (!colorsinmainmap) {
+               Fprintf(stderr, "no colormap set yet\n");
+               return FALSE;
+       }
+
+       tiles_across = 20;
+       curr_tiles_across = 0;
+       PpmScreen.Width = 20 * TILE_X;
+
+       tiles_down = 0;
+       PpmScreen.Height = 0;   /* will be rewritten later */
+
+       write_header();
+
+       image = (pixel **)alloc(TILE_Y * sizeof(pixel *));
+       for (i = 0; i < TILE_Y; i++) {
+               image[i] = (pixel *) alloc(PpmScreen.Width * sizeof(pixel));
+       }
+
+       return TRUE;
+}
+
+boolean
+write_ppm_tile(pixels)
+pixel (*pixels)[TILE_X];
+{
+       int i, j;
+
+       for (j = 0; j < TILE_Y; j++) {
+               for (i = 0; i < TILE_X; i++) {
+                       image[j][curr_tiles_across*TILE_X + i] = pixels[j][i];
+               }
+       }
+       curr_tiles_across++;
+       if (curr_tiles_across == tiles_across) {
+               WriteTileStrip();
+               curr_tiles_across = 0;
+               tiles_down++;
+       }
+       return TRUE;
+}
+
+int
+fclose_ppm_file()
+{
+       int i, j;
+
+       if (curr_tiles_across) {        /* partial row */
+               /* fill with checkerboard, for lack of a better idea */
+               for (j = 0; j < TILE_Y; j++) {
+                       for (i = curr_tiles_across * TILE_X;
+                                               i < PpmScreen.Width; i += 2 ) {
+                               image[j][i].r = MainColorMap[CM_RED][0];
+                               image[j][i].g = MainColorMap[CM_GREEN][0];
+                               image[j][i].b = MainColorMap[CM_BLUE][0];
+                               image[j][i+1].r = MainColorMap[CM_RED][1];
+                               image[j][i+1].g = MainColorMap[CM_GREEN][1];
+                               image[j][i+1].b = MainColorMap[CM_BLUE][1];
+                       }
+               }
+               WriteTileStrip();
+               curr_tiles_across = 0;
+               tiles_down++;
+       }
+
+       for (i = 0; i < TILE_Y; i++) {
+               free((genericptr_t)image[i]);
+       }
+       free((genericptr_t)image);
+
+       PpmScreen.Height = tiles_down * TILE_Y;
+       rewind(ppm_file);
+       write_header(); /* update size */
+
+       return(fclose(ppm_file));
+}
+
+
+int
+main(argc, argv)
+int argc;
+char *argv[];
+{
+       pixel pixels[TILE_Y][TILE_X];
+
+       if (argc != 3) {
+               Fprintf(stderr, "usage: txt2ppm txtfile ppmfile\n");
+               exit(EXIT_FAILURE);
+       }
+
+       if (!fopen_text_file(argv[1], RDTMODE))
+               exit(EXIT_FAILURE);
+
+       init_colormap();
+
+       if (!fopen_ppm_file(argv[2], WRBMODE)) {
+               (void) fclose_text_file();
+               exit(EXIT_FAILURE);
+       }
+
+       while (read_text_tile(pixels))
+               (void) write_ppm_tile(pixels);
+
+       (void) fclose_text_file();
+       (void) fclose_ppm_file();
+       exit(EXIT_SUCCESS);
+       /*NOTREACHED*/
+       return 0;
+}