Inspired by Becky Warren: https://twitter.com/becky_k_warren/status/1414690735413071872?s=20

c = Circle((-4, 4), 1)[br]a = Slider(1, 5, 0.1, 1, 170, false, true, false, false)[br]b = Slider(1, 5, 0.01, 1, 170, false, true, false, false)[br]n = Slider(1, 10, 1, 1, 170, false, true, false, false)[br]i = Slider(1, 10, 1, 1, 170, false, true, false, false)[br][br]C = (0, 0)[br][br]Lk = 1..n[br]Li = 0..i[br][br]F = Flatten( Zip( Rotate( Zip( Dilate( Rotate( c, li * 360° / (n * b), C ), a^li, C) , li, Li ), k * 360° / n, C ), k, Lk ) )[br][br]Lname = Flatten( Zip( Zip( "circle"+k+li, k, Lk ), li, Li+1 ) )[br][br]Execute( Zip( name + " = Element(F, "+ ind +")", name, Lname, ind, 1..Length(F) ) )[br][br]op = Slider(0, 1, 0.01, 1, 170, false, true, false, false)[br][br]Execute( Zip( "SetDynamicColor( "+ name +", "+ k +"/Length(F), 1, 1, op)", name, Lname, k, 1..Length(F) ) )[br][br]Execute( Zip( "ShowLabel( "+ name +", false)", name, Lname ) )[br][br]CenterView( C )[br]ShowGrid( false )[br]ShowAxes( false )[br]SetBackgroundColor( "Black" )