Lokalizacja: Poznań
Ignorowany przez 34 użytkowników
@tukinem,
post #789
Tu masz taki programik do zamiany kolejnosci kolorow pikseli w palecie obrazka.
sciez$=dir$
Dim Kolory(31), War_kol(31)
Global Kolory(), War_kol()
Screen Open 0,320,256,32,lowres
Curs off : Flash Off : Cls 0
plik$="farma.iff" : Rem nazwa pliku z grafika
Load iff sciez$+plik$,0
Restore Dane
For i=0 to 31
read A
Kolory(i)=A : Rem kolejnosc indeksow
War_kol(i)=Colour(i) : Rem wartosc koloru
Next i
For Y=0 to 255
For X=0 to 319
KOL=Point(X,Y)
WST=Kolory(KOL)
Plot X,Y,WST
Next X
Next Y
Dane:
Data 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
Data 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31