;################### 
;# Analog Saat # 
;################### 
 
alias saathazirla { 
$iif(!$window(@Saat),window -dhCk0p +e @Saat 0 0 150 150) 
drawdot @Saat 15 50 70 65 
drawtext @Saat 1 107 57 3 
drawtext @Saat 1 23 57 9 
drawtext @Saat 1 60 16 12 
drawtext @Saat 1 65 97 6 
} 
 
alias saatciz { 
saathazirla 
var %carpan = 3.141593 / 180 
var %saat = $time(h), %dak = $time(n), %san = $time(s) 
var %saataci = $calc((%saat * 30 + %dak * 0.5) * %carpan) 
var %dakaci = $calc(%dak * 6 * %carpan) 
var %sanaci = $calc(%san * 6 * %carpan) 
drawline @Saat 1 1 70 65 $calc(70 + 25 * $sin(%saataci)) $calc(65 - 25 * $cos(%saataci)) 
drawline @Saat 1 1 70 65 $calc(70 + 35 * $sin(%dakaci)) $calc(65 - 35 * $cos(%dakaci)) 
drawline @Saat 4 1 70 65 $calc(70 + 45 * $sin(%sanaci)) $calc(65 - 45 * $cos(%sanaci)) 
} 
 
menu @Saat { 
Kapat:/timersaat off | /window -c @Saat 
} 
 
menu menubar,status,channel,query { 
Analog Saat 
.Ac:/timersaat 0 1 saatciz 
} 
 
on 1:CLOSE:@Saat:/timersaat off