{ MAXONPascal3-Anpasung / Test:  Falk Zühlsdorff (PackMAN) 1994 }

PROGRAM ImageDemo;
USES INTUITION;
TYPE
  Plane = Array[1..36] of Word;      { 3*12 = 36 }
VAR
  Win: ^Window;
  Img: Image;
  Dat: ^Plane;
BEGIN
  Win:=Open_Window(160,50,100,50,1,0,$1007,'Image',Nil,100,50,640,200);
  { Speicher für Bilddaten reservieren: }
  Dat:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );   { 2 = "MEMF_CHIP" }
  { Bild initialisieren: }
  Dat^:=Plane(%0001111111111111, %1111111111111111, %1111111111111000,
              %0111000000000000, %0000000000000000, %0000000000001110,
              %1110000111111100, %0011110001111000, %0000000111100111,
              %1100000111100111, %0011110000111100, %0000001111000011,
              %1100000111100111, %0000000000111100, %0000001111000011,
              %1100000111111100, %0111110000111100, %0011111111000011,
              %1100000111100111, %0011110000111100, %0111001111000011,
              %1100000111100111, %0011110000111100, %0111001111000011,
              %1100000111111100, %0111111001111110, %0011111111100011,
              %1110000000000000, %0000000000000000, %0000000000000111,
              %0111000000000000, %0000000000000000, %0000000000001110,
              %0001111111111111, %1111111111111111, %1111111111111000);
  { Image-Struktur }
  Img:=Image(0,0,     { keine Verschiebung }
             48,      { Breite }
             12,      { Höhe }
             1,       { nur eine Plane }
             Dat,     { Bilddaten }
             1,0,     { weißes Bild, schwarzer Hintergrund }
             Nil);    { kein weiteres Image }
  DrawImage(Win^.RPort, ^Img, 20, 20);   { Bild ausgeben }
  Delay(4*50);
  Close_Window(Win);
  CloseLib(Intuitionbase);
END.