"Fossies" - the Fresh Open Source Software Archive

Member "xearth-1.1/ppm.c" (7 Nov 1999, 2387 Bytes) of package /linux/misc/old/xearth-1.1.tar.gz:

    1 /*
    2  * ppm.c
    3  * kirk johnson
    4  * july 1993
    5  *
    6  * Copyright (C) 1989, 1990, 1993-1995, 1999 Kirk Lauritz Johnson
    7  *
    8  * Parts of the source code (as marked) are:
    9  *   Copyright (C) 1989, 1990, 1991 by Jim Frost
   10  *   Copyright (C) 1992 by Jamie Zawinski <jwz@lucid.com>
   11  *
   12  * Permission to use, copy, modify and freely distribute xearth for
   13  * non-commercial and not-for-profit purposes is hereby granted
   14  * without fee, provided that both the above copyright notice and this
   15  * permission notice appear in all copies and in supporting
   16  * documentation.
   17  *
   18  * Unisys Corporation holds worldwide patent rights on the Lempel Zev
   19  * Welch (LZW) compression technique employed in the CompuServe GIF
   20  * image file format as well as in other formats. Unisys has made it
   21  * clear, however, that it does not require licensing or fees to be
   22  * paid for freely distributed, non-commercial applications (such as
   23  * xearth) that employ LZW/GIF technology. Those wishing further
   24  * information about licensing the LZW patent should contact Unisys
   25  * directly at (lzw_info@unisys.com) or by writing to
   26  *
   27  *   Unisys Corporation
   28  *   Welch Licensing Department
   29  *   M/S-C1SW19
   30  *   P.O. Box 500
   31  *   Blue Bell, PA 19424
   32  *
   33  * The author makes no representations about the suitability of this
   34  * software for any purpose. It is provided "as is" without express or
   35  * implied warranty.
   36  *
   37  * THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
   38  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
   39  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT
   40  * OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
   41  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
   42  * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
   43  * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   44  */
   45 
   46 #include "xearth.h"
   47 #include "kljcpyrt.h"
   48 
   49 static void ppm_setup _P((FILE *));
   50 static int  ppm_row _P((u_char *));
   51 
   52 static FILE    *outs;
   53 static unsigned bytes_per_row;
   54 
   55 
   56 void ppm_output()
   57 {
   58   compute_positions();
   59   scan_map();
   60   do_dots();
   61   ppm_setup(stdout);
   62   render(ppm_row);
   63 }
   64 
   65 
   66 static void ppm_setup(s)
   67      FILE *s;
   68 {
   69   outs          = s;
   70   bytes_per_row = wdth * 3;
   71 
   72   fprintf(outs, "P6\n%d %d\n255\n", wdth, hght);
   73 }
   74 
   75 
   76 static int ppm_row(row)
   77      u_char *row;
   78 {
   79   assert(fwrite(row, 1, bytes_per_row, outs) == bytes_per_row);
   80 
   81   return 0;
   82 }