<Basic> Grafika :/

[Kacp Lock]

Witam!

Mam problem z grafiką w Basicu. Szukałem na necie stosownych kursów, ale niczego nie znalazłem.

Otóż chcę zrobić płynne przesuwanie się różnokolorowych linii z góry na dół. Problem tkwi w tym, że jak już odpalam program to najpierw całe pole, po którym linie mają się przemieszczać jest zamazywane jednym kolorem, potem drugim i tak do wyczerpania ustawionych kolorów. Chcę żeby było tak,że naraz przesuwają się np. 3 linie różnego koloru naraz jedna pod drugą i żeby się zapętliły. Daję kod.

 

screen 13
for a = 1 to 256 step 5 'a to kolor linii
for c = 95 to 105 'c to miejsce, po którym mają się przesuwać linie
line (1,c)-(320,c),a
sleep 77
next a
next c