Рисование диагоналей.Модуль Graph

program gpaphic_var2;
 
Uses GraphABC;
 
const
X1=1;
X2=10;
 
var mx,my,x,dx:real;
    x0,y0,i,n:integer;
    s:string;
 
begin
x0:=windowwidth div 2;//начало координат по оси Х
y0:=windowheight div 2;
mx:=(x0-30)/x2;//масштаб по Х
my:=(y0-50)/F(0);//масштаб по Y
end;
 
function Cos(x:real):real;
var
R:real;
begin
R:=cos(x);
end;
 
procedure Line(x1,y1,x2,y2: integer);
begin
SetColor( LightBlack );
Line( 0, 0, 639, 479 );
end;
 
procedure KeyDown(Key: integer);
begin
case key of
VK_F1: Line;
VK_F2: function Cos;
end;
end;
 
OnMouseDown: procedure (x,y,mousebutton: integer);
begin
if Mouse.RightClick then
Clear;
end;
 
procedure main;
begin
KeyDown;
On MouseDown;
OnKeyDown:=KeyDown;
end;
 
begin
main;
end.

Uses GraphABC;
procedure Grafik;
var xn,xk,x,mx,dx:real;
    x0,y0,my,i:integer;
    s:string;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
mx:=(x0-30)/xk;{масштаб по Х}
my:=y0-40;{по У}
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  x:=x+dx; {наращиваем х}
  setpixel(x0+round(x*mx),y0-round(cos(x)*my),clBlue);
 end;
line(0,y0,windowwidth,y0);{оси}
line(x0,0,x0,windowheight);
textout(x0+5,y0+10,'0');
line(x0+round(pi*mx),y0-3,x0+round(pi*mx),y0+3);
textout(x0+round(pi*mx),y0+15,'pi');
line(x0+round(2*pi*mx),y0-3,x0+round(2*pi*mx),y0+3);
textout(x0+round(2*pi*mx),y0+15,'2pi');
line(x0-round(pi*mx),y0-3,x0-round(pi*mx),y0+3);
textout(x0-round(pi*mx),y0+15,'-pi');
line(x0-round(2*pi*mx),y0-3,x0-round(2*pi*mx),y0+3);
textout(x0-round(2*pi*mx),y0+15,'-2pi');
line(x0-3,y0-round(my),x0+3,y0-round(my));
textout(x0-10,y0-round(my)-15,'1');
line(x0-3,y0+round(my),x0+3,y0+round(my));
textout(x0-15,y0+round(my),'-1');
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
{подписи концов осей}
textout(windowwidth-10,y0-20,'X');
textout(x0+10,0, 'Y');
setfontsize(12);
textout(x0-120,30,'F(x)=cos(x)');
end;
procedure KeyDown(key:integer);
begin
case key of
VK_F1: begin
       line(0,0,windowwidth,windowheight);
       line(0,windowheight,windowwidth,0);
      end;
VK_F2: Grafik
end;
end; 
procedure MouseDown(x,y,mb: integer);
begin
  if mb=2 then clearwindow
end;
 
begin
OnMouseDown := MouseDown;
OnKeyDown := KeyDown;
end.