Skip to content

Instantly share code, notes, and snippets.

@suitougreentea
Last active September 11, 2017 15:01
Show Gist options
  • Save suitougreentea/b5afe874c5b9e71d0b37b4da1f692d60 to your computer and use it in GitHub Desktop.
Save suitougreentea/b5afe874c5b9e71d0b37b4da1f692d60 to your computer and use it in GitHub Desktop.
% \friendsNoFermata でフレンズっぽくなる
% ベクター素材として以下を利用させていただきました。
% http://diagraph01.net/MMD_models/index.html#misc_kemofure_no
\version "2.19.64"
#(define friends-no-path
'((moveto 0.910213 -0.359043)
(rcurveto 0.046888 -0.080300 0.062305 -0.134120 0.076108 -0.197500)
(rcurveto 0.012709 -0.068600 0.020939 -0.119580 0.004504 -0.198900)
(rcurveto -0.036393 -0.159630 -0.106831 -0.251210 -0.214835 -0.244180)
(rcurveto -0.061633 0.012000 -0.086939 0.033500 -0.105657 0.086900)
(rcurveto -0.010565 0.027100 -0.017365 0.067000 0.017610 0.129140)
(rcurveto 0.032871 0.043500 0.038741 0.086900 0.038741 0.139710)
(rcurveto -0.004849 0.053800 -0.017022 0.116190 -0.071612 0.163220)
(rcurveto -0.043437 0.034100 -0.095678 0.065800 -0.191356 0.055200)
(rcurveto -0.105657 -0.010000 -0.199574 -0.115000 -0.199574 -0.196110)
(rlineto -0.000200 -0.053400)
(rcurveto -0.000460 -0.032700 0.024750 -0.053400 0.049506 -0.053400)
(rcurveto 0.025306 -0.000000 0.045785 0.015900 0.045785 0.041700)
(rlineto 0.000000 0.061800)
(rcurveto 0.003522 0.045000 0.044611 0.101050 0.129136 0.101050)
(rcurveto 0.076568 -0.000000 0.138528 -0.070400 0.138528 -0.157250)
(rcurveto 0.000000 -0.075100 -0.016436 -0.117390 -0.061046 -0.190130)
(rcurveto -0.084525 -0.093900 -0.133832 -0.112800 -0.267663 -0.112800)
(curveto 0.133369 -0.984373 0.000000 -0.848913 0.000000 -0.681503)
(rcurveto 0.000000 0.131340 0.021033 0.222280 0.089834 0.313740)
(rcurveto -0.031220 0.032300 -0.054615 0.063600 -0.062441 0.118180)
(rcurveto 0.000000 0.062800 0.000000 0.097800 0.040697 0.147080)
(rcurveto 0.053220 -0.000000 0.125715 -0.025100 0.190964 -0.098700)
(rcurveto 0.081259 0.028900 0.128744 0.036300 0.211313 0.041000)
(rcurveto 0.119355 0.001000 0.178442 -0.006000 0.253576 -0.048800)
(rcurveto 0.065251 0.073500 0.137746 0.098700 0.190966 0.098700)
(rcurveto 0.040697 -0.049200 0.040697 -0.084300 0.040697 -0.147080)
(rcurveto -0.007822 -0.054800 -0.014170 -0.069600 -0.045392 -0.101650)
(closepath)))
friendsNoFermata = #(define-event-function () ()
#{
\tweak Script.stencil #(lambda (grob)
(grob-interpret-markup grob
(markup (#:scale '(2.5 . 2.5) (#:override '(filled . #t) (#:path 0 friends-no-path))))))
\fermata
#})
\relative {
c''1\fermata
c\friendsNoFermata
c\fermata
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment