Import sources from 2011-03-30 iso image

1 files changed, 392 insertions, 0 deletions

diff --git a/sys/src/games/memo.c b/sys/src/games/memo.c
new file mode 100755
index 000000000..65ad53edd
--- /dev/null
+++ b/sys/src/games/memo.c
@@ -0,0 +1,392 @@
+/* Federico Benavento <benavento@gmail.com> */
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+#include <event.h>
+
+enum { 
+	Facesize = 48 
+};
+
+
+void memoinit(void);
+void redraw(void);
+void eresized(int);
+void resize(int i);
+void afaces(void);
+void allocblocks(void);
+Image *openface(char *path);
+
+Image *face[18];
+char buf[100];
+ushort winflag, level;
+Image *back;
+Image *fore;
+
+enum
+{
+	Eninit,
+	Eshow,
+	Ehide,
+	Edisc,
+};
+
+struct
+{
+	Image *face;
+	Rectangle r;
+	int	flag;
+}block[36];
+
+char *buttons[] =
+{
+	"restart",
+	"easy",
+	"hard",
+	"exit",
+	0
+};
+
+Menu menu =
+{
+	buttons
+};
+
+void
+main(int argc, char *argv[])
+{
+	Mouse m;
+	int i, j;
+	ushort ran, score, attempt, prev, br[2];
+	Image *c[2];
+	char *fmt;
+
+	level = 16;
+	fmt = "win in %d attempts!";
+
+	ARGBEGIN{
+	default:
+		goto Usage;
+	case 'h':
+		level=36;
+		break;
+	}ARGEND
+
+	if(argc){
+    Usage:
+		fprint(2, "usage: %s [-h]\n", argv0);
+		exits("usage");
+	}
+	if(initdraw(0,0,"memo") < 0)
+		sysfatal("initdraw failed: %r");
+	srand(time(0));
+	memoinit();
+	einit(Emouse);
+
+    Start:
+	afaces();
+	winflag=0;
+	prev=level+1;
+	score=attempt=0;
+	for(i=0;i!=level;i++)
+		block[i].flag = Eninit;
+
+	for(i=0;i!=level/2;i++){
+		for(j=0;j!=2;){
+			ran = rand()%level;
+			if(block[ran].flag == Eninit){
+				block[ran].face = face[i];
+				block[ran].flag = Eshow;
+				j++;
+			}
+		}
+	}
+	eresized(0);
+	for(;;m=emouse())
+		if(m.buttons)
+			break;
+
+	for(i=0;i!=level;i++)
+		block[i].flag = Ehide;
+
+	redraw();
+	j = 0;
+	for(;; m=emouse()){
+		switch(m.buttons){
+		case 1:
+			while(m.buttons){
+				for(i=0;i!=level;i++){
+					if(i!=prev && ptinrect(m.xy,block[i].r)){
+						if(block[i].flag==Ehide  && j<2){
+							block[i].flag = Eshow;
+							draw(screen, block[i].r, block[i].face, nil, ZP);
+							c[j] = block[i].face;
+							br[j] = prev = i;
+							j++;
+						}
+						break;
+					}
+				}
+				m=emouse();
+			}
+			break;
+		case 4:
+			switch(emenuhit(3, &m, &menu)) {
+			case 0:	/* restart */
+				goto Start;
+				break;
+			case 1:
+				level=16;
+				goto Start;
+				break;
+			case 2:
+				level=36;
+				goto Start;
+				break;
+			case 3:
+				exits(0);
+				break;
+			}
+		}
+		if(j==2){
+			attempt++;
+			prev = level+1;
+			j = 0;
+			if(c[0] == c[1]){
+				score++;
+				block[br[0]].flag = Edisc;
+				block[br[1]].flag = Edisc;
+			} else{
+				block[br[0]].flag = Ehide;
+				block[br[1]].flag = Ehide;
+			}
+			redraw();
+			continue;
+		}
+		if(score == level/2){
+			winflag = 1;
+			sprint(buf, fmt, attempt);
+			redraw();
+			for(;;m=emouse())
+				if(m.buttons&1 || m.buttons&4)
+					break;
+			goto Start;
+		}
+	}
+}
+
+void
+memoinit(void)
+{
+	back = allocimagemix(display, DPalebluegreen,DWhite);
+	fore = allocimagemix(display, 0x00DDDDFF, 0x00DDDDFF);
+}
+
+void
+eresized(int new)
+{
+	double sq;
+	Point p;
+
+	if(new && getwindow(display, Refnone) < 0){
+		fprint(2, "can't reattach to window");
+		exits("resized");
+	}
+
+	sq = sqrt(level);
+	p = Pt(Dx(screen->r)+8, Dy(screen->r)+8);
+	if(!new || !eqpt(p, Pt(Facesize*sq+sq*4+17, Facesize*sq+sq*4+17)))
+		resize(Facesize*sq+sq*4+17);
+
+	allocblocks();
+	draw(screen, screen->r, back, nil, ZP);
+	redraw();
+}
+
+void
+redraw(void)
+{
+	int i;
+	Rectangle r;
+	Point p;
+
+	if(winflag == 1){
+		p = Pt(Dx(screen->r)/8, Dy(screen->r)/4);
+		r = screen->r;
+		r.min = addpt(r.min, p);
+		r.max = subpt(r.max, p);
+		draw(screen, r, fore, nil, ZP);
+		p=addpt(r.min, Pt(5,5));
+		string(screen,p,display->black,ZP,font,buf);
+		return;
+	}
+
+	for(i=0;i!=level;i++){
+		r = block[i].r;
+		switch(block[i].flag){
+		case Eshow:
+			draw(screen, r,block[i].face,nil,ZP);
+			break;
+		case Edisc:
+			draw(screen, r, back, nil, ZP);
+			break;
+		case Ehide:
+			draw(screen, r, fore, nil, ZP);
+			break;
+		default:
+			fprint(2, "something went wrong!");
+			exits("wrong");
+			break;
+		}
+	}
+}
+
+char *facepaths[] = {
+	/* logos */
+	"/lib/face/48x48x4/g/glenda.1",
+	"/lib/face/48x48x2/p/pjw+9ball.2",
+
+	/* /sys/doc/9.ms authors */
+	"/lib/face/48x48x2/k/ken.1",
+	"/lib/face/48x48x4/b/bobf.1",
+	"/lib/face/48x48x4/p/philw.1",
+	"/lib/face/48x48x4/p/presotto.1",
+	"/lib/face/48x48x4/r/rob.1",
+	"/lib/face/48x48x4/s/sean.1",
+
+	/* additional authors and luminaries for harder levels */
+	"/lib/face/48x48x4/b/bwk.1",
+	"/lib/face/48x48x4/c/cyoung.1",
+	"/lib/face/48x48x4/d/dmr.1",
+	"/lib/face/48x48x4/d/doug.1",
+	"/lib/face/48x48x4/h/howard.1",
+	"/lib/face/48x48x4/j/jmk.1",
+	"/lib/face/48x48x4/s/sape.1",
+	"/lib/face/48x48x4/s/seanq.1",
+	"/lib/face/48x48x4/t/td.1",
+	"/lib/face/48x48x8/l/lucent.1",
+};
+
+void
+afaces(void)
+{
+	int i;
+
+	for(i=0; i<18; i++)
+		face[i] = openface(facepaths[i]);
+}
+
+void
+resize(int i)
+{
+	int fd;
+
+	fd = open("/dev/wctl", OWRITE);
+	if(fd >= 0){
+		fprint(fd, "resize -dx %d -dy %d", i, i);
+		close(fd);
+	}
+}
+
+Image *
+openimage(char *path)
+{
+	Image *i;
+	int fd;
+
+	fd = open(path, OREAD);
+	if(fd < 0)
+		sysfatal("open %s: %r", path);
+	i = readimage(display, fd, 0);
+	if(i == nil)
+		sysfatal("readimage %s: %r", path);
+	close(fd);
+	return i;
+}
+
+void
+allocblocks(void)
+{
+	Rectangle r, b;
+	ushort i, x, y, sq;
+
+	sq = sqrt(level);
+	r = insetrect(screen->r, 5);
+	r.max.x = r.min.x+Facesize*sq+sq*4-1;
+	r.max.y = r.min.y+Facesize*sq+sq*4-1;
+	b.max.y = r.min.y;
+	for(i=level-1, y=0; y!=sq; y++){
+		b.min.y = b.max.y;
+		b.max.y = r.min.y+Dy(r)*(y+1)/sq;
+		b.max.x = r.min.x;
+		for(x=0; x!=sq; x++, i--){
+			b.min.x = b.max.x;
+			b.max.x = r.min.x+Dx(r)*(x+1)/sq;
+			block[i].r = insetrect(b, 2 );
+		}
+	}
+}
+
+Image*
+readbit(int fd, ulong chan, char *path)
+{
+	char buf[4096], hx[4], *p;
+	uchar data[Facesize*Facesize];	/* more than enough */
+	int nhx, i, n, ndata, nbit;
+	Image *img;
+
+	n = readn(fd, buf, sizeof buf);
+	if(n <= 0)
+		return nil;
+	if(n >= sizeof buf)
+		n = sizeof(buf)-1;
+	buf[n] = '\0';
+
+	n = 0;
+	nhx = 0;
+	nbit = chantodepth(chan);
+	ndata = (Facesize*Facesize*nbit)/8;
+	p = buf;
+	while(n < ndata) {
+		p = strpbrk(p+1, "0123456789abcdefABCDEF");
+		if(p == nil)
+			break;
+		if(p[0] == '0' && p[1] == 'x')
+			continue;
+
+		hx[nhx] = *p;
+		if(++nhx == 2) {
+			hx[nhx] = 0;
+			i = strtoul(hx, 0, 16);
+			data[n++] = ~i;
+			nhx = 0;
+		}
+	}
+	if(n < ndata)
+		sysfatal("short face %s", path);
+
+	img = allocimage(display, Rect(0,0,Facesize,Facesize), chan, 0, 0);
+	if(img == nil)
+		return nil;
+
+	loadimage(img, img->r, data, ndata);
+	return img;
+}
+
+Image*
+openface(char *path)
+{
+	char *p;
+	int fd, n;
+
+	p = strstr(path, "48x48x");
+	if(p == nil)
+		return openimage(path);
+	n = atoi(p+6);
+	if(n < 4){
+		if((fd = open(path, OREAD)) < 0)
+			sysfatal("open %s: %r", path);
+		return readbit(fd, n==1 ? GREY1 : GREY2, path);
+	}
+	return openimage(path);
+}