home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JAZLIB.ARC / JZBIGLTR.C < prev    next >
Encoding:
Text File  |  1986-05-08  |  1.6 KB  |  47 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzbigltr.c                                     │
  4. │Purpose print a large character 8 * 8 chars on the screen at a given         │
  5. │cursor position.                                 │
  6. │Usage:                                      │
  7. │jzbigltr('J',0,0,'█');                                                      │
  8. │                            000████0         │
  9. │This is the internal representation of the letter 'J'  0000██00             │
  10. │with the exception of the char '█' instead of a 1.     0000██00             │
  11. │Keep this representation in mind while perusing the    0000██00         │
  12. │code below. -Jaz                    ██00██00         │
  13. │                            ██00██00         │
  14. │                            0████000         │
  15. │                            00000000         │
  16. │                                         │
  17. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950              │
  18. └────────────────────────────────────────────────────────────────────────────┘
  19. */
  20.  
  21. jzbigltr(fchr , frow , fcol , fch , fattr)
  22. char fchr;
  23. int frow,fcol;
  24. unsigned char fch;
  25. int fattr;
  26. {
  27.          /* point to the character table memory in rom */
  28.   unsigned char far *wtable = (char far *) 0xF000FA6E;
  29.   char wchar,wchrstr[2];            /* used to call jzscrprn      */
  30.   int wrow,wcol;
  31.  
  32.   wtable += (fchr * 8);             /* 8 bytes for each character */
  33.  
  34.   wchrstr[0] = fch;                /* convert char to str for */
  35.   wchrstr[1] = 0;
  36.  
  37.   for (wrow = 0 ; wrow < 8 ; wrow ++) {     /* loop through chars in table */
  38.     wchar = *(wtable+wrow);            /* point to next character */
  39.     for (wcol = 7 ; wcol >= 0 ; wcol --) {  /* loop through 8 bits    */
  40.       if (wchar & 1)
  41.     jzscrprn(wchrstr,frow+wrow,fcol+wcol,fattr);
  42.       wchar >>= 1;
  43.     }
  44.   }
  45. }
  46.  
  47.