home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / picticon / source / mod / macros.e < prev    next >
Encoding:
Text File  |  1995-06-08  |  171 b   |  13 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'graphics/rastport'
  5.  
  6. PROC setafpt(rast:PTR TO rastport,pattern,size)
  7.     IF rast
  8.         rast.areaptrn:=pattern
  9.         rast.areaptsz:=size
  10.     ENDIF
  11. ENDPROC
  12.  
  13.