void DOC_MetricInfo(int c, const pGEcontext gc, double* ascent,
double* descent, double* width, pDevDesc dev) {
DOCDesc *pd = (DOCDesc *) dev->deviceSpecific;
updateFontInfo(dev, gc);
int fontface = getFontface(gc->fontface);
//if( c < 0 ) c = -c;//"fig-leaf" utf8 issue
*ascent = pd->fi->ascent[fontface]*gc->lineheight;
*descent = pd->fi->descent[fontface]*gc->lineheight;
*width = pd->fi->widths[(fontface * 256) + c];
}
double DOC_StrWidth(const char *str, const pGEcontext gc, pDevDesc dev) {
double sum;
DOCDesc *pd = (DOCDesc *) dev->deviceSpecific;
updateFontInfo(dev, gc);
int fontface = getFontface(gc->fontface);
const unsigned char *c = (const unsigned char*) str;
int unicode_dec;
sum = 0.0;
while (*c) {
unicode_dec = *c;
if( unicode_dec > 255 ) unicode_dec = 77;
if( unicode_dec < 0 ) unicode_dec = 77;
sum += pd->fi->widths[(fontface * 256) + unicode_dec];
c++;
}
return sum;
}
static void PPTX_Text(double x, double y, const char *str, double rot,
double hadj, const pGEcontext gc, pDevDesc dev) {
DOCDesc *pd = (DOCDesc *) dev->deviceSpecific;
int idx = get_and_increment_idx(dev);
double w = PPTX_StrWidth(str, gc, dev);
w = getStrWidth( str, w);
double h = pd->fi->height[getFontface(gc->fontface)];
double fs = getFontSize(gc->cex, gc->ps );
if( h < 1.0 ) return;
double corrected_offx = translate_rotate_x(x, y, rot, h, w, hadj) ;
double corrected_offy = translate_rotate_y(x, y, rot, h, w, hadj) ;
fputs(pptx_elt_tag_start, pd->dmlFilePointer );
if( pd->editable < 1 )
fprintf(pd->dmlFilePointer, "<p:nvSpPr><p:cNvPr id=\"%d\" name=\"Text %d\" />%s</p:nvSpPr>", idx, idx, pptx_lock_properties);
else fprintf(pd->dmlFilePointer, "<p:nvSpPr><p:cNvPr id=\"%d\" name=\"Text %d\" />%s</p:nvSpPr>", idx, idx, pptx_unlock_properties);
fputs("<p:spPr>", pd->dmlFilePointer );
if( fabs( rot ) < 1 )
fputs("<a:xfrm>", pd->dmlFilePointer);
else fprintf(pd->dmlFilePointer, "<a:xfrm rot=\"%.0f\">", (-rot) * 60000);
fprintf(pd->dmlFilePointer, "<a:off x=\"%.0f\" y=\"%.0f\"/>", p2e_(pd->offx + corrected_offx), p2e_(pd->offy + corrected_offy));
fprintf(pd->dmlFilePointer, "<a:ext cx=\"%.0f\" cy=\"%.0f\"/>", p2e_(w), p2e_(h));
fputs("</a:xfrm>", pd->dmlFilePointer );
fputs("<a:prstGeom prst=\"rect\"><a:avLst /></a:prstGeom>", pd->dmlFilePointer );
fputs("<a:noFill />", pd->dmlFilePointer );
fputs("</p:spPr>", pd->dmlFilePointer );
fputs("<p:txBody>", pd->dmlFilePointer );
fputs("<a:bodyPr lIns=\"0\" tIns=\"0\" rIns=\"0\" bIns=\"0\" anchor=\"b\">", pd->dmlFilePointer );
//fputs("<a:spAutoFit />", pd->dmlFilePointer );
fputs("</a:bodyPr><a:lstStyle /><a:p>", pd->dmlFilePointer );
fputs("<a:pPr", pd->dmlFilePointer );
if (hadj < 0.25)
fputs(" algn=\"l\"", pd->dmlFilePointer );
else if (hadj < 0.75)
fputs(" algn=\"ctr\"", pd->dmlFilePointer );
else
fputs(" algn=\"r\"", pd->dmlFilePointer );
fputs(" marL=\"0\" marR=\"0\" indent=\"0\" >", pd->dmlFilePointer );
fprintf(pd->dmlFilePointer, "<a:lnSpc><a:spcPts val=\"%.0f\"/></a:lnSpc>", fs*100);
fputs("<a:spcBef><a:spcPts val=\"0\"/></a:spcBef>", pd->dmlFilePointer );
fputs("<a:spcAft><a:spcPts val=\"0\"/></a:spcAft>", pd->dmlFilePointer );
fputs("</a:pPr>", pd->dmlFilePointer );
fputs("<a:r>", pd->dmlFilePointer );
fprintf(pd->dmlFilePointer, "<a:rPr sz=\"%.0f\"", fs*100);
if (gc->fontface == 2) {
fputs(" b=\"1\"", pd->dmlFilePointer );
} else if (gc->fontface == 3) {
fputs(" i=\"1\"", pd->dmlFilePointer );
} else if (gc->fontface == 4) {
fputs(" b=\"1\" i=\"1\"", pd->dmlFilePointer );
}
fputs(">", pd->dmlFilePointer );
DML_SetFontColor(dev, gc);
fprintf(pd->dmlFilePointer,
"<a:latin typeface=\"%s\"/><a:cs typeface=\"%s\"/>",
pd->fi->fontname, pd->fi->fontname);
fputs("</a:rPr>", pd->dmlFilePointer );
fputs("<a:t>", pd->dmlFilePointer );
dml_text_native(str, pd);
fputs("</a:t></a:r></a:p></p:txBody>", pd->dmlFilePointer );
fputs(pptx_elt_tag_end, pd->dmlFilePointer );
fflush(pd->dmlFilePointer);
}
