import campy
r <-slider "Select r" (1,100) 50
s <-slider "slider s" (1,100) 50 
g <-slider "slider g" (1,100) 50
r1 (d @ a)= stripes r 0.5 d 
r2 (d @ a)= stripes s 0.5 a 
r3 (d @ a)= stripes g 0.5 d
r4 (x,y)= stripes 10 0.5 x
r5 (x,y)= stripes 20 0.2 y
circ (d @ a)= d < r
circ2 (d @ a)= d< s
circ3 = moveR (5, 8) circ2
picture p= if circ p then red else 
 if circ2 p then rgb .7 0 .6 else
 if r3 p then rgb .6463 .98 .56 else 
 if r4 p then rgb .9 .6 .5 else 
 if r5 p then rgb .1 .2 .6 else blue