2022/09後半
南浜田の舞獅子に連絡を取りたいと秋の四日市祭実行委員会事務局へ問い合わせた。上司へ尋ねてから返事をするとのことで、翌日上司らしき人から連絡があった。おって返事するとのことだったが、返事なし。
26 Oct 2022
鈴鹿市文化振興事業団が主催する獅子舞サミットについて問い合わせたけど
2022/10/23
鈴鹿市文化振興事業団の石垣池講演管理事務所内の事業団事務所へ電話で問い合わせをした。
- 出演団体のうち3件についての質問
- その獅子舞保存会への連絡を取りたいので連絡先を教えてもらえないか
内容は以上の2点。上司に尋ねないと返事できませんとのことで、火曜日（26日）に上司が出社するのでそれ以降に返事をするとのことだったが、27日の昼にも返事なし。
29日の夜電話があった。対応してもらえたことがわかった。この日に来月27日の獅子舞サミットのリハーサルがあったので、忙しかったのだろう。
何年か前に問い合わせた折は、返事なしだったので、改善されていることがわかった。
25 Oct 2022
獅子舞曲譜追加
に新たに採譜した譜を追加した。
2020（令和2）年3月に四日市私立図書館に寄贈した譜4点がさるやんごとなき身分の人の命令によって、図書館から抹消された。
その人物の命令で動くのは四日市市笹川でビバアミーゴという外国人に日本語を教えるボランティア団体で日本語を教えている村井という人物なのだが、彼が本件に関わっているかは定かではない。ただ彼は僕からオーボエのリードの研究所を借り受け、それは皇居まで持ち去られ、僕の手元に戻ることはなかった。さるやんごとなきお方は”返してほしければここまで取りに来い”と電話で言っていた。
この件は当時、寄贈の対応してくれた図書館の職員から連絡を受けたが、研究に没頭していたため、また損害はそう大きくないので、放置していた。2022年に図書館を訪れた際に思い出した。寄贈記録も抹消されており、DBにも無かった。
図書館から特定の書物を末梢するのは違法行為ではないのか？皇族はそれを行えてしまうということなのだろうか？また盗難も罪には問われないということなのか？警察は皇室の部下なので、皇室の言いなりだから警察に届け出てもまともに対応しないと思われる。
17 Oct 2022
Gauche メモ
参考サイト
このサイトで順次学習できるみたい。
コメント
;
アトム
数値、文字、文字列
先頭に'をつけると中身が計算されない。
'(1 2 3 4)
dot対
リストの末尾が()でない時の表記。consで作る
list
()でくくられるリストを作る
car
リストの1番めを表示
cdr
リストの2番め以降を表示
carとcdrは繰り返して使ったものをまとめることができる。caar、cdarとか
16 Oct 2022
Gaucheを学ぶための設定
Puppy linux bionic 64bitを使っている。
参考サイト
パッケージマネージャーでgaucheとrlwrapをインストール。
参考サイトの手順で補完履歴機能を追加。
emacsを使う時
参考サイト
画面を分割してgoshを起動。
ctrl-c s
画面を行き交うのはctrl-x o
一方の画面で.scmファイルを開くとscheme modeになる。
書いたコードの末尾で
ctrl-x ctrl-e
を打つと式が評価される。
scheme modeで自動補完されるよう設定
参考サイト
パッケージマネージャーでelpa-auto-completeをインストール。
/usr/share/emacs/site-lisp下にインストールされるが、load-pathが通っていない。
設定を追加。
選択肢はC-n C-pで選んでenterで決定。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;For auto-complete mode
(add-to-list 'load-path "/usr/share/emacs/site-lisp/elpa-src/auto-complete-1.5.0")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/elpa-src/popup-0.5.3")
;;;;;;;;;;;;;;;;;;;;;;;;;
;;Set dictionary
(require 'auto-complete-config)
(ac-config-default)
(add-to-list 'ac-dictionary-directories "/usr/share/emacs/site-lisp/elpa-src/auto-complete-1.5.0/")
;;Set Key bind
(when (require 'auto-complete nil t)
(global-auto-complete-mode t)
(define-key ac-complete-mode-map "\C-n" 'ac-next)
(define-key ac-complete-mode-map "\C-p" 'ac-previous))How to add new fingering diagram for 7 traditional flute with 7 finger holes to Lilypond
This is for Lilypond version 2.22.1.
Only display-woodwind-diagram.scm is modified.
At first I made a list of the positions of 7 holes from general use one.
I made it by copying general use one.
I added "TFL-" to the beginning of CENTRAL-COLUMN-HOLE-PLACEMENTS etc.
;;For Traditional flute
(define TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS '((one . (0.0 . 7.0))
(two . (0.0 . 6.0))
(three . (0.0 . 5.0))
(four . (0.0 . 3.5))
(five . (0.0 . 2.5))
(six . (0.0 . 1.5))
(seven . (0.0 . 0.0))))
(define TFL-CENTRAL-COLUMN-HOLE-LIST (map car TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(define TFL-CENTRAL-COLUMN-HOLE-H-LIST (cons 'h TFL-CENTRAL-COLUMN-HOLE-LIST))I modified the configuration for Tin-whistle. The name was changed to traditional-flute. I added the configuration for 7th hole and 2nd mid line.
I tried the positions for mid lines.
;;; Traditional flute with 7holes assembly instructions
(define traditional-flute-change-points
((make-named-spreadsheet '(traditional-flute)) '()))
(define (generate-traditional-flute-family-entry traditional-flute-name)
(let*
((change-points
(get-named-spreadsheet-column traditional-flute-name traditional-flute-change-points)))
`(,traditional-flute-name
. ((keys
. ((hidden
. ((midline
. ((offset . (0.0 . 0.0))
(stencil . ,midline-stencil)
(text? . #f)
(complexity . basic))))
)
(central-column
. ((one
. ((offset . ,(assoc-get 'one TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(two
. ((offset . ,(assoc-get 'two TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(three
. ((offset . ,(assoc-get 'three TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(four
. ((offset . ,(assoc-get 'four TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(five
. ((offset . ,(assoc-get 'five TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(six
. ((offset . ,(assoc-get 'six TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))
(seven
. ((offset . ,(assoc-get 'seven TFL-CENTRAL-COLUMN-HOLE-PLACEMENTS))
(stencil . ,column-circle-stencil)
(text? . #f)
(complexity . covered)))))
(left-hand . ())
(right-hand . ())))
(graphical-commands
. ((stencil-alist
. ((stencils
. (,(simple-stencil-alist '(hidden . midline) '(0.0 . 4.25))
,(simple-stencil-alist '(hidden . midline) '(0.0 . 0.75))
((stencils
. ,(make-central-column-hole-addresses
TFL-CENTRAL-COLUMN-HOLE-LIST))
(xy-scale-function . (,identity . ,identity))
(textual? . #f)
(offset . (0.0 . 0.0)))) )
(xy-scale-function . (,identity . ,identity))
(textual? . #f)
(offset . (0.0 . 0.0))))
(draw-instructions
. ((,group-automate-rule
,(make-central-column-hole-addresses TFL-CENTRAL-COLUMN-HOLE-LIST))
(,group-automate-rule ((hidden . midline)))))
(extra-offset-instructions
. ((,uniform-extra-offset-rule (0.0 . 0.0))))))
(text-commands
. ((stencil-alist
. ((stencils .
(,(simple-stencil-alist '(hidden . midline) '(0.0 . 3.75))
((stencils
. ,(make-central-column-hole-addresses
TFL-CENTRAL-COLUMN-HOLE-LIST))
(xy-scale-function . (,identity . ,identity))
(textual? . #f)
(offset . (1.0 . 0.0)))))
(xy-scale-function . (,identity . ,identity))
(textual? . #f)
(offset . (0.0 . 0.0))))
(draw-instructions
. ((,group-automate-rule
,(make-central-column-hole-addresses TFL-CENTRAL-COLUMN-HOLE-LIST))
(,group-automate-rule ((hidden . midline)))))
(extra-offset-instructions
. ((,uniform-extra-offset-rule (0.0 . 0.0))))))
))))How to use:
{
c'1 _\markup {
\center-column {
\override #'(size . 0.7) {
\woodwind-diagram #'traditional-flute #'((cc . (oneF two three four five six seven))
(lh . ())
(rh . ())) }}}
}
14 Oct 2022
Lilypondの管楽器用運指機能に7穴の横笛を追加する
管楽器用の運指を表示する機能はあるのだが、7穴の横笛用のはない。とりあえずリコーダー用の書き方で間に合わせることはできるが、数字表記で読みにくい。schemeを身につけて設定ファイルを直でいじるしかないらしい。
net上に質問が投げられていた。これはscheme知らなくてもなんとかなりそう。
Y DOWNとかかれているところが2箇所ある。これをY UPに変更すると丁度良い。
make-line-stencilのthicknessを1にして線の細さを調節。
Subscribe to:
Posts (Atom)