Source position: gl2d.pp line 51
procedure glBox(
x1: cint;
y1: cint;
x2: cint;
y2: cint;
color: cint
);