home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / oberon / system / bitmaps.mod (.txt) < prev    next >
Oberon Text  |  1977-12-31  |  548b  |  21 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE Bitmaps;
  4. IMPORT Amiga,Display,Pictures;
  5.     Bitmap*=Pictures.Picture;
  6.     Disp-:Pictures.Picture;
  7. PROCEDURE New*(w,h:INTEGER):Bitmap;
  8.     b:Bitmap;
  9. BEGIN
  10.     NEW(b);
  11.     Pictures.Create(b,w,h,Amiga.OberonDepth);
  12.     RETURN b;
  13. END New;
  14. PROCEDURE CopyBlock*(src,dst:Bitmap; sx,sy,w,h,dx,dy,mode:INTEGER);
  15. BEGIN
  16.     Pictures.CopyBlock(src,dst,sx,sy,w,h,dx,dy,mode);
  17. END CopyBlock;
  18. BEGIN
  19.     Disp:=Display.screen;
  20. END Bitmaps.
  21.