/************************************************************************/
/*   demo.c														SteLa   */
/*	 zeigt die Verwendung von draw_text()				   Maerz 1988	*/
/************************************************************************/

#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>
#include <graphics/gfxbase.h>
#include <graphics/text.h>

struct IntuitionBase *IntuitionBase = NULL;
struct GfxBase *GfxBase = NULL;
ULONG *DiskfontBase = NULL;
struct TextAttr tf_attr = {
	(UBYTE *) "diamond.font", 20, 0, FPF_DISKFONT
};
struct TextFont *tf = NULL;

demo_exit(e)
	int e;
{
	if (tf) CloseFont(tf);
	if (DiskfontBase) CloseLibrary(DiskfontBase);
	if (GfxBase) CloseLibrary(GfxBase);
	if (IntuitionBase) CloseLibrary(IntuitionBase);
	exit((long) e);
}

main()
{
	extern void *OpenLibrary(), *OpenDiskFont();
	struct Window *w;
	int i;
	char l[20];

	if (!(IntuitionBase = (struct IntuitionBase *)
		        		OpenLibrary("intuition.library", 0L))) demo_exit(10);
	if (!(GfxBase = (struct GfxBase *) 
		  	      		 OpenLibrary("graphics.library", 0L))) demo_exit(10);
	if (!(DiskfontBase = (ULONG *) 
			  			 OpenLibrary("diskfont.library", 0L))) demo_exit(10);
	tf = (struct TextFont *) OpenDiskFont(&tf_attr);
	if (!(w = IntuitionBase->ActiveWindow)) demo_exit(10);
	if (tf) SetFont(w->RPort, tf);
	for (i = 0; i < 8; ++i) {
		Move(w->RPort, 320L, 140L);
		sprintf(l, " Richtung %d", i);
		draw_text(w->RPort, l, i);
	};
	demo_exit(0);
}