SHARE
TWEET

Untitled

a guest Jul 29th, 2017 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. UsePNGImageDecoder()
  2. Global centercirclex = 10
  3. Global centercircley = 10
  4. Enumeration
  5. ;windows
  6.   #window
  7.  
  8. ;gadgets
  9.   #centercircle
  10.  
  11. ;images
  12.   #img_CenterCircle0
  13.   #img_CenterCircle1
  14.  
  15.  
  16.  
  17. EndEnumeration
  18.  
  19. Procedure Images()
  20.   LoadImage(#img_CenterCircle0,"images\centercircle\CenterCircle0.png")
  21. ;   LoadImage(#img_CenterCircle1,"images\centercircle\CenterCircle1.png")
  22. ;   LoadImage(#img_CenterCircle2,"images\centercircle\CenterCircle2.png")
  23. ;   LoadImage(#img_CenterCircle3,"images\centercircle\CenterCircle3.png")
  24. ;   LoadImage(#img_CenterCircle4,"images\centercircle\CenterCircle4.png")
  25. ;   LoadImage(#img_CenterCircle5,"images\centercircle\CenterCircle5.png")
  26. ;   LoadImage(#img_CenterCircle6,"images\centercircle\CenterCircle6.png")
  27. ;   LoadImage(#img_CenterCircle7,"images\centercircle\CenterCircle7.png")
  28. ;   LoadImage(#img_CenterCircle8,"images\centercircle\CenterCircle8.png")
  29. ;   LoadImage(#img_CenterCircle9,"images\centercircle\CenterCircle9.png")
  30. ;   LoadImage(#img_CenterCircle10,"images\centercircle\CenterCircle10.png")
  31. ;   LoadImage(#img_CenterCircle11,"images\centercircle\CenterCircle11.png")
  32. EndProcedure
  33. Images()
  34.  
  35. Procedure ImageRotate(lImg.l)
  36. lWidth.l = ImageWidth(lImg)-1;
  37. lHeight.l = ImageHeight(lImg)-1;
  38. Dim Image(ImageWidth(lImg),ImageHeight(lImg) );
  39. sImageLocation.s = "-1";
  40.  
  41. StartDrawing(ImageOutput(lImg)); Load the second image into memory
  42. For x = 0 To lWidth;
  43. For y = 0 To lHeight;
  44. Image(x,y) = Point(x,y);
  45. Next y;
  46. Next x;
  47. StopDrawing();
  48.  
  49. FreeImage(lImg);
  50. lImg = CreateImage(#PB_Any,lHeight+1,lWidth+1);
  51.  
  52. StartDrawing(ImageOutput(lImg)); Load the first image into memory
  53. For x = 0 To lWidth;
  54. For y = 0 To lHeight;
  55. Plot(lHeight-y,x,Image(x,y));
  56. Next y;
  57. Next x;
  58. StopDrawing();
  59. ProcedureReturn lImg;
  60. EndProcedure;
  61.  
  62. OpenWindow(#window,100,100,500,500,"",#PB_Window_BorderLess)
  63. SetWindowLong_(WindowID(#window),#GWL_EXSTYLE,GetWindowLong_(WindowID(#window),#GWL_EXSTYLE)|#WS_EX_LAYERED)
  64. SetLayeredWindowAttributes_(WindowID(#window),RGB(0,0,1),0,#LWA_COLORKEY)
  65. SetWindowColor(#window,RGB(0,0,1))
  66. StickyWindow(#window,1)
  67.  
  68. ;ImageGadget(#centercircle,10,10,200,200,ImageID(#img_CenterCircle0))
  69.  
  70. CreateImage(#PB_Any,ImageWidth(#img_CenterCircle0),ImageHeight(#img_CenterCircle0));
  71. StartDrawing(ImageOutput(#img_CenterCircle0))
  72.   DrawImage(ImageID(#img_centercircle0),10,10,ImageWidth(#img_CenterCircle0),ImageHeight(#img_CenterCircle0))
  73. StopDrawing()
  74.  
  75. MessageRequester("","")
  76.  
  77. ImageRotate(#img_CenterCircle0)
  78.  
  79. Time.s = FormatDate("%hh:%ii:%ss", Date())
  80.  
  81. Repeat
  82. event = WaitWindowEvent()
  83.  
  84.  
  85. Delay(10)
  86. Until  event = #PB_Event_CloseWindow
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top