Slide 8
Slide 8 text
Manipulate[
Graphics[
Table[{
If[EvenQ[i], Black, White],
Disk[{0, If[EvenQ[i], 0, Rescale[i, {0, n}, (d/n) {1, -1}]]},
Rescale[i, {0, n}, {1, r}]]
}, {i, 0, n}]],
{{n, 31, "resolution"}, 1, 51},
{{d, 1, "displacement"}, -10, 10},
{{r, 0, "radius"}, 0, 1}
]
WOLFRAM LANGUAGE