vpgen_clip_polygon

type vpgen_clip_polygon = object(vertex_source)

  m_clip_box: rect_d;

  m_x1: Double;

  m_y1: Double;

  m_clip_flags: unsigned;

  m_x: array [0..3] of Double;

  m_y: array [0..3] of Double;

  m_num_vertices: unsigned;

  m_vertex: unsigned;

  m_cmd: unsigned;

  constructor Construct;

  procedure clip_box_();

  function _x1;

  function _y1;

  function _x2;

  function _y2;

  function _auto_close;

  function _auto_unclose;

  procedure reset;

  procedure move_to();

  procedure line_to();

  function vertex(); virtual;

  function clipping_flags();

end;

vpgen_clip_polygon

vertex_source

TObject