Курсовая работа: Управление элементами поверхности

begin

for i:= -11 to 11 do

for j:=-11 to 11 do

begin

height [i, j]:=-1;

end;

end;

procedure changemas;

var i, j:integer;

begin

i:=Trunc(wx);

j:=Trunc(wz);

height [i, j]:=vis;

end;

procedure Draw;

var i, j:integer;

x, z:integer;

zoom:integer;

begin

glColor3f (1,0,0);

glPointSize (5);

glBegin (GL_POINTS);

glVertex3f (wx, wy, wz);

glEnd;

zoom:=1;

glColor3f (0. 7,1. 0,0.7);

for i:=-10 to 10 do

for j:=-10 to 10 do

begin