Witam
Mam problem z programem napisałem go tak że gdy kliknę klawisz (strzałkę w dół) to pojawia się linia, i prawie udał mi się taki efekt:
...1o________2o
.....1o_____2o
........1o_2o
.....2o_____1o
..2o_________1o
(wygląda to tak jak by się linia obróciła, taki ala efekt 2d)
Lecz w moim programie wygląda to tak
...._________
...._________
...._________
..____________
w tych pierwszych 3 miejscach linia się zmniejsza ale niestety nie mogę tego zobaczyć bo nie weim jak ustawić setcolor (black); pomoże ktoś ?? wstawie to co do tej pory zrobiłem:
program linia;
uses Graph, crt;
var
k,t,i,o :integer;
znak :char;
BEGIN
clrscr;
K:=Detect;
InitGraph (k,t,'C:\TP\BGI');
znak := readkey;
i:=0;
o:=0;
repeat
delay (300);
if (znak = #0) then begin
end;
setcolor (white);
if (znak = #80) then line (i+300,300,o+400,300);
setcolor (black);
if (znak = #80) then line (i+300,300,o+400,300);
i:=i+10;
o:=o-10;
until keypressed;
readln;
CloseGraph;
end.
Próbowałem już to zrobić chyba na 1000 sposobów i nic :( BŁAGAM O POMOC !! Z góry dziękuję !!