Unit U_Graph

Uses
Classes, Interfaces, Objects and Records
Constants
Variables

Description

 

Overview

Functions and Procedures

Procedure Graph_Init(Mode : T_Graph_Mode);
Procedure Graph_Clear;
Procedure Graph_Plot(X, Y : Integer);
Procedure Graph_Pset(X, Y : Integer; Couleur : T_Graph_Couleur);
Procedure Graph_Color(Couleur : T_Graph_Couleur);
Function Graph_Point(X, Y : Integer) : T_Graph_Couleur;

Types

T_Graph_Mode = 0..19;
T_Graph_Couleur = 0..15;

Description

Functions and Procedures

Procedure Graph_Init(Mode : T_Graph_Mode);

0 : noir 8 : gris 1 : bleu 9 : bleu clair 2 : vert 10 : vert clair 3 : cyan 11 : cyan clair 4 : rouge 12 : rouge clair 5 : magenta 13 : magenta clair 6 : brun 14 : jaune 7 : blanc 15 : blanc intense

Procedure Graph_Clear;

Met la carte graphique dans le mode voulu.

Procedure Graph_Plot(X, Y : Integer);

Remet la carte graphique en mode texte 80*25.

Procedure Graph_Pset(X, Y : Integer; Couleur : T_Graph_Couleur);

Met un point dans la couleur courante aux coordonn‚es (X, Y).

Procedure Graph_Color(Couleur : T_Graph_Couleur);

Met un point aux coordonn‚es (X, Y) dans la couleur sp‚cifi‚e.

Function Graph_Point(X, Y : Integer) : T_Graph_Couleur;

Change la couleur par d‚faut.

Types

T_Graph_Mode = 0..19;

Auteur: Pr‚martin Patrick. Date: 09/03/1991.

But: Utilisation des capacit‚s graphiques des PC sans avoir la lourdeur de l'unit‚ GRAPH du Turbo Pascal 4.0 de Borland.

T_Graph_Couleur = 0..15;

mode r‚solution couleurs texte/graphique CGA PCjr EGA MCGA VGA MDA 0 : 40*25 demi-teinte : 16 : texte : * * * * * 1 : 40*25 : 16 : texte : * * * * * 2 : 80*25 demi-teinte : 16 : texte : * * * * * 3 : 80*25 : 16 : texte : * * * * * 4 : 320*200 : 4 : graphique : * * * * * 5 : 320*200 demi-tein : 4 : graphique : * * * * * 6 : 640*200 : 2 : graphique : * * * * * 7 : 80*25 : 2* : texte : * * * 8 : 160*200 : 16 : graphique : * 9 : 320*200 : 16 : graphique : * 10 : 640*200 : 4 : graphique : * 11 : r‚serv‚ : : : 12 : r‚serv‚ : : : 13 : 320*200 : 16 : graphique : * * 14 : 640*200 : 16 : graphique : * * 15 : 640*350 : 2* : graphique : * * 16 : 640*350 : 4 : graphique : *+ 16 : 640*350 : 16 : graphique : *- * 17 : 640*480 : 2 : graphique : * * 18 : 640*480 : 16 : graphique : * 19 : 320*200 : 256 : graphique : * *

* Avec les moniteurs monochromes. + EGA avec 64 Ko de m‚moire. - EGA avec au moins 128 Ko de m‚moire.

My libraries for Turbo Pascal (c) 1990-2025 Patrick PREMARTIN - Powered by PasDoc
Generated by PasDoc 0.16.0.