/* SMGTYK v.0.1 */
 
#include <proto/exec.h>
#include <proto/graphics.h>
#include <proto/intuition.h>
#include <proto/layers.h>
 
#include <graphics/rpattr.h>
 
int main()
{
	struct Screen *wb = IIntuition->LockPubScreen("workbench");
	struct Layer_Info *li = &wb->LayerInfo;
	IIntuition->UnlockPubScreen(NULL, wb);
	struct ClipRect *cr = ILayers->AllocClipRect(li);
	cr->bounds.MinX = 0;
	cr->bounds.MinY = 0;
	cr->bounds.MaxX = 63;
	cr->bounds.MaxY - 63;
	cr->BitMap = IGraphics->AllocBitMap(64, 64, 8, BMF_CLEAR, NULL);
	struct RastPort alpharas;
	IGraphics->InitRastPort(&alpharas);
	alpharas.BitMap = cr->BitMap;
	IGraphics->SetRPAttrs(&alpharas, RPTAG_APen, 255, TAG_DONE);
	IGraphics->RectFill(&alpharas, 0, 0, 63, 63);
	int i;
	for(i = 0; i < 32; i++)
	{
		IGraphics->SetRPAttrs(&alpharas, RPTAG_APen, 256/32*i, TAG_DONE);
		IGraphics->DrawEllipse(&alpharas, 32, 32, i, i);
	}
	struct Window *win = IIntuition->OpenWindowTags(NULL,
											WA_Width, 64,
											WA_Height, 64,
											WA_Borderless, TRUE,
											WA_Activate, TRUE,
 
											//WA_Opaqueness, 128,
											WA_AlphaClips, cr,
 
											WA_IDCMP, IDCMP_MOUSEBUTTONS,
											TAG_DONE);
 
 
	IExec->WaitPort(win->UserPort);
 
	IIntuition->CloseWindow(win);
	ILayers->FreeClipRect(li, cr);
 
	return 0;
}