--***********************************************************************
--									*
--									*
--   This software was written by Bevin Brett, of Digital Equipment	*
--   Corporation.							*
--									*
--   Digital assumes no responsibility AT ALL for the use or reliability*
--   of this software.							*
--									*
--   Redistribution and use in source and binary forms are permitted	*
--   provided that the above copyright notice and this paragraph are	*
--   duplicated in all such forms and that any documentation,		*
--   advertising materials, and other materials related to such		*
--   distribution and use acknowledge that the software was developed	*
--   by Digital Equipment Corporation. The name of Digital Equipment	*
--   Corporation may not be used to endorse or promote products derived	*
--   from this software without specific prior written permission.	*
--									*
--   THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR	*
--   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED	*
--   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.*
--									*
--***********************************************************************

-- modified for use with Adabindx 10.8.1997
-- Hans-Frieder Vogt (vogt@ilaws6.luftfahrt.uni-stuttgart.de)

separate(GRAPHICS_WINDOW_MANAGER)
    procedure START_NEW_PICTURE is
    begin
       X_Copy_Area (Display => Display,
                    Src     => GW.PIXMAP,
                    Dest    => GW.WINDOW,
                    GC      => GW.GCs(Color_1),
                    Src_X   => 0,
                    Src_Y   => 0,
                    Width   => GW.WIDTH,
                    Height  => GW.HEIGHT,
                    Dest_X  => 0,
                    Dest_Y  => 0);
		
	X_Flush (DISPLAY);
	delay 0.01;

	ERASE;
    end;