Adding procedure fill_rectangle