nutDraw.au3

#include-once
#include <Color.au3>
#include <GUIConstants.au3>

Global $painting = 0
Global $clock_bkg = 0

;This function returns the x and y coordinates of a point which is located
;on an intersection of a circle with radius of 60 centered at (60,70) and a line
;passing through center of a circle and a point whose x coordinate is passed as a
;parameter .y coordinate of that point is is assumed to be 10
;This is to calculate a point inside analogue clock where needle drawing will end
Func getPoint($coordX )

	Local $result[2]
	Local $coordY = 10
	Local $a1, $b1 ,$a, $b , $c ,$b24ac ,$result1X , $result2X , $result1Y ,$result2Y
	if $coordX == 65 Then
		$result[0] = 65
		$result[1] = 10
		Return $result
	EndIf
	$a1 = (70 - $coordY ) / (65 - $coordX );determine tangent of a line passing through given point and circle center
	$b1 = 70 - ($a1 * 65 )
	$a = ($a1 * $a1) + 1
	$b = -130 - (140 * $a1) + (2 * $a1 * $b1 )
	$c = ($b1 * $b1 ) - (140 * $b1 ) + 5525
	$b24ac = sqrt(($b * $b) - (4 * $a * $c))
	$result1X = ( -$b + $b24ac) / (2* $a)
	$result2X = ( -$b - $b24ac) / (2* $a)
	$result1Y = $a1 * $result1X + $b1
	$result2Y = $a1 * $result2X + $b1
	if $result1Y < 70 Then
		$result[0] = Round($result1X)
		$result[1] = Round($result1Y)
	Else
		$result[0] = Round($result2X)
		$result[1] = Round($result2Y)
	EndIf
	return $result
	
EndFunc

;This function draws a needle from center of a circle located at 60,70 to a point
;whose x is passed as a parameter and y assumed to be 10
;$x : X coordinate of the point
;$color : the color of the needle
;$windhandle : handle of the main window ($gui)
;$chandle : handle of the control for the drawing (graphic control)
Func DrawNeedle($x  , $color , $winhandle , $chandle)
	
	if $painting <> 0 Then
		Return
	EndIf
	$painting  = 1
	Local $point[2] , $pic_hWnd , $user_dll , $gdi_dll , $l_hdc , $pen , $obj_orig
	$point = getPoint($x)
	$pic_hWnd = ControlGetHandle($winhandle,"" ,$chandle)
	$user_dll = DllOpen("user32.dll")
	$gdi_dll = DllOpen("gdi32.dll")
	$l_hdc = DLLCall($user_dll,"int","GetDC","hwnd",$pic_hWnd)
	$pen = DLLCall($gdi_dll,"int","CreatePen","int",0x0,"int",1,"int",$color)
	$obj_orig = DLLCall($gdi_dll,"int","SelectObject","int",$l_hdc[0],"int",$pen[0])
	DLLCall($gdi_dll,"int","MoveToEx","int",$l_hdc[0],"int",$point[0],"int",$point[1],"int",0)
	DLLCall($gdi_dll,"int","LineTo","int",$l_hdc[0],"int",64,"int",70) ;draw filled triangle
	DLLCall($gdi_dll,"int","LineTo","int",$l_hdc[0],"int",66,"int",70) ;which is the needle
	DLLCall($gdi_dll,"int","LineTo","int",$l_hdc[0],"int",$point[0],"int",$point[1])
	DLLCall($gdi_dll,"int","LineTo","int",$l_hdc[0],"int",65,"int",70)
	DLLCall($gdi_dll,"int","SelectObject","int",$l_hdc[0],"int",$obj_orig[0])
	
	DLLCall($gdi_dll,"int","DeleteObject","int",$pen[0])
	
	$l_hdc = DLLCall($user_dll,"int","ReleaseDC","hwnd",$pic_hWnd,"int",$l_hdc[0])
	DllClose($gdi_dll)
	DllClose($user_dll)
	$painting  = 0

EndFunc


Func RGBtoBGR($color )

	Local $redcomponent,$greencomponent,$bluecomponent
	
	$redcomponent = _ColorGetRed($color)
	$greencomponent = _ColorGetGreen( $color )
	$bluecomponent = _ColorGetBlue( $color )
	
	$bluecomponent = String (Hex($bluecomponent))
	$greencomponent = String(Hex($greencomponent))
	$redcomponent = String(Hex($redcomponent))
	
	$bluecomponent = StringRight($bluecomponent , 2)
	$greencomponent = StringRight($greencomponent , 2)
	$redcomponent = StringRight($redcomponent , 2)
	$result = "0x" & $bluecomponent & $greencomponent & $redcomponent
	return Number($result)
EndFunc


Func GetColor($window , $control)

	Local $cPos = 0
	Local $wPos = 0
	Local $xPos , $yPos
	$cPos = ControlGetPos($window , "" , $control )
	$wPos = WinGetPos($window)
	if @error == 1 Then
		return -1
	EndIf
	$xPos =Round ( $cPos[0] +  ( $cPos[2] / 2 ) ) + $wPos[0]
	$yPos = Round ( $cPos[1] + ( $cPos[3] / 2 ) ) + $wPos[1]	
	$result = PixelGetColor( $xPos ,$yPos )
	return $result
	
EndFunc


Func repaintNeedle($needle , $value , $whandle , $min = 170, $max = 270)
	$value = Round($value )
	if $value < $min Then
		$value = $min
	EndIf
	if $value > $max Then
		$value = $max
	EndIf
	$setneedle =($value - $min)/ ( ($max - $min ) / 100 )

	DrawNeedle(15 + $setneedle , 0x0, $whandle , $needle)

EndFunc


Func SetColor($color , $window , $control )
	
	Local $prevColor
	$prevColor = getColor($window , $control )
	if $prevColor == $color Then ;has same color so no need to update
		return
	EndIf
	GuiCtrlSetBkColor($control , $color )

EndFunc

Func DrawError($left , $top , $message ) ;message to write over the dial if some error happened
	
	$result= GuiCtrlCreateLabel($message , $left + 25, $top + 50 ,110,50,$BS_CENTER)
	GuiCtrlSetColor(-1,0xff0000)
	return $result
EndFunc

#cs
Func DrawDial($left , $top , $basescale , $title , $units , ByRef $value , ByRef $needle , $scale = 1 , $leftG = 20, $rightG = 70)
	
	Local $group = 0
	$group = GUICreate(" " & $title, 150, 120, $left, $top, BitOR($WS_CHILD, $WS_DLGFRAME), $WS_EX_CLIENTEDGE, $gui)
	GUISetBkColor($clock_bkg,$group)
	GuiSwitch($group)
	GuiCtrlCreateLabel($title,0,0,150,14,$SS_CENTER )

	for $x = 0 to 100 step 10
		if StringinStr($x / 20,".") = 0 Then
			GUICtrlCreateLabel("",$x * 1.2 + 15 , 15  , 1 , 15 , $SS_BLACKRECT)
			GuiCtrlSetState(-1,$GUI_DISABLE)
			if $x < 100 Then
				$test = GUICtrlCreateLabel("",$x * 1.2  + 16,15  , 11 , 5 , 0 )
				GuiCtrlSetState(-1,$GUI_DISABLE)
				if $x < $rightG and $x > $leftG then
					GUICtrlSetBkColor($test , 0x00ff00)
				Else
					GUICtrlSetBkColor($test , 0xff0000)
				EndIf
			EndIf
			$scalevalue = $basescale + $x / $scale
			switch $scalevalue
				Case 0 to 9
					GuiCtrlCreateLabel($scalevalue , $x * 1.2 + 13 , 25 , 20 , 10 )
				Case 10 to 99
					GuiCtrlCreateLabel($scalevalue , $x * 1.2 + 10 , 25 , 20 , 10 )
				Case 100 to 1000
					GuiCtrlCreateLabel($scalevalue , $x * 1.2 + 7 , 25 , 20 , 10 )
			EndSwitch
			GUICtrlSetFont(-1,7)
		Else
			GUICtrlCreateLabel("",$x * 1.2  + 15 , 15  , 1 , 5 , $SS_BLACKRECT )
			GuiCtrlSetState(-1,$GUI_DISABLE)
			$test = GUICtrlCreateLabel("", $x *1.2  + 16 ,15  , 11 , 5 , 0 )
			;GuiCtrlSetState(-1,$GUI_DISABLE)
			if $x < $rightG and $x > $leftG then
				GUICtrlSetBkColor($test , 0x00ff00)
			Else
				GUICtrlSetBkColor($test , 0xff0000)
			EndIf
		EndIf
	Next
	if $units =="%" then
		$value = GUICtrlCreateLabel(0 , 10  ,100  , 40 , 15, $SS_LEFT)
	Else
		$value = GUICtrlCreateLabel(220 , 10  ,100  , 40 , 15, $SS_LEFT)
	EndIf
	$label2 = GUICtrlCreateLabel($units , 116  ,100  , 25 , 15 ,$SS_RIGHT )
	$needle = GUICtrlCreateGraphic(10  ,35  , 120 , 60 )
	;GUICtrlSetBkColor(-1,$aqua)
	;$fill = GuiCtrlCreateGraphic(0 , 0 , 150 , 120)

	GuiSetState(@SW_SHOW,$group)
	;GuiCtrlSetBkColor(-1,0x00ffff)
	$result  = $group
	return $group
EndFunc
#ce