$im->filledRectangle($X1,$Y1-20,$X2,$Y2,\$genecolor);