renderer_primitives

type renderer_primitives = object

  m_ren: renderer_base_ptr;

  m_fill_color: aggclr;

  m_line_color: aggclr;

  m_curr_x: int;

  m_curr_y: int;

  constructor Construct();

  function coord();

  procedure fill_color_();

  procedure line_color_();

  function _fill_color;

  function _line_color;

  procedure rectangle();

  procedure solid_rectangle();

  procedure outlined_rectangle();

  procedure ellipse();

  procedure solid_ellipse();

  procedure outlined_ellipse();

  procedure line();

  procedure move_to();

  procedure line_to();

  function ren;

end;

renderer_primitives

TObject