home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / ImageDemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  1.7 KB  |  41 lines
  1. { MAXONPascal3-Anpasung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. PROGRAM ImageDemo;
  4. USES INTUITION;
  5. TYPE
  6.   Plane = Array[1..36] of Word;      { 3*12 = 36 }
  7. VAR
  8.   Win: ^Window;
  9.   Img: Image;
  10.   Dat: ^Plane;
  11. BEGIN
  12.   Win:=Open_Window(160,50,100,50,1,0,$1007,'Image',Nil,100,50,640,200);
  13.   { Speicher für Bilddaten reservieren: }
  14.   Dat:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );   { 2 = "MEMF_CHIP" }
  15.   { Bild initialisieren: }
  16.   Dat^:=Plane(%0001111111111111, %1111111111111111, %1111111111111000,
  17.               %0111000000000000, %0000000000000000, %0000000000001110,
  18.               %1110000111111100, %0011110001111000, %0000000111100111,
  19.               %1100000111100111, %0011110000111100, %0000001111000011,
  20.               %1100000111100111, %0000000000111100, %0000001111000011,
  21.               %1100000111111100, %0111110000111100, %0011111111000011,
  22.               %1100000111100111, %0011110000111100, %0111001111000011,
  23.               %1100000111100111, %0011110000111100, %0111001111000011,
  24.               %1100000111111100, %0111111001111110, %0011111111100011,
  25.               %1110000000000000, %0000000000000000, %0000000000000111,
  26.               %0111000000000000, %0000000000000000, %0000000000001110,
  27.               %0001111111111111, %1111111111111111, %1111111111111000);
  28.   { Image-Struktur }
  29.   Img:=Image(0,0,     { keine Verschiebung }
  30.              48,      { Breite }
  31.              12,      { Höhe }
  32.              1,       { nur eine Plane }
  33.              Dat,     { Bilddaten }
  34.              1,0,     { weißes Bild, schwarzer Hintergrund }
  35.              Nil);    { kein weiteres Image }
  36.   DrawImage(Win^.RPort, ^Img, 20, 20);   { Bild ausgeben }
  37.   Delay(4*50);
  38.   Close_Window(Win);
  39.   CloseLib(Intuitionbase);
  40. END.
  41.