home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / chunky.lha / chunky_ppc / CreateChunky.d < prev    next >
Encoding:
Text File  |  1980-04-15  |  296 b   |  16 lines
  1. OPT    NOEXE,PPC
  2.  
  3. MODULE    'exec/memory'
  4.  
  5. OBJECT chunky
  6.     wi/he:L,
  7.     pixel:PTR TO UB
  8.  
  9. PROC CreateChunky(wi,he)(PTR TO chunky)
  10.     DEF    ch:PTR TO chunky
  11.     IFN ch:=AllocVecPPC(SIZEOF_chunky+wi*he*SIZEOF_UBYTE,MEMF_PUBLIC|MEMF_CLEAR) THEN RETURN NIL
  12.     ch.wi:=wi
  13.     ch.he:=he
  14.     ch.pixel:=ch+SIZEOF_chunky
  15. ENDPROC ch
  16.