home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / apple2 / 17857 < prev    next >
Encoding:
Internet Message Format  |  1992-07-24  |  4.8 KB
  1. Path: sparky!uunet!usc!wupost!waikato.ac.nz!comp.vuw.ac.nz!actrix!David.Empson
  2. Newsgroups: comp.sys.apple2
  3. Subject: Re: PS to mousetext & hyperc
  4. Message-ID: <1992Jul24.134358.3132@actrix.gen.nz>
  5. From: David.Empson@bbs.actrix.gen.nz
  6. Date: Fri, 24 Jul 1992 13:43:58 GMT
  7. Sender: David.Empson@actrix.gen.nz (David Empson)
  8. References: <9207231157.AA10723@aitgw.ge.com>
  9. Organization: Actrix Information Exchange
  10. Lines: 135
  11.  
  12. In article <9207231157.AA10723@aitgw.ge.com> TEFFTA@TSENGR.dnet.ge.com (Andrew Tefft) writes:
  13. >
  14. > [snip]
  15. > 
  16. > The next obvious question is "how can I tell if a character on the screen
  17. > is mousetext?" 
  18. > 
  19. > One would need this if they were going to print a pointer-type mouse cursor,
  20. > since they would need to restore the character they obliterated after moving
  21. > the pointer, and mousetext would probably be used in such displays.
  22. > 
  23. > It seems that there must be some way to preserve the mousetext-ness of
  24. > characters on the screen, since mousetext stays mousetext when the screen
  25. > scrolls... so there must also be some way to query the mousetext-ness
  26. > of a character on the screen, too, no?
  27.  
  28. How do you intend to read characters directly off the screen?  There is
  29. no way to do this using the 80-column firmware.  As far as I know,
  30. you'll have to access the screen yourself.  You'll therefore need a
  31. routine that calculates the address of a screen character, including
  32. handling switching between page 1 and 2 for 80-column mode.
  33.  
  34. The following code is (roughly) how you might implement a mouse cursor
  35. in ORCA/C on the IIgs.  You should be able to adapt this to Hyper C
  36. without much trouble (the screen addressing is identical).
  37.  
  38. E-Mail me if you have any questions. 
  39.  
  40. You may have difficulty understanding open_screen and close_screen
  41. unless you understand how the text screen is addressed.
  42.  
  43. I'm assuming that HyperC will only access a single byte when a
  44. character pointer is dereferenced.  If it always accesses two bytes,
  45. and discards the high byte, then the soft-switch accesses won't work.
  46.  
  47. To use the routines, make an initial call to init_mouse(), then to
  48. show_mouse(), hide_mouse() and move_mouse() as appropriate.
  49. No routines in your own program should call open_screen() or
  50. close_screen(), but other routines may call peek_screen() and
  51. poke_screen().
  52.  
  53. IMPORTANT: make sure the mouse is hidden before you output any text to
  54. the screen (or use an input routine), or it may cause the old
  55. characters to reappear when the mouse moves.
  56.  
  57. Another point: all of these routines deal with X coordinates in the
  58. range 0 to 79 and Y coordinates in the range 0 to 23.  Using X or Y
  59. values outside these ranges could trash memory at random.  Don't try it!
  60. If HyperC normally uses 1 to 80 and 1 to 24, you'll need to make some
  61. changes to these routines.
  62.  
  63. /********************  Mouse cursor handling routines  ****************/
  64.  
  65. static int mouse_visible;    /* TRUE if mouse cursor is on screen */
  66. static int mouse_x, mouse_y;    /* mouse cursor coordinates */
  67. static int oldchar;        /* the character "under" the cursor */
  68.  
  69. /* These four macros define the soft-switches used to control the
  70.    80-column display. */
  71. #define    PAGE1        *((char *)0xC054)
  72. #define    PAGE2        *((char *)0xC055)
  73. #define    ON_80STORE    *((char *)0xC001)
  74. #define    OFF_80STORE    *((char *)0xC000)
  75.  
  76. #define    SCREEN        0x0400
  77.  
  78. static char *open_screen(int x, int y) {
  79.     int base, dummy;
  80.     /* Calculate base address of the line */
  81.     base = SCREEN + (y >> 3) * 0x28 + (y & 7) * 0x80;
  82.     /* Enable 80-column store and select the appropriate page */
  83.     ON_80STORE = 0;        /* Must WRITE */
  84.     if (x & 1)    /* Least significant bit set, i.e. ODD number */
  85.         dummy = PAGE1;    /* odd columns: main memory (page 1) */
  86.     else
  87.         dummy = PAGE2;    /* even columns: aux memory (page 2) */
  88.     /* Return the address of the character */
  89.     return (char *)(base + (y >> 1));
  90. }
  91.  
  92. static void close_screen(void) {
  93.     int dummy;
  94.     dummy = PAGE1;        /* Reselect page 1 (just in case) */
  95.     OFF_80STORE = 0;    /* Turn off 80-column store */
  96. }
  97.  
  98. int peek_screen(int x, int y) {
  99.     int ch;
  100.     ch = *open_screen(x, y);
  101.     close_screen();
  102.     return ch;
  103. }
  104.  
  105. void poke_screen(int x, int y, int ch) {
  106.     *open_screen(x, y) = ch;
  107.     close_screen();
  108. }
  109.  
  110. void hide_mouse(void) {
  111.     if (mouse_visible) {
  112.         poke_screen(mouse_x, mouse_y, oldchar);
  113.         mouse_visible = FALSE;
  114.     }
  115. }
  116.  
  117. void show_mouse(void) {
  118.     if (!mouse_visible) {
  119.         oldchar = peek_screen(mouse_x, mouse_y);
  120.         poke_screen(mouse_x, mouse_y, 0x42);    /* Mouse arrow */
  121.         mouse_visible = TRUE;
  122.     }
  123. }
  124.  
  125. void move_mouse(int x, int y) {
  126.     int old_visible;
  127.     old_visible = mouse_visible;
  128.     if (old_visible)
  129.         hide_mouse();
  130.     mouse_x = x;
  131.     mouse_y = y;
  132.     if (old_visible)
  133.         show_mouse();
  134. }
  135.  
  136. void init_mouse(void) {
  137.     /* I'm assuming you've already initialized the mouse hardware,
  138.        clamping, etc. */
  139.     mouse_visible = FALSE;
  140.     mouse_x = mouse_y = 0;
  141. }
  142. -- 
  143. David Empson
  144.  
  145. Internet: David.Empson@bbs.actrix.gen.nz    EMPSON_D@kosmos.wcc.govt.nz
  146. Snail mail: P.O. Box 27-103, Wellington, New Zealand
  147.