Unit u_int10h
Description
Overview
Classes, Interfaces, Objects and Records
| Name | Description |
|---|---|
Record t_rvb |
Functions and Procedures
function set_mode(n : byte) : boolean; |
procedure define_cursor(ls, li : byte); |
procedure goto_xy(page, x, y : byte); |
procedure info_cursor(page : byte; var ls, li, x, y : byte); |
procedure read_pen(var is_ok : boolean; var x, y : word; var l, c : byte); |
procedure set_page(n : byte); |
procedure scroll_up(nb_lig, text_attr, x1, y1, x2, y2 : byte); |
procedure scroll_down(nb_lig, text_attr, x1, y1, x2, y2 : byte); |
procedure put_pixel(page, color : byte; x, y : word); |
function get_pixel(page : byte; x, y : word) : byte; |
function get_mode: byte; |
procedure info_mode(var mode_num, nb_col, page : byte); |
procedure set_reg_pal(reg, coul : byte); |
procedure set_bordure_coul(coul : byte); |
procedure set_reg_pal_16_bord(t : t_tab_17_byte); |
function get_reg_pal(reg : byte) : byte; |
function get_bordure_coul: byte; |
procedure get_reg_pal_16_bord(var t : t_tab_17_byte); |
procedure set_cna_reg(reg : word; v, b, r : byte); |
procedure set_blk_cna_reg(reg1, nb_reg : word; t : t_tab_rvb); |
procedure get_cna_reg(reg : word; var v, b, r : byte); |
procedure get_blk_cna_reg(reg1, nb_reg : word; var t : t_tab_rvb); |
procedure set_coul2gray(reg1, nb_reg : word); |
Types
t_tab_rvb = array [0..255] of t_rvb; |
t_tab_17_byte = array [0..16] of byte; |
Constants
cga_40x25x16 = 1; |
cga_80x25x16 = 3; |
cga_320x200x4 = 5; |
cga_640x200x4 = 6; |
hgc_80x85x2 = 7; |
pcj_160x200x16 = 8; |
pcj_320x200x16 = 9; |
pcj_640x200x4 = $a; |
ega_320x200x16 = $d; |
ega_640x200x16 = $e; |
ega_640x350x2 = $f; |
ega_640x650x16 = $10; |
mcga_640x480x2 = $11; |
mcga_320x200x256 = $13; |
vga_640x480x16 = $12; |
Description
Functions and Procedures
function set_mode(n : byte) : boolean; |
|
******************************************************************************** Fonctions diverses ******************************************************************************** |
procedure define_cursor(ls, li : byte); |
|
Fct. 0 = S‚lection d'un mode vid‚o. |
procedure goto_xy(page, x, y : byte); |
|
Si ls = 32, le curseur est invisible. |
procedure info_cursor(page : byte; var ls, li, x, y : byte); |
|
Fct. 2 = Positionnement du curseur dans la page sp‚cifi‚e. |
procedure read_pen(var is_ok : boolean; var x, y : word; var l, c : byte); |
|
Fct. 3 = Lire l'‚tat du curseur. |
procedure set_page(n : byte); |
|
Fct. 4 = Lire la position du photostyle. |
procedure scroll_up(nb_lig, text_attr, x1, y1, x2, y2 : byte); |
|
Fct. 5 = Choisir une page vid‚o. |
procedure scroll_down(nb_lig, text_attr, x1, y1, x2, y2 : byte); |
|
Fct. 6 = D‚filement vers le haut. |
procedure put_pixel(page, color : byte; x, y : word); |
|
Fct. 7 = D‚fillement vers le bas. |
function get_pixel(page : byte; x, y : word) : byte; |
|
Fct. C = Changer la valeur d'un pixel. |
function get_mode: byte; |
procedure info_mode(var mode_num, nb_col, page : byte); |
procedure set_reg_pal(reg, coul : byte); |
|
******************************************************************************** Fonction 10h = D‚finir le contenu des registres de palette et les attributs d'intensit‚ et de clignotement. ******************************************************************************** |
procedure set_bordure_coul(coul : byte); |
|
Sfct. 0 = Modifier un registre de palette. |
procedure set_reg_pal_16_bord(t : t_tab_17_byte); |
|
Sfct. 1 = Sp‚cifier la couleur de surbalayage. |
function get_reg_pal(reg : byte) : byte; |
|
Sfct. 2 = Modifier les 16 registres de couleurs plus le surbalayage. |
function get_bordure_coul: byte; |
|
Sfct. 7 = Lire un registre de palette. |
procedure get_reg_pal_16_bord(var t : t_tab_17_byte); |
|
Sfct. 8 = Lire le contenu du refistre de surbalayage. |
procedure set_cna_reg(reg : word; v, b, r : byte); |
|
Sfct. 9 = Lire les 16 registres de palette plus le registre de surbalayage. |
procedure set_blk_cna_reg(reg1, nb_reg : word; t : t_tab_rvb); |
|
Sfct. 10h = Modifier un registre du CNA vid‚o. |
procedure get_cna_reg(reg : word; var v, b, r : byte); |
|
Sfct. 12h = Modifier un bloc de registres de couleur du CNA vid‚o. |
procedure get_blk_cna_reg(reg1, nb_reg : word; var t : t_tab_rvb); |
|
Sfct. 15h = Lire un registre de couleur du CNA vid‚o. |
procedure set_coul2gray(reg1, nb_reg : word); |
|
Sfct. 17h = Lire un bloc de registres de couleur du CNA vid‚o. |
Types
t_tab_rvb = array [0..255] of t_rvb; |
t_tab_17_byte = array [0..16] of byte; |
Constants
cga_40x25x16 = 1; |
|
Auteur: Patrick Pr‚martin. Date: 17/07/1992. 21/07/1992. 14/02/1993. Langage: Turbo PAscal 6.0 But: Impl‚mentation de quelques fonctions de l'interruption 10H en Turbo Pascal. Bibliographie: GUIDE MICROSOFT DE LA PROGRAMMATION DES CARTES GRAPHIQUES (Richard Wilton, Microsoft Corporation) |
cga_80x25x16 = 3; |
|
Cartes CGA |
cga_320x200x4 = 5; |
|
2 ou |
cga_640x200x4 = 6; |
|
4 ou |
hgc_80x85x2 = 7; |
pcj_160x200x16 = 8; |
|
Cartes Hercule |
pcj_320x200x16 = 9; |
|
PC Junior seulement |
pcj_640x200x4 = $a; |
ega_320x200x16 = $d; |
ega_640x200x16 = $e; |
|
Cartes EGA |
ega_640x350x2 = $f; |
ega_640x650x16 = $10; |
mcga_640x480x2 = $11; |
mcga_320x200x256 = $13; |
|
Cartes MCGA |
vga_640x480x16 = $12; |
Generated by PasDoc 0.16.0.