Here is a Manipulate that simulates the look of the thermostat:
DynamicModule[{innerTicRadius=.4,outerTicRadius =.57,tempAngle,targetTemp,targetTempAngle,lowTemp=9,highTemp=32},
tempAngle[temp_]:= (Pi+Pi/4)(temp-highTemp)/(lowTemp-highTemp)+ (-Pi/4) (temp-lowTemp)/(highTemp-lowTemp);
targetTemp=16;
targetTempAngle = tempAngle[targetTemp];
Manipulate[
DynamicModule[{edgeColor,ambientTemperatureColor,activeColor,deltaTemp,drawTic,
edgeRadius = 1, backgroundRadius = .95, activeRadius = .6 ,
actualTemp=24,currentTempPosition,currentTempPositionAngle
},
targetTempAngle= ArcTan[l[[1]],l[[2]]];
l= Mean[{innerTicRadius,outerTicRadius}]*{Cos[targetTempAngle],Sin[targetTempAngle]};
targetTemp=(5 highTemp \[Pi]+lowTemp \[Pi]-4 highTemp targetTempAngle+4 lowTemp targetTempAngle)/(6 \[Pi]);
deltaTemp = 5/( (highTemp-lowTemp));
edgeColor=GrayLevel[0.4];
ambientTemperatureColor= Black;
activeColor =If[ targetTemp>actualTemp, Orange,Black];
currentTempPositionAngle = tempAngle[actualTemp]+.15*Sign[targetTemp-actualTemp];
currentTempPosition = Mean[{innerTicRadius,outerTicRadius}]*{Cos[currentTempPositionAngle],Sin[currentTempPositionAngle]};
drawTic[temp_]:=Module[{angle,p},
angle = tempAngle[temp];
p={Cos[angle],Sin[angle]};
{innerTicRadius*p,outerTicRadius*p}
];
Graphics[
{edgeColor,
Disk[{0,0},edgeRadius],
ambientTemperatureColor,
Disk[{0,0},backgroundRadius],
White,
Text[Style["nest",32,FontFamily->"Franklin Gothic Book"],{0,.77}],
activeColor,
Disk[{0,0},activeRadius],
White,Opacity[.5],
Line[Table[drawTic[n],{n,lowTemp,highTemp,deltaTemp}]],
Opacity[1],
Line[Table[drawTic[n],{n,actualTemp,targetTemp,deltaTemp*Sign[targetTemp-actualTemp]}]],
Text[Style[ToString[actualTemp],16],currentTempPosition],
Text[Style[ToString[Round[targetTemp]],60],{0,0}],
}
]
],
{{l,Mean[{innerTicRadius,outerTicRadius}]*{Cos[targetTempAngle],Sin[targetTempAngle]}},Locator,Appearance->None}
]
]
