vcgen_dash

type vcgen_dash = object(vertex_source)

  m_dashes: array [0..max_dashes-1] of Double;

  m_total_dash_len: Double;

  m_num_dashes: unsigned;

  m_dash_start: Double;

  m_shorten: Double;

  m_curr_dash_start: Double;

  m_curr_dash: unsigned;

  m_curr_rest: Double;

  m_v1: vertex_dist_ptr;

  m_v2: vertex_dist_ptr;

  m_src_vertices: vertex_sequence;

  m_closed: unsigned;

  m_status: status_e;

  m_src_vertex: unsigned;

  constructor Construct;

  destructor Destruct; virtual;

  procedure remove_all_dashes;

  procedure add_dash();

  procedure dash_start();

  procedure shorten_();

  function _shorten;

  procedure remove_all; virtual;

  procedure add_vertex(); virtual;

  procedure rewind(); virtual;

  function vertex(); virtual;

  procedure calc_dash_start();

end;

vcgen_dash

vertex_source

TObject