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