Sorry your browser is not supported!

Function pickColor(X,Y)
    render
    tImage=getImage(x,y,1,1)
    tMemblock=CreateMemblockfromImage(tImage)
    red=GetMemblockbyte(tMemblock,12)
    green=GetMemblockbyte(tMemblock,13)
    blue=GetMemblockbyte(tMemblock,14)
    rgb$=str(red)+","+str(green)+","+str(blue)
    deletememblock(tMemblock)
    deleteimage(tImage)
endfunction rgb$

setVirtualResolution(320,240)

Type Color
    r as integer
    g as integer
    b as integer
EndType

dim fire[320,240] as Color

global _Flame as float

_Flame = 4.12


c as Color

do


    for y = 1 to 239
        for x = 1 to 320
            c = newValue(x, y)
            fire[x,y] = c
            drawLine(x,y,x,y+1, fire[x,y].r, fire[x,y].g, fire[x,y].b)
        next x
    next y

    for x = 1 to 320
        r = random(0, 255)
        g = random(0,255)
        if g > r then g = r
        fire[x,240].r = r
        fire[x,240].g = 0
        fire[x,240].b = r
    next x


    if GetRawKeyState(38) = 1 then _Flame = _Flame + 0.02
    if GetRawKeyState(40) = 1 then _Flame = _Flame - 0.02

    print(_Flame)

    sync()
loop



function newValue(x, y)
    c as Color

    c = getColor1(x,y+1)
    r = c.r
    g = c.g
    b = c.b

    c = getColor1(x-1,y+1)
    r = r + c.r
    g = g + c.g
    b = b + c.b

    c = getColor1(x+1,y+1)
    r = r + c.r
    g = g + c.g
    b = b + c.b

    c = getColor1(x,y+2)
    r = r + c.r
    g = g + c.g
    b = b + c.b

    c.r = r / _Flame
    c.g = g / _Flame
    c.b = b / _Flame

endfunction c





function getColor1(x, y)
    c as Color
    if x < 1 or x > 320 or y < 1 or y > 240
        exitfunction c
    endif

    c = fire[x,y]

endfunction c

CompleteRawJoystickDetection()

repeat
 if GetJoystickExists()=1 then print("External Joystick Found")

    //buttons

    if GetRawJoystickButtonState(1,1)=1
        print("A Button - pressed")
    else
        print("A Button -")
    endif

    if GetRawJoystickButtonState(1,2)=1
        print("B Button - pressed")
    else
        print("B Button -")
    endif

    if GetRawJoystickButtonState(1,3)=1
        print("X Button - pressed")
    else
        print("X Button -")
    endif

    if GetRawJoystickButtonState(1,4)=1
        print("Y Button - pressed")
    else
        print("Y Button -")
    endif

    if GetRawJoystickButtonState(1,5)=1
        print("LB Button - pressed")
    else
        print("LB Button -")
    endif

    if GetRawJoystickButtonState(1,6)=1
        print("RB Button - pressed")
    else
        print("RB Button -")
    endif

    if GetRawJoystickButtonState(1,7)=1
        print("Back Button - pressed")
    else
        print("Back Button -")
    endif

    if GetRawJoystickButtonState(1,8)=1
        print("Start Button - pressed")
    else
        print("Start Button -")
    endif

    if GetRawJoystickButtonState(1,9)=1
        print("Left Stick - pressed")
    else
        print("Left Stick -")
    endif

    if GetRawJoystickButtonState(1,10)=1
        print("Right Stick - pressed")
    else
        print("Right Stick -")
    endif

    print("Left X - "+str(GetRawJoystickX(1),3))
    print("Left Y - "+str(GetRawJoysticky(1),3))
    print("Left Z - "+str(GetRawJoystickz(1),3))

    print("Right X - "+str(GetRawJoystickRX(1),3))
    print("Right Y - "+str(GetRawJoystickRy(1),3))
    print("Right Z - "+str(GetRawJoystickRz(1),3))

    for ButtonID=1 to 32
        if GetRawJoystickButtonState(1,ButtonID)=1
            print("Button "+str(ButtonID))
        else
            //print("")
        endif
    next ButtonID

 Sync()
until getrawkeypressed(27)=1

function hexToDecimal(x$)
    x$ = upper(x$)
    L = len(x$)
    decimal = 0
    for i = L to 1 step -1
        d$ = mid(x$, i, 1)
        v = val(d$)
        if v = 0 and d$ <> "0" then v = asc(d$)-55
        v = v << ((L-i)*4)
        decimal = decimal + v
    next i
endfunction decimal