Re: [9fans] Pico (again)

["Fariborz (Skip) Tavakkolian" <skipt@real.com>]

[-- Attachment #1: Type: text/plain, Size: 1174 bytes --]

I've attached my cheesy C version of display.bas that is in the package.
You can use it view the faces. It uses libXg that came with 9libs-1.0,
so the graphics model is understandable by a human being.

I've got popi running on Plan9 also. I guess I should have ask
the more direct question:

Why isn't a tool like pico available now? not chic anymore?

At 10:14 AM 7/18/2002 -0400, anothy@cosym.net wrote:
>just out of curiosity, i grabbed the popi stuff from holzmann's
>page and gave it a shot. popi, the portable pico, popi, compiles
>fine out of the box, although it runs into the buffered IO issue
>common to most unix command line programs on Plan 9. i've not
>checked to see that it does sensable things with images, though,
>mainly because i don't know what to do with popi's output. 
>
>the compiled version of pico available from holzmann's page
>doesn't compile. i put no effort into figuring out why. the notes
>on holzmann's page are not encouraging in this regard.
>
>i was not able to pull the version of pico described in Rakitzis'
>message, so it's untested.
>
>anyone got anything to deal with pico (v10 picfile(5)) images?
>ã‚¢

[-- Attachment #2: disp.c --]
[-- Type: text/plain, Size: 1014 bytes --]

#include	<u.h>
#include	<libc.h>
#include	<libg.h>

#define res 8

int threshold[res][res] = {
	{ 0,128,32,160,8,136,40,168}, 
	{ 192,64,224,96,200,72,232,104 },
	{ 48,176,16,144,56,184,24,152 },
	{ 240,112,208,80,248,120,216,88 },
	{ 12,140,44,172,4,132,36,164 },
	{ 204,76,236,108,196,68,228,100 },
	{ 60,188,28,156,52,180,20,148 },
	{ 252,124,220,92,244,116,212,84 }
};

main(int ac, char **av)
{
	FILE *infile;
	Point p;
	Event ev;
	register int x, y;

	if (ac < 2) {
		fprintf(stderr, "usage: %s filename\n", *av);
		exit(1);
	}
	if (! (infile = fopen(*(av+1), "r"))) {
		fprintf(stderr, "can't open %s\n", *(av+1));
		exit(1);
	}
	ac--;
	av++;

	xtbinit(0,0, &ac, av, 0);
	einit(Ekeyboard|Emouse);

	for (x = 0; x < 248; x++)
		for (y = 0; y < 248; y++) {
			int c;
			p = add(screen.r.min, Pt(y,x));
			if ((c = getc(infile)) == EOF)
				break;
			if (c <= threshold[x%res][y%res])
				point(&screen, p, ~0, S);
		}

	while(event(&ev) != Ekeyboard)
		continue;

	exit(0);
}

void
ereshaped(Rectangle r)
{
}