Príkazy knižnice GRAFIKA.PASprocedure PutPixel (x, y : integer; Color : byte);{ Zafarbi pixel (BOD) na pozicii (x,y) farbou 'Color' }procedure Dot (x_center, y_center:integer);{ Nakresli bodku - podla hrubky pera PenWidth }procedure DotW (x_center, y_center, wid:integer);{ Nakresli "siroku" bodku - podla hrubky pera PenWidth }function GetPixel (x, y : integer) : byte;{ Vrati hodnotu pixelu na pozicii (x,y) }procedure Line (x1, y1, x2, y2 : integer);{ Nakresli usecku z bodu (x1,y1) do (x2,y2).    }{ Graficky kurzor sa posunie do koncoveho bodu. }procedure LineTo (x, y : integer);{ Nakresli usecku z aktualnej pozicie grafickeho kurzorado bodu (x,y).    }{ Graficky kurzor sa posunie do koncoveho bodu. }procedure LineRel (dx, dy : integer);{ Nakresli usecku z aktualnej pozicie grafickeho kurzorado bodu vzdialeneho o dx v smere x a o dy v smere y.}{ Graficky kurzor sa posunie do koncoveho bodu. }procedure Rectangle (x1, y1, x2, y2 : integer);{ Nakresli obdlznik s lavym hornym vrcholom (x1,y1) a pravym dolnym (x2,y2) }procedure FilledRectangle (x1, y1, x2, y2 : integer);{ Nakresli vyplneny obdlznik }procedure Circle (x_center, y_center, radius : integer);{ Nakresli kruznicu so stredom (x_center,y_center) a s polomerom radius }procedure FilledCircle (x_center, y_center, radius : integer);{ Nakresli vyplnenu kruznicu }procedure Ellipse (x_center, y_center, rx, ry : integer);{ Nakresli elipsu so stredom (x_center,y_center), horizontalnym polomerom rx }{ a vertikalnym polomerom ry.    procedure FilledEllipse (x_center, y_center, rx, ry : integer);{ Nakresli vylnenu elipsu }procedure Arc (x_center, y_center, radius, s_angle, e_angle : word);{ Nakresli obluk kruznice so stredom (x_center,y_center), s polomerom radius }{ od uhla s_angle po uhol e_angle }procedure EllipseArc (x_center, y_center, rx, ry, s_angle, e_angle : word);{ Nakresli elipsovy obluk }procedure Curve (x1, y1, x2, y2, x3, y3 : integer; Segments : word);{ Nakresli krivku z bodu (x1,y1) cez bod (x2,y2) do bodu (x3,y3) }{ rozdelenu na useky o pocte 'segments'   procedure BSpline (NumPoints : word; var Points : array of Point; Segments : word);{ Nakresli BSpline, ktora aproximuje krivku definovanu polom bodov }procedure DrawPoly (NumPoints : word; var Points : array of Point);{ Nakresli obrys polygonu }procedure BoundaryFill (x, y : integer; Boundary, FillColor : byte);{ Z bodu (x,y) vyplni farbou FillColor oblast ohranicenu farbou Boundary }procedure FloodFill (x, y : integer; Flood, FillColor : byte);{ Z bodu (x,y) vyplni farbou FillColor suvislu oblast zafarbenu farbou Flood}procedure Paint (x, y, Width, Height : integer; Color : byte);{Ako filledrectangle vykresli obldznik so sirkou width a vyskou height, ktoreho lavyhorny roh udavaju suradnice (x,y), mozeme vsak rovno zadat aj farbu Color }function ImageSize (Width, Height : integer) : longint;procedure GetImage (x, y, Width, Height : integer; var ImageData);{ Nacita do ImageData cast obrazovky v tvare obdlznika. Obrazok nemoze mat }{ vacsiu velkost ako 64 Kb.}procedure PutImage (x, y : integer; var ImageData);{ Polozi obrazok do plochy na suradnice (x,y) }procedure SetFillPattern (Style : byte; var Pattern);{ Instaluje bud pouzivatelom definovany vzor pre vypln alebo standardnu vypln }procedure PrintAt (x, y : integer; s : string; TextColor, BackColor : byte);{ Vypise text na poziciu (x,y) nastavenym fontom a zadanymi farbami }procedure Print (s : string; TextColor, BackColor : byte);{ Vypise dany text nastavenym fontom a zadanymi farbami }{ Posunie x-ovu suradnicu za vypisany text              }procedure SetFont (FontPtr : pointer; FontWidth, FontHeight : integer);{ Instaluje novy font }procedure SetFontScale (ScaleX, ScaleY : integer);{ Nastaví veľkosť písma, kde ScaleX určuje koľkokrát sa zväčší šírka, ScaleY koľkokrát sa zväčší výška}procedure FontScale (var ScaleX, ScaleY : integer);function CharWidth : integer;{ Vrati sirku znaku momentalne nastaveneho fontu }function CharHeight : integer;{ Vrati vysku znaku momentalne nastaveneho fontu }procedure SetPenWidth (Width : integer);{ Nastavi hrubku pera }procedure SetColor (Color : byte);{ Nastavi farbu pera }procedure SetBgColor (Color : byte);{ Nastavi farbu pozadia }function GetPenWidth : integer;{ Vrati momentalnu hrubku pera }function GetColor : byte;{ Vrati momentalnu farbu pera }function GetBgColor : byte;{ Vrati momentalnu farbu pozadia }function GetMaxX : word;{ Vrati maximalnu x-ovu suradnicu nastavenej kresliacej plochy }function GetMaxY : word;{ Vrati maximalnu y-ovu suradnicu nastavenej kresliacej plochy }procedure SetViewport (MinX, MinY, MaxX, MaxY : integer);{ Nastavi kresliacu plochu s novymi rozmermi}procedure GetViewport (var MinX, MinY, MaxX, MaxY : integer);{ Vrati rozmery nastavenej kresliacej plochy }procedure ClrScr;{ Zmaze kresliacu plochu farbou pozadia }procedure MoveRel (dx, dy : integer);{ Zmeni poziciu grafickeho kurzora - povodnu poziciu posunie o dx,dy }procedure MoveTo (x, y : integer);{ Zmeni poziciu grafickeho kurzora na poziciu (x,y) }function GetX : integer;{ Vrati x-ovu suradnicu grafickeho kurzora }function GetY : integer;{ Vrati y-ovu suradnicu grafickeho kurzora }Príkazy knižnice CRT:Black         = 0; {cierna}  Blue          = 1; {modra}  Green         = 2; {zelena}   Cyan          = 3; {tyrkysova}  Red           = 4; {cervena}  Magenta       = 5; {fialova}  Brown         = 6; {hneda}  LightGray     = 7; {bledosiva}   DarkGray      = 8; {siva}  LightBlue     = 9; {bledomodra}  LightGreen    = 10;{bledozelena}   LightCyan     = 11;{bledotyrkysova}  LightRed      = 12;{bledocervena}  LightMagenta  = 13;{bledofialova}  Yellow        = 14;{zlta}  White         = 15;{biela}{ PRIKAZY - procedury a funkcie }procedure AssignCrt(var F: Text);function KeyPressed: Boolean;    {ak je stlaceny klaves nadobudne hodnotu TRUE, inak FALSE}function ReadKey: Char;    {nacita aktualne stlaceny znak na klavesnici}procedure TextMode(Mode: Integer);procedure Window(X1,Y1,X2,Y2: Byte);procedure GotoXY(X,Y: Byte);    {nastavi textovy kurzor na poziciu X -stlpec a Y -riadok}function WhereX: Byte;    {vrati aktualnu X-ovu poziciu textoveho kurzora}function WhereY: Byte;    {vrati aktualnu Y-ovu poziciu textoveho kurzora}procedure ClrScr;    {vymaze obrazovku}procedure ClrEol;procedure InsLine;procedure DelLine;procedure TextColor(Color: Byte);    {nastavi farbu textu}procedure TextBackground(Color: Byte);    {nastavi farbu pozadia}procedure LowVideo;procedure HighVideo;procedure NormVideo;procedure Delay(MS: Word);    {pozastavi vzkonavanie programu na MS milisekund}procedure Sound(Hz: Word);    {spusti zvukovy ton s frekvenciou Hz}procedure NoSound;    {vypne zvuk}