#!/afs/athena/contrib/perl/perl

do "./xbase.perl";

&xlib'x_open_display($ENV{'DISPLAY'});
print("Now in a few seconds I'm going to mess with the root window.\n");
&xlib'x_clear_area($xlib'root_window, 0, 0, 0, 100, 100);
$mygc = &xlib'x_create_gc($xlib'root_window,$xlib'defines{'GCForeground'} 
| $xlib'defines{'GCBackground'}, $xlib'root_black, $xlib'root_white);
print("Black: $xlib'root_black,   White:  $xlib'root_white\n");
print &xlib'x_line($xlib'root_window, $mygc, 0, 10, 10, 100, 100), "\n";
print &xlib'x_beep(100), "\n";

$mygc = &xlib'x_create_gc($xlib'root_window,$xlib'defines{'GCForeground'} 
| $xlib'defines{'GCBackground'}, 5, $xlib'root_white);
print &xlib'x_line($xlib'root_window, $mygc, 0, 50, 10, 200, 100), "\n";