[Ming-dev] perl truetype support

[Axel H. <ax...@3d...>]

Hi,

just updated the perl_ext to support ttf fonts.
Changed the Fonts.xs by inserting an additonal

    else if(strncmp(filename+len-4, ".ttf", 4) == 0 ){
        if (!(f = fopen(filename, "rb"))) {
        fprintf(stderr, "Unable to open ttf file %s\n", filename);
        XSRETURN_UNDEF;
        }
         else{
        RETVAL = loadSWFFontTTF(filename);
        fclose(f);
        }
    }

into SWFFont_new

and it works for me.

for Adding addFont to Movie.xs
and writing the SWFFontChar.xs still need some advice from a perl guru...

Axel