Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
MODULE Bitmaps;
IMPORT Amiga,Display,Pictures;
	Bitmap*=Pictures.Picture;
	Disp-:Pictures.Picture;
PROCEDURE New*(w,h:INTEGER):Bitmap;
	b:Bitmap;
BEGIN
	NEW(b);
	Pictures.Create(b,w,h,Amiga.OberonDepth);
	RETURN b;
END New;
PROCEDURE CopyBlock*(src,dst:Bitmap; sx,sy,w,h,dx,dy,mode:INTEGER);
BEGIN
	Pictures.CopyBlock(src,dst,sx,sy,w,h,dx,dy,mode);
END CopyBlock;
BEGIN
	Disp:=Display.screen;
END Bitmaps.