#!/usr/bin/perl -w

# Stdin is a Fig file.  
# http://www.xfig.org/userman/fig-format.html

# Stdout is a Fig file.

# This program makes the pen color and fill color white.  
# This is useful when including figures in presentation slides 
# with a dark background.  You get white on dark, which is legible.

use strict;

while(<>) {
	chomp;
	my @F = split(/\s+/, $_);
	if ($F[0] eq "") {
		print "$_\n";
		next;
	}
		
	if ($F[0] eq "1") {
		$F[4] = "7";
		$F[5] = "7";
	}
	if ($F[0] eq "2") {
		$F[4] = "7";
		$F[5] = "7";
	}
	if ($F[0] eq "3") {
		$F[4] = "7";
		$F[5] = "7";
	}
	if ($F[0] eq "4") {
		$F[2] = "7";
	}
	if ($F[0] eq "5") {
		$F[4] = "7";
		$F[5] = "7";
	}
	my $out = join(" ", @F);
	print "$out\n";
}