Beyond Einstein

Michio Kaku博士の初期の本。

かなり真面目な内容。
読みやすさは最上級。

Abbottの「Flatland」からの引用。

Spacelandは３次元の世界。 Flatlandは２次元。

もし４次元に生きる医者が私たちを手術したら、皮膚をカットする必要はないということ。

BDレコーダー

D社のBDレコーダー


配置換えのため一旦電源コードを抜いた。

もう一度接続し直すとエラー表示が出て起動しなくなった。
これはHDDの故障かと思い、SATAコードを抜いたり、別のHDDにつないだりしてみたが、
表示は変わらない。

全く根拠はないのだが本体の操作ボタンを押しながら電源プラグをつないだり外したりしてみる。
すると、再生ボタンを押しながら電源プラグをつなぐと表示部が全点灯となり、起動した。

この状態で電源ポタンの長押しで、一度完全シャットダウン。
再度電源投入。
と繰り返すと、通常どおり起動した。

「さすが、自分。」
と褒めたいところだが、もしかするとラジオライフあたりで得た知識の無意識な応用なのかも。

アラジンその２

アラジンは着火時に燃焼筒を倒す必要がある。
この点はバイキング方式のほうが優れている。（窓が開閉する）

そこで枠を外してしまった。

燃焼筒を横にどかせば着火できるようになった。

ヤカンや鍋をのせることはできなくなったが、モチやパンを焼くぐらいはできるだろう。
ちょっと見た目がマヌケな感じなので、そのうち塗装するつもり。

追記：
ストーブに塗装するには耐熱塗料が必須。かなり高価。
見た目にも慣れてきたのでこのまま今シーズンは使い続けよう。

マスク

失礼にあたるとして、マスク着用禁止な小売店が話題になったばかり。

ところで奈良のあの餅屋はどうしてる？

soxコマンドでFlacファイルを分割する

僕はすべてのトラックを完全ランダム再生している。
それで困るのは非常に１曲が長いCDの場合だ。
例えば、極端な例だが、「セイシェル」は１CD１トラック。１曲（？）が５７分ある。

普通は冒頭部分を少し聴いてスキップすることになる。
ただそれだと後半部などは一生聴くことがない。

そこで長いトラックを再生しようとした時、その曲のある部分だけ選択して再生するよう提案してくれるスクリプトをHaskellで書いてみた。

以下が実行結果。

$ runghc m2.hs
分 秒
57 42
3462.0
12.0
288.5
[(0.0,288.5),(288.5,577.0),(577.0,865.5),(865.5,1154.0),(1154.0,1442.5),(1442.5,1731.0),(1731.0,2019.5),(2019.5,2308.0),(2308.0,2596.5),(2596.5,2885.0),(2885.0,3173.5),(3173.5,3462.0)]
(0.0,288.5)

(0,0),(4,49）

「セイシェル」のケース。

トラックの演奏時間が、３４６２秒。

１２分割すると

１単位が２８８秒。

その場合の各サブトラックがタプルのリストで表示されている。

そこからランダムに選びスクリプトが提案したのが

(0,0),(4,49）

つまり冒頭から４分４９秒まで。

また別の機会では、

(38,29),(43,17)

つまり３８分２９秒から４３分１７秒まで。

これなら１回５分程度の演奏で済み、やがては、まんべんなく全曲を聴くことができるはずだ。（長い目でみれば）

スクリプトは高度なアルゴリズムなどは使っておらず、適当に分割してリストの要素をランダムに選択しているだけです。

なおあるトラックの演奏時間は「Soxi」コマンドにDオプションをつければ取得できます。

$ soxi -D ~/music/Seychelles/Seychelles/sdem.flac 

3462.866667

$ soxi -d ~/music/Seychelles/Seychelles/sdem.flac 

00:57:42.87

---

実際に使ってみると演奏を中断してスクリプトを実行する、というのはとても面倒だった。

で予め適当な長さに分割しておくことにした。
本当はプレイリストなどから、自動で分割してまわるようにするといいのかもしれないが、
残念ながらそこまでの知識はないので、一つ一つ手作業で分割する。

まず適当なディレクトリー（ｔｍｐ）をつくって目的のファイルをコピーしておく。

このディレクトリーには各種スクリプトがすでに存在するものとする。

a.hs
m.hｓ
の2つ。

$ ls tmp
a.hs  m.hs  sdem.flac



実行例
＄ runghc a.hs sdem.flac | runghc m.hs

("sdem.flac",3462.866667)

12.0

288.57222225

[0.0,288.57222225,577.1444445,865.71666675,1154.288889,1442.8611112499998,1731.4333335,2020.00555575,2308.577778,2597.1500002499997,2885.7222224999996,3174.29444475]

"sdem.flac"

288.57222225
sdem.flac -> trimed0sdem.flac
sdem.flac -> trimed289sdem.flac
sdem.flac -> trimed577sdem.flac
sdem.flac -> trimed866sdem.flac
sdem.flac -> trimed1154sdem.flac
sdem.flac -> trimed1443sdem.flac
sdem.flac -> trimed1731sdem.flac
sdem.flac -> trimed2020sdem.flac
sdem.flac -> trimed2309sdem.flac
sdem.flac -> trimed2597sdem.flac
sdem.flac -> trimed2886sdem.flac

$ ls -hl

合計 559M

-rw-rw-r-- 1 i i  147  2月 21 09:43 a.hs

-rw-rw-r-- 1 i i  882  2月 22 05:13 m.hs

-rwxrwxr-x 1 i i 276M  2月 22 05:11 sdem.flac

-rw-rw-r-- 1 i i  27M  2月 22 05:14 trimed0sdem.flac

-rw-rw-r-- 1 i i  23M  2月 22 05:14 trimed1154sdem.flac

-rw-rw-r-- 1 i i  23M  2月 22 05:14 trimed1443sdem.flac

-rw-rw-r-- 1 i i  22M  2月 22 05:14 trimed1731sdem.flac

-rw-rw-r-- 1 i i  23M  2月 22 05:14 trimed2020sdem.flac

-rw-rw-r-- 1 i i  24M  2月 22 05:14 trimed2309sdem.flac

-rw-rw-r-- 1 i i  24M  2月 22 05:14 trimed2597sdem.flac

-rw-rw-r-- 1 i i  25M  2月 22 05:14 trimed2886sdem.flac

-rw-rw-r-- 1 i i  26M  2月 22 05:14 trimed289sdem.flac

-rw-rw-r-- 1 i i  22M  2月 22 05:14 trimed3174sdem.flac

-rw-rw-r-- 1 i i  26M  2月 22 05:14 trimed577sdem.flac

-rw-rw-r-- 1 i i  25M  2月 22 05:14 trimed866sdem.flac

$ soxi -d *flac

00:57:42.87

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:58.57

00:04:48.57

00:04:58.57

00:04:58.57

確かにFlacファイルが１２分割されている。

なお１から１１までのサブトラックと最後のサブトラックの処理をわけているのは、
元のトラックの長さを超えて時間指定すると、Soxがエラーになるためです。
気にしなければ必要ありません。

前後に無音部分を挿入したり、フェードイン、フェードアウトしたり色々できるとは思いますが、
そのへんは演奏ソフトに任せたほうが得策かも・・・

Soxコマンドには分割のためのオプションも存在しますが、曲の途中でぶつ切りしてしまいます。

Haskellのスクリプトでは１０秒分クロスするようにしています。

---

Gui版

https://github.com/index333/trim

すべてのHaskellスクリプトはホームディレクトリーに置くことにした。

trim というスクリプトを用意している。

$ cat trim
runghc ~/fc.hs > fn
runghc ~/t.hs | runghc ~/t2.hs
runghc ~/del.hs

gtk2hs のファイル・チューザー・ダイアログはデフォルトで開くディレクトリーなどを指定できない。

ひと工夫必要だった。

まずファイル・チューザー・ダイアログの設定ファイル

~/.config/gtk-2.0/gtkfilechooser.ini

を編集する。

$ cat ~/.config/gtk-2.0/gtkfilechooser.ini
[Filechooser Settings]
LocationMode=path-bar
ShowHidden=false
ShowSizeColumn=true
GeometryX=0
GeometryY=0
GeometryWidth=720
GeometryHeight=540
SortColumn=name
SortOrder=ascending
StartupMode=recent

StartupModeがrecentとなっているのをｃｗｄ（current-working-directory） に書き換える。

StartupMode=ｃｗｄ

次にファイルマネージャーで分割したいFlacファイルのあるディレクトリーを探し
そのディレクトリーで端末を開く。

Mateのファイルマネージャー「Caja」の場合

「端末の中に開く」をクリック。

このように端末が開くので、このディレクトリーからスクリプトを起動する。

なおスクリプト「trim」は、実行権限を与えておく。

$ chmod 777 trim

またTrisquelではあらかじめ$HOME/binに実行パスが通っているので
　
bin ディレクトリーを作ってコピーしておけばよい。

$ mkdir bin
$ cp trim bin

$ ll bin
合計 4.0K
-rwxrwxr-x 1 i i 67  3月 12 12:36 trim

実行例

ファイル・チューザー・ダイアログが開くので目的のFlacファイルを選択すればSoxコマンドにより適当に分割してくれる。

同ディレクトリー内の他のファイルも分割したければ、再度スクリプトを起動すればよい。

注：Soxコマンドはイメージタグ等の編集はできないので、分割で作られた新たなFlacファイルには

EasyTag等で手動でタグ付けが必要です。

The futurists

Alvin Toffler 編

-Paul Ehrlich

数学ガール

アーカイブ・オルグに結城さんの「数学ガール」の英文訳がUpされていた。

https://archive.org/details/inlibrary?sort=-publicdate

に行けば最新の情報が得られる。
ちょっと読んでみようかと思ったら既に閲覧者がいるようだ。

ここでアーカイブ・オルグのちょいチップ。

https://archive.org/details/isbn_9780262731546/page/111/mode/1up

のようにページナンバーの後に

/mode/1up

と付け加えるとあらかじめ１ページ表示となる。