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);