home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / examples / chunkytest.d < prev    next >
Encoding:
Text File  |  2000-11-11  |  1.2 KB  |  54 lines
  1. MODULE    'intuition/intuition',
  2.             'utility/tagitem'
  3. MODULE    'lib/chunky'
  4.  
  5. OBJECT chunky
  6.     w/h:LONG,
  7.     chunky:PTR TO UBYTE
  8.  
  9. PROC main()
  10.     DEF    w:PTR TO Window,s:PTR TO chunky,d:PTR TO chunky
  11.     IF w:=OpenWindowTags(NIL,
  12.             WA_InnerWidth,256,
  13.             WA_InnerHeight,256,
  14.             WA_Flags,WFLG_DRAGBAR|WFLG_CLOSEGADGET|WFLG_ACTIVATE|WFLG_DEPTHGADGET|WFLG_RMBTRAP,
  15.             WA_IDCMP,IDCMP_CLOSEWINDOW,
  16.             TAG_END)
  17.         s:=[8,8,
  18.                 [
  19.                     0,0,0,0,0,0,0,0,
  20.                     0,1,1,1,1,1,1,0,
  21.                     0,1,2,2,2,2,1,0,
  22.                     0,1,2,3,3,2,1,0,
  23.                     0,1,2,3,3,2,1,0,
  24.                     0,1,2,2,2,2,1,0,
  25.                     0,1,1,1,1,1,1,0,
  26.                     0,0,0,0,0,0,0,0
  27.                 ]:UBYTE
  28.             ]:chunky
  29.         d:=[8,8,
  30.                 [
  31.                     0,0,0,0,0,0,0,0,
  32.                     0,1,1,1,1,1,1,0,
  33.                     0,1,2,2,2,2,1,0,
  34.                     0,1,2,3,3,2,1,0,
  35.                     0,1,2,3,3,2,1,0,
  36.                     0,1,2,2,2,2,1,0,
  37.                     0,1,1,1,1,1,1,0,
  38.                     0,0,0,0,0,0,0,0
  39.                 ]:UBYTE
  40.             ]:chunky
  41.     xxx1:
  42.         HLine(d,5,7,2,5)
  43.     xxx2:
  44.         HLine(d,-1,8,3,5)
  45.         WriteChunkyPixels(w.RPort,50,50,57,57,s.chunky,8)
  46.         WriteChunkyPixels(w.RPort,70,70,77,77,d.chunky,8)
  47.         CopyChunky(d,0,0,s,3,3,4,4)
  48.         WriteChunkyPixels(w.RPort,90,90,97,97,d.chunky,8)
  49.         WriteChunkyPixels(w.RPort,90,90,97,97,d.chunky,8)
  50.         WaitPort(w.UserPort)
  51.         CloseWindow(w)
  52.     ELSE PrintF('No window!\n')
  53. ENDPROC
  54.