let current_tm =
            Unix.localtime (Unix.time ())
        in
            let tm =
                time ((current_tm.tm_hour mod 12), (current_tm.tm_min))
            in draw_clockS size (a_clock_for_time current_tm )