' Have fun with your new project!
' ++

scale screen 0, 240 to 320, 0

'add "x" line 1, 1 to 2

rem
' pour GIF
do
	if (press "x") = 1
		break
	end
loop
run

load database "1"

?c1 = #080
?c2 = #222
?c3 = #b22
?cfront = #fe4

?c1 = #eee
?c2 = #804
?c3 = #40f
?cfront = #ff0


'

?angle1 = 0
?angle2 = 0
?cc_max = 280
?cc_w = 10

'data key "1"
restore data

?ratio = 1.20
?index = 0

hz 50

select screen "back"
fade screen 0

do
	
	
	
	goto "funky"
	if (mod (frame), 4) = 1
		goto "dancer"
	end
	update
	
loop

'

label "funky"
	
	select screen "back"
	fade screen in
	'print (fps)
	
	trace size ?cc_w / 2
	mix trace "normal"
	color ?c1
	fill screen
	
	'trace mode "difference"
	color ?c2
	for ?cc_w to ?cc_max step ?cc_w as ?r
		trace circle ?r to 160 + 50 * (sin ?angle1), 120 + 50 * (cos ?angle1 * 1.5)
	next
	
	color ?c3
	mix trace "hard-light"
	'mix trace "xor"
	for ?cc_w to ?cc_max step ?cc_w as ?r
		trace circle ?r to 220, 120 + 50 * (cos ?angle2)
	next
	
	?angle1 + 1.5
	?angle2 + 2
return

'

label "dancer"
	
	' Dancer
	'draw mode xor
	select screen "front"
	
	?alpha = 60 + 40 * (sin ?angle1)
	fill screen (rgba 0, 0, 0, ?alpha)
	
	'clear screen
	'mix screen "color-dodge"
	'mix screen "hard-light"
	mix screen "screen"
	color ?cfront
	'print ?index
	do
		?x = (data)
		?y = (data)
		?index + 2
		if ?x = -1
			?index_loop = 0
			?index = 0
			restore data
			?run = 0
		else
			if ?x <> 0
				trace path (?x * ?ratio), (?y * ?ratio)
			end
		end
	loop if ?x <> 0
	
	trace fill
return

'