Procedure CohenSutherland(X1,Y1,X2,Y2)
var kj,kf,kb,ka:integer; {a keperny‹: JobbFels‹(KJ, KF) ‚s BalAls˘(KB,KA)}
var c1,c2:integer;
{logvagy = Logikai VAGY bitenk‚nt * loges = logikai S bitenk‚nt}

  Procedure felsoszv;
  begin  X1:=X1+(X2-X1)*(KF-Y1)/(Y2-Y1); Y1:=KF; end;

  Procedure Alsoszv;
  begin  X1:=X1+(X2-X1)*(KA-Y1)/(Y2-Y1); Y1:=KA; end;

  Procedure Jobbszv;
  begin  X1:=KJ; Y1:=Y1+(Y2-Y1)*(KJ-X1)/(X2-X1); end;

  Procedure Balszv;
  begin  X1:=KB; Y1:=Y1+(Y2-Y1)*(KB-X1)/(X2-X1); end;

  Procedure vegpontkod_eloallit(c1,c2);
  begin
    C1:=0; C2:=0;
    if Y1>KF then C1:=logvagy(C1,1); if Y2>KF then C2:=logvagy(C2,1);
    if X1>KJ then C1:=logvagy(C1,2); if X2>KJ then C2:=logvagy(C2,2);
    if Y1<KA then C1:=logvagy(C1,4); if Y2<KA then C2:=logvagy(C2,4);
    if X1<KB then C1:=logvagy(C1,8); if X2<KB then C2:=logvagy(C2,8);
end;

begin
  vegpontkod_eloallit(c1,c2)
  While not ( ((c1=0) and (c2=0)) or (loges(c1,c2)=0)  do begin
    if c1=0 then  Csere(C1,X1,Y1,C2,X2,Y2);
    if loges(c1,1)=1 then Felsoszv {vagas a felso szelen};
    if loges(c1,2)=2 then Jobbszv;
    if loges(c1,4)=1 then Alsoszv;
    if loges(c1,8)=1 then Balszv;
   vegpontkod_eloallit(c1,c2);
   end;
  if ((c1=0) and (c2=0)) then szakaszrajzol(x1,y1,x2,y2);
end;