Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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")
- ; LoadImage(#img_CenterCircle1,"images\centercircle\CenterCircle1.png")
- ; LoadImage(#img_CenterCircle2,"images\centercircle\CenterCircle2.png")
- ; LoadImage(#img_CenterCircle3,"images\centercircle\CenterCircle3.png")
- ; LoadImage(#img_CenterCircle4,"images\centercircle\CenterCircle4.png")
- ; LoadImage(#img_CenterCircle5,"images\centercircle\CenterCircle5.png")
- ; LoadImage(#img_CenterCircle6,"images\centercircle\CenterCircle6.png")
- ; LoadImage(#img_CenterCircle7,"images\centercircle\CenterCircle7.png")
- ; LoadImage(#img_CenterCircle8,"images\centercircle\CenterCircle8.png")
- ; LoadImage(#img_CenterCircle9,"images\centercircle\CenterCircle9.png")
- ; LoadImage(#img_CenterCircle10,"images\centercircle\CenterCircle10.png")
- ; LoadImage(#img_CenterCircle11,"images\centercircle\CenterCircle11.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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement