初来乍到,献图一份以示诚意。我尚无条件学琴,但心向往之已久,只能耳听,心思,谈兵于纸上。期望有机会学琴时,能向各位朋友请教。
此图按宫数八十一、徵数五十四、商数七十二、羽数四十八、角数六十四之比例将各声位精确对应至徽分,或许能用于按谱查声、校准音位。希望对各位朋友有所帮助。
图见附件(pdf格式)。
以下为绘制代码片段:
beginfig(1);
u:=1cm;
% 龈岳
z1=origin;
z0=origin+(0,18u);
pair offset;
offset:=(1.8u,0);
% 五弦
pickup pencircle scaled 1pt;
for i=1 upto 5:
draw z0+i*offset--z1+i*offset;
endfor
% 定徽
pair p[];
p[1] =1/8[z0,z1];
p[2] =1/6[z0,z1];
p[3] =1/5[z0,z1];
p[4] =1/4[z0,z1];
p[5] =1/3[z0,z1];
p[6] =2/5[z0,z1];
p[7] =1/2[z0,z1];
p[8] =3/5[z0,z1];
p[9] =2/3[z0,z1];
p[10]=3/4[z0,z1];
p[11]=4/5[z0,z1];
p[12]=5/6[z0,z1];
p[13]=1/8[z1,z0];
p[14]=z1;
pair dx, dy;
dx:=.1offset;
pickup pencircle scaled .5pt;
draw z0--z1;
for h=1 upto 13:
draw p[h] withpen pencircle scaled 5pt;
draw p[h] -- p[h]-1.5dx;
dy:=(p[h+1]-p[h])/10;
for i=1 upto 9:
temp:=p[h]+i*dy;
draw temp -- temp-dx;
endfor
endfor
pair ch, dxx;
ch:=.15offset;
dx:=.05offset;
dxx:=.065offset;
%% 宫弦
dy:=(z1-z0)/81; % 宫数八十一
pickup pencircle scaled .5pt;
% 宫 81
temp:=z0+81dy;
%draw temp -- temp+offset-ch-dxx;
......
endfig;
end
附件: