/* Programme test de tracé de ligne. Adapté du code paru dans la
   rubrique _On Graphics_  du Programmer's Journal.
  Compilé et lié avec Borland C++ 4.02 en modèle small :
    bcc -ms l15-2.c l15-1.c
  Testé par Jim Mischel 11/30/94 */

#include <dos.h>

#define GRAPHICS_MODE   0x13
#define TEXT_MODE       0x03
#define BIOS_VIDEO_INT  0x10
#define X_MAX           320      /* largeur de l'écran */
#define Y_MAX           200      /* hauteur de l'écran */

extern void LineDraw(int XStart, int YStart, int XEnd, int YEnd, int Color);

/* Routine pour afficher un rectangle uni, de longueur
 * et de couleur spécifiées */
void VectorsUp(XCenter, YCenter, XLength, YLength, Color)
int XCenter, YCenter;   /* centre du rectangle à remplir */
int XLength, YLength;   /* distance du centre au coin du rectangle */
int Color;              /* couleur dans laquelle afficher les lignes */
{
   int WorkingX, WorkingY;

   /* Lignes du centre au haut du rectangle */
   WorkingX = XCenter - XLength;
   WorkingY = YCenter - YLength;
   for ( ; WorkingX < ( XCenter + XLength ); WorkingX++ )
   {
      LineDraw(XCenter, YCenter, WorkingX, WorkingY, Color);
   }
   /* Lignes du centre à la droite du rectangle */
   WorkingX = XCenter + XLength - 1;
   WorkingY = YCenter - YLength;
   for ( ; WorkingY < ( YCenter + YLength ); WorkingY++ )
   {
      LineDraw(XCenter, YCenter, WorkingX, WorkingY, Color);
   }
   /* Lignes du centre au bas du rectangle */
   WorkingX = XCenter + XLength - 1;
   WorkingY = YCenter + YLength - 1;
   for ( ; WorkingX >= ( XCenter - XLength ); WorkingX-- )
   {
      LineDraw(XCenter, YCenter, WorkingX, WorkingY, Color);
   }
   /* Lignes du centre à la gauche du rectangle */
   WorkingX = XCenter - XLength;
   WorkingY = YCenter + YLength - 1;
   for ( ; WorkingY >= ( YCenter - YLength ); WorkingY-- )
   {
      LineDraw(XCenter, YCenter, WorkingX, WorkingY, Color);
   }
}
/* Programme test pour afficher quatre rectangles pleins de lignes.  */
int main()
{
   union REGS regs;

   /* Paramètre le mode graphique */
   regs.x.ax = GRAPHICS_MODE;
   int86(BIOS_VIDEO_INT, &regs, &regs);

   /* Affiche les quatre rectangles unis*/
   VectorsUp(X_MAX / 4, Y_MAX / 4, X_MAX / 4, Y_MAX / 4, 1);
   VectorsUp(X_MAX * 3 / 4, Y_MAX / 4, X_MAX / 4, Y_MAX / 4, 2);
   VectorsUp(X_MAX / 4, Y_MAX * 3 / 4, X_MAX / 4, Y_MAX / 4, 3);
   VectorsUp(X_MAX * 3 / 4, Y_MAX * 3 / 4, X_MAX / 4, Y_MAX / 4, 4);

   /* Attend une touche clavier */
   getch();

   /* Retour au mode texte */
   regs.x.ax = TEXT_MODE;
   int86(BIOS_VIDEO_INT, &regs, &regs);
}