home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / binaries / image.lha / simpleimage.e < prev   
Text File  |  1992-09-02  |  2KB  |  76 lines
  1. /*   simpleimage.e  translated from the RKRM libraries examples
  2.      Translated by Eric Stringer    INTERNET #"NES@delphi.com"
  3.      This program puts a single bitplane image of a box in a window.
  4. */
  5.  
  6.  
  7. MODULE 'exec/types','intuition/intuition','intuition/intuitionbase'
  8.  
  9. CONST MYIMAGE_LEFT = 0
  10. CONST MYIMAGE_TOP  = 0
  11. CONST MYIMAGE_WIDTH = 24
  12. CONST MYIMAGE_HEIGHT = 10
  13. CONST MYIMAGE_DEPTH  = 1
  14. CONST BUFSIZE=GADGETSIZE*3, IFLAGS=IDCMP_CLOSEWINDOW+IDCMP_GADGETUP
  15. DEF buf[BUFSIZE]:ARRAY, w
  16.  
  17.  
  18.  
  19. PROC main()
  20.  
  21. DEF win:PTR TO window, myimage:PTR TO image, myimagedata:PTR TO LONG,t:PTR TO INT
  22.  
  23.  
  24. myimagedata:= [$FFFF,$FF00,    /* Image data  */
  25.                $C000,$0300,
  26.                $C000,$0300,
  27.                $C000,$0300,
  28.                $C000,$0300,
  29.                $C000,$0300,
  30.                $C000,$0300,
  31.                $C000,$0300,
  32.                $C000,$0300,
  33.                $FFFF,$FF00]:INT
  34.  
  35. intuitionbase:=OpenLibrary('intuition.library',37)
  36.  
  37. IF (intuitionbase <> NIL)
  38.    IF (NIL <> (win:=OpenW(20,11,400,100,IFLAGS,$f,'SimpleImage',NIL,1,buf)))
  39.  
  40.  
  41. myimage := [ MYIMAGE_LEFT,   /* leftedge offset */
  42.              MYIMAGE_TOP,    /* topedge offset  */
  43.              MYIMAGE_WIDTH,  /* width of image  */
  44.              MYIMAGE_HEIGHT, /* height of image */
  45.              MYIMAGE_DEPTH,  /* number of bitplanes */
  46.              myimagedata,    /* image data          */
  47.              $1,             /* plane on which data is to be put */
  48.              $0,             /* Set or clear other planes   */
  49.              NIL ]:image
  50.  
  51.        /* Draw Image on first bit plane  */
  52.        DrawImage(win.rport, myimage,20,50)
  53.        TextF(10,75,'First & second bit plane')
  54.  
  55. myimage := [ MYIMAGE_LEFT,   /* leftedge offset */
  56.              MYIMAGE_TOP,    /* topedge offset  */
  57.              MYIMAGE_WIDTH,  /* width of image  */
  58.              MYIMAGE_HEIGHT, /* height of image */
  59.              MYIMAGE_DEPTH,  /* number of bitplanes */
  60.              myimagedata,    /* image data          */
  61.              $2,
  62.              $0,
  63.              NIL ]:image
  64.        /* draw Image on second plane */
  65.        DrawImage(win.rport, myimage,80,50)
  66.  
  67.        Delay (200)
  68.  
  69.        CloseW(win)
  70.     ENDIF
  71. CloseLibrary(intuitionbase)
  72. ENDIF
  73. ENDPROC
  74.  
  75.  
  76.