Construction of arabesques of melodic line BACH

Elena, Liya "Construction of arabesques of melodic line BACH", Kazan, Russia, school#57

> restart:

> with(plots):with(plottools):

The setting and visualization of line BACH: B - note b-flat, A - note la, C - note do, H - note si.

> p0:=plot([[0,1],[2,0],[4,1.5],[6,1]],thickness=4,color=cyan,scaling=constrained);

>

> p0 := PLOT(

>

> CURVES([[0, 1.], [2., 0], [4., 1.500000000000000], [6., 1.]])

>

> , SCALING(CONSTRAINED), THICKNESS(4), AXESLABELS( , ),

>

> COLOUR(RGB, 0, 1.00000000, 1.00000000),

>

> VIEW(DEFAULT, DEFAULT))

>

> plots[display](p0);

> r_i:=seq(rotate(p0,i*Pi/4),i=1..8):

> p1:=display(r_i,p0):plots[display](p1,scaling=constrained);

> c1:=circle([0,0],6,color=blue,thickness=2):

> plots[display](c1,p1,scaling=constrained);

> p_c:=plots[display](c1,p1,scaling=constrained):

> pt_i_2:=seq(translate(p1,0,2*6*i),i=0..4):

> plots[display](pt_i_2,scaling=constrained);

> pt_i_22:=seq(translate(p1,0,6*i),i=0..4):

> plots[display](pt_i_22,scaling=constrained);

> pt_i_222:=seq(translate(p1,0,1/2*6*i),i=0..4):

> plots[display](pt_i_222,scaling=constrained);

> pr:=rotate(p1,Pi/8):

> plots[display](pr,scaling=constrained);

> plots[display](p1,pr,scaling=constrained);

> pr_i:=seq(rotate(p1,Pi/16*i),i=0..8):

> plots[display](pr_i,scaling=constrained);

> pt_1:=translate(p1,0,2*6):

> pr_1_i:=seq(rotate(pt_1,Pi/3.5*i),i=0..6):

> plots[display](pr_1_i,scaling=constrained);

> pr_11_i:=seq(rotate(pt_1,Pi/5*i),i=0..10):

> plots[display](pr_11_i,scaling=constrained);

> pr_111_i:=seq(rotate(pt_1,Pi/6.5*i),i=0..12):

> plots[display](pr_111_i,scaling=constrained);