Tak jsem se po case rozhodl ukazat zase neco malo z Basicu. Pokud si chcete vytvaret netypicke podklady, nesmite se bat barev. Vybarvit plochu je jednoduche, je treba ale experimentovat. Udelal jsem maly program, ktery vam otevre oci:
dim as single i,j,k
screen 20,32,,0
j=140
k=30
for i=1 to 1024
line(i,0)-(i,768,rgb(30,k,j)
j+=.15
if j>254 then j=254:k+=.4
next i
sleep
end
Pro lenive prepisovace davam zase odkaz na zkompilovany program (nebojte se ho stahnout a spustit!)
ODKAZ
Vidite, ze prechod uskutecni cyklus - dojede do 255 a pak zacne prechod jine barvy. Hrubost je na radku, kde se pricita promenna J a K, to znamena, ze kdyz napr. date do J vetsi cislo za desetinnou carku, tim driv nabyde modra mezni hodnoty a zacne jiny prechod. No proste zkousejte taky sami!
dim as single i,j,k
screen 20,32,,0
j=140
k=30
for i=1 to 1024
line(i,0)-(i,768,rgb(30,k,j)
j+=.15
if j>254 then j=254:k+=.4
next i
sleep
end
Pro lenive prepisovace davam zase odkaz na zkompilovany program (nebojte se ho stahnout a spustit!)
ODKAZ
Vidite, ze prechod uskutecni cyklus - dojede do 255 a pak zacne prechod jine barvy. Hrubost je na radku, kde se pricita promenna J a K, to znamena, ze kdyz napr. date do J vetsi cislo za desetinnou carku, tim driv nabyde modra mezni hodnoty a zacne jiny prechod. No proste zkousejte taky sami!