Standard procedure prototype to draw a patterned line
Source position: graphh.inc line 514
type patternlineproc = procedure(
x1: SmallInt;
x2: SmallInt;
y: SmallInt
);