(AGK version: 2.0.16)

Submitted: 2017-03-02 17:11:10

// Project: Disco
// Created: 2017-03-02

SetWindowSize( 1024, 768, 0 )


SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
	
do
	r_comp=random(0,255): g_comp=random(0,255):b_comp=random(0,255)
	DrawBox( 0, 0, 1024, 768, MakeColor(r_comp,g_comp,b_comp), MakeColor(r_comp,g_comp,b_comp), MakeColor(r_comp,g_comp,b_comp), MakeColor(r_comp,g_comp,b_comp), 1 )	
    Print( "RED= "+str(r_comp)+" GREEN= "+str(g_comp)+" BLUE= "+str(b_comp))
    Sync()
    Sleep(100)
loop

(AGK version: 2.0.16)

Submitted: 2018-08-04 16:38:47

// comodore c64 back i use during boot
// I draw the text outside this function it only Draws a c64 colored background

function C64()
    b=MakeColor(0,136,255)
    b2=MakeColor(0,0,170)
    DrawBox(GetScreenBoundsLeft(),GetScreenBoundsTop(),GetScreenBoundsright(),GetScreenBoundsBottom(),b,b,b,b,1)
    DrawBox(GetScreenBoundsLeft()+45,GetScreenBoundsTop()+50,GetScreenBoundsright()-45,GetScreenBoundsBottom()-50,b2,b2,b2,b2,1)
endfunction