ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/oki20c.c
(Generate patch)

Comparing ray/src/px/oki20c.c (file contents):
Revision 1.2 by greg, Tue Sep 12 13:04:20 1989 UTC vs.
Revision 2.3 by greg, Wed Jan 29 15:18:20 1992 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1986 Regents of the University of California */
1 > /* Copyright (c) 1991 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# Line 13 | Line 13 | static char SCCSid[] = "$SunId$ LBL";
13   #include  <stdio.h>
14  
15   #include  "color.h"
16 + #include  "resolu.h"
17  
17 –
18   #define  NROWS          1440            /* 10" at 144 dpi */
19   #define  NCOLS          960             /* 8" at 120 dpi */
20  
21 + #define  ASPECT         (120./144.)     /* pixel aspect ratio */
22 +
23 + #define  FILTER         "pfilt -1 -x %d -y %d -p %f %s",NCOLS,NROWS,ASPECT
24 +
25   /*
26   *  Subtractive primaries are ordered:  Yellow, Magenta, Cyan.
27   */
28  
29   #define  sub_add(sub)   (2-(sub))       /* map subtractive to additive pri. */
30  
31 + #ifdef  BSD
32 + #define  clearlbuf()    bzero((char *)lpat, sizeof(lpat))
33 + #else
34 + #define  clearlbuf()    (void)memset((char *)lpat, 0, sizeof(lpat))
35 + #endif
36  
37 + long  lpat[NCOLS][3];
38 +
39 + int  dofilter = 0;              /* filter through pfilt first? */
40 +
41 +
42   main(argc, argv)
43   int  argc;
44   char  *argv[];
45   {
46          int  i, status = 0;
47          
48 +        if (argc > 1 && !strcmp(argv[1], "-p")) {
49 +                dofilter++;
50 +                argv++; argc--;
51 +        }
52          if (argc < 2)
53                  status = printp(NULL) == -1;
54          else
# Line 43 | Line 61 | char  *argv[];
61   printp(fname)                           /* print a picture */
62   char  *fname;
63   {
64 +        char  buf[64];
65          FILE  *input;
66          int  xres, yres;
67 <        COLOR  scanline[NCOLS];
67 >        COLR  scanline[NCOLS];
68          int  i;
69  
70 <        if (fname == NULL) {
70 >        if (dofilter) {
71 >                if (fname == NULL)
72 >                        fname = "";
73 >                sprintf(buf, FILTER, fname);
74 >                if ((input = popen(buf, "r")) == NULL) {
75 >                        fprintf(stderr, "Cannot execute: %s\n", buf);
76 >                        return(-1);
77 >                }
78 >                fname = buf;
79 >        } else if (fname == NULL) {
80                  input = stdin;
81                  fname = "<stdin>";
82          } else if ((input = fopen(fname, "r")) == NULL) {
# Line 56 | Line 84 | char  *fname;
84                  return(-1);
85          }
86                                  /* discard header */
87 <        getheader(input, NULL);
87 >        if (checkheader(input, COLRFMT, NULL) < 0) {
88 >                fprintf(stderr, "%s: not a Radiance picture\n", fname);
89 >                return(-1);
90 >        }
91                                  /* get picture dimensions */
92 <        if (fgetresolu(&xres, &yres, input) != (YMAJOR|YDECR)) {
92 >        if (fgetresolu(&xres, &yres, input) < 0) {
93                  fprintf(stderr, "%s: bad picture size\n", fname);
94                  return(-1);
95          }
# Line 66 | Line 97 | char  *fname;
97                  fprintf(stderr, "%s: resolution mismatch\n", fname);
98                  return(-1);
99          }
100 <
101 <        fputs("\033A\014\0332", stdout);
102 <        
100 >                                /* set line spacing (overlap for knitting) */
101 >        fputs("\0333\042", stdout);
102 >                                /* clear line buffer */
103 >        clearlbuf();
104 > #ifdef _IOLBF
105 >        stdout->_flag &= ~_IOLBF;
106 > #endif
107 >                                /* put out scanlines */
108          for (i = yres-1; i >= 0; i--) {
109 <                if (freadscan(scanline, xres, input) < 0) {
109 >                if (freadcolrs(scanline, xres, input) < 0) {
110                          fprintf(stderr, "%s: read error (y=%d)\n", fname, i);
111                          return(-1);
112                  }
113 +                normcolrs(scanline, xres, 0);
114                  plotscan(scanline, xres, i);
115          }
116 <
116 >                                /* advance page */
117          putchar('\f');
118          
119 <        fclose(input);
119 >        if (dofilter)
120 >                pclose(input);
121 >        else
122 >                fclose(input);
123  
124          return(0);
125   }
126  
127  
128   plotscan(scan, len, y)                  /* plot a scanline */
129 < COLOR  scan[];
129 > COLR  scan[];
130   int  len;
131   int  y;
132   {
93 –        static long  pat[NCOLS][3];
133          int  bpos;
134          register long  c;
135          register int  i, j;
136  
137 <        if (bpos = y % 24) {
137 >        if (bpos = y % 23) {
138  
139                  for (j = 0; j < 3; j++)
140                          for (i = 0; i < len; i++)
141 <                                pat[i][j] |= (long)colbit(scan[i],i,j) << bpos;
141 >                                lpat[i][j] |= (long)colbit(scan[i],i,j) << bpos;
142  
143          } else {
144  
# Line 110 | Line 149 | int  y;
149                          putchar(len & 255);
150                          putchar(len >> 8);
151                          for (i = 0; i < len; i++) {
152 <                                c = pat[i][j] | colbit(scan[i],i,j);
153 <                                pat[i][j] = 0;
152 >                                c = lpat[i][j] | colbit(scan[i],i,j);
153 >                                                        /* repeat this row */
154 >                                lpat[i][j] = (c & 1) << 23;
155                                  putchar(c>>16);
156                                  putchar(c>>8 & 255);
157                                  putchar(c & 255);
# Line 119 | Line 159 | int  y;
159                          putchar('\r');
160                  }
161                  putchar('\n');
162 +                fflush(stdout);
163          }
164   }
165  
166  
167   colbit(col, x, s)               /* determine bit value for primary at x */
168 < COLOR  col;
168 > COLR  col;
169   register int  x;
170   int  s;
171   {
172 <        static float  cerr[NCOLS][3];
173 <        static double  err[3];
174 <        double  b;
172 >        static int  cerr[NCOLS][3];
173 >        static int  err[3];
174 >        int  b, errp;
175          register int  a, ison;
176  
177          a = sub_add(s);                 /* use additive primary */
178 <        b = colval(col,a);
179 <        if (b > 1.0) b = 1.0;
178 >        b = col[a];
179 >        errp = err[a];
180          err[a] += b + cerr[x][a];
181 <        ison = err[a] < 0.5;
182 <        if (!ison) err[a] -= 1.0;
183 <        cerr[x][a] = err[a] *= 0.5;
181 >        ison = err[a] < 128;
182 >        if (!ison) err[a] -= 256;
183 >        err[a] /= 3;
184 >        cerr[x][a] = err[a] + errp;
185          return(ison);
186   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines