(bind-func print
(lambda (paint:NVGpaint*)
(printf "<NVGpaint:\n xform=|")
(printf "%.3f " (convert (aref (tref paint 0) 0) double))
(printf "%.3f " (convert (aref (tref paint 0) 1) double))
(printf "%.3f " (convert (aref (tref paint 0) 2) double))
(printf "%.3f " (convert (aref (tref paint 0) 3) double))
(printf "%.3f " (convert (aref (tref paint 0) 4) double))
(printf "%.3f|" (convert (aref (tref paint 0) 5) double))
(printf "\n extent=|%.3f %.3f|\n"
(convert (aref (tref paint 1) 0) double)
(convert (aref (tref paint 1) 1) double))
(printf " radius=%.3f\n feather=%.3f\n"
(convert (tref paint 2) double)
(convert (tref paint 3) double))
(printf " innerColor=<NVGcolor: r=%.3f, g=%.3f, b=%.3f, a=%.3f>\n"
(convert (tref (tref paint 4) 0) double)
(convert (tref (tref paint 4) 1) double)
(convert (tref (tref paint 4) 2) double)
(convert (tref (tref paint 4) 3) double))
(printf " outerColor=<NVGcolor: r=%.3f, g=%.3f, b=%.3f, a=%.3f>\n"
(convert (tref (tref paint 5) 0) double)
(convert (tref (tref paint 5) 1) double)
(convert (tref (tref paint 5) 2) double)
(convert (tref (tref paint 5) 3) double))
(printf " image=%d>" (tref paint 6))
void))