Blame

Date:
Message:
Initial revision
Actions:
History | Blob | Raw File
  1 76193d7c 2003-09-30 devnull #include <u.h>

  2 76193d7c 2003-09-30 devnull #include <libc.h>

  3 76193d7c 2003-09-30 devnull #include <draw.h>

  4 76193d7c 2003-09-30 devnull #include <memdraw.h>

  5 76193d7c 2003-09-30 devnull 

  6 76193d7c 2003-09-30 devnull #define poolalloc(a, b) malloc(b)

  7 76193d7c 2003-09-30 devnull #define poolfree(a, b) free(b)

  8 76193d7c 2003-09-30 devnull 

  9 76193d7c 2003-09-30 devnull void

 10 76193d7c 2003-09-30 devnull memimagemove(void *from, void *to)

 11 76193d7c 2003-09-30 devnull {

 12 76193d7c 2003-09-30 devnull 	Memdata *md;

 13 76193d7c 2003-09-30 devnull 

 14 76193d7c 2003-09-30 devnull 	md = *(Memdata**)to;

 15 76193d7c 2003-09-30 devnull 	if(md->base != from){

 16 76193d7c 2003-09-30 devnull 		print("compacted data not right: #%p\n", md->base);

 17 76193d7c 2003-09-30 devnull 		abort();

 18 76193d7c 2003-09-30 devnull 	}

 19 76193d7c 2003-09-30 devnull 	md->base = to;

 20 76193d7c 2003-09-30 devnull 

 21 76193d7c 2003-09-30 devnull 	/* if allocmemimage changes this must change too */

 22 76193d7c 2003-09-30 devnull 	md->bdata = (uchar*)&md->base[2];

 23 76193d7c 2003-09-30 devnull }

 24 76193d7c 2003-09-30 devnull 

 25 76193d7c 2003-09-30 devnull Memimage*

 26 76193d7c 2003-09-30 devnull allocmemimaged(Rectangle r, u32int chan, Memdata *md, void *X)

 27 76193d7c 2003-09-30 devnull {

 28 76193d7c 2003-09-30 devnull 	int d;

 29 76193d7c 2003-09-30 devnull 	u32int l;

 30 76193d7c 2003-09-30 devnull 	Memimage *i;

 31 76193d7c 2003-09-30 devnull 

 32 76193d7c 2003-09-30 devnull 	if(Dx(r) <= 0 || Dy(r) <= 0){

 33 76193d7c 2003-09-30 devnull 		werrstr("bad rectangle %R", r);

 34 76193d7c 2003-09-30 devnull 		return nil;

 35 76193d7c 2003-09-30 devnull 	}

 36 76193d7c 2003-09-30 devnull 	if((d = chantodepth(chan)) == 0) {

 37 76193d7c 2003-09-30 devnull 		werrstr("bad channel descriptor %.8lux", chan);

 38 76193d7c 2003-09-30 devnull 		return nil;

 39 76193d7c 2003-09-30 devnull 	}

 40 76193d7c 2003-09-30 devnull 

 41 76193d7c 2003-09-30 devnull 	l = wordsperline(r, d);

 42 76193d7c 2003-09-30 devnull 

 43 76193d7c 2003-09-30 devnull 	i = mallocz(sizeof(Memimage), 1);

 44 76193d7c 2003-09-30 devnull 	if(i == nil)

 45 76193d7c 2003-09-30 devnull 		return nil;

 46 76193d7c 2003-09-30 devnull 

 47 76193d7c 2003-09-30 devnull 	i->X = X;

 48 76193d7c 2003-09-30 devnull 	i->data = md;

 49 76193d7c 2003-09-30 devnull 	i->zero = sizeof(u32int)*l*r.min.y;

 50 76193d7c 2003-09-30 devnull 	

 51 76193d7c 2003-09-30 devnull 	if(r.min.x >= 0)

 52 76193d7c 2003-09-30 devnull 		i->zero += (r.min.x*d)/8;

 53 76193d7c 2003-09-30 devnull 	else

 54 76193d7c 2003-09-30 devnull 		i->zero -= (-r.min.x*d+7)/8;

 55 76193d7c 2003-09-30 devnull 	i->zero = -i->zero;

 56 76193d7c 2003-09-30 devnull 	i->width = l;

 57 76193d7c 2003-09-30 devnull 	i->r = r;

 58 76193d7c 2003-09-30 devnull 	i->clipr = r;

 59 76193d7c 2003-09-30 devnull 	i->flags = 0;

 60 76193d7c 2003-09-30 devnull 	i->layer = nil;

 61 76193d7c 2003-09-30 devnull 	i->cmap = memdefcmap;

 62 76193d7c 2003-09-30 devnull 	if(memsetchan(i, chan) < 0){

 63 76193d7c 2003-09-30 devnull 		free(i);

 64 76193d7c 2003-09-30 devnull 		return nil;

 65 76193d7c 2003-09-30 devnull 	}

 66 76193d7c 2003-09-30 devnull 	return i;

 67 76193d7c 2003-09-30 devnull }

 68 76193d7c 2003-09-30 devnull 

 69 76193d7c 2003-09-30 devnull Memimage*

 70 76193d7c 2003-09-30 devnull _allocmemimage(Rectangle r, u32int chan)

 71 76193d7c 2003-09-30 devnull {

 72 76193d7c 2003-09-30 devnull 	int d;

 73 76193d7c 2003-09-30 devnull 	u32int l, nw;

 74 76193d7c 2003-09-30 devnull 	Memdata *md;

 75 76193d7c 2003-09-30 devnull 	Memimage *i;

 76 76193d7c 2003-09-30 devnull 

 77 76193d7c 2003-09-30 devnull 	if((d = chantodepth(chan)) == 0) {

 78 76193d7c 2003-09-30 devnull 		werrstr("bad channel descriptor %.8lux", chan);

 79 76193d7c 2003-09-30 devnull 		return nil;

 80 76193d7c 2003-09-30 devnull 	}

 81 76193d7c 2003-09-30 devnull 

 82 76193d7c 2003-09-30 devnull 	l = wordsperline(r, d);

 83 76193d7c 2003-09-30 devnull 	nw = l*Dy(r);

 84 76193d7c 2003-09-30 devnull 	md = malloc(sizeof(Memdata));

 85 76193d7c 2003-09-30 devnull 	if(md == nil)

 86 76193d7c 2003-09-30 devnull 		return nil;

 87 76193d7c 2003-09-30 devnull 

 88 76193d7c 2003-09-30 devnull 	md->ref = 1;

 89 76193d7c 2003-09-30 devnull 	md->base = poolalloc(imagmem, (2+nw)*sizeof(u32int));

 90 76193d7c 2003-09-30 devnull 	if(md->base == nil){

 91 76193d7c 2003-09-30 devnull 		free(md);

 92 76193d7c 2003-09-30 devnull 		return nil;

 93 76193d7c 2003-09-30 devnull 	}

 94 76193d7c 2003-09-30 devnull 

 95 76193d7c 2003-09-30 devnull 	md->base[0] = (u32int)md;

 96 76193d7c 2003-09-30 devnull 	md->base[1] = getcallerpc(&r);

 97 76193d7c 2003-09-30 devnull 

 98 76193d7c 2003-09-30 devnull 	/* if this changes, memimagemove must change too */

 99 76193d7c 2003-09-30 devnull 	md->bdata = (uchar*)&md->base[2];

100 76193d7c 2003-09-30 devnull 

101 76193d7c 2003-09-30 devnull 	md->allocd = 1;

102 76193d7c 2003-09-30 devnull 

103 76193d7c 2003-09-30 devnull 	i = allocmemimaged(r, chan, md, nil);

104 76193d7c 2003-09-30 devnull 	if(i == nil){

105 76193d7c 2003-09-30 devnull 		poolfree(imagmem, md->base);

106 76193d7c 2003-09-30 devnull 		free(md);

107 76193d7c 2003-09-30 devnull 		return nil;

108 76193d7c 2003-09-30 devnull 	}

109 76193d7c 2003-09-30 devnull 	md->imref = i;

110 76193d7c 2003-09-30 devnull 	return i;

111 76193d7c 2003-09-30 devnull }

112 76193d7c 2003-09-30 devnull 

113 76193d7c 2003-09-30 devnull void

114 76193d7c 2003-09-30 devnull _freememimage(Memimage *i)

115 76193d7c 2003-09-30 devnull {

116 76193d7c 2003-09-30 devnull 	if(i == nil)

117 76193d7c 2003-09-30 devnull 		return;

118 76193d7c 2003-09-30 devnull 	if(i->data->ref-- == 1 && i->data->allocd){

119 76193d7c 2003-09-30 devnull 		if(i->data->base)

120 76193d7c 2003-09-30 devnull 			poolfree(imagmem, i->data->base);

121 76193d7c 2003-09-30 devnull 		free(i->data);

122 76193d7c 2003-09-30 devnull 	}

123 76193d7c 2003-09-30 devnull 	free(i);

124 76193d7c 2003-09-30 devnull }

125 76193d7c 2003-09-30 devnull 

126 76193d7c 2003-09-30 devnull /*

127 76193d7c 2003-09-30 devnull  * Wordaddr is deprecated.

128 76193d7c 2003-09-30 devnull  */

129 76193d7c 2003-09-30 devnull u32int*

130 76193d7c 2003-09-30 devnull wordaddr(Memimage *i, Point p)

131 76193d7c 2003-09-30 devnull {

132 76193d7c 2003-09-30 devnull 	return (u32int*) ((u32int)byteaddr(i, p) & ~(sizeof(u32int)-1));

133 76193d7c 2003-09-30 devnull }

134 76193d7c 2003-09-30 devnull 

135 76193d7c 2003-09-30 devnull uchar*

136 76193d7c 2003-09-30 devnull byteaddr(Memimage *i, Point p)

137 76193d7c 2003-09-30 devnull {

138 76193d7c 2003-09-30 devnull 	uchar *a;

139 76193d7c 2003-09-30 devnull 

140 76193d7c 2003-09-30 devnull 	a = i->data->bdata+i->zero+sizeof(u32int)*p.y*i->width;

141 76193d7c 2003-09-30 devnull 

142 76193d7c 2003-09-30 devnull 	if(i->depth < 8){

143 76193d7c 2003-09-30 devnull 		/*

144 76193d7c 2003-09-30 devnull 		 * We need to always round down,

145 76193d7c 2003-09-30 devnull 		 * but C rounds toward zero.

146 76193d7c 2003-09-30 devnull 		 */

147 76193d7c 2003-09-30 devnull 		int np;

148 76193d7c 2003-09-30 devnull 		np = 8/i->depth;

149 76193d7c 2003-09-30 devnull 		if(p.x < 0)

150 76193d7c 2003-09-30 devnull 			return a+(p.x-np+1)/np;

151 76193d7c 2003-09-30 devnull 		else

152 76193d7c 2003-09-30 devnull 			return a+p.x/np;

153 76193d7c 2003-09-30 devnull 	}

154 76193d7c 2003-09-30 devnull 	else

155 76193d7c 2003-09-30 devnull 		return a+p.x*(i->depth/8);

156 76193d7c 2003-09-30 devnull }

157 76193d7c 2003-09-30 devnull 

158 76193d7c 2003-09-30 devnull int

159 76193d7c 2003-09-30 devnull memsetchan(Memimage *i, u32int chan)

160 76193d7c 2003-09-30 devnull {

161 76193d7c 2003-09-30 devnull 	int d;

162 76193d7c 2003-09-30 devnull 	int t, j, k;

163 76193d7c 2003-09-30 devnull 	u32int cc;

164 76193d7c 2003-09-30 devnull 	int bytes;

165 76193d7c 2003-09-30 devnull 

166 76193d7c 2003-09-30 devnull 	if((d = chantodepth(chan)) == 0) {

167 76193d7c 2003-09-30 devnull 		werrstr("bad channel descriptor");

168 76193d7c 2003-09-30 devnull 		return -1;

169 76193d7c 2003-09-30 devnull 	}

170 76193d7c 2003-09-30 devnull 

171 76193d7c 2003-09-30 devnull 	i->depth = d;

172 76193d7c 2003-09-30 devnull 	i->chan = chan;

173 76193d7c 2003-09-30 devnull 	i->flags &= ~(Fgrey|Falpha|Fcmap|Fbytes);

174 76193d7c 2003-09-30 devnull 	bytes = 1;

175 76193d7c 2003-09-30 devnull 	for(cc=chan, j=0, k=0; cc; j+=NBITS(cc), cc>>=8, k++){

176 76193d7c 2003-09-30 devnull 		t=TYPE(cc);

177 76193d7c 2003-09-30 devnull 		if(t < 0 || t >= NChan){

178 76193d7c 2003-09-30 devnull 			werrstr("bad channel string");

179 76193d7c 2003-09-30 devnull 			return -1;

180 76193d7c 2003-09-30 devnull 		}

181 76193d7c 2003-09-30 devnull 		if(t == CGrey)

182 76193d7c 2003-09-30 devnull 			i->flags |= Fgrey;

183 76193d7c 2003-09-30 devnull 		if(t == CAlpha)

184 76193d7c 2003-09-30 devnull 			i->flags |= Falpha;

185 76193d7c 2003-09-30 devnull 		if(t == CMap && i->cmap == nil){

186 76193d7c 2003-09-30 devnull 			i->cmap = memdefcmap;

187 76193d7c 2003-09-30 devnull 			i->flags |= Fcmap;

188 76193d7c 2003-09-30 devnull 		}

189 76193d7c 2003-09-30 devnull 

190 76193d7c 2003-09-30 devnull 		i->shift[t] = j;

191 76193d7c 2003-09-30 devnull 		i->mask[t] = (1<<NBITS(cc))-1;

192 76193d7c 2003-09-30 devnull 		i->nbits[t] = NBITS(cc);

193 76193d7c 2003-09-30 devnull 		if(NBITS(cc) != 8)

194 76193d7c 2003-09-30 devnull 			bytes = 0;

195 76193d7c 2003-09-30 devnull 	}

196 76193d7c 2003-09-30 devnull 	i->nchan = k;

197 76193d7c 2003-09-30 devnull 	if(bytes)

198 76193d7c 2003-09-30 devnull 		i->flags |= Fbytes;

199 76193d7c 2003-09-30 devnull 	return 0;

200 76193d7c 2003-09-30 devnull }