src/px/scan.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  writescan.c - fortran interface to picture output routines.
 *
 *      4/26/88
 */

#include <stdio.h>


static FILE     *outfp;                 /* output file pointer */
static char     outfile[128];           /* output file name */


initscan_(fname, width, height)         /* initialize output file */
char    *fname;
int     *width, *height;
{
        extern char     *strcpy();

        if (fname == NULL || fname[0] == '\0') {
                outfp = stdout;
                strcpy(outfile, "<stdout>");
        } else {
                if ((outfp = fopen(fname, "w")) == NULL) {
                        perror(fname);
                        exit(1);
                }
                strcpy(outfile, fname);
        }
        fprintf(outfp, "%dx%d picture\n\n-Y %d +X %d\n",
                        *width, *height, *height, *width);
}


writescan_(scan, width)                 /* output scanline */
float   *scan;
int     *width;
{
        if (fwritescan(scan, *width, outfp) < 0) {
                perror(outfile);
                exit(1);
        }
}


donescan_()                             /* clean up */
{
        if (fclose(outfp) < 0) {
                perror(outfile);
                exit(1);
        }
}
Revision:	1.4
Committed:	Sat Feb 22 02:07:28 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Changes since 1.3:	+1 -4 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.4	static const char RCSid[] = "$Id$";
3	greg	1.1	#endif
4	greg	1.2	/*
5	greg	1.1	* writescan.c - fortran interface to picture output routines.
6			*
7			* 4/26/88
8			*/
9
10			#include <stdio.h>
11
12
13			static FILE outfp; / output file pointer */
14			static char outfile[128]; /* output file name */
15
16
17			initscan_(fname, width, height) /* initialize output file */
18			char *fname;
19			int width, height;
20			{
21			extern char *strcpy();
22
23			if (fname == NULL \|\| fname[0] == '\0') {
24			outfp = stdout;
25			strcpy(outfile, "<stdout>");
26			} else {
27			if ((outfp = fopen(fname, "w")) == NULL) {
28			perror(fname);
29			exit(1);
30			}
31			strcpy(outfile, fname);
32			}
33			fprintf(outfp, "%dx%d picture\n\n-Y %d +X %d\n",
34			width, height, height, width);
35			}
36
37
38			writescan_(scan, width) /* output scanline */
39			float *scan;
40			int *width;
41			{
42			if (fwritescan(scan, *width, outfp) < 0) {
43			perror(outfile);
44			exit(1);
45			}
46			}
47
48
49			donescan_() /* clean up */
50			{
51			if (fclose(outfp) < 0) {
52			perror(outfile);
53			exit(1);
54			}
55			}