'
' Screensaver demo using HUG 0.24
'
' PvE March 2010 - GPL.
'------------------------------------------------------------------------

INCLUDE "hug.bac"

CONST x_size = SCREENSIZE(0)
CONST y_size = SCREENSIZE(1)

FUNCTION Draw_Screen

    LOCAL x, y, xradius, yradius, color_r, color_g, color_b
    LOCAL col$

    x = RANDOM(x_size) + 1
    y = RANDOM(y_size) + 1

    xradius = RANDOM(300) + 20
    yradius = RANDOM(400) + 20

    color$ = HEX$(RANDOM(16777216) + 1)

    CIRCLE(CONCAT$("#", color$), x, y, xradius, yradius, 1)
    CIRCLE("#000000", x, y, xradius, yradius, 0)

    IF KEY() IS 65307 THEN QUIT

    RETURN TRUE

END FUNCTION

win = WINDOW("", x_size, y_size)
SET(win, 1)

canvas = CANVAS(x_size, y_size)
ATTACH(win, canvas, 0, 0)

TIMEOUT(120, Draw_Screen)
DISPLAY