Függvények, eljárások

3.2.1.1. Grakus módot inicializáló eljárások

procedure DetectGraph(var GraphDriver, GraphMode: integer);

Megvizsgálja a hardvert, és megállapítja a grakus kiépítettségét. A GraphDriver-ben kapjuk meg a grakus meghajtó számát, a^GraphMode-ban pedig a használható legnagyobb felbontású üzemmód számát.

procedure InitGraph(var GraphDriver, GraphMode: integer;

PathToDriver: string);

Inicializálja a grakus rendszert és átállítja a hardvert (képerny®t) grakus módra. APathToDrivea .BGI állomány elérési útvonalát jelenti.

function GetDriverName: string;

Megadja az aktuális grakus képerny®meghajtó nevét (pl. EGAVGA).

function GetGraphMode: integer;

Visszaadja az aktuális grakusmód kódját.

function GetModeName(ModeNumber: Integer): string;

A függvény értéke a bemeneti paraméterhez mint kódhoz tartozó grakus mód teljes neve.

function GetMaxMode: integer;

Az aktuálisan betöltött grakus meghajtó legnagyobb felbontású üzemmód-jának számát adja vissza.

procedure GetModeRange(GraphDriver: integer; var LoMode, HiMode:

integer);

A megadott grakus meghajtó kódjához (GraphDriver) tartozó grakus üzemmódok közül a legkisebb és legnagyobb érték¶t adja vissza.

procedure GraphDefaults;

A grakus kurzort a bal fels® sarokba teszi és alaphelyzetbe állítja a grakus rendszert.

function GetMaxX: integer;

A grakus képerny® utolsó oszlopának számát adja vissza.

function GetMaxY: integer;

Megadja a grakus képerny® utolsó sorának számát.

function GetX: integer;

Az aktuális képpont (CP Current Position) vízszintes koordinátáját adja vissza.

function GetY: integer;

Az aktuális képpont (CP) függ®leges koordinátáját adja vissza.

procedure SetGraphBufSize(BufSize: word);

Megváltoztatja az alapértelmezett grakus buffer méretét. A bels® buffer mérete^BufSize-nak deniálódik a heap-en az^InitGrapheljárás hívásakor.

Alapértelmezés: 4 KB.

procedure CloseGraph;

Lezárja a grakusmódot, visszatér a szöveges képerny®módhoz.

procedure RestoreCrtMode;

Visszaállítja a grakus rendszer installálása el®tt használt képerny®módot.

procedure SetGraphMode(Mode: integer);

Grakus módba állítja a rendszert és letörli a képerny®t.

function InstallUserDriver(Name: string; AutoDetectPtr: pointer):

integer;

A Pascal grakus rendszerében el®re nem telepített képerny®típushoz új grakus meghajtót telepít.^Name: az új képerny®meghajtó (.BGI) állomány neve,AutoDetectPtr: ha^nil, automatikusan vizsgálja a hardvert; ha saját függvényt írunk rá, a címét kell itt megadnunk (pl.^@Vizsgal)

function InstallUserFont(FontFileName: string): integer;

Új fontot telepít. Új fontnak nevezzük azt a fontot, mely még nincs beépítve a BGI rendszerbe. Ezt egy .CHR állomány tárolja.

function RegisterBGIDriver(driver: pointer): integer;

E függvény segítségével a grakus rendszerben nem szerepl® képerny®tí-pusokon is dolgozhatunk. A függvény a grakus rendszer részévé tesz egy .BGI driver állományt, amely egy grakus képerny®t kezel. A paraméter-ben a heap-paraméter-ben a meghajtónak lefoglalt terület kezd®címét kell megadni.

Az^InitGraph használata el®tt mindig alkalmazni kell, ha nincs el®rede-niált grakus meghajtó a képerny®höz. A függvény visszatérési értéke a meghajtó száma lesz.

function RegisterBGIFont(Font: pointer): integer;

Olyan bet¶típus használatakor alkalmazzuk, amely nem része a grakus rendszernek. A telepítend® új fontot el®ször töltsük a memóriába (^Font kezd®címt®l), majd ezzel a paraméterrel hívjuk meg a függvényt.

3.2.1.2. Grakus hibakezelés

function GraphResult: integer;

A függvény értéke a legutóbbi grakus m¶velet hibakódja.

function GraphErrorMsg(ErrorCode: integer): string;

A függvény értéke a paraméterben megadott kódú grakus hiba szövegét adja.

3.2.1.3. Ablak- és lapkezel® eljárások

procedure SetVisualPage(Page: word);

Beállítja a látható képerny®t (amennyiben több van). Ez nem feltétlenül lesz aktív képerny®lap. Aktívvá aSetActivePageeljárással tehet® egy kép-erny®lap.

procedure SetActivePage(Page: word);

Az aktív grakus képerny®lapot állítja be. Ez nem feltétlenül lesz látható a képerny®n. Egy képerny®lap aSetVisualPageeljárással tehet® láthatóvá.

procedure SetViewPort(x1, y1, x2, y2: integer; Clip: boolean);

Beállít egy aktuális képerny®ablakot a grakus képerny®n. Az (^x1,^y1) és (^x2,^y2) deniálják az ablak bal fels® és jobb alsó sarkait. A^Clipa vágás állapotát adja meg. Ha^true, a kiírás az ablak szélén túl nem folytatódik.

procedure GetViewSettings(var ViewPort: ViewPortType);

Visszatérési rekordja a grakus képerny®n deniált aktuális ablak koordi-nátáit és vágási paramétereit tartalmazza.

procedure ClearDevice;

Letörli az aktív grakus képerny®t, és alapállapotba (0, 0) helyezi a grakus kurzort. A képerny® háttérszín¶ lesz.

procedure ClearViewPort;

Letörli az aktuális grakus ablakot, a grakus kurzort pedig a (0, 0) helyre teszi. Az ablak háttérszín¶ lesz.

procedure GetAspectRatio(var Xasp, Yasp: word);

A képerny® vízszintes és függ®leges képméretarányát, azaz a képszélessé-get, képfelbontást adja vissza. A képméretarány (Xasp : Yasp).

procedure SetAspectRatio(Xasp, Yasp: word);

Beállítja az aktuális képméretarányt megadó módosító tényez®t.

3.2.1.4. Grakus kurzor mozgatás

procedure MoveTo(X, Y: integer);

Az aktuális pozíciót az (^X,^Y) koordinátájú pontra teszi.

procedure MoveRel(Dx, Dy: integer);

Az aktuális pozíciót eredeti helyzetéb®l relatívan mozgatja a grakus kép-erny®n. Ha az aktuális pozíció az (X,Y), az ((X+^Dx), (Y +^Dy)) koordinátájú helyre mozgatja.

3.2.1.5. Pontok

procedure PutPixel(X, Y: integer; Pixel: word);

Az (^X,^Y) koordinátájú képpontot^Pixelszín¶re festi.

function GetPixel(X, Y: integer);

Az (^X,^Y) koordinátájú pont színét adja vissza.

3.2.1.6. Vonalak

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

Az (^x1,^y1) pontból szakaszt húz (^x2,^y2)-be.

procedure LineTo(X, Y: integer);

Az aktuális pozíciótól (CP) (^X,^Y)-ba szakaszt húz.

procedure LineRel(Dx, Dy: integer);

Az aktuális CP-t®l kezdve relatívan rajzol, majd a CP-t az új pozícióra állítja.

A vonal a CP-b®l (x₀,y₀)megy az (x₁,y₁)pontig, aholx₁=x₀+^Dx,y₁=y₀ +^Dy.

procedure SetLineStyle(LineStyle: word; Pattern: word; Thickness:

word);

Beállítja az aktuális vonalvastagságot és színt.

procedure GetLineSettings(var LineInfo: LineSettingsType);

Információt ad az aktuális vonalmintáról, stílusról és vonalvastagságról, ahogy azt aSetLineStyledeniálta.

procedure SetWriteMode(WriteMode: integer);

Az egyenesek rajzolásának módját állítja be. (^XORPUT,^ANDPUT,^ORPUTstb.)

3.2.1.7. Körök, körívek és más görbék

procedure Circle(X, Y: integer; Radius: word);

A ^SetColor-ral beállított aktuális színnel egy (^X, ^Y) középpontú, ^Radius sugarú kört rajzol.

procedure Arc(X, Y: integer; StAngle, EndAngle, Radius: word);

Körívet rajzol (nem szükségszer¶en kört). A körív az^StAngle(kezd® szög)-t®l az^EndAngle-ig tart,^Radiussugárral és (^X,^Y)-t használva középpontul.

procedure Ellipse(X, Y: integer; StAngle, EndAngle: word; XRadius, YRadius: word);

Megrajzolja egy ellipszis körvonalát. A körvonalat az ^StAngle szögt®l EndAngle-ig rajzolja^XRadiusnagytengely¶ és^YRadiuskistengely¶ sugárral az (^X,^Y) középpontból.

procedure GetArcCoords(var ArcCoords: ArcCoordsType);

A legutóbbi^Arcutasítással megrajzolt kör vagy ellipszis középpontját, és az ív kezd®- és végpontját adja vissza.

procedure PieSlice(X, Y: integer; StAngle, EndAngle, Radius: word);

Megrajzol és kitölt egy körcikket. Az (^X,^Y) a középpont. A szelet^StAngle szögt®l^EndAngle-ig tart,^Radiussugárral.

procedure Sector(X, Y: integer; StAngle, EndAngle, XRadius, YRadius:

word);

Megrajzol és kitölt egy ellipsziscikkelyt. A változók jelentését lásd az Ellipseill. a^PieSliceeljárásnál.

procedure FillEllipse(X, Y: integer; XRadius, YRadius: word);

Megrajzol egy kitöltött ellipszist. (^X,^Y) a középpont; ^XRadiusés^YRadiusa függ®leges és vízszintes sugarak.

3.2.1.8. Sokszögek, satírozások

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

Megrajzolja egy téglalap körvonalát az aktuális színnel és vonalstílussal. A téglalap bal fels® és jobb alsó sarkát az (^x1,^y1) és (^x2,^y2) koordináták adják meg.

procedure Bar(x1, y1, x2, y2: integer);

Téglalapot rajzol az aktuális kitöltési stílussal és színnel. Az (^x1,^y1) a tég-lalap bal fels® sarkának, az (^x2,^y2) pedig a jobb alsó sarkának koordinátáit tartalmazza.

procedure Bar3D(x1, y1, x2, y2: integer; Depth: word; Top: boolean);

3 dimenziós téglatestet rajzol az aktuális kitöltési stílussal és színnel. A téglatest els® lapja olyan, mintha a^Bareljárással az^x1,^y1,^x2,^y2 paraméte-rekkel rajzoltuk volna meg. A^Depthparaméterbe a téglatest mélységét kell írni. A^Topazt határozza meg, hogy meg kell-e rajzolni a test fels® lapját vagy sem.

procedure DrawPoly(NumPoints: word; var PolyPoints);

Megrajzolja egy sokszög körvonalát az aktuális színnel és vonalstílus-sal. A ^NumPoints a csúcsok számát határozza meg, amelyek koordinátái a^PolyPoints-ban vannak tárolva. Egy koordináta két word-ból áll, egy^Xés egy^Yértékb®l.

procedure FillPoly(NumPoints: word; var PolyPoints);

Megrajzol egy kitöltött sokszöget. A^NumPointsa sokszög csúcsainak számát adja meg, a csúcsok koordinátáit pedig a^PolyPointsparaméterbe kell tenni.

Egy csúcs koordinátája két word-ból áll, az egyik az^X, a másik az^Y. procedure FloodFill(X, Y: integer; Border: word);

Egy körülhatárolt területet a megadott színnel és mintával tölt ki. Az (^X,^Y) koordinátájú pontnak benne kell lennie a területben. A^Bordera színezend®

területet határoló szín kódja.

procedure SetFillStyle(Pattern: word; Color: word);

Beállítja a kitöltési mintát és színt. A^Patterna minta számát, a^Colorpedig a minta színét tartalmazza.

procedure GetFillSettings(var FillInfo: FillSettingsType);

Az aktuális színt és töltési mintát adja vissza, amit aSetFillStyle vagy SetFillPatternállított be legutoljára.

procedure SetFillPattern(Pattern: FillPatternType; Color: word);

Egy felhasználó által deniált kitöltési mintát állít be. A ^Color a minta színét adja meg.

procedure GetFillPattern(var FillPattern: FillPatternType);

Az aktuálisan kiválasztott tónus és minta értékét adja vissza, amelyeket a SetFillStylevagy aSetFillPatternparancsokkal állítottunk be.

3.2.1.9. Képmentés és visszaállítás

function ImageSize(x1, y1, x2, y2: integer): word;

A megadott ablak (vagy terület) byte-okban mért memóriabeli helyfoglalását adja vissza. A mérend® téglalap bal fels® és jobb alsó sarkát határozzák meg a paraméterek.

procedure GetImage(x1, y1, x2, y2: integer; var BitMap);

A kijelölt terület bittérképét bufferbe menti. Az (^x1, ^y1) és (^x2,^y2) adják meg a másolandó terület bal fels® és jobb alsó sarkát. A bittérképet a^BitMap változóba menti.

procedure PutImage(X, Y: integer; var BitMap; BitBlt: word);

Egy terület tartalmát visszatölti a képerny®re. A visszatöltés a^BitMaptípus nélküli változóból történik egy olyan téglalapba, amelynek bal fels® sarka (^X, ^Y). A ^BitBlt változóval a visszatöltés módját deniálhatjuk (^XorPut, NormalPut,^AndPut,^OrPut, stb.).

3.2.1.10. Szövegkezelés

procedure SetTextStyle(Font, Direction: word; CharSize: word);

Grakus módban beállítja a szöveges kiírás paramétereit (stílusát). A^Font a bet¶típus száma, a ^Directiona kiírás iránya, a ^CharSizepedig a kiírás mérete.

procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word);

Megváltoztatja a grakus bet¶k szélességét és magasságát. Az aktuális bet¶-típus szélessége: MultX / DivX-szeresre, a magassága pedigMultY / DivY -szeresre növekszik.

procedure SetTextJustify(Horiz, Vert: word);

Ez az eljárás a következ® szövegkiírások pozicionálásának fajtáját állítja be.

A^Horiza vízszintes, a^Verta függ®leges igazítás kódját tartalmazzák. Ezek a kódok az igazító konstansok is lehetnek.

procedure GetTextSettings(var TextInfo: TextSettingsType);

A SetTextStyleés SetTextJustifyeljárásokkal beállított szövegstílusról adja meg a következ® információkat: szövegfont (bet¶típus), irány, méret, pozicionálás.

function TextHeight(TextString: string): word;

A függvény értéke a paraméterben megadott szöveg képpontokban mért magassága.

function TextWidth(TextString: string): word;

A függvény értéke a paraméterben megadott szöveg képpontokban mért szélessége.

procedure OutText(TextString: string);

Az aktuális pozícióba szöveget ír ki a grakus képerny®n.

procedure OutTextXY(X, Y: integer; TextString: string);

Kiír egy stringet a grakus képerny®re az (^X,^Y) ponttól kezdve.

3.2.1.11. Színhasználat

procedure GetDefaultPalette(var Palette: PaletteType);

Az adott képerny®típusnak megfelel® alapértelmezett palettát leíró rekor-dot adja vissza. Ezt a rekorrekor-dot az^InitGraphállítja be.

procedure SetPalette(ColorNum: word; Color: shortint);

Az aktuális paletta^ColorNumszínét^Colorszín¶re cseréli.

procedure SetAllPalette(var Palette);

Lecseréli az aktív paletta összes színét a megadott paletta színeire. Csak grakus módban, akkor is csak a következ® grakus meghajtóknál alkal-mazható: EGA, EGA64, VGA. Az IBM8514 és VGA256 színes módjában nem használható.

procedure GetPalette(var Palette: PaletteType);

Az aktuális palettát és méretét adja vissza.

function GetPaletteSize: integer;

A grakus üzemmód palettájának méretét, azaz a színek számát adja vissza.

function GetMaxColor: word;

A^SetColoreljárással beállítható legmagasabb érték¶ szín kódját adja meg.

procedure SetBkColor(Color: word);

Beállítja az aktuális háttérszínt. Csak az aktuális paletta színeib®l választ-hatunk.

procedure SetColor(Color: word);

Beállítja az aktuális rajzoló színt. Csak az aktuális paletta színeib®l választ-hatunk.

function GetBkColor: word;

Visszaadja az aktuális háttérszínt.

function GetColor: word;

Visszaadja az aktuális színt, melyet a legutóbbi^SetColor-ral deniáltunk.

In document 1.1. A számítógépes graka célja (Pldal 178-185)