Tworzenie obiektów graficznych - procedury i funkcje   

1/6 

Procedury i funkcje trybu graficznego.  
 
A. Szablon programu.  
 

program rysowanie; 
 
uses graph, crt; 
 
var ster,tryb:integer; 
 
begin 
 
ster:=detect; 
initGraph(ster,tryb,'C:\progra~1\tp\bgi'); 
 
{tutaj rysujemy} 
 
repeat until keypressed; { ewentualnie delay} 
closegraph; 
readln; 
end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

Rys. Układ współrzędnych ekranu w trybie wysokiej rozdzielczości. 

 

B. Przegląd procedur i funkcji.  
 
Poniższe procedury i funkcje pochodzą z modułu graph.  
 
1. Funkcja 

GetMaxX

 

Składnia: 

GetMaxX:integer; 

Opis: Zwraca maksymalną wartość współrzędnej poziomej (x) dla aktualnego trybu 
graficznego.  
 
2. Funkcja 

GetMaxY

 

Składnia: 

GetMaxY:integer; 

Opis: Zwraca maksymalną wartość współrzędnej pionowej (y) dla aktualnego trybu 
graficznego.  
Przykład:  

line(10,10,GetMaxX, GetMaxY); 

 

x 

639 

0 

0 

479 

y 

Tworzenie obiektów graficznych - procedury i funkcje   

2/6 

3. Procedura: 

Line 

Składnia: 

Line(x1,y1,x2,y2:integer); 

Opis: Rysuje linię prostą od punktu (x1,y1) do punktu (x2,y2). Procedura nie zmienia 
położenia kursora graficznego. 
Przykład:  

line(10,10,10,100);

 

 
4. Procedura 

MoveTo 

Składnia:  

MoveTo(x1,y1):integer;

 

Opis: Przemieszcza kursor graficzny do punktu o podanych współrzędnych.  
Przykład:  

moveTo(30,40); 

 
5. Procedura: 

LineRel 

Składnia: 

LineRel(dx,dy:integer);

 

Opis: Rysuje linie zaczynającą się w punkcie aktualnego położenia wskaźnika ekranu 
(kursora graficznego) i kończącą się w punkcie o współrzędnych przesuniętych względem 
jego pozycji ( o dx w kierunku osi Ox i o dy w kierunku osi Oy). Procedura przesuwa 
wskaźnik ekranu (kursor graficzny) na koniec wykreślonej linii.  
Przykład: 

lineRel(100,0);

 

 
6. Procedura 

LineTo

 

Składnia: 

LineTo(x1,y1:integer); 

Opis: Rysuje linię zaczynającą się w punkcie wskazanym przez kursor graficzny i kończącą 
się w punkcie (x1,y1). Procedura przesuwa wskaźnik ekranu na koniec wykreślonej linii.  
Przykład:  

lineTo(100,0);

 

 
7. Procedura 

SetColor

 

Składnia: 

SetColor(N:word); 

Opis: Ustala na podstawie palety aktualny kolor kreślenia linii. Ilość dostępnych kolorów 
zależy od trybu graficznego. 

Stała koloru 

Kod 

Kolor 

black 

0 

czarny 

blue 

1 

niebieski 

green 

2 

zielony 

cyan 

3 

turkusowy 

red 

4 

czerwony 

magenta 

5 

karmazynowy 

brown 

6 

brązowy 

lightgray 

7 

jasnoszary 

darkgray 

8 

szary 

lightblue 

9 

jasnoniebieski 

lightgreen 

10 

jasnozielony 

lightcyan 

11 

jasny turkus 

lightred 

12 

jasnoczerwony 

lightmagenta  13 

jasnokarmazynowy 

yellow 

14 

żółty 

white 

15 

biały 

Tworzenie obiektów graficznych - procedury i funkcje   

3/6 

 
Przykład:  

 setColor(cyan); {zmiana koloru linii na cyan} 
 line(10,10,100,10); {linia w kolorze cyan} 
 setColor(4); {zmiana koloru linii na czerwony - nr 4} 
 line(10,10,10,100); {linia w kolorze czerwonym} 

 
8. Procedura

 SetBkColor 

Składnia: 

SetBkColor(N:word); 

Opis: ustala kolor tła ekranu graficznego. Ilość dostępnych kolorów zależy od trybu 
graficznego. 
Przykład: 

 setBkColor(lightgray); {zmiana koloru tla na jasnoszary} 
 setBkColor(14); {zmiana koloru tla na zolty} 

 
9. Procedura 

SetLineStyle  

Składnia: 

SetLineStyle ( styl, wzorzec, grubosc:word );

  

Opis: Zmienia styl (rodzaj linii) oraz jej grubość używanej przy procedurach 

Line, Circle,

 

itd.

  

 
Parametr 

styl

:  

SolidLn    = 0  - ciągła 
DottedLn   = 1  - kropkowana 
CenterLn   = 2  - symetryczna 
DashedLn   = 3  - przerywana 
UserBitLn  = 4  - o wzorze zdefiniowanym przez użytkownika 

 
Parametr 

wzorzec

 - jest to zdefiniowane przez użytkownika kolejne 16 pikseli nowej 

nietypowej linii ( 

styl=4

 ). Jeżeli styl linii jest różny od 4 to pod wzór możemy wstawić 

jakąkolwiek liczbę gdyż nie będzie ona brana pod uwagę.  
 
Parametr 

grubosc

:  

NormWidth  = 1  - linia normalna 
ThickWidth = 3  - linia pogrubiona 

 
Przykład:  

setLineStyle(0,0,3);  {0 - linia ciagla, 0 - wzorzec domyslny, 3 - gruba} 
line(20,20, 300,300); 
setLineStyle(1,0,1); {1 - kropkowana, 0 - wzorzec domyslny, 1 - normalna} 
line(100,50, 350,350); 
setLineStyle(2,0,3); {2 - symetryczna, 0 - wzorzec domyslny, 3 - gruba} 
line(200,100,200,300); 

 
10. Procedura 

SetFillStyle  

Składnia: 

SetFillStyle( nrwzorca,kolor:word ); 

 

Opis: Zmienia rodzaj i kolor wypełnienia konturów wykorzystywanych przez niektóre 
procedury np. przez 

Bar

, 

Bar3D

 itp. Domyślne ustawienia początkowe to wzorzec 

wypełniania ciągłego i numer koloru będący maksymalnym kolorem aktualnego trybu 
graficznego. Rodzaje wzorca (parametr 

nrwzorca

) to:  

EmptyFill       = 0   - wypełnienie kolorem tła 
SolidFill       = 1   - wypełnienie ciągłe 
LineFill        = 2   - wypełnienie pogrubionymi liniami poziomymi 
LtSlashFill     = 3   - wypełnienie liniami pochyłymi w prawo 

Tworzenie obiektów graficznych - procedury i funkcje   

4/6 

SlashFill       = 4   - wypełnienie pogrubionymi liniami pochyłymi w prawo 
BkSlashFill     = 5   - wypełnienie pogrubionymi liniami pochyłymi w lewo 
LtBkSlashFill   = 6   - wypełnienie liniami pochyłymi w lewo 
HatchFill       = 7   - wypełnienie siatką pionową 
xHatchFill      = 8   - wypełnienie siatką ukośną 
InteerleaveFill = 9   - wypełnienie liniami splecionymi 
VideDotFill     = 10  - wypełnienie kropkami 
CloseDotFill    = 11  - wypełnienie zagęszczonymi kropkami 
UserFill        = 12  - wypełnienie wzorem zdefiniowanym przez użytkownika 
                        procedurą SetFillPattern 

 
Przykład:  

setFillStyle(1,yellow); { 1-wypelnienie ciagle, kolor wypelnienia - zolty} 
setFillStyle(7,4);{7-wypelnienie siatką pionową, kolor wypeln. - 4 (red)} 
 

11. Procedura 

Circle 

 

Składnia: 

Circle ( x,y:integer; r:word ); 

Opis: Procedura rysuje okrąg o środku umieszczonym w punkcie 

(x,y)

, promieniu 

r

 i 

kolorze określonym przez procedurę 

SetColor

.  

uses graph,crt; 
var   ster,tryb:integer; 
begin 
  ster:=detect; 
  initGraph(ster, tryb, 'C:\progra~1\tp\bgi'); 
  circle(320,240,40);{koło o współrzędnych środka 320,240 i promieniu 40}                      
  repeat until keypressed;                 
  closeGraph; 
End. 

 
12.Procedura 

Rectangle 

 

Składnia: 

Rectangle ( x1,y1,x2,y2:integer );  

Opis: Procedura rysuje prostokąt.  
(x1,y1) to współrzędne lewego górnego wierzchołka, a (x2,y2) to współrzędne prawego 
dolnego wierzchołka ( są to przeciwległe wierzchołki ). Muszą być spełnione warunki: 
0<=

x1

<

x2

<=

GetMaxX

, 0<=

y1

<

y2

<=

GetMaxY

. 

Przykład:  

rectangle(10,10,100,100); 

 
13. Procedura 

Arc

 

Składnia: 

arc(x,y:integer; pocz,kon, r:word); 

Opis: Rysuje łuk (wycinek okręgu) dla podanych współrzędnych środka, kącie i promieniu.  
Parametry 

x

 i 

y

 oznaczają współrzędne środka. Kąty 

pocz

 i

 kon

 podaje się w stopniach. Dla 

pocz=0

 i 

kon=360

 procedura wyświetla pełny okrąg. Procedura kreśli łuk w kierunku 

przeciwnym do ruchu wskazówek zegara (kąt zero odpowiada godzinie 3.00).  
Przykład:  

arc(320, 240,10,50,60); 
{wycinek okregu o środku w punkcie (320,240), pocz = 10, kon = 50, promien 
okregu = 60 } 
 

Tworzenie obiektów graficznych - procedury i funkcje   

5/6 

 

 
14. Procedura 

Ellipse

 

Składnia: 

Ellipse(x,y:integer; pocz,kon,px,py:word);

 

Opis: Rysuje elipsę lub jej wycinek.  Parametry 

px

, 

py

 są długościami półosi elipsy (

x

, 

y

, 

pocz

, 

kon

 – jak dla arc). 

Przykład:  

ellipse(x, y, 0, 270, 80, 60); 

 

 

 
15. Procedura 

FloodFill  

Składnia: 

FloodFill ( x,y:integer; kolor_granicy:word );  

Opis: Wypełnia ograniczony obszar ekranu akutalnym wzorcem wypełnienia.  
Najpierw wypełniany jest punkt o współrzędnych (x,y), następnie punkty leżące wokół niego, 
potem ich sąsiedzi, aż do napotkania linii o kolorze

 kolor_granicy 

lub granicy ekranu. 

 

uses graph, crt; 
var 
  ster,tryb:integer; 
 
begin 
  ster:=detect; 
  initGraph(ster, tryb, 'C:\progra~1\tp\bgi' ); 
  setColor(green); 

Tworzenie obiektów graficznych - procedury i funkcje   

6/6 

  Rectangle(30,30,120,120); 
  Rectangle(10,10,100,100); 
  floodFill(50,50,Green); 
  repeat until keypressed; 
  closeGraph; 
end. 

Program wypełnia obszar który jest wspólny dla obu prostokątów.  
 
16. Procedura 

PutPixel 

 

Składnia: 

PutPixel ( X,Y:integer; Kolor:word );

 

Procedura wyświetla na ekranie jeden punkt o kolorze 

Kolor

, jest to przydatne przy 

precyzyjnym rysowaniu. Procedura nie zmienia położenia wskaźnika ekranu. 
 
17. Procedura 

OutTextXY  

Składnia: 

OutTextXY ( X,Y:integer; S:string );

 

Procedura wyświetla na ekranie tekst określony przez zmienną 

S

 rozpoczynając od 

współrzędnych (X,Y) i w aktualnym kolorze ( 

SetColor

 ) . 

 
uses graph,crt; 
var 
  ster,tryb:integer; 
 
begin 
  ster:=detect; 
  initGraph(ster, tryb, ' C:\progra~1\tp\bgi' ); 
  outTextXY(200,100,'Oto tekst'); 
  repeat until keypressed; 
  closeGraph; 
End. 

 
18. Procedura 

ClearDevice  

Składnia: 

ClearDevice;

 

Procedura czyści ekran graficzny.