#!/usr/bin/perl
use lib '.';
require "pagelib.pl";
header();
head();

$dir = "images/pre_roadshow";
if(!opendir(DIR,$dir)) {
    print "Internal error locating images!<br>\n";
}
@files = readdir(DIR);
foreach(@files) { push @images,$1 if(/^(\w+\d+)\.jpg/); }
%used = ();
foreach(@images) {
    if(/^(\w+)_\d+/) {
	push @{$cats{$1}},$_;
    }
}
print qq`
<br><br>
<B><font size=+1>Pre-Road Show in Enfield</font></B><br>
<br>
We were recently (June 2003) asked to attend the "Pre" Road Show for 2003.
This served as sort of a 'test run' of the up and coming summer road show that
Lego is planning for 20 US cities this summer. Being closeby, they asked my
local LUG, <a href="http://www.nelug.org/">NELUG</a>, to see if we could add
a display to the event, hopefully giving some additional inspiration to
participants. (Also check out Dan & Jenn Boger's pictures:
<a href="http://peeron.com/pics/nelug/RoadShowDemo-20030620/">Day 1</a>
<a href="http://peeron.com/pics/nelug/RoadShowDemo-20030621/">Day 2</a>, and
<a href="http://www.brickshelf.com/cgi-bin/gallery.cgi?f=47338">Travis Kunce's pictures</a>)`;

show_images(@{$cats{"show_all"}},
	    );
print qq`Unfortunately, my camera was apparently doing something wacky with
the settings. I'll see if I can somehow Photoshop 'em into looking more decent.
But anyway, here's some of the things we had at our little table:`;
show_images(@{$cats{"table_mocs"}},
	    @{$cats{"table_carnival"}});
print qq`Perhaps my pride of the show was this medieval layout (with a few
additions from Joe Comeau). Having never photographed it before, I went a
little camera-happy with this moc:`;
show_images(@{$cats{"table_medieval"}});
print qq`The rest of the show was pretty cool-- it looks like the idea of the
show is simply to get kids to try and build, build, build. There were several
areas set up for them to play with assortments of bricks, mostly from the
new Designer sets; but also from Clickits & Duplo as well.`;
show_images(@{$cats{"show_construction"}},
	    @{$cats{"show_clickits"}},
	    @{$cats{"show_duplo"}},
	    );
print qq`They also had an area to show off what kids had made. It started out
as a blank slate cityscape, and gradually filled up with cute looking MOCs.`;
show_images(@{$cats{"show_display"}});
print qq`Alongside our tent was this-- a collection of "master builder"
creations, all made from the designer sets. Some (I believe) were models
featured in the sets, but some were 'brand new'. What's more, one of the
"master builders" themselves was approving and critiquing creations.`;
show_images(@{$cats{"show_models"}});
print qq`Although supposedly not <i>part</i> of the show, the Bionicle van
also stopped by with the new assortment of Bionicles. I have to admit even
though I was never impressed with the previous line of Bionicles, I'm
intruegued with some of the newer designs.`;
show_images(@{$cats{"show_bionicle"}});

foot();

sub show_images {
    my(@pics) = @_;
    my($i) = 0;
    print "<table width=100\%><tr>\n";
    foreach(@pics) {
	next if($used{$_});
	$used{$_} = 1;
	if(!($i++%4)) {
	    print "</tr>\n<tr>\n";
	}
	print "<td align=center><a href=\"$dir/$_.jpg\"><img src=\"$dir/$_\_th.jpg\" border=0></a></td>\n";
    }
    print "</tr></table>\n";
}