To start the applet right click the slider below and switch the animation on. 

t = -4.67 (slider from -5 to 5, step 0.01)
a: RandomUniform[0, 25] + (0 * t)
b: RandomUniform[0, 6.283185307179586] + (0 * t)
B = (5, 3)
C = (10, 3)
D = (5, 6)
E = (10, 6)
c = Segment(B, C)
d = Segment(C, E)
e = Segment(E, D)
f = Segment(D, B)
F = (0, 0)
A: ((a * cos(b)), (a * sin(b)))
g = Circle(F, 25)