Standard procedure prototype to draw a single horizontal line
Source position: graphh.inc line 506
type hlineproc = procedure(
x: SmallInt;
x2: SmallInt;
y: SmallInt
);