[perl #101682] speed up color filled circle calculations