%%%%SPIN BUTTON
import GUI
buttonchoose ("multibutton")

var WinId : int
WinId := Window.Open ("position:centre;centre,graphics:700;455")

var SpinButton, ButtonPic, totTime : int
var picX := 70
var picY := 10
var SpinSpeed : real

var data_file : int
var phrase : string
var category : string
var guess : string (1)
var font1 : int
font1 := Font.New ("Arial:18:bold")
var picture : array 0 .. 35 of int
picture (0) := Pic.FileNew ("goodreelscaled.bmp")

const CTRx := Pic.Width (picture (0)) div 2
const CTRy := Pic.Height (picture (0)) div 2

fcn ButtonPressed : real
    var beginTime, endTime : int
    var x, y, buttonnumber, buttonupdown : int
    var button := 1

    loop
        buttonwait ("down", x, y, button, buttonupdown)

        if x > picX & x < picX + Pic.Width (ButtonPic)
                & y > picY & y < Pic.Width (ButtonPic) then
            beginTime := Time.Elapsed

            buttonwait ("up", x, y, button, buttonupdown)
            endTime := Time.Elapsed
            exit
        end if

    end loop

    SpinSpeed := (endTime - beginTime) / 1000
    result SpinSpeed

end ButtonPressed


proc SpinWheel

    if SpinSpeed > 0 & SpinSpeed < 1.5 then
        put "11111111"
    elsif SpinSpeed > 1.51 & SpinSpeed < 3.1 then
        put "22222"
    end if
   
    for angle : 1 .. 35
        picture (angle) := Pic.Rotate (picture (0), angle * 10, CTRx, CTRx)
    end for
    var x : int := CTRx
    var y : int := CTRx

    loop
        for angle : 0 .. 35
            Pic.Draw (picture (angle), x - CTRx, y - CTRx, picCopy)
            delay (100)
        end for
    end loop

end SpinWheel



%% BUTTON PICTURE
ButtonPic := Pic.FileNew ("button1.bmp")
Draw.Cls
Pic.Draw (ButtonPic, picX, picY, picCopy)


put "It took ", ButtonPressed, " seconds to run"
SpinWheel

%%%%%%SPINNING WHEEL
%%%HOW TO GET THE POINTS?
%%%HOW TO GET SPEED OF WHEEL?
for angle : 1 .. 35
    picture (angle) := Pic.Rotate (picture (0), angle * 10, CTRx, CTRx)
end for
var x : int := CTRx
var y : int := CTRx

loop
    for angle : 0 .. 35
        Pic.Draw (picture (angle), x - CTRx, y - CTRx, picCopy)
        delay (100)
    end for
end loop