r1 = 2 (slider from -5 to 5, step 0.1)
d1 = 5 (slider from -5 to 5, step 0.1)
r2 = 2 (slider from -5 to 5, step 0.1)
d2 = 2.9 (slider from -5 to 5, step 0.1)
a = 0 (slider from 0 to 360, step 0.1)
list1 = Sequence((r1 * cos(k * 10 * π / 180), r1 * sin(k * 10 * π / 180) + d1), k, 0, 35)
list2 = Sequence((r2 * cos((a + k * 10) * π / 180), r2 * sin((a + k * 10) * π / 180) + d2), k, 0, 35)
list4 = Sequence(Line[Element[list1, k], Element[list2, k]], k, 1, 36)
b = Length(list1)
c = Length(list2)
list3 = Sequence((-r1 * cos(k * 10 * π / 180), r1 * sin(k * 10 * π / 180) + d1), k, 0, 35)
list5 = Sequence((-r2 * cos((a + k * 10) * π / 180), r2 * sin((a + k * 10) * π / 180) + d2), k, 0, 35)
list6 = Sequence(Line[Element[list3, k], Element[list5, k]], k, 1, 36)