static void SCFindEdges(struct charone *ch,WidthInfo *wi) {
RefChar *ref;
SplineChar *sc;
int i;
DBounds bb;
SplineCharQuickConservativeBounds(ch->sc,&bb);
ch->base = rint(bb.miny/wi->decimation);
ch->top = rint(bb.maxy/wi->decimation);
ch->ledge = malloc((ch->top-ch->base+1)*sizeof(short));
ch->redge = malloc((ch->top-ch->base+1)*sizeof(short));
for ( i=0; i<=ch->top-ch->base; ++i )
ch->ledge[i] = ch->redge[i] = NOTREACHED;
SSFindEdges(ch->sc->layers[wi->layer].splines,ch,wi);
for ( ref=ch->sc->layers[wi->layer].refs; ref!=NULL; ref=ref->next )
SSFindEdges(ref->layers[0].splines,ch,wi);
ch->lbearing = ch->rmax = NOTREACHED;
for ( i=0; i<=ch->top-ch->base; ++i ) {
if ( ch->ledge[i]!=NOTREACHED )
if ( ch->lbearing==NOTREACHED || ch->ledge[i]<ch->lbearing )
ch->lbearing = ch->ledge[i];
if ( ch->redge[i]!=NOTREACHED )
if ( ch->rmax==NOTREACHED || ch->redge[i]>ch->rmax )
ch->rmax = ch->redge[i];
}
/* In accented characters find the base letter, compute its dimensions */
/* then figure out its serif zones */
sc = ch->sc;
while ( sc->layers[wi->layer].refs!=NULL ) {
for ( ref=ch->sc->layers[wi->layer].refs; ref!=NULL; ref=ref->next )
if ( ref->sc->unicodeenc!=-1 && isalpha(ref->sc->unicodeenc))
break;
if ( ref==NULL )
break;
sc = ref->sc;
}
SplineCharQuickBounds(ch->sc,&bb);
if ( sc->unicodeenc=='k' ) {
ch->baseserif = 1;
ch->lefttops = 3;
ch->righttops = 2;
} else {
ch->baseserif = ( bb.miny>=0 || -bb.miny<-wi->descent/2 )? 1 : 0;
ch->lefttops = ch->righttops =
( bb.maxy<=wi->xheight || bb.maxy-wi->xheight<wi->caph-bb.maxy )? 2 : 3;
}
}
static void AnchorRefigure(KPData *kpd) {
AnchorPoint *ap1, *ap2;
DBounds bb;
int i;
for ( i=0; i<kpd->kcnt; ++i ) {
struct kerns *k= &kpd->kerns[i];
for ( ap1=k->first->anchor; ap1!=NULL && ap1->anchor!=k->ac; ap1=ap1->next );
for ( ap2=k->second->anchor; ap2!=NULL && ap2->anchor!=k->ac; ap2=ap2->next );
if ( ap1!=NULL && ap2!=NULL ) {
if ( k->r2l ) {
SplineCharQuickBounds(k->second,&bb);
k->newoff = k->second->width-ap1->me.x + ap2->me.x;
} else
k->newoff = -k->first->width+ap1->me.x-ap2->me.x;
k->newyoff = ap1->me.y-ap2->me.y;
}
}
}
static void KPBuildAnchorList(KPData *kpd) {
int i, j, cnt;
AnchorClass *ac;
AnchorPoint *ap1, *ap2, *temp;
SplineFont *sf = kpd->sf;
DBounds bb;
if ( kpd->sc!=NULL ) {
while ( 1 ) {
cnt = 0;
for ( i=0; i<sf->glyphcnt; ++i ) if ( sf->glyphs[i]!=NULL ) {
if ( (ac = AnchorClassMatch(kpd->sc,sf->glyphs[i],kpd->ac,&ap1,&ap2)) ||
(ac = AnchorClassMatch(sf->glyphs[i],kpd->sc,kpd->ac,&ap1,&ap2)) ) {
if ( kpd->kerns!=NULL ) {
struct kerns *k = &kpd->kerns[cnt];
switch ( ap1->type ) {
case at_cexit: case at_basechar: case at_baselig: case at_basemark:
k->first = kpd->sc;
k->second = sf->glyphs[i];
break;
case at_centry: case at_mark:
k->first = sf->glyphs[i];
k->second = kpd->sc;
temp = ap1; ap1=ap2; ap2=temp;
break;
}
CheckLeftRight(k);
if ( k->r2l ) {
SplineCharQuickBounds(k->second,&bb);
k->newoff = k->second->width-ap1->me.x + ap2->me.x;
} else
k->newoff = -k->first->width+ap1->me.x-ap2->me.x;
k->newyoff = ap1->me.y-ap2->me.y;
k->ac = ac;
k->kp = NULL;
}
++cnt;
}
}
if ( kpd->kerns!=NULL )
break;
if ( cnt==0 )
return;
kpd->kerns = galloc((cnt+1)*sizeof(struct kerns));
kpd->kcnt = cnt;
}
} else {
while ( 1 ) {
cnt = 0;
for ( i=0; i<sf->glyphcnt; ++i ) if ( sf->glyphs[i]!=NULL && sf->glyphs[i]->anchor ) {
if ( kpd->ac!=(AnchorClass *) -1 ) {
for ( temp = sf->glyphs[i]->anchor; temp!=NULL && temp->anchor!=kpd->ac; temp=temp->next );
if ( temp==NULL )
continue;
}
for ( j=0; j<sf->glyphcnt; ++j ) if ( sf->glyphs[j]!=NULL ) {
if ( (ac = AnchorClassMatch(sf->glyphs[i],sf->glyphs[j],kpd->ac,&ap1,&ap2)) ) {
if ( kpd->kerns!=NULL ) {
struct kerns *k = &kpd->kerns[cnt];
k->first = sf->glyphs[i];
k->second = sf->glyphs[j];
CheckLeftRight(k);
if ( k->r2l ) {
SplineCharQuickBounds(k->second,&bb);
k->newoff = k->second->width-ap1->me.x + ap2->me.x;
} else
k->newoff = -k->first->width+ap1->me.x-ap2->me.x;
k->newyoff = ap1->me.y-ap2->me.y;
k->ac = ac;
k->kp = NULL;
}
++cnt;
}
}
}
if ( kpd->kerns!=NULL )
break;
if ( cnt==0 )
return;
kpd->kerns = galloc((cnt+1)*sizeof(struct kerns));
kpd->kcnt = cnt;
}
}
KPSortEm(kpd,sb_first);
AnchorRefigure(kpd);
}
void AW_FindFontParameters(WidthInfo *wi) {
DBounds bb;
SplineFont *sf=wi->sf;
unsigned i, j;
int si=-1;
real caph, ds, xh, serifsize, angle, ca, seriflength = 0;
int cnt;
static unichar_t caps[] = { 'A', 'Z', 0x391, 0x3a9, 0x40f, 0x418, 0x41a, 0x42f, 0 };
static unichar_t descent[] = { 'p','q','g','y','j',
0x3c8, 0x3b7, 0x3b3, 0x3b2, 0x3b6, 0x3bc, 0x3be, 0x3c1, 0x3c6,
0x444, 0x443, 0x458, 0x434, 0 };
static unichar_t xheight[] = { 'x','u','v','w','y','z',
0x3b3, 0x3b9, 0x3ba, 0x3bc, 0x3bd, 0x3c0, 0x3c4, 0x3c5, 0x3c7, 0x3c8,
0x432, 0x433, 0x436, 0x438, 0x43a, 0x43d, 0x43f, 0x442, 0x443, 0x445,
0x446, 0x447, 0x448, 0x449, 0 };
static unichar_t easyserif[] = { 'I','B','D','E','F','H','K','L','N','P','R',
0x399, 0x406, 0x392, 0x393, 0x395, 0x397, 0x39a,
0x3a0, 0x3a1, 0x40a, 0x412, 0x413, 0x415, 0x41a, 0x41d, 0x41f,
0x420, 0x428, 0 };
real stemx, testx, y, ytop, ybottom, yorig, topx, bottomx;
caph = 0; cnt = 0;
for ( i=0; caps[i]!='\0' && cnt<5; i+=2 )
for ( j=caps[i]; j<=caps[i+1] && cnt<5; ++j )
if ( (si=SFFindExistingSlot(sf,j,NULL))!=-1 && sf->glyphs[si]!=NULL ) {
SplineCharQuickBounds(sf->glyphs[si],&bb);
caph += bb.maxy;
++cnt;
}
if ( cnt!=0 )
caph /= cnt;
else
caph = sf->ascent;
for ( i=0; descent[i]!='\0'; ++i )
if ( (si=SFFindExistingSlot(sf,descent[i],NULL))!=-1 && sf->glyphs[si]!=NULL )
break;
if ( descent[i]!='\0' ) {
SplineCharQuickBounds(sf->glyphs[si],&bb);
ds = bb.miny;
} else
ds = -sf->descent;
cnt = 0; xh = 0;
for ( i=0; xheight[i]!='\0' && cnt<5; ++i )
if ( (si=SFFindExistingSlot(sf,xheight[i],NULL))!=-1 && sf->glyphs[si]!=NULL ) {
SplineCharQuickBounds(sf->glyphs[si],&bb);
xh += bb.maxy;
++cnt;
}
if ( cnt!=0 )
xh /= cnt;
else
xh = 3*caph/4;
for ( i=0; easyserif[i]!='\0'; ++i )
if ( (si=SFFindExistingSlot(sf,easyserif[i],NULL))!=-1 && sf->glyphs[si]!=NULL )
break;
if ( si!=-1 ) {
topx = SCFindMinXAtY(sf->glyphs[si],wi->layer,2*caph/3);
bottomx = SCFindMinXAtY(sf->glyphs[si],wi->layer,caph/3);
/* Some fonts don't sit on the baseline... */
SplineCharQuickBounds(sf->glyphs[si],&bb);
/* beware of slanted (italic, oblique) fonts */
ytop = caph/2; ybottom=bb.miny;
stemx = SCFindMinXAtY(sf->glyphs[si],wi->layer,ytop);
if ( topx==bottomx ) {
ca = 0;
yorig = 0; /* Irrelevant because we will multiply it by 0, but makes gcc happy */
while ( ytop-ybottom>=.5 ) {
y = (ytop+ybottom)/2;
testx = SCFindMinXAtY(sf->glyphs[si],wi->layer,y);
if ( testx+1>=stemx )
ytop = y;
else
ybottom = y;
}
} else {
angle = atan2(caph/3,topx-bottomx);
ca = cos(angle);
yorig = ytop;
while ( ytop-ybottom>=.5 ) {
y = (ytop+ybottom)/2;
testx = SCFindMinXAtY(sf->glyphs[si],wi->layer,y)+
(yorig-y)*ca;
if ( testx+4>=stemx ) /* the +4 is to counteract rounding */
ytop = y;
else
ybottom = y;
}
}
/* If "I" has a curved stem then it's probably in a script style and */
/* serifs don't really make sense (or not the simplistic ones I deal with) */
if ( ytop<=bb.miny+.5 || SCIsMinXAtYCurved(sf->glyphs[si],wi->layer,caph/2) )
serifsize = 0;
else if ( ytop>caph/4 )
serifsize = /*.06*(sf->ascent+sf->descent)*/ 0;
else
serifsize = ytop-bb.miny;
if ( serifsize!=0 ) {
y = serifsize/4 + bb.miny;
testx = SCFindMinXAtY(sf->glyphs[si],wi->layer,y);
if ( testx==NOTREACHED )
serifsize=0;
else {
testx += (yorig-y)*ca;
seriflength = stemx-testx;
if ( seriflength < (sf->ascent+sf->descent)/200 )
serifsize = 0;
}
}
} else
serifsize = .06*(sf->ascent+sf->descent);
serifsize = rint(serifsize);
if ( seriflength>.1*(sf->ascent+sf->descent) || serifsize<0 ) {
seriflength = 0; /* that's an unreasonable value, we must be wrong */
serifsize = 0;
}
if ( (si=SFFindExistingSlot(sf,'n',"n"))!=-1 && sf->glyphs[si]!=NULL ) {
SplineChar *sc = sf->glyphs[si];
if ( sc->changedsincelasthinted && !sc->manualhints )
SplineCharAutoHint(sc,wi->layer,NULL);
SplineCharQuickBounds(sc,&bb);
if ( sc->vstem!=NULL && sc->vstem->next!=NULL ) {
wi->n_stem_exterior_width = sc->vstem->next->start+sc->vstem->next->width-
sc->vstem->start;
wi->n_stem_interior_width = sc->vstem->next->start-
(sc->vstem->start+sc->vstem->width);
}
if ( wi->n_stem_exterior_width<bb.maxx-bb.minx-3*seriflength ||
wi->n_stem_exterior_width>bb.maxx-bb.minx+seriflength ||
wi->n_stem_interior_width <= 0 ) {
wi->n_stem_exterior_width = bb.maxx-bb.minx - 2*seriflength;
/* guess that the stem width is somewhere around the seriflength and */
/* one quarter of the character width */
wi->n_stem_interior_width = wi->n_stem_exterior_width - seriflength -
wi->n_stem_exterior_width/4;
}
}
if ( ((si=SFFindExistingSlot(sf,'I',"I"))!=-1 && sf->glyphs[si]!=NULL ) ||
((si=SFFindExistingSlot(sf,0x399,"Iota"))!=-1 && sf->glyphs[si]!=NULL ) ||
((si=SFFindExistingSlot(sf,0x406,"afii10055"))!=-1 && sf->glyphs[si]!=NULL ) ) {
SplineChar *sc = sf->glyphs[si];
SplineCharQuickBounds(sc,&bb);
wi->current_I_spacing = sc->width - (bb.maxx-bb.minx);
}
wi->caph = caph;
wi->descent = ds;
wi->xheight = xh;
wi->serifsize = serifsize;
wi->seriflength = seriflength;
wi->decimation = caph<=1?10:caph/60;
if ( serifsize==0 ) {
wi->serifs[0][0] = wi->serifs[0][1] = wi->serifs[1][0] = wi->serifs[1][1] = NOTREACHED;
wi->serifs[2][0] = wi->serifs[2][1] = wi->serifs[3][0] = wi->serifs[3][1] = NOTREACHED;
} else {
wi->serifs[0][0] = rint(ds/wi->decimation);
wi->serifs[0][1] = rint((ds+serifsize)/wi->decimation);
wi->serifs[1][0] = 0;
wi->serifs[1][1] = rint(serifsize/wi->decimation);
wi->serifs[2][0] = rint((xh-serifsize)/wi->decimation);
wi->serifs[2][1] = rint(xh/wi->decimation);
wi->serifs[3][0] = rint((caph-serifsize)/wi->decimation);
wi->serifs[3][1] = rint(caph/wi->decimation);
}
if ( wi->sf==aw_old_sf )
wi->space_guess = aw_old_spaceguess;
else if ( wi->autokern && wi->current_I_spacing )
wi->space_guess = rint(wi->current_I_spacing);
else if ( wi->n_stem_interior_width>0 )
wi->space_guess = rint(wi->n_stem_interior_width);
else if ( caph!=sf->ascent && ds!=-sf->descent )
wi->space_guess = rint(.205*(caph-ds));
else
wi->space_guess = rint(.184*(sf->ascent+sf->descent));
}
