|
|
—
本帖被 雪狼 设置为精华(2010-01-10)
—
8Ter]0M& BEU^,r3z 初来乍到,献图一份以示诚意。我尚无条件学琴,但心向往之已久,只能耳听,心思,谈兵于纸上。期望有机会学琴时,能向各位朋友请教。 &
QO9 /! <$m=@@qg 此图按宫数八十一、徵数五十四、商数七十二、羽数四十八、角数六十四之比例将各声位精确对应至徽分,或许能用于按谱查声、校准音位。希望对各位朋友有所帮助。 sT&O %( bD*z"e 图见附件(pdf格式)。 42 6l:>D( VE_% /Fs, =lyP &u 'j6)5WL$ T00.pdf (39 K) 下载次数:113 "0BuQ{CQ
'ju 以下为绘制代码片段: xw1@&QwM - 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
[):&R1 |