' à faire un bel effet de bulles couleurs
' 123456

'select screen back
?back = #613
?back = #236
'screen size 854,480
'screen size 320,200

select screen "back"
scale screen 0, 100 to 200, 0
'color ?back
fill screen ?back
mix trace "lighter"
?count = 0
fade screen 0

do
	select screen "back"
	for 1 to 15
		?count + 1
		?radius = random 1 to 10
		
		?x = (random) * 200
		?y = (random) * 100 + 1
		
		limit ?radius max ?y / 2
		
		?red = random 0 to 100
		?green = random 0 to 100
		?blue = random 0 to 100
		
		?alpha = 50-?radius * 5
		color (rgba ?red, ?green, ?blue, ?alpha / 3)
		trace size ?radius
		trace dot ?x, ?y
	next
	
	scroll screen 0, 1
	update
	fade screen in
	'cls
	'print "?count dots"
	trace text "?count dots" center 100, 10
	
	
	select screen "front"
	clear screen
	color 1
	trace text "?count dots" center 100, 10
	trace text (fps) center 100, 5
	
	
loop