#!/usr/athena/bin/perl -w
$font_h = "/afs/athena/system/x11r4/include/X11/cursorfont.h";
open(CURSORS,$font_h) || die "Couldn't open $font_h: $!\n";
while (<CURSORS>)
{
	next unless ($name) = /^#define XC_(\w+) \d+$/;
	next if $name eq "num_glyphs";
	print "$name\n";
	system("xsetroot -cursor_name $name");
	sleep 3;
}
system("xsetroot -cursor_name X_cursor");