GRAFIKA W TURBO PASCALU

1
GRAFIKA W TURBO PASCALU
2
Inicjalizacja trybu graficznego

• InitGraph (Sterownik Integer, Tryb Integer,
• Sciezka String)
• sterownik identyfikator karty sterownika
  graficznego
• tryb tryb graficzny (rozdzielczosc, ilosc
  kolorów)
• sciezka katalog, w którym znajduje sie
  sterownik .bgi

3
Zakonczenie trybu graficznego
Inicjalizacja trybu graficznego cd
DetectGraph(sterownik,tryb) sterownikVGA tryb
VGAHi
CloseGraph
Wylacza tryb graficzny i wraca do poprzedniego
trybu tekstowego.
4
PROSTY KOD - GRAFIKA
program Grafika uses Crt,Graph var
sterownik,trybinteger begin DetectGraph(sterow
nik,tryb) sterownikVGA tryb
VGAHi InitGraph(sterownik,tryb,'C/BP/BGI') Li
ne(10,10,100,100)
lt-rysowanie repeat until keypressed CloseGraph
end.
5
Operacje trybu graficznego
Po wlaczeniu trybu graficznego mamy szereg
procedur graficznych. Procedury zwracaja na ekran
graficzny wynik swej pracy np. rysunek linii ,
czy kola. Nasz tryb graficzny to VGA o
rozdzielczosci 640-480 i 16 kolorów.
RYSOWANIE PUNKTU NA EKRANIE (PIXEL)
PutPixel (X, Y Integer Pixel Word) X-
polozenie w osi x (0-639) Y polozenie w osi y
(0-479) Pixel 0-15 kolor , Word 0-256 liczby
Przyklad
for i0 to 15 do begin PutPixel(100i,100i,i) e
nd Program
narysuje 15 pikseli w róznych kolorach

6
Operacje trybu graficznego
SetBkColor (ColorNum Word) - ustawia kolor tla
ekranuSetColor (Color Word) - ustawia kolor
np. podczas rysowania linii , czy
kola Przykladowe kolory 0- czarny 1-
niebieski 4 - czerwony 15 - bialy
RYSOWANIE LINI NA EKRANIE (np. czerwonej)
Line (x1, y1, x2, y2 Integer) rysuje
linie prosta
Przyklad
SetBkColor (0) - czarne tlo SetColor
(4) - kolor czerwony Line(200,200
,400,200) - od x,y do x,y rysowanie linii na
ukranie
7
Rysowanie figur

• Rectangle (x1, y1, x2, y2 Integer) - rysuje
  prostokat
• Rectangle(100,100,300,300) (kwadrat)
• Circle (X,Y Integer Radius Word) - rysuje
  okrag
• Gdzie X,Y srodek kola, Radius dlugosc
  promienia
• circle(100,100,70)
• Arc (X,Y Integer StAngle, EndAngle, Radius
  Word)
• luk, wycinek okregu (gdzie x,y poczatek
  rysowania, kat poczatkowy, kat koncowy, dlugosc
  promienia)
• arc(100,100,0,90,80)

8

• Ellipse(X, Y Integer StAngle, EndAngle Word
  XRadius, YRadius Word) - rysuje elipse
• Przyklad
• ellipse(320,240,0,360,100,50) - x,y srodek
  elpisy, katy rysowania, np. 100 dlugosc osi
  poziomej, 50 dlugoscosi pionowej
• Wypelnienie obszaru oznaczonego kolorem
• FloodFill (X, Y Integer Border Word)wypelnia
  zamkniety (ograniczony liniami o innym kolorze)
  region ekranu
• wczesniej trzeba wypelnic kolor i wzór
  wypelniacza
• SetFillStyle (Pattern Word Color Word)
• ustawia rodzaj wypelniacza

9
PRZYKLAD

• Narysuj na ekranie okrag np. czerwony a potem
  wypelnij go w srodku na niebiesko
• SetBkColor (0) lt-kolor tla czarne
• SetColor (4) lt- kolor pisaka czerwony
• circle(320,240,100) lt- rysowanie okregu
• SetFillStyle(1,4) - wybieranie rodzaju i
  obwódki do
• jakiej
  bedziemy wypelniac
• FloodFill(320,240,4) - wypelnienie okregu na
  niebiesko

10
Napisy w trybie graficznym

• MoveTo (X, Y Integer) - przesuwa kursor
  graficzny do wskazanego punktu
• OutText (TextString string) - wyprowadza tekst
• OutTextXY (X,Y Integer TextString string) -
  wyprowadza teks poczawszy od punktu o zadanych
  wspólrzednych X i Y
• napis'Ala ma kota'
• OutTextXY(200,200,napis)

Przyklad wczesniej ( var napisstring)
11

• SetTextStyle (Font, Direction Word CharSize
  Word) ustawia styl tekstu
• SetColor(4)
• SetTextStyle(4,0,4)
• napis'To jest napis'
• OutTextXY(200,200,napis)
• SetLineStyle (LineStyle Word Pattern
  Word Thickness Word)ustawia rodzaj linii
  (ciagla, przerywana, gruba itp.)
• SetColor(4)
• SetLineStyle(1,0,3)
• Line(100,100,300,300)
• Parametr 1 - (0-ciagla linia,1,2,3-przerywana)
• Parametr 3 (1- cienka linia, 3 pogrubiona
  linia)

12

• ClearDevice czyszenie urzadzenia graficznego
  (ekranu)
• SLUPKI DO WTKRESÓW
• SetColor(4)
• SetFillStyle(2,4)
• Bar(10,100,11,20) lt-
  slupek zwyczajny
• Bar3D(50,50,290,230,50,true) lt- slupek 3
  wymiarowy