home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / dm.lzh / screen.mm1.c < prev    next >
Text File  |  1995-03-24  |  2KB  |  112 lines
  1. /* screen.c screen functions for DISKMASTER.C */
  2. /* copyright (c) 1995 by Bob Devries          */
  3. /* email: bdevries@gil.ipswichcity.qld.gov.au */
  4.  
  5. #include <stdio.h>
  6. #include "screen.h"
  7.  
  8. clearscreen()
  9. {
  10.     putc(0x0c,stdout);
  11. }
  12.  
  13. clearwin(xcoord,ycoord,xlen,ylen)
  14. int xcoord;
  15. int ycoord;
  16. int xlen;
  17. int ylen;
  18. {
  19.     CWArea(1,xcoord,ycoord,xlen,ylen);
  20.     putc(0x0c,stdout);
  21. }
  22.  
  23. gotoxy(xcoord,ycoord)
  24. int xcoord;
  25. int ycoord;
  26. {
  27.     CurXY(1,xcoord,ycoord);
  28. }
  29.  
  30. horiz_doub(xcoord,ycoord,length)
  31. int xcoord;
  32. int ycoord;
  33. int length;
  34. {
  35.        int x;
  36.        gotoxy(xcoord,ycoord);
  37.        for(x=0;x<length;x++)
  38.                putc(DHORZ_BAR,stdout);
  39. }
  40.  
  41. vert_doub(xcoord,ycoord,length)
  42. int xcoord;
  43. int ycoord;
  44. int length;
  45. {
  46.        int x;
  47.        for(x=0;x<length;x++) {
  48.               gotoxy(xcoord,ycoord+x);
  49.               putc(DVERT_BAR,stdout);
  50.        }
  51. }
  52.  
  53. corner(xcoord,ycoord,which)
  54. int xcoord;
  55. int ycoord;
  56. int which;
  57. {
  58.        gotoxy(xcoord,ycoord);
  59.        switch(which) {
  60.               case TL: putc(DTOP_LEFT,stdout); break;
  61.               case TR: putc(DTOP_RITE,stdout); break;
  62.               case BL: putc(DBOT_LEFT,stdout); break;
  63.               case BR: putc(DBOT_RITE,stdout); break;
  64.        }
  65. }
  66.  
  67. box_doub(xcoord,ycoord,xlen,ylen)
  68. int xcoord;
  69. int ycoord;
  70. int xlen;
  71. int ylen;
  72. {
  73.        corner(xcoord,ycoord,TL);
  74.        horiz_doub(xcoord+1,ycoord,xlen-2);
  75.        corner(xcoord+xlen-1,ycoord,TR);
  76.        vert_doub(xcoord,ycoord+1,ylen-2);
  77.        vert_doub(xcoord+xlen-1,ycoord+1,ylen-2);
  78.        corner(xcoord,ycoord+ylen-1,BL);
  79.        horiz_doub(xcoord+1,ycoord+ylen-1,xlen-2);
  80.        corner(xcoord+xlen-1,ycoord+ylen-1,BR);
  81. }
  82.  
  83. /* colours for IBM EGA are:
  84. 0 = BLACK
  85. 1 = RED
  86. 2 = GREEN
  87. 3 = YELLOW
  88. 4 = BLUE
  89. 5 = MAGENTA
  90. 6 = CYAN
  91. 7 = WHITE
  92. */
  93.  
  94. foreground(colour)     /* colours are 0-7 */
  95. int colour;
  96. {
  97.     FColor(1,colour);
  98. }
  99.  
  100. background(colour)     /* colours are 0-7 */
  101. int colour;
  102. {
  103.     BColor(1,colour);
  104. }
  105.  
  106. cleol()
  107. {
  108.     ErEOLine(1);
  109. }
  110.  
  111. /* EOF screen.c */
  112.