drawLine


procedure drawLine(x1, y1, x2, y2: integer);

Draws the line between the point ('x1', 'y1') and the point ('x2', 'y2').

  begin
    drawLine(10, 15, 25, 35);
    repaint;
    delay(1000);
  end.

See also: setColor, repaint