home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / modulessrc / devices / prtgfx.e < prev    next >
Text File  |  1995-07-05  |  2KB  |  63 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'graphics/rastport'
  5.  
  6. CONST PCMYELLOW=0,
  7.       PCMMAGENTA=1,
  8.       PCMCYAN=2,
  9.       PCMBLACK=3,
  10.       PCMBLUE=0,
  11.       PCMGREEN=1,
  12.       PCMRED=2,
  13.       PCMWHITE=3
  14.  
  15. OBJECT colorentry
  16. -> a) next four CHARs are unioned as "colorlong:LONG"
  17. -> b) also unioned as "colorsbyte[4]:ARRAY", which is signed CHARs
  18.   colorbyte[4]:ARRAY
  19. ENDOBJECT     /* SIZEOF=4 */
  20.  
  21. OBJECT prtinfo
  22.   render:LONG
  23.   rp:PTR TO rastport
  24.   temprp:PTR TO rastport
  25.   rowbuf:PTR TO INT  -> Target is unsigned
  26.   hambuf:PTR TO INT  -> Target is unsigned
  27.   colormap:PTR TO colorentry
  28.   colorint:PTR TO colorentry
  29.   hamint:PTR TO colorentry
  30.   dest1int:PTR TO colorentry
  31.   dest2int:PTR TO colorentry
  32.   scalex:PTR TO INT  -> Target is unsigned
  33.   scalexalt:PTR TO INT  -> Target is unsigned
  34.   dmatrix:PTR TO CHAR
  35.   topbuf:PTR TO INT  -> Target is unsigned
  36.   botbuf:PTR TO INT  -> Target is unsigned
  37.   rowbufsize:INT  -> This is unsigned
  38.   hambufsize:INT  -> This is unsigned
  39.   colormapsize:INT  -> This is unsigned
  40.   colorintsize:INT  -> This is unsigned
  41.   hamintsize:INT  -> This is unsigned
  42.   dest1intsize:INT  -> This is unsigned
  43.   dest2intsize:INT  -> This is unsigned
  44.   scalexsize:INT  -> This is unsigned
  45.   scalexaltsize:INT  -> This is unsigned
  46.   prefsflags:INT  -> This is unsigned
  47.   special:LONG
  48.   xstart:INT  -> This is unsigned
  49.   ystart:INT  -> This is unsigned
  50.   width:INT  -> This is unsigned
  51.   height:INT  -> This is unsigned
  52.   pc:LONG
  53.   pr:LONG
  54.   ymult:INT  -> This is unsigned
  55.   ymod:INT  -> This is unsigned
  56.   ety:INT
  57.   xpos:INT  -> This is unsigned
  58.   threshold:INT  -> This is unsigned
  59.   tempwidth:INT  -> This is unsigned
  60.   flags:INT  -> This is unsigned
  61. ENDOBJECT     /* SIZEOF=114 */
  62.  
  63.