path_storage

type path_storage = object(vertex_source)

  m_total_vertices: unsigned;

  m_total_blocks: unsigned;

  m_max_blocks: unsigned;

  m_coord_blocks: double_ptr_ptr;

  m_cmd_blocks: int8u_ptr_ptr;

  m_iterator: unsigned;

  constructor Construct();

  destructor Destruct; virtual;

  procedure remove_all; virtual;

  function last_vertex();

  function prev_vertex();

  function last_x;

  function last_y;

  procedure rel_to_abs();

  procedure move_to();

  procedure move_rel();

  procedure line_to();

  procedure line_rel();

  procedure hline_to();

  procedure hline_rel();

  procedure vline_to();

  procedure vline_rel();

  procedure arc_to();

  procedure arc_rel();

  procedure curve3();

  procedure curve3_rel();

  procedure curve4();

  procedure curve4_rel();

  procedure end_poly();

  procedure close_polygon();

  procedure add_poly();

  procedure add_path();

  function start_new_path;

  procedure copy_from();

  function total_vertices;

  function vertex_();

  function command();

  procedure rewind(); virtual;

  function vertex(); virtual;

  function arrange_polygon_orientation();

  function arrange_orientations();

  procedure arrange_orientations_all_paths();

  procedure flip_x();

  procedure flip_y();

  procedure add_vertex(); virtual;

  procedure modify_vertex();

  procedure modify_command();

  procedure transform();

  procedure transform_all_paths();

  procedure allocate_block();

  function storage_ptrs();

  function perceive_polygon_orientation();

  procedure invert_polygon();

  procedure concat_path();

end;

path_storage

vertex_source

TObject