Informatika gyűjtemény

grafika.pas (Vissza)

Az alábbi letöltési lehetőségek közül választhatsz: (segítség)

	Karakterkódolás:
	Sortörés:

Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: utf-8
Méret: 701 byte

program grafika;
uses graph;
const
        {világ}
        vb = -2;
        vj = 2;
        va = -2;
        vf = 2;

        {kép}
        kb = 50;
        ka = 650;
        kf = 50;
        kj = 650;

function vkx(x:double):integer;
var lambda : double;
begin
    lambda := (x-vb)/(vj-vb);
    vkx := round((1-lambda)*kb+lambda*kj);
end;

function vky(y:double):integer;
var lambda : double;
begin
    lambda := (y-va)/(vf-va);
    vky := round((1-lambda)*ka+lambda*kf);
end;

procedure vonal(x1,y1,x2,y2:double);
var kx1,kx2,ky1,ky2 : integer;
begin
    kx1 := vkx(x1); kx2 := vkx(x2);
    ky1 := vky(y1); ky2 := vky(y2);
    line(kx1,ky1,kx2,ky2);
end;

var gd,gm : integer;
BEGIN
    detectgraph(gd,gm);
    initgraph(gd,gm,'');

    vonal(-2,-2,2,2);

    readln;
    closegraph;
END.

(Vissza)