my $color = -1 * $im->colorAllocate (@font_col);