import GUI

View.Set ("graphics:640;400,nobuttonbar")

var hour, mi, sec : int := 0

var answer : int

var alarm : string

alarm := "00:00:00"









procedure setAlarm

    cls

    put "Please set alarm : " ..

    get alarm

    %incase something happens



end setAlarm



procedure displayClock (hourHand, minuteHand, secondHand : int)

    colorback (97)

    setscreen ("offscreenonly")

    const PI := 3.14159

    var whatTime : string

    var whatDate : string

    var hour, minute, second : int

    var x, y, x2, y2 : int

    var ang : real

    var timeRunning : int

    var Seconds : real



    loop

        var draw : int := GUI.CreateButtonFull (maxx div 2 - 210, 100, 0, "Set Alarm",

            setAlarm, 0, '^D', true)

        var quitBtn : int := GUI.CreateButton (maxx div 2 + 150, 100, 0, "Quit", GUI.Quit)



        clock (timeRunning)

        Seconds := timeRunning / 1000

        %put "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nThis program has been running for ",  Seconds, " seconds"

        date (whatDate)

        locate (1, 1)

        put "                              The date is ", whatDate

        time (whatTime)

       

        hour := strint (whatTime (1 .. 2))

        hour := hour mod 12

        minute := strint (whatTime (4 .. 5))

        second := strint (whatTime (7 .. 8))

        %hour hand

        ang := ((hour + (minute / 60)) / 12) * 360 - 90

        x := round (cos (-ang * (PI / 180)) * hourHand + maxx div 2)

        y := round (sin (-ang * (PI / 180)) * hourHand + maxy div 2)

        drawline (maxx div 2, maxy div 2, x, y, 7)

        %minute hand

        ang := (minute / 60) * 360 - 90

        x := round (cos (-ang * (PI / 180)) * minuteHand + maxx div 2)

        y := round (sin (-ang * (PI / 180)) * minuteHand + maxy div 2)

        drawline (maxx div 2, maxy div 2, x, y, 7)

        %second hand

        ang := (second / 60) * 360 - 90

        x := round (cos (-ang * (PI / 180)) * secondHand + maxx div 2)

        y := round (sin (-ang * (PI / 180)) * secondHand + maxy div 2)

        drawline (maxx div 2, maxy div 2, x, y, 7)

        %draw face

        for i : -90 .. 270 by 6

            if i mod 15 = 0 then

                x := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand))) + maxx div 2)

                y := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand))) + maxy div 2)

                x2 := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxx div 2)

                y2 := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxy div 2)

            else

                x := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 5) + maxx div 2)

                y := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 5) + maxy div 2)

                x2 := round (cos (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxx div 2)

                y2 := round (sin (-i * (PI / 180)) * (max (hourHand, max (minuteHand, secondHand)) + 10) + maxy div 2)

            end if

            drawline (x, y, x2, y2, 7)

        end for

        drawoval (maxx div 2, maxy div 2, max (hourHand, max (minuteHand, secondHand)) + 10, max (hourHand, max (minuteHand, secondHand)) + 10, 7)

        put "                              The time is : ", whatTime





        if alarm = whatTime then

            Music.PlayFileReturn ("gm.mp3")

        end if



        View.Update

        cls



        GUI.Refresh

    end loop



    GUI.Refresh

end displayClock



%main program



loop

    Music.PlayFileLoop ("tic.mp3")



    displayClock (40, 70, 80)

    exit when GUI.ProcessEvent







end loop