Logo Search packages:      
Sourcecode: lcdf-typetools version File versions

t1csgen.cc

// -*- related-file-name: "../include/efont/t1csgen.hh" -*-

/* t1csgen.{cc,hh} -- Type 1 charstring generation
 *
 * Copyright (c) 1998-2004 Eddie Kohler
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version. This program is distributed in the hope that it will be
 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
 * Public License for more details.
 */

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <efont/t1csgen.hh>
#include <efont/t1font.hh>
#include <efont/t1item.hh>
#include <math.h>
namespace Efont {

static const char * const command_desc[] = {
    0, 0, 0, 0, "y",
    "xy", "x", "y", "xyxyxy", 0,

    0, 0, 0, 0, 0,
    0, 0, 0, 0, 0,

    0, "xy", "x", 0, 0,
    0, 0, 0, 0, 0,

    "yxyx", "xxyy", 0, 0, 0,
    0, 0, 0, 0, 0,

    0, 0, 0, 0, 0,
    0, 0, 0, 0, 0,
  
    0, 0, 0, 0, 0,
    0, 0, 0, 0, 0,
  
    0, 0, 0, 0, 0,
    "XY", 0, 0, 0, 0
};

Type1CharstringGen::Type1CharstringGen(int precision)
{
    if (precision >= 1 && precision <= 107)
      _precision = precision;
    else
      _precision = 5;
    _f_precision = _precision;
}

void
Type1CharstringGen::clear()
{
    _ncs.clear();
    _true = _false = Point(0, 0);
    _state = S_INITIAL;
}


void
Type1CharstringGen::gen_number(double float_val, int kind)
{
    switch (kind) {
      case 'x':
      _true.x += float_val;
      float_val = _true.x - _false.x;
      break;
      case 'y':
      _true.y += float_val;
      float_val = _true.y - _false.y;
      break;
      case 'X':
      _true.x = float_val;
      break;
      case 'Y':
      _true.y = float_val;
      break;
    }

    // 30.Jul.2003 - Avoid rounding differences between platforms with the
    // extra 0.00001.
    int big_val = (int)floor(float_val * _f_precision + 0.50001);
    int frac = big_val % _precision;
    int val = (frac == 0 ? big_val / _precision : big_val);

    if (val >= -107 && val <= 107)
      _ncs.append((char)(val + 139));

    else if (val >= -1131 && val <= 1131) {
      int base = val < 0 ? 251 : 247;
      if (val < 0) val = -val;
      val -= 108;
      int w = val % 256;
      val = (val - w) / 256;
      _ncs.append((char)(val + base));
      _ncs.append((char)w);

    } else {
      _ncs.append('\377');
      long l = val;
      _ncs.append((char)((l >> 24) & 0xFF));
      _ncs.append((char)((l >> 16) & 0xFF));
      _ncs.append((char)((l >> 8) & 0xFF));
      _ncs.append((char)((l >> 0) & 0xFF));
    }

    if (frac != 0) {
      _ncs.append((char)(_precision + 139));
      _ncs.append((char)Charstring::cEscape);
      _ncs.append((char)(Charstring::cDiv - Charstring::cEscapeDelta));
    }

    float_val = big_val / _f_precision;
    switch (kind) {
      case 'x':
      _false.x += float_val;
      break;
      case 'y':
      _false.y += float_val;
      break;
      case 'X':
      _false.x = float_val;
      break;
      case 'Y':
      _false.y = float_val;
      break;
    }
}


void
Type1CharstringGen::gen_command(int command)
{
    if (command >= Charstring::cEscapeDelta) {
      _ncs.append((char)Charstring::cEscape);
      _ncs.append((char)(command - Charstring::cEscapeDelta));
      if (command != Charstring::cSbw)
          _state = S_GEN;
    } else {
      _ncs.append((char)command);
      if (command > Charstring::cVmoveto && command != Charstring::cHsbw)
          _state = S_GEN;
    }
}

void
Type1CharstringGen::gen_stack(CharstringInterp &interp, int for_cmd)
{
    const char *str = ((unsigned)for_cmd <= Charstring::cLastCommand ? command_desc[for_cmd] : (const char *)0);
    int i;
    for (i = 0; str && *str && i < interp.size(); i++, str++)
      gen_number(interp.at(i), *str);
    for (; i < interp.size(); i++)
      gen_number(interp.at(i));
    interp.clear();
}

void
Type1CharstringGen::gen_moveto(const Point &p, bool closepath)
{
    // make sure we generate some moveto on the first command
    
    double dx = p.x - _false.x;
    double dy = p.y - _false.y;
    int big_dx = (int)floor(dx * _f_precision + 0.50001);
    int big_dy = (int)floor(dy * _f_precision + 0.50001);

    if (big_dx == 0 && big_dy == 0 && _state != S_INITIAL)
      /* do nothing */;
    else {
      if (closepath)
          gen_command(Charstring::cClosepath);
      if (big_dy == 0) {
          gen_number(dx, 'x');
          gen_command(Charstring::cHmoveto);
      } else if (big_dx == 0) {
          gen_number(dy, 'y');
          gen_command(Charstring::cVmoveto);
      } else {
          gen_number(dx, 'x');
          gen_number(dy, 'y');
          gen_command(Charstring::cRmoveto);
      }
    }

    _true.x = p.x;
    _true.y = p.y;
}

void
Type1CharstringGen::append_charstring(const String &s)
{
    _ncs << s;
}

Type1Charstring *
Type1CharstringGen::output()
{
    return new Type1Charstring(take_string());
}

void
Type1CharstringGen::output(Type1Charstring &cs)
{
    cs.assign(take_string());
}

String
Type1CharstringGen::callsubr_string(int subr)
{
    Type1CharstringGen csg;
    csg.gen_number(subr);
    csg.gen_command(Charstring::cCallsubr);
    return csg._ncs.take_string();
}


/*****
 * Type1CharstringGenInterp
 **/

Type1CharstringGenInterp::Type1CharstringGenInterp(int precision)
    : _csgen(precision), _hint_csgen(precision),
      _direct_hr(false), _hr_storage(0),
      _max_flex_height(0), _bad_flex(false)
{
}

void
Type1CharstringGenInterp::set_hint_replacement_storage(Type1Font *font)
{
    _hr_storage = font;
    _hr_firstsubr = font->nsubrs();
}


// generating charstring commands

inline void
Type1CharstringGenInterp::gen_number(double n, int what)
{
    _csgen.gen_number(n, what);
}

inline void
Type1CharstringGenInterp::gen_command(int what)
{
    _csgen.gen_command(what);
}

void
Type1CharstringGenInterp::gen_sbw(bool hints_follow)
{
    if (!hints_follow && nhints())
      act_hintmask(CS::cHintmask, 0, nhints());
    else if (left_sidebearing().y == 0 && _width.y == 0) {
      gen_number(left_sidebearing().x, 'X');
      gen_number(_width.x);
      gen_command(CS::cHsbw);
    } else {
      gen_number(left_sidebearing().x, 'X');
      gen_number(left_sidebearing().y, 'Y');
      gen_number(_width.x);
      gen_number(_width.y);
      gen_command(CS::cSbw);
    }
    _state = S_CLOSED;
}

void
Type1CharstringGenInterp::act_width(int, const Point &p)
{
    _width = p;
}

void
Type1CharstringGenInterp::act_seac(int, double asb, double adx, double ady, int bchar, int achar)
{
    if (_state == S_INITIAL)
      gen_sbw(false);
    gen_number(asb);
    gen_number(adx);
    gen_number(ady);
    gen_number(bchar);
    gen_number(achar);
    gen_command(CS::cSeac);
    _state = S_SEAC;
}

void
Type1CharstringGenInterp::swap_stem_hints()
{
    _stem_pos.clear();
    _stem_width.clear();
    _stem_hstem.clear();
    _in_hr = true;
}

void
Type1CharstringGenInterp::act_hstem(int, double pos, double width)
{
    if (_state != S_INITIAL && !_in_hr)
      swap_stem_hints();
    _stem_pos.push_back(pos);
    _stem_width.push_back(width);
    _stem_hstem.push_back(1);
}

void
Type1CharstringGenInterp::act_vstem(int, double pos, double width)
{
    if (_state != S_INITIAL && !_in_hr)
      swap_stem_hints();
    _stem_pos.push_back(pos);
    _stem_width.push_back(width);
    _stem_hstem.push_back(0);
}

String
Type1CharstringGenInterp::gen_hints(const unsigned char *data, int nhints) const
{
    _hint_csgen.clear();
    unsigned char mask = 0x80;
    for (int i = 0; i < nhints; i++) {
      if (*data & mask) {
          double offset = (_stem_hstem[i] ? left_sidebearing().y : left_sidebearing().x);
          _hint_csgen.gen_number(_stem_pos[i] - offset);
          _hint_csgen.gen_number(_stem_width[i]);
          _hint_csgen.gen_command(_stem_hstem[i] ? CS::cHstem : CS::cVstem);
      }
      if ((mask >>= 1) == 0)
          data++, mask = 0x80;
    }
    return _hint_csgen.take_string();
}

void
Type1CharstringGenInterp::act_hintmask(int cmd, const unsigned char *data, int nhints)
{
    if (cmd == CS::cCntrmask || nhints > Type1CharstringGenInterp::nhints())
      return;
    
    String data_holder;
    if (!data) {
      data_holder = String::fill_string('\377', ((nhints - 1) >> 3) + 1);
      data = data_holder.udata();
    }

    String hints = gen_hints(data, nhints);
    _in_hr = false;
    
    if (_state == S_INITIAL || _direct_hr) {
      _last_hints = hints;
      if (_state == S_INITIAL)
          gen_sbw(true);
      _csgen.append_charstring(hints);
    } else if (_hr_storage && hints != _last_hints) {
      _last_hints = hints;
      hints += (char)(CS::cReturn);

      int subrno = -1, nsubrs = _hr_storage->nsubrs();
      for (int i = _hr_firstsubr; i < nsubrs; i++)
          if (Type1Subr *s = _hr_storage->subr_x(i))
            if (s->t1cs() == hints) {
                subrno = i;
                break;
            }
      
      if (subrno < 0 && _hr_storage->set_subr(nsubrs, Type1Charstring(hints)))
          subrno = nsubrs;

      if (subrno >= 0) {
          _csgen.gen_number(subrno);
          _csgen.gen_number(4);
          _csgen.gen_command(CS::cCallsubr);
      }
    }
}

void
Type1CharstringGenInterp::act_line(int cmd, const Point &a, const Point &b)
{
    if (_state == S_INITIAL)
      gen_sbw(false);
    else if (_in_hr)
      act_hintmask(cmd, 0, nhints());
    _csgen.gen_moveto(a, _state == S_OPEN);
    _state = S_OPEN;
    if (a.x == b.x) {
      gen_number(b.y - a.y, 'y');
      gen_command(CS::cVlineto);
    } else if (a.y == b.y) {
      gen_number(b.x - a.x, 'x');
      gen_command(CS::cHlineto);
    } else {
      gen_number(b.x - a.x, 'x');
      gen_number(b.y - a.y, 'y');
      gen_command(CS::cRlineto);
    }
}

void
Type1CharstringGenInterp::act_curve(int cmd, const Point &a, const Point &b, const Point &c, const Point &d)
{
    if (_state == S_INITIAL)
      gen_sbw(false);
    else if (_in_hr)
      act_hintmask(cmd, 0, nhints());
    _csgen.gen_moveto(a, _state == S_OPEN);
    _state = S_OPEN;
    if (b.y == a.y && d.x == c.x) {
      gen_number(b.x - a.x, 'x');
      gen_number(c.x - b.x, 'x');
      gen_number(c.y - b.y, 'y');
      gen_number(d.y - c.y, 'y');
      gen_command(CS::cHvcurveto);
    } else if (b.x == a.x && d.y == c.y) {
      gen_number(b.y - a.y, 'y');
      gen_number(c.x - a.x, 'x');
      gen_number(c.y - b.y, 'y');
      gen_number(d.x - c.x, 'x');
      gen_command(CS::cVhcurveto);
    } else {
      gen_number(b.x - a.x, 'x');
      gen_number(b.y - a.y, 'y');
      gen_number(c.x - b.x, 'x');
      gen_number(c.y - b.y, 'y');
      gen_number(d.x - c.x, 'x');
      gen_number(d.y - c.y, 'y');
      gen_command(CS::cRrcurveto);
    }
}

void
Type1CharstringGenInterp::act_flex(int cmd, const Point &p0, const Point &p1, const Point &p2, const Point &p3_4, const Point &p5, const Point &p6, const Point &p7, double flex_depth)
{
    if (_state == S_INITIAL)
      gen_sbw(false);
    else if (_in_hr)
      act_hintmask(cmd, 0, nhints());
    _csgen.gen_moveto(p0, _state == S_OPEN);
    _state = S_OPEN;

    // 1. Outer endpoints must have same x (or y) coordinate
    bool v_ok = (p0.x == p7.x);
    bool h_ok = (p0.y == p7.y);
    
    // 2. Join point and its neighboring controls must be at an extreme
    if (v_ok && p2.x == p3_4.x && p3_4.x == p5.x) {
      double distance = fabs(p3_4.x - p0.x);
      int sign = (p3_4.x < p0.x ? -1 : 1);
      if (sign * (p1.x - p0.x) < 0 || sign * (p1.x - p0.x) > distance
          || sign * (p6.x - p0.x) < 0 || sign * (p6.x - p0.x) > distance)
          v_ok = false;
    } else
      v_ok = false;

    if (h_ok && p2.y == p3_4.y && p3_4.y == p5.y) {
      double distance = fabs(p3_4.y - p0.y);
      int sign = (p3_4.y < p0.y ? -1 : 1);
      if (sign * (p1.y - p0.y) < 0 || sign * (p1.y - p0.y) > distance
          || sign * (p6.y - p0.y) < 0 || sign * (p6.y - p0.y) > distance)
          h_ok = false;
    } else
      h_ok = false;

    // 3. Flex height <= 20
    if (v_ok && fabs(p3_4.x - p0.x) > 20)
      v_ok = false;
    if (h_ok && fabs(p3_4.y - p0.y) > 20)
      h_ok = false;

    // generate flex commands
    if (v_ok || h_ok) {
      Point p_reference = (h_ok ? Point(p3_4.x, p0.y) : Point(p0.x, p3_4.y));

      _csgen.gen_number(1);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p_reference, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p1, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p2, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p3_4, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p5, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p6, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_moveto(p7, false);
      _csgen.gen_number(2);
      _csgen.gen_command(CS::cCallsubr);

      _csgen.gen_number(flex_depth);
      _csgen.gen_number(p7.x, 'X');
      _csgen.gen_number(p7.y, 'Y');
      _csgen.gen_number(0);
      _csgen.gen_command(CS::cCallsubr);

      double flex_height = fabs(h_ok ? p3_4.y - p0.y : p3_4.x - p0.x);
      if (flex_height > _max_flex_height)
          _max_flex_height = flex_height;
    } else {
      _bad_flex = true;
      act_curve(cmd, p0, p1, p2, p3_4);
      act_curve(cmd, p3_4, p5, p6, p7);
    }
}

void
Type1CharstringGenInterp::act_closepath(int cmd)
{
    if (_in_hr)
      act_hintmask(cmd, 0, nhints());
    gen_command(CS::cClosepath);
    _state = S_CLOSED;
}

void
Type1CharstringGenInterp::intermediate_output(Type1Charstring &out)
{
    _csgen.output(out);
    _state = S_INITIAL;
    act_hintmask(CS::cEndchar, 0, nhints());
}

void
Type1CharstringGenInterp::run(const CharstringContext &g, Type1Charstring &out)
{
    _width = Point(0, 0);
    _csgen.clear();
    swap_stem_hints();
    _state = S_INITIAL;
    _in_hr = false;
    
    CharstringInterp::interpret(g);
    
    if (_state == S_INITIAL)
      gen_sbw(false);
    else if (_in_hr)
      act_hintmask(CS::cEndchar, 0, nhints());
    if (_state != S_SEAC)
      _csgen.gen_command(CS::cEndchar);
    
    _csgen.output(out);
}

}

Generated by  Doxygen 1.6.0   Back to index