import Campy 
r4 (d @ a) = d < r
r12 (x,y) = stripes 5 .23 y
r7 (d @ a) = stripes spokes .56 a
picture p = if r4 p then red else if r12 p then blue else if r7 p then green else if r5 p then lightorange else black
yellow = rgb 1 1 0
spokes<-slider "slider" (0,2.23) .23
r <- slider "r" (0,150) 100
r5 (x,y) = stripes 5 .23 x
lightorange = rgb 1 .66 .21