Standard pixel drawing routine prototype
Source position: graphh.inc line 528
type putpixelproc = procedure(
X: SmallInt;
Y: SmallInt;
Color: ColorType
);