paloYaUra
→ hour()E busa ura ya tshupanako ya khomphiutha, go tswa go 0 go ya go 23.
paloYaUra()E bala diura tse 24, e seng tse 12: bosigogare ke 0, motshegare ke 12, mme maitseboa a le 9 ke 21. Go bona ura ya tshupanako ya 12, dirisa paloYaUra() % 12.
E dirisa nako ya lefelo la modirisi.
Ura ke lefoko la mokolotwana le le kwadilweng mo Setswaneng. Le oura le a dirisiwa; a mabedi a bonwa mo puong.
tiro setaLoeto() {
thalaKanefase(400, 400);
tlhalosa('Tshupanako e e dikologang e e nang le mela e meraro e e supang ura, motsotso le motsotswana.');
}
tiro tshwantsha() {
bokamorago(240);
sutisa(200, 200);
// Sediko sa tshupanako
tlogelaGoTlatsa();
mothaloMmala(70);
boketeMothalo(4);
thalaSediko(0, 0, 330);
// Dikhutlo tse 12 tsa diura
gopheta (diri i = 0; i < 12; i = i + 1) {
baya();
dikolosa(i * PEDI_PI / 12);
boketeMothalo(3);
thalaMothalo(0, -150, 0, -165);
tsaya();
}
metlha u = (paloYaUra() % 12 + paloYaMotsotso() / 60) * PEDI_PI / 12;
metlha m = paloYaMotsotso() * PEDI_PI / 60;
metlha s = paloYaMotsotswana() * PEDI_PI / 60;
// Ura
baya();
dikolosa(u);
boketeMothalo(9);
mothaloMmala(40);
thalaMothalo(0, 0, 0, -80);
tsaya();
// Motsotso
baya();
dikolosa(m);
boketeMothalo(6);
mothaloMmala(80);
thalaMothalo(0, 0, 0, -120);
tsaya();
// Motsotswana
baya();
dikolosa(s);
boketeMothalo(2);
mothaloMmala(210, 60, 60);
thalaMothalo(0, 0, 0, -145);
tsaya();
}