[Ming-dev] SWFdrawSizedGlyph missing in perl extension

[Ian B. <ian...@au...>]

Hi,

Disclaimer: This is my first post to the list, and my first couple of 
days with ming, using the perl extension.

and now that we've got past that...

I have been trying to draw a glyph, using drawGlyph, and found that the 
output was absolutely huge.. as big as the viewport I think. I was able 
to use setScale to reduce the entire thing, but I didn't really want to 
have everything else looking thin and sticky.

Searching the internet, I found the PHP extension also provides a 
drawSizedGlyph function, which allows an additional parameter, int size, 
however this function is not included in the perl extension.

I have (quite possibly kludged) this by adding the following to 
perl_ext/Shape.xs:

void
SWFShape_drawSizedGlyph(shape, font, c, size)
       SWF::Shape shape
       SWF::Font font
       int c
       int size
       CODE:
       SWFShape_drawSizedGlyph(shape,font, c, size);



I have absolutely no idea if that is completely correct, or if the 
function is deliberately missing, but it works, and does what I want.