import campy

r <- slider "Select r" (1, 100) 50

b <- slider "Select b" (0, 6) .2

c <- slider "Select c" (0, 5) .7

e <- slider "Select e" (0, 67) 1.89
f <- slider "Select f" (4, 567) 66

g <- slider "Select g" (765, 987) 675

r1 (d @ a)= stripes r 0.5 d
r2 (d @ a)= stripes b 0.5 a
r3 (d @ a)= stripes c 0.5 d
r4 (d @ a) = stripes e 0.5 a
r5 (d @ a)= stripes f 0.5 d
r6 (d @ a)= stripes g 0.5 a



picture p = 
	if r1 p then blue else 
	if r2 p then red else
	if r3 p then black else
	if r4 p then rgb .7 .3 .5 else
	if r5 p then rgb .12 .86 .34 else
	if r5 p then rgb .7 0 .6 else
	if r6 p then rgb .5 .443 .987 else rgb .987 .654 .321