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