Fig the bug that sh_stext can not show text with right color. It is caused by sh_stext draw text directly into surface. It should create a path instead of draw directly, since rdman would draw the path with right color, stroke, and opacity.

divert([-1])

define([_arg1], [$1])

define([_foreach], [ifelse([$2], [()], [],
[define([$1], _arg1$2)$3[]_foreach([$1], (shift$2), [$3])])])

define([foreach], [pushdef([$1])_foreach($@)popdef([$1])])

divert[]dnl