Witam!
Dziś, tak jak mówiłem, zajmiemy się wprowadzaniem do naszych programów kolorowych
rysunków.
Jak już mówiłem w zeszłym miesiącu, tryb graficzny w, którym pracujemy (screen 12) posiada 16 kolorów przy rozdzielczości 640x480. Te kolory wyglądają tak:
A np. w trybie 13 (screen 13) możemy cieszyć się 256 kolorami, ale bardzo niskiej rozdzielczości, bo tylko 320x200 (jak nauczycie się ustawiać paletę kolorów to będziecie mogli
zrobić w 13 efekt ognia).
Jak pamiętacie instrukcja PSET wyświetla na ekranie białe punkty. Ale oczywiście możemy zrobić by wyświetlała też kolorowe. W tym celu po podaniu współrzędnych, w których ma być postawiony pixel podajemy (po przecinku) jego kolor.
np. PSET(100,100),7
wyświetli w x=100, y=100 pixel o niebieskim kolorze
SCREEN 12
FOR kol = 0 TO 479 STEP 115
FOR x = 0 TO 639 STEP 2
FOR k = 0 TO 15
PSET (x, kol + k), k
NEXT k
NEXT x
NEXT kol
FOR kol = 0 TO 639 STEP 120
FOR y = 0 TO 479 STEP 2
FOR k = 0 TO 15
PSET (kol + k, y), k
NEXT k
NEXT y
NEXT kol
END
Taki fajny, bezużyteczny program ;).
Tak jak pset działa line:
LINE(0,0)-(639,479),4
Narysuje linie o czerwonym kolorze.
A oto kolejny nie przydatny program:
SCREEN 12
FOR y = 0 TO 479 STEP 3
LINE (0, y)-(649, y), 6
NEXT y
FOR x = 0 TO 639 STEP 3
LINE (x, 0)-(x, 479), 1
NEXT x
END
Ramki tworzyło się dodając do instrukcji line, po dwóch przecinkach literkę 'b'
np. LINE(0,5)-(630,300),,B
A kolorowe ramki wstawiając pomiędzy te przecinki numer koloru.
np. LINE(0,5)-(630,300),1,B
Program, chyba niepotrzebny.
Jak chcieliśmy narysować okrąg robiliśmy takie coś: CIRCLE(100,100),70
(wyświetli okrąg w 100x100 o promieniu 70).
Kolorowe okręgi zaś tak: CIRCLE(100,100),70, 8
czyli po prostu na końcu stawiamy kolor.
**********PAINT**********
Instrukcja ta wypełnia jakimś kolorem zamknięty obszar (działa podobnie jak ten taki słoiczek w paintcie ;)).
Wygląda ona tak:
PAINT(x,y),kolor_wypełnienia, kolor_krawedzi
Zaczynając od wskazanego miejsca (x,y) będzie wypełniać kolorem_wypełnienia obszar, aż natrafi na kolor_krawędzi.
A najlepiej to zobaczcie przykład.
SCREEN 12
CIRCLE (320, 240), 100, 4
PAINT (320, 240), 1, 4
END
Program ten najpierw rysuje okrąg o środku w 320,240, promieniu 100 i kolorze 4. A później instrukcja paint wypełnia wnętrze okręgu kolorem 1 (niebieskim).
Na dziś to tyle.
Heniu