shithub: sce

Download patch

ref: 373cdd23db1cf6bd2877d6ac41bcd96b336cb4d4
parent: fa58e6f08dfd43666eb5c6c4de9dd0f8775f8f83
author: qwx <qwx@sciops.net>
date: Sat Mar 14 18:00:47 EDT 2020 

add utils/grp.c: grp graphics extraction


--- /dev/null
+++ b/utils/grp.c
@@ -1,0 +1,193 @@
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+#include <bio.h>
+
+typedef struct Hdr Hdr;
+struct Hdr{
+	u8int dx;
+	u8int dy;
+	u8int w;
+	u8int h;
+	u32int ofs;
+};
+
+int split;
+Biobuf *bf;
+uchar *bufp;
+u32int pal[256], bgcol = 0xffff00;
+
+void *
+emalloc(ulong n)
+{
+	void *p;
+
+	if((p = mallocz(n, 1)) == nil)
+		sysfatal("emalloc: %r");
+	setmalloctag(p, getcallerpc(&n));
+	return p;
+}
+
+void
+putcol(u32int c)
+{
+	*bufp++ = c >> 16;
+	*bufp++ = c >> 8;
+	*bufp++ = c;
+}
+
+u8int
+get8(void)
+{
+	uchar v;
+
+	if(Bread(bf, &v, 1) != 1)
+		sysfatal("get8: short read");
+	return v;
+}
+
+u16int
+get16(void)
+{
+	u8int v;
+
+	v = get8();
+	return get8() << 8 | v;
+}
+
+u32int
+get32(void)
+{
+	u16int v;
+
+	v = get16();
+	return get16() << 16 | v;
+}
+
+void
+getpal(char *f)
+{
+	uchar u[3];
+	u32int *p;
+	Biobuf *bp;
+
+	if((bp = Bopen(f, OREAD)) == nil)
+		sysfatal("getpal: %r");
+	for(p=pal; p<pal+nelem(pal); p++){
+		if(Bread(bp, u, 3) != 3)
+			sysfatal("getpal: short read: %r");
+		*p = u[2]<<16 | u[1]<<8 | u[0];
+	}
+	Bterm(bp);
+}
+
+void
+usage(void)
+{
+	fprint(2, "usage: %s [-s] [-b bgcol] pal pic\n", argv0);
+	exits("usage");
+}
+
+void
+main(int argc, char **argv)
+{
+	int fd, n, x, y;
+	char *s, c[9];
+	u8int i;
+	u16int ni, maxx, maxy, *ofs;
+	uchar *buf;
+	Hdr *h, *hp;
+	Biobuf *bo;
+
+	ARGBEGIN{
+	case 'b': bgcol = strtoul(EARGF(usage()), nil, 0); break;
+	case 's': split = 1; break;
+	default: usage();
+	}ARGEND
+	if(argv[0] == nil || argv[1] == nil)
+		usage();
+	getpal(argv[0]);
+	if((fd = open(argv[1], OREAD)) < 0)
+		sysfatal("open: %r");
+	if((bf = Bfdopen(fd, OREAD)) == nil)
+		sysfatal("Bfdopen: %r");
+	ni = get16();
+	maxx = get16();
+	maxy = get16();
+	bo = nil;
+	h = emalloc(ni * sizeof *h);
+	buf = emalloc(maxx * maxy * 3 * (split ? 1 : ni));
+	ofs = emalloc(maxy * sizeof *ofs);
+	s = emalloc(strlen(argv[1]) + strlen(".00000.bit"));
+	for(hp=h; hp<h+ni; hp++){
+		hp->dx = get8();
+		hp->dy = get8();
+		hp->w = get8();
+		hp->h = get8();
+		hp->ofs = get32();
+	}
+	bufp = buf;
+	if(!split && (bo = Bfdopen(1, OWRITE)) == nil)
+		sysfatal("Bfdopen: %r");
+	for(hp=h; hp<h+ni; hp++){
+		if(split){
+			sprint(s, "%s.%05zd.bit", argv[1], hp-h);
+			if((bo = Bopen(s, OWRITE)) == nil)
+				sysfatal("Bfdopen: %r");
+			Bprint(bo, "%11s %11d %11d %11d %11d ", chantostr(c, RGB24),
+				hp->dx, hp->dy, hp->dx+hp->w, hp->dy+hp->h);
+		}
+		Bseek(bf, hp->ofs, 0);
+		for(y=0; y<hp->h; y++)
+			ofs[y] = get16();
+		if(!split){
+			for(y=0; y<hp->dy; y++)
+				for(x=0; x<maxx; x++)
+					putcol(bgcol);
+		}
+		for(y=0; y<hp->h; y++){
+			if(!split)
+				for(x=0; x<hp->dx; x++)
+					putcol(bgcol);
+			Bseek(bf, hp->ofs + ofs[y], 0);
+			x = 0;
+			while(x < hp->w){
+				i = get8();
+				n = i & 0x7f;
+				if(i & 1<<7){
+					x += n;
+					while(n-- > 0)
+						putcol(bgcol);
+				}else if(i & 1<<6){
+					n &= 0x3f;
+					x += n;
+					i = get8();
+					while(n-- > 0)
+						putcol(pal[i]);
+				}else{
+					x += i;
+					while(n-- > 0)
+						putcol(pal[get8()]);
+				}
+			}
+			if(!split)
+				for(; x<maxx-hp->dx; x++)
+					putcol(bgcol);
+		}
+		if(!split)
+			for(y+=hp->dy; y<maxy; y++)
+				for(x=0; x<maxx; x++)
+					putcol(bgcol);
+		else{
+			Bwrite(bo, buf, bufp - buf);
+			Bterm(bo);
+			bufp = buf;
+		}
+	}
+	if(!split){
+		Bprint(bo, "%11s %11d %11d %11d %11d ", chantostr(c, RGB24), 0, 0, maxx, maxy * ni);
+		Bwrite(bo, buf, bufp - buf);
+		Bterm(bo);
+	}
+	exits(nil);
+}
--- /dev/null
+++ b/utils/mkfile
@@ -1,0 +1,7 @@
+</$objtype/mkfile
+TARG=\
+	grp\
+
+HFILES=
+</sys/src/cmd/mkmany
+BIN=$home/bin/$objtype