grafika v pascale prosim strasne surne

snake2: lepšie by bolo, keby si namiesto vymazávania celej obrazovky, prekreslil len tú elipsu/kruh čiernou farbou

snake2

chrono napísal:snake2: lepšie by bolo, keby si namiesto vymazávania celej obrazovky, prekreslil len tú elipsu/kruh čiernou farbou

aj tak najlepsi sposob je cez getimage & putimage ale moznoze autorovi to takto bude stacit

host5

hosi preco sa mi na tomto programe co je v prilohe nechce ten stvoruholnik hybat? pls pomozte mi do zajtra to musim mat

Kód: Vybrať všetko

program audi;
uses crt,graph;
var gd,gm,i,a,b:integer;
begin
	initgraph(gd,gm,'c:\tp\bgi');
	a:=50;
	b:=70;
	for i:=1 to 500 do 
	begin
		rectangle(a,b,a+20,b+20);
		a:=a+1;
		b:=b+1;
		delay(500);
	end;
{	repeat until keypressed;}
end.

// chrono: toto tiež nerobí čo si chcel (len som to upravil, aby to niečo robilo) Treba tam pridať ešte vymazávanie toho štvorca.])

host5

chronomam otazku.preco si tam dal a+20 a b+20 ? a este asi to je zle lebo ten obdlznik zanechava za sebou stopu a to by nemal

host5 napísal:chronomam otazku.preco si tam dal a+20 a b+20 ? a este asi to je zle lebo ten obdlznik zanechava za sebou stopu a to by nemal

Ak sa nemýlim (a mýliť sa môžem), parametre tej funkcie rectangle sú (x1, y1, x2, y2). Teda keď je tam (a, b, a+20, b+20) tak sa vykreslí štvorec 20x20 ktorí začína na polohe x:a, y:b.

Kód: Vybrať všetko

for i:=1 to 500 do 
begin 
   setcolor(0);
   rectangle(a,b,a+20,b+20); 
   a:=a+1; 
   b:=b+1; 
   setcolor(15)
   rectangle(a,b,a+20,b+20); 
   delay(500); 
end;

(ale to si len vymýšľam, kedže nemám Pascal [teda Pascal mám, ale mám zapnutý Linux]).

host5

chrono uz to ide ale ide to sikmo dole a ja potrebujem aby to islo v rovnakej vyske z lava doprava.

dalo by sa?

Kód: Vybrať všetko

for i:=1 to 500 do 
begin 
    setcolor(0); 
    rectangle(a,b,a+20,b+20); 
    a:=a+1; 
    setcolor(15) 
    rectangle(a,b,a+20,b+20); 
    delay(500); 
end;

host5

chrono keby som ti poslal trochu dlhsi program s grafikou spravil by si mi to? dal by som ho do prilohy.Vsetko uz mam nakraslene len mi to treba dat do pohybu pls.veeeeeeeeeeeeeeeeeeeeeelmi by si mi helpnut fakt pls pls pls pls pls pls

Ale ja mám zapnutý Linux (takže to čo by som urobil, by nemuselo fungovať)

Ale keď chceš, pošli.

host5

no tak tu je potrebujem aby ta lod naburala do tej skaly a potom aby padla na dno. je to nakraslene len to daj do pohybu pls

host5

chrono mas nieco? pls

Tu to máš:

// chrono: pri tej veľkosti súboru by som sa ani nečudoval, keby po stiahnutí počítač vybuchol