UsePNGImageDecoder()
Global centercirclex = 10
Global centercircley = 10
Enumeration
;windows
  #window

;gadgets
  #centercircle

;images
  #img_CenterCircle0
  #img_CenterCircle1



EndEnumeration

Procedure Images()
  LoadImage(#img_CenterCircle0,"images\centercircle\CenterCircle0.png")
EndProcedure
Images()

Procedure ImageRotate(lImg.l)
lWidth.l = ImageWidth(lImg)-1;
lHeight.l = ImageHeight(lImg)-1;
Dim Image(ImageWidth(lImg),ImageHeight(lImg) );
sImageLocation.s = "-1";

StartDrawing(ImageOutput(lImg)); Load the second image into memory
For x = 0 To lWidth;
For y = 0 To lHeight;
Image(x,y) = Point(x,y);
Next y;
Next x;
StopDrawing();

FreeImage(lImg);
lImg = CreateImage(#PB_Any,lHeight+1,lWidth+1);

StartDrawing(ImageOutput(lImg)); Load the first image into memory
For x = 0 To lWidth;
For y = 0 To lHeight;
Plot(lHeight-y,x,Image(x,y));
Next y;
Next x;
StopDrawing();
ProcedureReturn lImg;
EndProcedure;

OpenWindow(#window,100,100,500,500,"",#PB_Window_BorderLess)
SetWindowLong_(WindowID(#window),#GWL_EXSTYLE,GetWindowLong_(WindowID(#window),#GWL_EXSTYLE)|#WS_EX_LAYERED)
SetLayeredWindowAttributes_(WindowID(#window),RGB(0,0,1),0,#LWA_COLORKEY)
SetWindowColor(#window,RGB(0,0,1))
StickyWindow(#window,1)

;ImageGadget(#centercircle,10,10,200,200,ImageID(#img_CenterCircle0))

CreateImage(#PB_Any,ImageWidth(#img_CenterCircle0),ImageHeight(#img_CenterCircle0));
StartDrawing(ImageOutput(#img_CenterCircle0))
  DrawImage(ImageID(#img_centercircle0),10,10,ImageWidth(#img_CenterCircle0),ImageHeight(#img_CenterCircle0))
StopDrawing()

MessageRequester("","")

ImageRotate(#img_CenterCircle0)

Time.s = FormatDate("%hh:%ii:%ss", Date())

Repeat
event = WaitWindowEvent()


Delay(10)
Until  event = #PB_Event_CloseWindow