Graphprogramowanie.doc

Procedura InitGraph

Składnia: InitGraph ( var sterownik,tryb:integer; katalog:string ); biblioteka: GRAPH

Służy do włączenia trybu graficznego. Możliwe sterowniki ( czyli rodzaje karty graficznej ) to :

1  = CGA

2  = MCGA

3  = EGA

4  = EGA64

5  = EGAMono

6  = IBM8514

7  = HercMono

8  = ATT400

9  = VGA

10 = PC3270

A możliwe tryby do wyświetlenia przez daną kartę graficzną ( każdy posiada różne rozdzielczości i ilość kolorów ) to:

CGAC0      = 0 - 320 x 200,    4 kolory z palety nr 0

CGAC1      = 1 - 320 x 200,    4 kolory z palety nr 1

CGAC2      = 2 - 320 x 200,    4 kolory z palety nr 2

CGAC3      = 3 - 320 x 200,    4 kolory z palety nr 3

CGAHi      = 4 - 640 x 200,    2 kolory ( czarno-białe )

MCGAC0     = 0 - 320 x 200,    4 kolory z palety nr 0

MCGAC1     = 1 - 320 x 200,    4 kolory z palety nr 1

MCGAC2     = 2 - 320 x 200,    4 kolory z palety nr 2

MCGAC3     = 3 - 320 x 200,    4 kolory z palety nr 3

MCGAMed    = 4 - 640 x 200,    2 kolory ( czarno-białe )

MCGAHi     = 5 - 640 x 480,    2 kolory ( czarno-białe )

EGALo      = 0 - 640 x 200,    16 kolorów

EGAHi      = 1 - 640 x 350,    16 kolorów

EGA64Lo    = 0 - 640 x 200,    16 kolorów

EGA64Hi    = 1 - 640 x 350,    4 kolory

EGAMonoHi  = 0 - 640 x 480,    2 kolory ( czarno-białe )

HercMonoHi = 0 - 720 x 348,    2 kolory ( czarno-białe )

ATT400C0   = 0 - 320 x 200,    4 kolory z palety nr 0

ATT400C1   = 1 - 320 x 200,    4 kolory z palety nr 1

ATT400C2   = 2 - 320 x 200,    4 kolory z palety nr 2

ATT400C3   = 3 - 320 x 200,    4 kolory z palety nr 3

ATT400Med  = 4 - 640 x 200,    2 kolory ( czarno-białe )

ATT400Hi   = 5 - 640 x 400,    2 kolory ( czarno-białe )

VGALo      = 0 - 640 x 200,    16 kolorów

VGAMed     = 1 - 640 x 350,    16 kolorów

VGAHi      = 2 - 640 x 480,    16 kolorów

PC3270Hi   = 0 - 720 x 350,    2 kolory ( czarno-białe )

IBM8514Lo  = 0 - 640 x 480,    256 kolorów

IBM8514Hi  = 1 - 1024 x 768,   256 kolorów

UWAGA !! Ponieważ wszystkie karty produkowane w ostatnich 4-5 latach posiadają sterownik VGA i tylko jego będziemy używać ( dokładnie to trybu VGAHi ). Jeżeli posiadasz starą kartę Hercules ( teraz te nowe są cool :) , CGA czy EGA to przykładowe programy będą na nich trochę dziwnie wyglądać a to z powodu właśnie tych różnych rozdzielczości i ilości kolorów.

No to włączmy sobie wreszcie ten tryb graficzny:

Uses GRAPH;                             {1}

Var

  ster,tryb:integer;

Begin

ster:=VGA;  tryb:=VGAHi;                {2}

InitGraph(ster, tryb, 'C:\BP\BGI' );    {3}

End.

{1} Zadeklarowałem do używania bibliotekę GRAPH ( to w niej właśnie są procedury i funkcje do obsługi grafiki )
{2} Nadałem zmiennym wartości: VGA (9) i VGAHi (2)
{3} Uruchomiłem tryb graficzny. 'C:\BP\BGI' - jest to moja ścieżka do plików *.BGI ( konkretnie do pliku EGAVGA.BGI ) możesz mieć inne więc zmień to u siebie :)

Sam włączony tryb nam nic nie daje, ale jeżeli tego nie zrobimy nie będzie można nic rysować. Tak więc ZAWSZE zanim coś wykonamy w grafice trzeba wcześniej ją włączyć.

Uwaga !! lewy dolny róg to współrzędne 0,0 a nie 1,1 !!

Procedura CloseGraph

Składnia: CloseGraph; biblioteka: GRAPH

Wyłącza tryb graficzny i wraca do poprzedniego trybu tekstowego.

Procedura SetColor

Składnia: SetColor ( kolor:word ); biblioteka: GRAPH

Zmienia kolor w TRYBIE GRAFICZNYM ( TextColor w graficznym nie działa ! ) jakim zostaną wyświetlane np. kółka, linie czy prostokąty. Ilość dostępnych kolorów w danych trybach podałem przy opisie procedury InitGraph.

Procedura SetBkColor

Składnia: SetBkColor ( kolor:word ); biblioteka: GRAPH

Zmienia kolor tła w TRYBIE GRAFICZNYM ( TextBackGround w graficznym nie działa ! ) Ilość dostępnych kolorów w danych trybach podałem przy opisie procedury InitGraph.

Procedura SetFillStyle

Składnia: SetFillStyle( nrwzorca,kolor:word ); biblioteka: GRAPH

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 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

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

Procedura SetLineStyle

Składnia: SetLineStyle ( RodzLin, Wzor, Grubosc:word ); biblioteka: GRAPH

Zmienia rodzaj linii oraz jej grubość używanej przy procedurach Line, Circle, Bar3D itd.
Rodzaje linii to:

SolidLn    = 0  - ciągła

DottedLn   = 1  - kropkowana

CenterLn   = 2  - symetryczna

DashedLn   = 3  - przerywana

UserBitLn  = 4  - o wzorze zdefiniowanym przez użytkownika

Wzor - jest to zdefiniowane przez użytkownika kolejne 16 pikseli nowej nietypowej linii ( rodzlin=4 ). Jeżeli rodzaj linii jest różny od 4 to pod wzór możemy wstawić jakąkolwiek liczbę gdyż nie będzie ona brana pod uwagę.
Rodzaje grubości to:

NormWidth  = 1  - linia normalna

ThickWidth = 3  - linia pogrubiona

przykład: SetLineStyle(0,0,3);

Procedura Line

Składnia: Line ( X1,Y1,X2,Y2:integer ); biblioteka: GRAPH

Procedura rysuje linię zaczynającą się w punkcie X1,Y1 a kończącą się w X2,Y2 kolorem określonym przez procedurę SetColor

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  Line(30,30,610,450);

  Repeat Until Keypressed;

  CloseGraph;

End.

Procedura Circle

Składnia: Circle ( X,Y:integer; R:word ); biblioteka: GRAPH

Procedura rysuje koło o środku umieszczonym o współrzędnych X,Y, promieniu R i kolorze określonym przez procedurę SetColor.

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  Circle(320,240,40);                     {1}

  Repeat Until Keypressed;                {2}

  CloseGraph;

End.

{1} Rysujemy kołko o współrzędnych 320,240 ( jest to środek ekranu gdyż włączyliśmy tryb VGAHi, którego rozdzielczość to: 640x480 ) i o promieniu 40
{2} Czekamy aż zostanie wciśnięty jakiś klawisz ( spróbuj usunąć tą linię to dowiesz się dlaczego jest taka ważna )

Procedura Rectangle

Składnia: Rectangle ( X1,Y1,X2,Y2:integer ); biblioteka: GRAPH

Procedura rysuje prostokąt. X1,Y1 to współrzędne lewego górnego rogu, a X2,Y2 to współrzędne lewego dolnego rogu ( są to przeciwległe wierzchołki )

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  Rectangle(30,30,610,450);

  Repeat Until Keypressed;

  CloseGraph;

End.

Procedura FloodFill

Składnia: FloodFill ( X,Y:integer; kolorgranicy:word ); biblioteka: GRAPH

Procedura wypełnia aktualnym kolorem i wzorem ( SetFillStyle ) obszar ograniczony brzegiem o kolorze "kolorgranicy" tzn. Jeżeli przy wypełnianiu danego obszaru procedura napotka na jakąś np. linię wykonaną kolorem "kolorgranicy" to zachowuje się jakby to był dla niej mur nie do przejścia i zostawia i jego i to co się za nim znajduje w spokoju :) Punkt X,Y jest miejscem od którego procedura zaczyna wypełniać obszar.

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  SetColor(green);

  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.

Procedura Bar

Składnia: Bar ( X1,Y1,X2,Y2:integer); biblioteka: GRAPH

Procedura rysuje wypełniony prostokąt. X1,Y1 to współrzędne lewego górnego rogu, a X2,Y2 to współrzędne lewego dolnego rogu ( są to przeciwległe wierzchołki ), kolor ramki jest określony przez procedurę SetColor, a kolor wypełnienia przez procedurę SetFillStyle.

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  SetColor(8);

  SetFillStyle(1,5);

  Bar(30,30,610,450);

  Repeat Until Keypressed;

  CloseGraph;

End.

Procedura Bar3D

Składnia: Bar3D ( X1,Y1,X2,Y2:integer; B:word; TOP:boolean ); biblioteka: GRAPH

Procedura rysuje trójwymiarowy wypełniony prostokąt. X1,Y1 to współrzędne lewego górnego rogu przedniej ścianki, X2,Y2 to współrzędne lewego dolnego rogu przedniej ścianki, zmienna B jest to głębokość naszego prostopadłościanu, zmienna TOP określa czy górna powierzchnia jest widoczna TRUE czy niewidoczna FALSE. Granice słupka rysowane są liniami typu określonego przez procedurę SetLineStyle aktualnym kolorem ( SetColor ) i aktualnym wzorem i kolorem wypełnienia ( SetFillStyle )

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  SetColor(4);

  SetFillStyle(10,8);

  Bar3D(50,50,590,430,20,TRUE);

  Repeat Until Keypressed;

  CloseGraph;

End.

Procedura PutPixel

Składnia: PutPixel ( X,Y:integer; Kolor:word ); biblioteka: GRAPH

Procedura wyświetla na ekranie jeden punkt o kolorze "Kolor", jest to przydatne przy precyzyjnym rysowaniu.

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  PutPixel(320,240,15);

  Repeat Until Keypressed;

  CloseGraph;

End.

Programik wyświetla biały punkt na samym środku ekranu.

Procedura OutTextXY

Składnia: OutTextXY ( X,Y:integer; S:string ); biblioteka: GRAPH

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:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  OutTextXY(200,100,'Oto tekst');

  Repeat Until Keypressed;

  CloseGraph;

End.

Procedura ClearDevice

Składnia: ClearDevice; biblioteka: GRAPH

Procedura czyści ekran graficzny. Przykład:

Uses GRAPH,CRT;

Var

  ster,tryb:integer;

Begin

  ster:=VGA;  tryb:=VGAHi;

  InitGraph(ster, tryb, 'C:\BP\BGI' );

  Circle(50,50,30);

  Delay(2000);

  ClearDevice;

  Circle(150,200,70);

  Repeat Until Keypressed;

  CloseGraph;

End.

1