shithub: etoys

Download patch

ref: 69b437a06edba3582a505b0e6b5c3ff06736465f
parent: 64ae1b600bef8c31423e959eb5f22935d6cdeac9
author: rodri <rgl@antares-labs.eu>
date: Wed May 13 17:15:23 EDT 2020

new toy: grid

diff: cannot open b/asset/tile//null: file does not exist: 'b/asset/tile//null' diff: cannot open b/asset//null: file does not exist: 'b/asset//null'
--- /dev/null
+++ b/asset/tile/bl.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeee����������������eeeeeeeee�����������������������e�������e�veeeee����������������e�veeeeee�e���������������������e�e�����e�e�				����������������				eveve�e�				����������������	&&	�e�ee�e�		&&����������������	&'	�e�ee�e�		&	����������������				�e�ee�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	&		7	7			7					7		7	veeve�e�		&			&				&	7	7	&	&	7		���ee�e�		&	&	&	&&&		&	&	&	&			&eeeee�e�		&			&					&								&&	����e�e�v�e���������������������eeeve�e�v�e�veevveeeeveeeeeeeevve���e�e�v�e�e���������e�����������vee�e�v�eee�veveeveve�veveveveeee
\ No newline at end of file
--- /dev/null
+++ b/asset/tile/br.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeee����������������eeeeeeeee�����������������������e�������e�veeeee����������������e�veeeeee�e���������������������e�e�����e�e�				����������������				eveve�e�				����������������	&&	�e�ee�e�		&&����������������	&'	�e�ee�e�		&	����������������				�e�e������������������������	&&	�vee������������������������				�e��������������������������7&&	�e�v������������������������				�e�e������������������������7	&	�e�v������������������������7	&	�e�e������������������������			�e�v������������������������		&	�e�v������������������������	&		�e�e������������������������			&�e�v������������������������	&&	�e�v������������������������				�e�e������������������������7	&&�e�v������������������������		&	�vee������������������������	7		�v��������������������������		&	�e�eeeee						7	77					7			7	&	�e�ee���	&&	&	&					&	&			7			&	�e�ve�ve	&'	&	&	&&	&		&	&&	&&&		�e�ee�e�													&		&						&�e�ve�e�e�����������������������ee�ee�e�veeeveeeeeeeeeeeevveeeeee��ve�e�e���e������������e��������vee�e�veeee�vevevvevveve�eeveveve
\ No newline at end of file
binary files /dev/null b/asset/tile/empty.pic differ
binary files /dev/null b/asset/tile/filled.pic differ
--- /dev/null
+++ b/asset/tile/grass.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee�������������������������������e�veeeeeeeeeeeeeeeeeeeeeeeeeeeeee�e�����������������������������e�e�																								vvvve�e�																								����e�e�		&&&&&&&&&&&&&&&&&&&&&&eeeee�e�		&																					���ee�e�		&		&	&	&	&	&	&	&	&	&	&�veee�e�		&	&																			�v��e�e�		&			&		&	&	&	&	&	&	&	�eeee�e�		&	&			&	&	&	&	&	&	&	&	�e��e�e�		&			&											�e�ve�e�		&	&				&&&&	&&		7	7	7	v�eee�e�		&			&&	&'			&'	7&	&	&	��v�e�e�		&	&				&			&			&						�ve�e�e�		&			&&	&		&		&				&&	&�e�ee�e�		&	&						&		&		&&&			&�v�ee�e�		&			&&	&&		&		&				&		�v�ee�e�		&	&			&'	&		&		&				&�eeee�e�		&			&&						&		&		&&&	�e��e�e�		&	&				7&	&		&		&			�v�ve�e�		&			&&	7&		&	&		&	&	&veeee�e�		&	&							&			&		&			����e�e�		&			&&	7&	&			&	&		&	�veee�e�		&	&						&	&	&	&		&		�e��e�e�		&			&&	7&					&			&		&�e�ve�e�		&	&						&&	&	&			&	�e�ee�e�v�e������v��������v������v�ve�e�v�e�vveee��vevveeve�veeeveeee�e�v�e�e�e��eve���e��e�e����e��e�e�v�eee�e�ve��eeee�ve�e�veve�e
\ No newline at end of file
--- /dev/null
+++ b/asset/tile/hori.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee�������������������������������e�veeeeeeeeeeeeeeeeeeeeeeeeeeeeee�e�����������������������������e�e�																								vvvve�e�																								����e�e�		&&&&&&&&&&&&&&&&&&&&&&eeeee�e�		&																					���e��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������eeee						7	77				7	7		7	eevee���	&&	&	&					&	&						&		e��ee�ve	&'	&	&	&&	&		&	&&&&	&	&��vee�e�													&										�ve�e�e�e�����������������������ee�ee�e�veeeveeeeeeeeeeeeeeeveeee��ee�e�e���e����������������e����vee�e�veeee�vevevvevvevvevee�veve
\ No newline at end of file
--- /dev/null
+++ b/asset/tile/tl.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee�������������������������������e�veeeeeeeeeeeeeeeeeeeeeeeeeeeeee�e�����������������������������e�e�																								vvvve�e�																								����e�e�		&&&&&&&&&&&&&&&&&&&&&&eeeee�e�		&																					���ee�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	������������������������e�e�		&	����������������			eveee�e�		&	����������������		&e���e�e�		&	����������������		&	��vee�e�		&	����������������	&		�ve�e�e�v�e�����������������ee���e�ee�e�v�e�����������������v��vee�ee�e�v�e�����������������e�ve��eee�e�v�ee����������������e�e�eee
\ No newline at end of file
--- /dev/null
+++ b/asset/tile/tr.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee�������������������������������e�veeeeeeeeeeeeeeeeeeeeeeeeeeeeee�e�����������������������������e�e�																								vvvve�e�																								����e�e�		&&&&&&&&&&&&&&&&&&&&&&eeeee�e�		&																					���e������������������������&	&	�vee������������������������				�e��������������������������	&&&�e�v������������������������7			�v�e������������������������		&	�v�v������������������������7	&	�e�e������������������������		&	�e�e������������������������	&		�e�v������������������������			&�e�e������������������������77&	�v�v������������������������				�eee������������������������	7&	�e��������������������������				�e�v������������������������	&&	�e�e������������������������				�e�v������������������������7&&	�e�eeeee				����������������				�e�ve���	&&	����������������	7	&�e�ee�ve	&'	����������������7		&�v�ve�e�				����������������		&	�v�ee�e�e�������������������v�e�ee�ee�e�veee����������������e�e�e��ee�e�e�������������������e�e�e�vee�e�veee����������������vee�v�e
\ No newline at end of file
--- /dev/null
+++ b/asset/tile/vert.pic
@@ -1,0 +1,1 @@
+         m8           0           0          32          32 eeeeeeee����������������eeeeeeeee�����������������������e�������e�veeeee����������������e�veeeeee�e���������������������e�e�����e�e�				����������������				eveve�e�				����������������	&&	�e�ee�e�		&&����������������	&'	�e�ee�e�		&	����������������				�e�ee�e�		&	����������������	&&	�veee�e�		&	����������������				�e��e�e�		&	����������������7&&	�e�ve�e�		&	����������������				�e�ee�e�		&	����������������7	&	�e�ve�e�		&	����������������7	&	�e�ee�e�		&	����������������			�e�ve�e�		&	����������������		&	�e�ve�e�		&	����������������	&		�e�ee�e�		&	����������������			&�e�ve�e�		&	����������������	&&	�e�ve�e�		&	����������������7			�e�ee�e�		&	����������������		&	�e�ve�e�		&	����������������	&	�e�ve�e�		&	����������������7	&	�e�ee�e�		&	����������������	&	�e�ve�e�		&	����������������				�v�ee�e�		&	����������������	&&	�eeee�e�		&	����������������7			�e��e�e�		&	����������������		&	�e�ve�e�v�e�����������������ee��ee�ee�e�v�e�����������������e��ve��ve�e�v�e�����������������v�ve��vee�e�v�ee����������������eee�eee
\ No newline at end of file
--- /dev/null
+++ b/grid.c
@@ -1,0 +1,163 @@
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+#include <geometry.h>
+#include <event.h>
+#include <keyboard.h>
+
+enum {
+	Cbg,
+	Cfg,
+	Ctxtbg,
+	NCOLOR
+};
+
+enum {
+	TW = 32,
+	TH = 32
+};
+
+typedef struct Tile Tile;
+struct Tile
+{
+	char *name;
+	char id;
+	Image *img;
+};
+
+Image *pal[NCOLOR];
+Tile tiles[] = {
+	{ .name = "tl", .id = 'n' },
+	{ .name = "tr", .id = 'e' },
+	{ .name = "bl", .id = 'w' },
+	{ .name = "br", .id = 's' },
+	{ .name = "hori", .id = 'H' },
+	{ .name = "vert", .id = 'V' },
+	{ .name = "grass", .id = 'g' }
+};
+RFrame worldrf;
+char *map[] = {
+	"nHHHHe",
+	"VggggV",
+	"VggggV",
+	"VggggV",
+	"wHHHHs"
+};
+Point mpos;
+
+Point
+toscreen(Point2 p)
+{
+	p = invrframexform(p, worldrf);
+	return Pt(p.x,p.y);
+}
+
+Point2
+fromscreen(Point p)
+{
+	return rframexform(Pt2(p.x,p.y,1), worldrf);
+}
+
+void
+initpalette(void)
+{
+	pal[Cbg] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DBlack);
+	pal[Cfg] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DDarkblue);
+	pal[Ctxtbg] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DPaleyellow);
+}
+
+void
+inittiles(void)
+{
+	char path[256];
+	int fd, i;
+
+	for(i = 0; i < nelem(tiles); i++){
+		snprint(path, sizeof path, "asset/tile/%s.pic", tiles[i].name);
+		fd = open(path, OREAD);
+		tiles[i].img = readimage(display, fd, 0);
+		close(fd);
+	}
+}
+
+void
+drawstats(void)
+{
+	char s[256];
+
+	snprint(s, sizeof s, "%v", fromscreen(mpos));
+	stringbg(screen, addpt(screen->r.min, Pt(20,20)), pal[Cfg], ZP, font, s, pal[Ctxtbg], ZP);
+}
+
+void
+redraw(void)
+{
+	Point2 dp;
+	int i, j;
+	char *row;
+
+	draw(screen, screen->r, pal[Cbg], nil, ZP);
+	for(i = 0; i < nelem(map); i++)
+		for(row = map[i]; *row; row++){
+			dp = Pt2((row-map[i])*TW,i*TH,1);
+			for(j = 0; j < nelem(tiles); j++)
+				if(tiles[j].id == *row)
+					draw(screen, Rpt(toscreen(dp),addpt(toscreen(dp), Pt(TW,TH))), tiles[j].img, nil, ZP);
+		}
+	drawstats();
+	flushimage(display, 1);
+}
+
+void
+usage(void)
+{
+	fprint(2, "usage: %s\n", argv0);
+	exits("usage");
+}
+
+void
+main(int argc, char *argv[])
+{
+	Event e;
+
+	GEOMfmtinstall();
+	ARGBEGIN{
+	default: usage();
+	}ARGEND;
+	if(argc > 0)
+		usage();
+	if(initdraw(nil, nil, nil) < 0)
+		sysfatal("initdraw: %r");
+	initpalette();
+	inittiles();
+	worldrf.p = Pt2(screen->r.min.x,screen->r.min.y,1);
+	worldrf.p = addpt2(worldrf.p, Vec2(Dx(screen->r)/2,Dy(screen->r)/3));
+	worldrf.bx = Vec2(1,0);
+	worldrf.by = Vec2(0,1);
+	einit(Emouse|Ekeyboard);
+	redraw();
+	for(;;)
+		switch(event(&e)){
+		case Emouse:
+			mpos = e.mouse.xy;
+			redraw();
+			break;
+		case Ekeyboard:
+			switch(e.kbdc){
+			case 'q':
+			case Kdel:
+				exits(0);
+			}
+			break;
+		}
+}
+
+void
+eresized(int)
+{
+	if(getwindow(display, Refnone) < 0)
+		sysfatal("resize failed");
+	worldrf.p = Pt2(screen->r.min.x,screen->r.min.y,1);
+	worldrf.p = addpt2(worldrf.p, Vec2(Dx(screen->r)/2,Dy(screen->r)/3));
+	redraw();
+}
--- a/mkfile
+++ b/mkfile
@@ -5,5 +5,22 @@
 	triangles\
 	beziers\
 	bsplines\
+	grid\
 
+HFILES=\
+	libgeometry/geometry.h\
+
+LIB=\
+	libgeometry/libgeometry.a$O\
+
+CFLAGS=$CFLAGS -Ilibgeometry
+
 </sys/src/cmd/mkmany
+
+libgeometry/libgeometry.a$O:
+	cd libgeometry
+	mk install
+
+clean nuke:V:
+	rm -f *.[$OS] [$OS].??* $TARG
+	@{cd libgeometry; mk $target}