Rotates a points from the array by the specified angle
#include <WinAPIGdi.au3>
_WinAPI_RotatePoints ( ByRef $aPoint, $iXC, $iYC, $fAngle [, $iStart = 0 [, $iEnd = -1]] )
| $aPoint | The 2D array ([x1, y1, ...], [x2, y2, ...], ... [xN, yN, ...]). Every first two elements from this array specifies a point to be rotate. Other array elements (if any) do not change. |
| $iXC | The x-coordinates of the point on which there is a rotation, in logical units. |
| $iYC | The y-coordinates of the point on which there is a rotation, in logical units. |
| $fAngle | The angle to rotate, in degree. |
| $iStart | [optional] The index of array to start rotating at. |
| $iEnd | [optional] The index of array to stop rotating at. |
| Success: | 1. |
| Failure: | 0 and sets the @error flag to non-zero. |
This function does not round a coordinate values after transformation, it can be a float type.
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WinAPIGdi.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIHObj.au3>
#include <WinAPIMisc.au3>
#include <WinAPIRes.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>
Opt('TrayAutoPause', 0)
; Load image
Global $g_hBitmap = _WinAPI_LoadImage(0, @ScriptDir & '\Extras\Compass.bmp', $IMAGE_BITMAP, 0, 0, $LR_LOADFROMFILE)
Local $tSIZE = _WinAPI_GetBitmapDimension($g_hBitmap)
Local $W = DllStructGetData($tSIZE, 'X')
Local $H = DllStructGetData($tSIZE, 'Y')
; Create GUI
Global $g_hForm = GUICreate('Test ' & StringReplace(@ScriptName, '.au3', '()'), $W, $H + 26)
Global $g_idPic = GUICtrlCreatePic('', 0, 0, $W, $H)
GUICtrlCreateGraphic(0, $H, $W, 1)
GUICtrlSetBkColor(-1, 0xDFDFDF)
Global $g_idSlider = GUICtrlCreateSlider(0, $H + 1, $W, 25, BitOR($TBS_BOTH, $TBS_NOTICKS))
Global $g_hSlider = GUICtrlGetHandle(-1)
GUICtrlSetLimit(-1, 360, 0)
GUICtrlSetData(-1, 0)
; Set bitmap to control with rotate
_SetBitmapRotate($g_idPic, $g_hBitmap, 0)
; Register WM_HSCROLL message for live scrolling and show GUI
GUIRegisterMsg($WM_HSCROLL, 'WM_HSCROLL')
GUISetState(@SW_SHOW)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func _SetBitmapRotate($hWnd, $hBitmap, $iAngle)
If Not IsHWnd($hWnd) Then
$hWnd = GUICtrlGetHandle($hWnd)
If Not $hWnd Then
Return 0
EndIf
EndIf
Local $aW[2], $aH[2]
Local $aPoint[3][2]
Local $tRECT = _WinAPI_GetClientRect($hWnd)
$aW[0] = DllStructGetData($tRECT, 3) - DllStructGetData($tRECT, 1)
$aH[0] = DllStructGetData($tRECT, 4) - DllStructGetData($tRECT, 2)
Local $tSIZE = _WinAPI_GetBitmapDimension($g_hBitmap)
$aW[1] = DllStructGetData($tSIZE, 1)
$aH[1] = DllStructGetData($tSIZE, 2)
$aPoint[0][0] = ($aW[0] - $aW[1]) / 2
$aPoint[0][1] = ($aH[0] - $aH[1]) / 2
$aPoint[1][0] = $aPoint[0][0] + $aW[1]
$aPoint[1][1] = $aPoint[0][1]
$aPoint[2][0] = $aPoint[0][0]
$aPoint[2][1] = $aPoint[0][1] + $aH[1]
Local $hDC = _WinAPI_GetDC($hWnd)
Local $hDestDC = _WinAPI_CreateCompatibleDC($hDC)
Local $hMask = _WinAPI_CreateBitmap($aW[0], $aH[0], 1, 1)
Local $hDestSv = _WinAPI_SelectObject($hDestDC, $hMask)
Local $hBrush = _WinAPI_SelectObject($hDestDC, _WinAPI_GetStockObject($DC_BRUSH))
Local $hPen = _WinAPI_SelectObject($hDestDC, _WinAPI_GetStockObject($DC_PEN))
_WinAPI_SetDCBrushColor($hDestDC, 0xFFFFFF)
_WinAPI_SetDCPenColor($hDestDC, 0xFFFFFF)
_WinAPI_Ellipse($hDestDC, _WinAPI_CreateRectEx($aPoint[0][0] + 43, $aPoint[0][1] + 43, $aPoint[1][0] - 86, $aPoint[2][1] - 86))
Local $hBmp = _WinAPI_CreateCompatibleBitmapEx($hDC, $aW[0], $aH[0], 0xFFFFFF)
_WinAPI_SelectObject($hDestDC, $hBrush)
_WinAPI_SelectObject($hDestDC, $hPen)
_WinAPI_SelectObject($hDestDC, $hBmp)
Local $hSrcDC = _WinAPI_CreateCompatibleDC($hDC)
Local $hSrcSv = _WinAPI_SelectObject($hSrcDC, $hBitmap)
_WinAPI_RotatePoints($aPoint, $aW[0] / 2, $aH[0] / 2, $iAngle)
_WinAPI_PlgBlt($hDestDC, $aPoint, $hSrcDC, 0, 0, $aW[1], $aH[1])
_WinAPI_RotatePoints($aPoint, $aW[0] / 2, $aH[0] / 2, -2 * $iAngle)
_WinAPI_PlgBlt($hDestDC, $aPoint, $hSrcDC, 0, 0, $aW[1], $aH[1], $hMask)
_WinAPI_SelectObject($hDestDC, $hDestSv)
_WinAPI_DeleteDC($hDestDC)
_WinAPI_SelectObject($hSrcDC, $hSrcSv)
_WinAPI_DeleteDC($hSrcDC)
_WinAPI_DeleteObject($hMask)
_WinAPI_ReleaseDC($hWnd, $hDC)
Local $hObj = _SendMessage($hWnd, $STM_SETIMAGE, $IMAGE_BITMAP, $hBmp)
If $hObj Then
_WinAPI_DeleteObject($hObj)
EndIf
$hObj = _SendMessage($hWnd, $STM_GETIMAGE)
If $hObj <> $hBmp Then
_WinAPI_DeleteObject($hBmp)
EndIf
Return 1
EndFunc ;==>_SetBitmapRotate
Func WM_HSCROLL($hWnd, $iMsg, $wParam, $lParam)
#forceref $iMsg, $wParam, $lParam
Switch $hWnd
Case $g_hForm
Switch $lParam
Case $g_hSlider
_SetBitmapRotate($g_idPic, $g_hBitmap, GUICtrlRead($g_idSlider))
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_HSCROLL