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