PROGRAM 24


PROGRAM FUN_WITH_GRAPHICS;
        {ANTHONY F. ORTIZ, ASSIGNMENT 9, JULY 26, 1994}
        {THIS PROGRAM DEMONSTRATES SOME GRAPHIC ROUTINES.}

USES GRAPH;

PROCEDURE OPENGRAPHICS (VAR GRAPHDRIVER, GRAPHMODE:  INTEGER);

BEGIN
     GRAPHDRIVER := DETECT;
     INITGRAPH (GRAPHDRIVER, GRAPHMODE, 'G:\ ');
END;

PROCEDURE DRAWAXES;

BEGIN
     LINE (0, 239, 639, 239);
     LINE (319, 0, 319, 479);
     READLN;
END;

PROCEDURE DRAWRECTANGLE;

BEGIN
     SETCOLOR (WHITE);
     SETFILLSTYLE (SOLIDFILL, RED);
     RECTANGLE (80, 60, 240, 180);
     FLOODFILL (100, 100, WHITE);
     READLN;
END;

PROCEDURE DRAWCIRCLE;

BEGIN
     SETCOLOR (WHITE);
     SETFILLSTYLE (SOLIDFILL, GREEN);
     CIRCLE (480, 120, 80);
     FLOODFILL (480, 120, WHITE);
     READLN;
END;

PROCEDURE DRAWTRIANGLE;

BEGIN
     SETCOLOR (WHITE);
     SETFILLSTYLE (SOLIDFILL, BLUE);
     MOVETO (240, 420);
     LINETO (80, 420);
     MOVETO (160, 280);
     LINETO (80, 420);
     MOVETO (160, 280);
     LINETO (240, 420);
     FLOODFILL (160, 360, WHITE);
     READLN;
END;

PROCEDURE DRAWMAZDAROTOR;

BEGIN
     SETCOLOR (WHITE);
     SETFILLSTYLE (SOLIDFILL, YELLOW);
     ARC( 400, 425, 0, 60, 200);
     ARC( 600, 425, 120, 180, 200);
     ARC( 500, 252, 240, 300, 200);
     FLOODFILL (480, 360, WHITE);
     READLN ;
END;

PROCEDURE CLOSEGRAPHICS;

BEGIN
     CLOSEGRAPH;
END;

VAR
   GRAPHDRIVER, GRAPHMODE:  INTEGER;

BEGIN
     OPENGRAPHICS (GRAPHDRIVER, GRAPHMODE);
     DRAWAXES;
     DRAWRECTANGLE;
     DRAWCIRCLE;
     DRAWTRIANGLE;
     DRAWMAZDAROTOR;
     CLOSEGRAPHICS;
END.

{  OUTFILE:  PROG24.OUT  }

{  SORRY, CAN'T SHOW THIS PROGRAM.  }




BACK TO COMP151 PAGE.