1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
/*
$Id$
GridFlow
Copyright (c) 2001-2009 by Mathieu Bouchard
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
See file ../COPYING for further informations on licensing terms.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#define NETPBM_INCLUDE_HERE
#include "gridflow.hxx.fcs"
\class FormatNetPBM : Format {
struct pam inpam, outpam;
\grin 0
\constructor (t_symbol *mode, string filename) {
Format::_0_open(0,0,mode,filename);
memset(& inpam,0,sizeof(pam));
memset(&outpam,0,sizeof(pam));
}
\decl 0 bang ();
};
\def 0 bang () {
//inpam.allocation_depth = 3;
pnm_readpaminit(f, &inpam, /*PAM_STRUCT_SIZE(tuple_type)*/ sizeof(struct pam));
tuple *tuplerow = pnm_allocpamrow(&inpam);
if (inpam.depth!=3) RAISE("image has %d channels instead of 3 channels",inpam.depth);
GridOutlet out(this,0,new Dim(inpam.height,inpam.width,inpam.depth),cast);
uint8 buf[inpam.width*3];
for (int i=0; i<inpam.height; i++) {
pnm_readpamrow(&inpam, tuplerow);
for (int j=0; j<inpam.width; j++) {
buf[j*3+0] = tuplerow[j][0];
buf[j*3+1] = tuplerow[j][1];
buf[j*3+2] = tuplerow[j][2];
}
out.send(inpam.width*inpam.depth,buf);
}
pnm_freepamrow(tuplerow);
}
GRID_INLET(0) {
if (in->dim->n!=3) RAISE("need 3 dimensions");
if (in->dim->v[2]!=3) RAISE("need 3 channels");
outpam.size = sizeof(struct pam);
outpam.len = sizeof(struct pam);
outpam.file = f;
outpam.format = PPM_FORMAT;
outpam.height = in->dim->v[0];
outpam.width = in->dim->v[1];
outpam.depth = in->dim->v[2];
outpam.plainformat = false;
outpam.maxval = 255;
//outpam.allocation_depth = 3;
strcpy(outpam.tuple_type,PAM_PPM_TUPLETYPE);
pnm_writepaminit(&outpam);
in->set_chunk(1);
} GRID_FLOW {
tuple *tuplerow = pnm_allocpamrow(&outpam);
int m = in->dim->v[1];
for (int i=0; i<n; i+=in->dim->prod(1)) {
for (int j=0; j<m; j++, data+=3) {
tuplerow[j][0] = int(data[0]);
tuplerow[j][1] = int(data[1]);
tuplerow[j][2] = int(data[2]);
}
pnm_writepamrow(&outpam, tuplerow);
}
pnm_freepamrow(tuplerow);
} GRID_FINISH {
fflush(f);
} GRID_END
/* was supposed to be "#io.netpbm" but there's backwards compat. */
\classinfo {install_format("#io.ppm",6,"ppm pgm pnm pam");}
\end class FormatNetPBM
/*FormatPPM.subclass("#io:tk",1,1) {
install_rgrid 0
def initialize(mode)
@id = sprintf("x%08x",object_id)
@filename = "/tmp/tk-#{$$}-#{@id}.ppm"
if mode!=:out then raise "only #out" end
super(mode,:file,@filename)
GridFlow.gui "toplevel .#{@id}\n"
GridFlow.gui "wm title . GridFlow/Tk\n"
GridFlow.gui "image create photo gf#{@id} -width 320 -height 240\n"
GridFlow.gui "pack [label .#{@id}.im -image #{@id}]\n"
end
def _0_rgrid_end
super
@stream.seek 0,IO::SEEK_SET
GridFlow.gui "image create photo #{@id} -file #{@filename}\n"
end
def delete
GridFlow.gui "destroy .#{@id}\n"
GridFlow.gui "image delete #{@id}\n"
end
alias close delete
}*/
void startup_netpbm () {
pm_init(0,0);
\startall
}
|
