import Campy

d <- slider "Distance" (0, 100) 20

circles (d @ a) = stripes 10 0.5 d

C1 = (moveR (d, 0) circles)
C2 = (moveR (0,d) circles)

picture p = if circles p then rgb .5 .5 .6
            else  if C1 p then rgb 1 .8 0
               else if C2 p then rgb 1 .95 0
		else white