BashでSVG五線譜を描く

12-5.画像

grandstaff-title

Bashを使って、SVGで五線譜を描いてみます。

スポンサーリンク

白い紙に線を描く

まずは五線譜を描くための紙となる白い四角を作ります。

~$ cat -n staff-rect.sh
     1	cat <<EOL > /tmp/tmp.svg
     2	<svg width="640" height="280">
     3	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
     4	</svg>
     5	EOL
     6	inkscape -z -e out.png /tmp/tmp.svg
~$ 

白いので背景と同化してわかりにくいですが、以下のような画像になります。
staff-rect
これに、一本線を引きましょう。

~$ cat -n staff-line1.sh
     1	cat <<EOL > /tmp/tmp.svg
     2	<svg width="640" height="280">
     3	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
     4	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
     5	</svg>
     6	EOL
     7	inkscape -z -e out.png /tmp/tmp.svg
~$ 

staff-line1
続けて四本引いて五線にします。

~$ cat -n staff-line5.sh
     1	cat <<EOL > /tmp/tmp.svg
     2	<svg width="640" height="280">
     3	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
     4	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
     5	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
     6	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
     7	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
     8	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
     9	</svg>
    10	EOL
    11	inkscape -z -e out.png /tmp/tmp.svg
~$ 

staff-line5

ドレミの位置に円を描きます。

~$ cat -n staff.sh
     1	cat <<EOL > /tmp/tmp.svg
     2	<svg width="640" height="280">
     3	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
     4	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
     5	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
     6	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
     7	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
     8	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
     9	<circle cx="100" cy="160" r="10" fill="black" />
    10	<circle cx="140" cy="160" r="10" fill="black" />
    11	<circle cx="180" cy="150" r="10" fill="black" />
    12	</svg>
    13	EOL
    14	inkscape -z -e out.png /tmp/tmp.svg
~$ 

staff-cde

音階を指定して音符を描けるようにする

staff2-title

~$ cat -n staff.sh
     1	cat <<EOL > /tmp/tmp.svg
     2	<svg width="640" height="280">
     3	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
     4	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
     5	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
     6	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
     7	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
     8	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
     9	<circle cx="100" cy="200" r="10" fill="black" />
    10	<circle cx="140" cy="190" r="10" fill="black" />
    11	<circle cx="180" cy="180" r="10" fill="black" />
    12	</svg>
    13	EOL
    14	inkscape -z -e out.png /tmp/tmp.svg

これを少しずつ改造します。

9行目の音符(circle)は、関数化しておきます。

     1	line(){
     2	cat <<EOL
     3	<circle cx="100" cy="200" r="10" fill="black" />
     4	EOL
     5	}

ドを0として、レ=1、ミ=2、番号で音階が指定できるように修正します。

     1	line(){
     2	x=100
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	cat <<EOL
     6	<circle cx="$x" cy="$onkai" r="10" fill="black" />
     7	EOL
     8	x=`expr $x + 40`;
     9	done
    10	}

ド〜ドまで表示します。

     1	line(){
     2	x=100
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	cat <<EOL
     6	<circle cx="$x" cy="$onkai" r="10" fill="black" />
     7	EOL
     8	x=`expr $x + 40`;
     9	done
    10	}
    11	a=`line 0 1 2 3 4 5 6 7`

staff-cdefgabc

音符に「ぼう」をつけてみます。5,6,9行目を追加しました。

     1	line(){
     2	x=100
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 10`
     6	b1=`expr $onkai - 60`
     7	cat <<EOL
     8	<circle cx="$x" cy="$onkai" r="10" fill="black" />
     9	<line x1="$x" y1="$b1" x2="$x" y2="$b2" stroke="black"/>
    10	EOL
    11	x=`expr $x + 40`;
    12	done
    13	}

staff-bo

円の代わりに楕円を使って音符に近づけます。ぼうの楕円の右端にくるようにずらします。

     1	line(){
     2	x=100
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	cat <<EOL
     9	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    10	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    11	EOL
    12	x=`expr $x + 40`;
    13	done
    14	}

staff-ellipse

楕円を回転させて、ぼうは少し太くします。あと音符間の間隔を広げたり、いろいろ調整。

~$ cat -n staff2.sh
     1	line(){
     2	x=100
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	cat <<EOL
     9	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    10	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    11	EOL
    12	x=`expr $x + 60`;
    13	done
    14	}
    15	a=`line 0 1 2 3 4 5 6 7`
    16	
    17	cat <<EOL > /tmp/tmp.svg
    18	<svg width="640" height="280">
    19	<rect x="0" y="0" width="640" height="280" fill="white"></rect>
    20	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
    21	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
    22	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
    23	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
    24	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
    25	$a
    26	</svg>
    27	EOL
    28	inkscape -z -e out.png /tmp/tmp.svg

ト音記号を描く

staff3-title

続きです。
ト音記号を描きます。

ト音記号の素材は https://azukichi.net/ からいただきました

~$ wget https://azukichi.net/img/music/onpu064.png

inkscapeを開きます。
figure-inkscape-0804-1

素材をインポートします。
figure-inkscape-0804-2

ペンツールで、ベジェ曲線を描いて行きます。
figure-inkscape-0804-4

はみ出しても後で調整できます。
figure-inkscape-0804-5

ノードツールで、位置を調整します。
figure-inkscape-0804-6

リンクしている素材を削除します。
figure-inkscape-0804-7

ノードツールで、微調整します。
figure-inkscape-0804-8

黒く塗りつぶします。
figure-inkscape-0804-9

描いたパスはテキストでこうなりました。

~$ grep d=.m G_clef.svg | fold -w80 -s
     id="metadata7">
       d="m 56.35986,168.66933 c 0,0 -4.61429,-0.97143 -5.82857,-7.77143 
-1.69321,-9.48198 10.88767,-14.08481 16.75714,-10.44286 5.0332,3.12306 
5.49313,13.26802 3.15714,17.97143 -7.39019,14.87984 -32.05714,6.31429 
-33.02857,-12.38571 -0.85171,-16.39547 23.31429,-34.24286 23.31429,-34.24286 
15.69195,-18.14484 14.27911,-29.83344 5.1,-45.9 -9.67568,6.65963 
-13.98784,17.86559 -12.87143,28.41428 0.37615,3.13466 11.41428,91.55715 
11.41428,91.55715 -0.97143,1.7 0.60315,6.29524 -7.04285,9.71428 
-5.75143,2.57185 -13.95304,-3.97819 -10.44286,-4.61428 2.43211,-0.44074 
6.02055,-2.16783 6.55714,-7.04286 0.43495,-3.9516 -3.88571,-9.22857 
-10.68571,-6.31429 -9.70669,7.11557 0.006,19.9073 12.38571,20.64286 
11.15395,-1.12296 11.46971,-11.74642 11.17143,-17.00001 -0.25271,-3.70639 
-10.68571,-84.02856 -10.68571,-84.02856 -0.24286,-5.1 3.59877,-18.50425 
9.95714,-18.94286 3.30325,-0.22786 5.82315,8.82371 1.45714,15.78572 
-8.98571,14.32857 -33.79055,29.19106 -35.21428,44.68571 -1.58507,16.3288 
12.24666,29.92904 26.71428,30.35714 7.60069,-0.91625 18.84479,-6.24743 
20.15714,-21.12857 0.94007,-10.65967 -8.01428,-18.21428 -19.91428,-16.75714 
-2.98171,0.36511 -10.17437,4.05167 -12.14286,9.95714 -2.57761,8.56468 
2.2775,14.91145 9.71429,17.48572 z"

前回のスクリプトにpath行を加えると、以下のようなスクリプトになりました。

~$ fold -w60 -s staff-f4.sh | cat -n
     1	line(){
     2	x=120
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	cat <<EOL
     9	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" 
    10	transform="rotate(-25,$x,$onkai)"/>
    11	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" 
    12	stroke-width="2.5"/>
    13	EOL
    14	x=`expr $x + 60`;
    15	done
    16	}
    17	a=`line 0 1 2 3 4 5 6 7`
    18	
    19	cat <<EOL > /tmp/tmp.svg
    20	<svg width="640" height="280">
    21	<rect x="0" y="0" width="640" height="280" 
    22	fill="white"></rect>
    23	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
    24	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
    25	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
    26	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
    27	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
    28	<line x1="10" y1="100" x2="10" y2="180" stroke="black"/>
    29	$a
    30	    <path stroke="black" stroke-width="1"
    31	       d="m 56.35986,168.66933 c 0,0 -4.61429,-0.97143 
    32	-5.82857,-7.77143 -1.69321,-9.48198 10.88767,-14.08481 
    33	16.75714,-10.44286 5.0332,3.12306 5.49313,13.26802 
    34	3.15714,17.97143 -7.39019,14.87984 -32.05714,6.31429 
    35	-33.02857,-12.38571 -0.85171,-16.39547 23.31429,-34.24286 
    36	23.31429,-34.24286 15.69195,-18.14484 14.27911,-29.83344 
    37	5.1,-45.9 -9.67568,6.65963 -13.98784,17.86559 
    38	-12.87143,28.41428 0.37615,3.13466 11.41428,91.55715 
    39	11.41428,91.55715 -0.97143,1.7 0.60315,6.29524 
    40	-7.04285,9.71428 -5.75143,2.57185 -13.95304,-3.97819 
    41	-10.44286,-4.61428 2.43211,-0.44074 6.02055,-2.16783 
    42	6.55714,-7.04286 0.43495,-3.9516 -3.88571,-9.22857 
    43	-10.68571,-6.31429 -9.70669,7.11557 0.006,19.9073 
    44	12.38571,20.64286 11.15395,-1.12296 11.46971,-11.74642 
    45	11.17143,-17.00001 -0.25271,-3.70639 -10.68571,-84.02856 
    46	-10.68571,-84.02856 -0.24286,-5.1 3.59877,-18.50425 
    47	9.95714,-18.94286 3.30325,-0.22786 5.82315,8.82371 
    48	1.45714,15.78572 -8.98571,14.32857 -33.79055,29.19106 
    49	-35.21428,44.68571 -1.58507,16.3288 12.24666,29.92904 
    50	26.71428,30.35714 7.60069,-0.91625 18.84479,-6.24743 
    51	20.15714,-21.12857 0.94007,-10.65967 -8.01428,-18.21428 
    52	-19.91428,-16.75714 -2.98171,0.36511 -10.17437,4.05167 
    53	-12.14286,9.95714 -2.57761,8.56468 2.2775,14.91145 
    54	9.71429,17.48572 z"
    55	 />
    56	
    57	</svg>
    58	EOL
    59	inkscape -z -e out.png /tmp/tmp.svg

ドの音に土星の輪を付ける

ドの音符に、横棒がないので、つけます。
あと関数名がlineでしたが、名前が変なので、onpuにします。

元関数

     1	line(){
     2	x=120
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	cat <<EOL
     9	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    10	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    11	EOL
    12	x=`expr $x + 60`;
    13	done
    14	}

修正後。1,18行目を修正。8,9,13行目を増やしました。

     1	onpu(){
     2	x=120
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	barx1=`expr $x - 20`
     9	barx2=`expr $x + 20`
    10	cat <<EOL
    11	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    12	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    13	<line x1="$barx1" y1="$onkai" x2="$barx2" y2="$onkai" stroke="black" stroke-width="2.5"/>
    14	EOL
    15	x=`expr $x + 60`;
    16	done
    17	}
    18  a=`onpu 0 1 2 3 4 5 6 7`

このような絵になります。

figure-dosei1

全部土星になってしまうので、条件をつけねばなりません。
横棒が必要なドは0の場合のみですので、if文(8行目)で判定します。

     1	onpu(){
     2	x=120
     3	for i in $@;do 
     4	onkai=`expr 200 - $i \* 10`
     5	b2=`expr $onkai - 5`
     6	b1=`expr $onkai - 70`
     7	bx=`expr $x + 12`
     8	if [ $i -eq 0 ] ; then
     9		barx1=`expr $x - 20`
    10		barx2=`expr $x + 20`
    11		dosei="<line x1=\"$barx1\" y1=\"$onkai\" x2=\"$barx2\" y2=\"$onkai\" stroke=\"black\" stroke-width=\"2.5\"/>"
    12	else
    13		dosei=""
    14	fi
    15	cat <<EOL
    16	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    17	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    18	$dosei
    19	EOL
    20	x=`expr $x + 60`;
    21	done
    22	}
    23	a=`onpu 0 1 2 3 4 5 6 7`

figure-dosei2

音符の数を8個から13個に増やしてみます。
五線譜のを超えたラにも横棒が必要になるので、0以外に12も条件に含めます(8行目)

     1	onpu(){
     2		x=120
     3		for i in $@;do
     4			onkai=`expr 200 - $i \* 10`
     5			b2=`expr $onkai - 5`
     6			b1=`expr $onkai - 70`
     7			bx=`expr $x + 12`
     8			for j in 0 12;do
     9			if [ $i -eq $j ] ; then
    10				barx1=`expr $x - 20`
    11				barx2=`expr $x + 20`
    12				dosei="<line x1=\"$barx1\" y1=\"$onkai\" x2=\"$barx2\" y2=\"$onkai\" stroke=\"black\" stroke-width=\"2.5\"/>"
    13				break
    14			else
    15				dosei=""
    16			fi
    17			done
    18	cat <<EOL
    19	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    20	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    21	$dosei
    22	EOL
    23		x=`expr $x + 60`;
    24		done
    25	}
    26	a=`onpu 0 1 2 3 4 5 6 7 8 9 10 11 12`
    27	
    28	cat <<EOL > /tmp/tmp.svg
    29	<svg width="1280" height="280">
    30	<rect x="0" y="0" width="1280" height="280"
    31	fill="white"></rect>
    32	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
    33	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
    34	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
    35	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
    36	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
    37	<line x1="10" y1="100" x2="10" y2="180" stroke="black"/>
    38	$a
    39	    <path stroke="black" stroke-width="1"
    40	       d="m 56.35986,168.66933 c 0,0 -4.61429,-0.97143 
    41	-5.82857,-7.77143 -1.69321,-9.48198 10.88767,-14.08481 
    42	16.75714,-10.44286 5.0332,3.12306 5.49313,13.26802 
    43	3.15714,17.97143 -7.39019,14.87984 -32.05714,6.31429 
    44	-33.02857,-12.38571 -0.85171,-16.39547 23.31429,-34.24286 
    45	23.31429,-34.24286 15.69195,-18.14484 14.27911,-29.83344 
    46	5.1,-45.9 -9.67568,6.65963 -13.98784,17.86559 
    47	-12.87143,28.41428 0.37615,3.13466 11.41428,91.55715 
    48	11.41428,91.55715 -0.97143,1.7 0.60315,6.29524 
    49	-7.04285,9.71428 -5.75143,2.57185 -13.95304,-3.97819 
    50	-10.44286,-4.61428 2.43211,-0.44074 6.02055,-2.16783 
    51	6.55714,-7.04286 0.43495,-3.9516 -3.88571,-9.22857 
    52	-10.68571,-6.31429 -9.70669,7.11557 0.006,19.9073 
    53	12.38571,20.64286 11.15395,-1.12296 11.46971,-11.74642 
    54	11.17143,-17.00001 -0.25271,-3.70639 -10.68571,-84.02856 
    55	-10.68571,-84.02856 -0.24286,-5.1 3.59877,-18.50425 
    56	9.95714,-18.94286 3.30325,-0.22786 5.82315,8.82371 
    57	1.45714,15.78572 -8.98571,14.32857 -33.79055,29.19106 
    58	-35.21428,44.68571 -1.58507,16.3288 12.24666,29.92904 
    59	26.71428,30.35714 7.60069,-0.91625 18.84479,-6.24743 
    60	20.15714,-21.12857 0.94007,-10.65967 -8.01428,-18.21428 
    61	-19.91428,-16.75714 -2.98171,0.36511 -10.17437,4.05167 
    62	-12.14286,9.95714 -2.57761,8.56468 2.2775,14.91145 
    63	9.71429,17.48572 z"
    64	 />
    65	
    66	</svg>
    67	EOL
    68	inkscape -z -e out.png /tmp/tmp.svg

大譜表を描く

大譜表を描くスクリプトです。
ヘ音記号は、inkscapeを使って手で描きました。

     1	onpu(){
     2		x=120
     3		for i in $@;do
     4			onkai=`expr 200 - $i \* 10`
     5			b2=`expr $onkai - 5`
     6			b1=`expr $onkai - 70`
     7			bx=`expr $x + 12`
     8			for j in 0 12;do
     9			if [ $i -eq $j ] ; then
    10				barx1=`expr $x - 20`
    11				barx2=`expr $x + 20`
    12				dosei="<line x1=\"$barx1\" y1=\"$onkai\" x2=\"$barx2\" y2=\"$onkai\" stroke=\"black\" stroke-width=\"2.5\"/>"
    13				break
    14			else
    15				dosei=""
    16			fi
    17			done
    18	cat <<EOL
    19	<ellipse cx="$x" cy="$onkai" rx="14" ry="9" fill="black" transform="rotate(-25,$x,$onkai)"/>
    20	<line x1="$bx" y1="$b1" x2="$bx" y2="$b2" stroke="black" stroke-width="2.5"/>
    21	$dosei
    22	EOL
    23		x=`expr $x + 60`;
    24		done
    25	}
    26	a=`onpu 0 1 2 3 4 5 6 7 8 9 10 11 12`
    27	
    28	cat <<EOL > /tmp/tmp.svg
    29	<svg width="980" height="400">
    30	<rect x="0" y="0" width="1280" height="400"
    31	fill="white"></rect>
    32	<line x1="10" y1="100" x2="1270" y2="100" stroke="black"/>
    33	<line x1="10" y1="120" x2="1270" y2="120" stroke="black"/>
    34	<line x1="10" y1="140" x2="1270" y2="140" stroke="black"/>
    35	<line x1="10" y1="160" x2="1270" y2="160" stroke="black"/>
    36	<line x1="10" y1="180" x2="1270" y2="180" stroke="black"/>
    37	
    38	<line x1="10" y1="300" x2="1270" y2="300" stroke="black"/>
    39	<line x1="10" y1="320" x2="1270" y2="320" stroke="black"/>
    40	<line x1="10" y1="340" x2="1270" y2="340" stroke="black"/>
    41	<line x1="10" y1="360" x2="1270" y2="360" stroke="black"/>
    42	<line x1="10" y1="380" x2="1270" y2="380" stroke="black"/>
    43	<line x1="10" y1="100" x2="10" y2="380" stroke="black"/>
    44	$a
    45	
    46	<path stroke="black" stroke-width="1"
    47	d="m 56.35986,168.66933 c 0,0 -4.61429,-0.97143 
    48	-5.82857,-7.77143 -1.69321,-9.48198 10.88767,-14.08481 
    49	16.75714,-10.44286 5.0332,3.12306 5.49313,13.26802 
    50	3.15714,17.97143 -7.39019,14.87984 -32.05714,6.31429 
    51	-33.02857,-12.38571 -0.85171,-16.39547 23.31429,-34.24286 
    52	23.31429,-34.24286 15.69195,-18.14484 14.27911,-29.83344 
    53	5.1,-45.9 -9.67568,6.65963 -13.98784,17.86559 
    54	-12.87143,28.41428 0.37615,3.13466 11.41428,91.55715 
    55	11.41428,91.55715 -0.97143,1.7 0.60315,6.29524 
    56	-7.04285,9.71428 -5.75143,2.57185 -13.95304,-3.97819 
    57	-10.44286,-4.61428 2.43211,-0.44074 6.02055,-2.16783 
    58	6.55714,-7.04286 0.43495,-3.9516 -3.88571,-9.22857 
    59	-10.68571,-6.31429 -9.70669,7.11557 0.006,19.9073 
    60	12.38571,20.64286 11.15395,-1.12296 11.46971,-11.74642 
    61	11.17143,-17.00001 -0.25271,-3.70639 -10.68571,-84.02856 
    62	-10.68571,-84.02856 -0.24286,-5.1 3.59877,-18.50425 
    63	9.95714,-18.94286 3.30325,-0.22786 5.82315,8.82371 
    64	1.45714,15.78572 -8.98571,14.32857 -33.79055,29.19106 
    65	-35.21428,44.68571 -1.58507,16.3288 12.24666,29.92904 
    66	26.71428,30.35714 7.60069,-0.91625 18.84479,-6.24743 
    67	20.15714,-21.12857 0.94007,-10.65967 -8.01428,-18.21428 
    68	-19.91428,-16.75714 -2.98171,0.36511 -10.17437,4.05167 
    69	-12.14286,9.95714 -2.57761,8.56468 2.2775,14.91145 
    70	9.71429,17.48572 z"
    71	/>
    72	
    73	<path stroke="black" stroke-width="1"
    74	d="m 43.037329,311.67862 c 7.993845,-3.48451 
    75	14.258454,5.47241 7.173963,11.06838 -6.45173,5.09616 
    76	-17.013942,-2.30443 -13.323075,-12.09325 4.714319,-12.50319 
    77	27.267029,-15.20024 35.45988,-2.86959 7.511421,11.30509 
    78	2.869586,23.98153 -5.329237,33.61514 -6.084824,7.14968 
    79	-33.061716,20.825 -33.061716,20.825 l 0,0 c 0,0 
    80	23.658537,-17.02074 28.552371,-29.63873 5.382081,-13.87684 
    81	2.578791,-29.22674 -5.534201,-30.13063 -6.058788,-0.67504 
    82	-13.203561,0.26772 -15.987689,6.76402 -1.844735,4.30438 
    83	2.049704,2.45966 2.049704,2.45966 z"
    84	/>
    85	
    86	<path stroke="black" stroke-width="1"
    87	d="m 87.925847,310.03882 a 4.0994077,4.5093484 0 0 1 
    88	-4.063277,4.50917 4.0994077,4.5093484 0 0 1 
    89	-4.134902,-4.42969 4.0994077,4.5093484 0 0 1 
    90	3.990388,-4.58725 4.0994077,4.5093484 0 0 1 
    91	4.205243,4.34882"
    92	/>
    93	
    94	<path stroke="black" stroke-width="1"
    95	d="m 88.130826,327.05136 a 4.0994077,4.5093484 0 0 1 
    96	-4.063277,4.50917 4.0994077,4.5093484 0 0 1 
    97	-4.134902,-4.42968 4.0994077,4.5093484 0 0 1 
    98	3.990388,-4.58726 4.0994077,4.5093484 0 0 1 
    99	4.205243,4.34882"
   100	/>
   101	
   102	</svg>
   103	EOL
   104	inkscape -z -e out.png /tmp/tmp.svg

46行目〜100行目が、inkscapeで描いたpathですが、小数部の桁数が大きいのでテキスト量が多くなってしまっています。
小数第一位までの数字に置換しましょう。

~$ sed -n 46,84p t.sh | perl -pe 's/([\d\.]+)/sprintf("%1.1f",$1)/ge' | tee path.txt
<path stroke="black" stroke-width="1.0"
d="m 56.4,168.7 c 0.0,0.0 -4.6,-1.0 
-5.8,-7.8 -1.7,-9.5 10.9,-14.1 
16.8,-10.4 5.0,3.1 5.5,13.3 
3.2,18.0 -7.4,14.9 -32.1,6.3 
-33.0,-12.4 -0.9,-16.4 23.3,-34.2 
23.3,-34.2 15.7,-18.1 14.3,-29.8 
5.1,-45.9 -9.7,6.7 -14.0,17.9 
-12.9,28.4 0.4,3.1 11.4,91.6 
11.4,91.6 -1.0,1.7 0.6,6.3 
-7.0,9.7 -5.8,2.6 -14.0,-4.0 
-10.4,-4.6 2.4,-0.4 6.0,-2.2 
6.6,-7.0 0.4,-4.0 -3.9,-9.2 
-10.7,-6.3 -9.7,7.1 0.0,19.9 
12.4,20.6 11.2,-1.1 11.5,-11.7 
11.2,-17.0 -0.3,-3.7 -10.7,-84.0 
-10.7,-84.0 -0.2,-5.1 3.6,-18.5 
10.0,-18.9 3.3,-0.2 5.8,8.8 
1.5,15.8 -9.0,14.3 -33.8,29.2 
-35.2,44.7 -1.6,16.3 12.2,29.9 
26.7,30.4 7.6,-0.9 18.8,-6.2 
20.2,-21.1 0.9,-10.7 -8.0,-18.2 
-19.9,-16.8 -3.0,0.4 -10.2,4.1 
-12.1,10.0 -2.6,8.6 2.3,14.9 
9.7,17.5 z"
/>

<path stroke="black" stroke-width="1.0"
d="m 43.0,311.7 c 8.0,-3.5 
14.3,5.5 7.2,11.1 -6.5,5.1 
-17.0,-2.3 -13.3,-12.1 4.7,-12.5 
27.3,-15.2 35.5,-2.9 7.5,11.3 
2.9,24.0 -5.3,33.6 -6.1,7.1 
-33.1,20.8 -33.1,20.8 l 0.0,0.0 c 0.0,0.0 
23.7,-17.0 28.6,-29.6 5.4,-13.9 
2.6,-29.2 -5.5,-30.1 -6.1,-0.7 
-13.2,0.3 -16.0,6.8 -1.8,4.3 
2.0,2.5 2.0,2.5 z"
/>

~$ 

さらに、小数点以下が0のものは、整数にします。

~$ sed 's/\.0//g' -i path.txt
~$ cat -n path.txt
     1	<path stroke="black" stroke-width="1"
     2	d="m 56.4,168.7 c 0,0 -4.6,-1 
     3	-5.8,-7.8 -1.7,-9.5 10.9,-14.1 
     4	16.8,-10.4 5,3.1 5.5,13.3 
     5	3.2,18 -7.4,14.9 -32.1,6.3 
     6	-33,-12.4 -0.9,-16.4 23.3,-34.2 
     7	23.3,-34.2 15.7,-18.1 14.3,-29.8 
     8	5.1,-45.9 -9.7,6.7 -14,17.9 
     9	-12.9,28.4 0.4,3.1 11.4,91.6 
    10	11.4,91.6 -1,1.7 0.6,6.3 
    11	-7,9.7 -5.8,2.6 -14,-4 
    12	-10.4,-4.6 2.4,-0.4 6,-2.2 
    13	6.6,-7 0.4,-4 -3.9,-9.2 
    14	-10.7,-6.3 -9.7,7.1 0,19.9 
    15	12.4,20.6 11.2,-1.1 11.5,-11.7 
    16	11.2,-17 -0.3,-3.7 -10.7,-84 
    17	-10.7,-84 -0.2,-5.1 3.6,-18.5 
    18	10,-18.9 3.3,-0.2 5.8,8.8 
    19	1.5,15.8 -9,14.3 -33.8,29.2 
    20	-35.2,44.7 -1.6,16.3 12.2,29.9 
    21	26.7,30.4 7.6,-0.9 18.8,-6.2 
    22	20.2,-21.1 0.9,-10.7 -8,-18.2 
    23	-19.9,-16.8 -3,0.4 -10.2,4.1 
    24	-12.1,10 -2.6,8.6 2.3,14.9 
    25	9.7,17.5 z"
    26	/>
    27	
    28	<path stroke="black" stroke-width="1"
    29	d="m 43,311.7 c 8,-3.5 
    30	14.3,5.5 7.2,11.1 -6.5,5.1 
    31	-17,-2.3 -13.3,-12.1 4.7,-12.5 
    32	27.3,-15.2 35.5,-2.9 7.5,11.3 
    33	2.9,24 -5.3,33.6 -6.1,7.1 
    34	-33.1,20.8 -33.1,20.8 l 0,0 c 0,0 
    35	23.7,-17 28.6,-29.6 5.4,-13.9 
    36	2.6,-29.2 -5.5,-30.1 -6.1,-0.7 
    37	-13.2,0.3 -16,6.8 -1.8,4.3 
    38	2,2.5 2,2.5 z"
    39	/>
~$ 

これを最初のスクリプトへ反映します。

~$ sed 46,84d t.sh > tmp.sh
~$ sed '45r path.txt' -i tmp.sh

実行してみます。

~$ . tmp.sh

実行すると、タイトルの画像が生成されます。

コメント

タイトルとURLをコピーしました