home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / DRAW.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  2.2 KB  |  43 lines
  1. --        ╔═════════════════════════════════════════════════════════════╗
  2. --        ║█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█║
  3. --        ║█                                                           █║
  4. --        ║█                 Meridian Software Systems                 █║
  5. --        ║█                                                           █║
  6. --        ║█                    Copyright (C)  1990                    █║
  7. --        ║█                                                           █║
  8. --        ║█                    ALL RIGHTS RESERVED                    █║
  9. --        ║█                                                           █║
  10. --        ║█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█║
  11. --        ╚═════════════════════════════════════════════════════════════╝
  12.  
  13. ------------------------------------------------------------------------------
  14. --
  15. --   Unit Name:   DRAW         - package specification
  16. --
  17. --   Purpose of unit:   This specification allows the application programmer
  18. --                      to interface with the software to perform the func-
  19. --                      tions to draw the geometric shapes and set the fore-
  20. --                      ground and backgorund colors. The programmer may also
  21. --                      use this package to clear a graphics screen and fill 
  22. --                      the geometric objects drawn.
  23. --
  24. ------------------------------------------------------------------------------
  25.  
  26. with COMMON_DISPLAY_TYPES;
  27.  
  28. package DRAW is
  29.  
  30.   procedure ELLIPSE          (XC, YC, A0, B0    : natural);
  31.   procedure CIRCLE           (XC, YC, R         : natural);
  32.   procedure CIRCLE_SEGMENT   (XC, YC, SA, EA, R : natural);
  33.   procedure ARC              (XC, YC, SA, EA, R : natural);
  34.   procedure RECTANGLE        (X1, Y1, X2, Y2    : natural);
  35.   procedure LINE             (X1, Y1, X2, Y2    : natural);
  36.   procedure OBJECT_FILL      (X, Y              : natural;
  37.                   FIL_C, BRD_C      : COMMON_DISPLAY_TYPES.COLOR);
  38.   procedure FOREGROUND_COLOR (COLOR             : COMMON_DISPLAY_TYPES.COLOR);
  39.   procedure BACKGROUND_COLOR (COLOR             : COMMON_DISPLAY_TYPES.COLOR);
  40.   procedure CLEAR_SCREEN;
  41.  
  42. end DRAW;
  43.