/*
 *  More Drawing
 *  ------------
 *  This program shows some more complex drawing
 *  routines being used in a drawing area.
 */

#include <graphapp.h>

void draw_shapes(drawing d, rect r)
{
	setcolour(Red);
	fillrect(r);

	setcolour(Blue);
	fillellipse(insetr(r,4));

	setcolour(Green);
	drawline(pt(r.x,r.y),
		 pt(r.x+r.width,r.y+r.height));
	drawline(pt(r.x,r.y+r.height),
		 pt(r.x+r.width,r.y));
}

void main(void)
{
	window w;
	drawing d;
	rect r;

	w = newwindow("Rectangles",
			rect(50,50,150,200),
			StandardWindow);
	setbackground(w, LightGrey);
	r = rect(10,10,100,100);
	d = newdrawing(r, draw_shapes);
	show(w);
	mainloop();
}