Source position: unit_biomorphs.pas line 23
procedure PicLine(
var ThisPic: Pic;
x: Integer;
y: Integer;
xnew: Integer;
ynew: Integer;
color: Integer
);