「ソロ」を含む日記 RSS

はてなキーワード: ソロとは

2008-03-10

コブクロって小渕君のほうならソロでいけるよね。しかし多才だなこのシトは。

2008-02-06

郁子ちゃんのソロ2nd音源を聞いた。

めっちゃネタバレですみません。

某所で流れているのを聞きました。

…いや、でも書くべきことじゃないな。リリースまだだし。

消しました。すみません。書いてあるの見た人、忘れてください。

3月に流れているのをみんな聞けばいいと思ったんだけど、

結局郁子ちゃんスキスキな人が褒めてしまってそれで終わりだと思って書いてしまった。

3月になったらもう一回書けばいいかな。

どんな作品だって、最近どの雑誌も頑張って褒めてばっかでつまらんわ。

プロモーションに金をかければ褒めてもらえるんだし、お金のない人は不利になるばかりだ。

それがこの世界論理だとは思いつつ。。。

匿名でこのへんのJ-POPガチンコ批評しているサイトとか、誰か知りませんか?

2008-02-05

ギター

addicted to that rushが弾けないよ。

前奏のソロからして弾けないよ。

弦またぎのピッキングが難しいよ。

ピッキングハーモニクスが難しいよ。

指先器用な人ってホントにホントに器用なんだな。すげえ。

2008-02-02

anond:20080202150318

詳しそうだから聞くけど、スケールってどう扱うの?

マイナーペンタの指使いは覚えて、5音だから適当に鳴らしてもソロっぽくて気持ちいいんだけど、

他のスケールだったらそううまくいかないよね。

次どのスケール覚えて、どう扱えばいい?

2008-01-19

2008年第一回 北極ネトラジ「底なし承認欲求」を孤独に実況した。

4 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:06:30.02 ID:098Nb92n0

メモ

ブックマークで1000集めても(承認されても)持続しない

承認はいっぱい必要なのか?

承認欲求はアンバランス化する。アンバランス化する承認欲求

5 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:08:57.17 ID:098Nb92n0

承認の形式

1高く評価されたい 褒めてもらいたい

2ここにいることを気づいて欲しい

例 暴走族2ちゃんの構ってチャン→承認欲求の権化?タイプ2の承認欲求絡みの欲望 

6 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:14:51.61 ID:098Nb92n0

アブラハムマズローの(承認)欲求段階説

1:プリミティブ 食欲 睡眠欲 命の安全 

2:より上位の欲求に晒される、出てくる

(集団への所属→自己実現

当てはまるか?

所属欲求 愛情欲求は1より上位とされるが、当てはまらない場合がある

キューリー夫人 貧乏時代学問への欲求)

ゲーセンシューター全国一の男 うまい棒三本で頑張って倒れた)

1をすっ飛ばして2をやる人がいること


7 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:20:53.93 ID:098Nb92n0

承認欲求

ニコニコでの一体感 コメント弾幕 2ちゃんの実況スレ

そこで満足しきれる部分がある 気持ちいい

上等下等とかという話とは違う

マズロー理論かゆいところに手が届かない→エリクソンの?

ニコニコで欲求を満たす(生理的な欲求というより社会的な欲望)

シャバ世界で、人と人との関係性の間の欲求を求めている

一方でそれ以外からは離脱していることもある?

ひきこもりMMOネトゲ界隈:最近スタンドプレーは淘汰される傾向、ログイン時間はわからない

実生活:ニコニコ2ちゃんでは活動的だが、実際の社会ではあまり・・・

リア充という名指し:カップルを見たときに無気力になる必要があるのか?承認欲求所属欲求を満たせる

エリアが狭い?よってネットヲタクサブカル←これ自体は悪いことではなく、やればよい

8 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:23:13.65 ID:098Nb92n0

エネルギー振り分け:学校職場へ振り分けられなくて、ブログに傾倒

ご飯が食えればいい、生存の問題が維持されるといい

1970??80年代生まれでいつまでやってられるか、という問題

第三次産業コミュニケーション能力の実行機能、職場の要求高し、技能、素養が要求される

9 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:29:19.23 ID:098Nb92n0

駄目出しをされなくてもいい領域に人が集まっている傾向?

自然な成り行き

都市空間

ネットネット 仕事仕事 文脈によって分断される。

一人の個人の中に承認される場所がばらついている

あらゆる場所で満たされる人はいない、そいつばけもの

なかなか困難

確実にゲットできる場所を大事にするのはある種当然

メンタルのホメオスタシス(恒常性維持)を保つには必要で、うんぬん

近代の問題(束縛からは離れた)⇔狩猟社会の氏族(ムラ社会の抑圧の中で承認所属欲求が満たされる)

ときに群れを成したりするツールがやはり要求される→ニコニコとか

アンバランスな欲求の満たし方が一個人の中に存在するというのが増えていく?

(ひかえめ、おとなしいがネットでは暴力的だったり)

10 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:32:57.68 ID:098Nb92n0

コメント応答

2008年01月18日 westerndog blog ネット容姿人格を評価されるストレスに晒されずに済む、障害を馬鹿にされずに済む場所だなぁ

非モテエロゲ2ちゃんの生活板、文脈で決まってくる

限られた領域でセグメントで承認欲求を満たす

ネットはそれを可能にする

功罪両方ある:誰もが得意分野で満たせる、ニコニコで所属できる

それが行き過ぎたときに加速してアンバランス化する

けっこう、そういうことにはならないかも?

11 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:38:45.50 ID:098Nb92n0

2008年01月18日 republic1963 フリードリヒ大王で文化勝利するにはどうしたらいいのでしょうか?難易度:国王/他(仕事恋愛等)

で認められる可能性がほぼないと認識しているからはてな非モテなどに耽溺するのでは。鶏が先か卵が先か

いろんな領域で認めていられる経験を持つ個人は非モテ議論に耽溺しない傾向?

2008年01月18日 sync_sync ねとらじ, もふもふ, シロクマ 聞いてます。

<質問>結婚することは、異性からの婚姻セックスを「承認」されることで自分の承認欲求は充足されるのでしょうか?

異性と暮らすのは承認欲求を満たすのに適している

友達、異性、恋人

だがそれだけで解決するのか?底なしの人はいる。これでいいのか?とかいう問いを持ち続ける人はいる

2008年01月18日 youkiti 京都もふもふオフ2はどんな会なんでしょう?

いろんなことしてる

2008年01月18日 godfrey 元引きこもりですが、極端に対人コンプレックスの高い人はネット上でも引きこもりがちになりますよ。自分がそうだったので

ネット弁慶のケースがある。ラグナログオンラインでのソロプレイ、みんなと話すのが怖い、積極的にコミュニケートできない、とかいう人もいる

全員がそうではない。ネット上でもなるのかならないのかは今のとこ見通しが付いていない

12 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:46:13.76 ID:098Nb92n0

第二部

海水の塩水:いくらのんでものどが渇く→承認欲求の執着の地獄絵図

第一部では社会欲求が満たされる領域が狭くなっているということを話した

アクセス乞食ブクマ集めの地獄絵図

MMO

はてなをやっているが白熊ブクマうれしい、もっと欲しくなったりする

仕事だったり用事だったりでいったんリセットされるわけだが・・・

ホスト狂い、酒飲みDV夫、医者にもいる(みんなにありがとうと褒めてもらいたい→ハイテンション体壊す)

サークルクラッシャー男性に求められれ承認されないとやってられない)

常にあくせくして承認欲求を稼がないとメンタリティを保てない

時間若さの大半をつぎ込む→問題発生すると予想→しかし俺の自意識自転車操業で今のことでせいいっぱい

ニコニコ2ちゃん→他の領域で満たすことが塞がれていく→睡眠、食欲と同じで、毎日ある程度満たされないといけない

→満たされないとしんどくなる→何日もネット断ちするとしんどくなる?→いきなり他の場所で承認所属するには難しい

非モテネットの芸がやめられねー→代わりに職場とか男女交際とかリア充領域というのも難しい

13 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:52:51.41 ID:098Nb92n0

尻すぼみになってもやり続ける、ネトゲゲームとか人がいなくなっても?

承認欲求を満たす場所がアンバランスで限られている場合、どんなに尻すぼみで飽きてきてもその領域にしがみつく傾向が高くなる

ヲタクサブカル文化圏

食欲睡眠と同じで承認所属欲求が完全に満たされるということはない

ある程度あるという感覚が必要

部分的なセグメントで承認欲求をゲットできる現代社会

ニコニコ荒らし、見てくれる、ゲットすることは可能。そういうサービスはどこでも好評(ホストクラブ出会い系

欲求が膨張しやすくできていても、少なくて足りるという方向にはもっていかない

プレミアムセレブ。優越感ゲームを停止すれば即承認欲求0に陥る

差異化ゲーム。ライバルに差をつける。ファッションサブカル感性競争セレブ

常に拡張しなければ満たされないという意味でも底なし

パソコンスペック競争、ずっと最新の構成にしなければいけない、ライバルたちとの競争を通して承認を獲得しなければならない人は

止まるということが出来ない

14 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/18(金) 23:59:29.90 ID:098Nb92n0

一時は最高の栄華を誇るがいずれ終わると思う

仕事で成功して金銭的社会的栄誉を獲得するなら一応アリ

趣味遊びの領域で深入りしすぎるのは危険モノカルチャー

これからに向けて

底なし承認欲求の地獄をどうするか

あくせくしなくても、認められる、所属感が感じられる領域が作れたらよい

いろんなかかわり方をする人から承認、君いるよね、ということをゲットする

特定の集団、一人(奥さん一人とか)、は避けるような方策

他の人を通して、誰かを通して承認され所属される

誰かを迷惑、食い物にすると嫌われ者になる

生きてるかぎり、誰かと繋がっている限りいろいろ傷つけあったり皮肉いいあったりすることもある、

搾取するばかりだとその場が維持できない、つまはじきに合う、イナゴみたいにあちこち荒らしまわってしまうので避けたほうがよい

足ることを知るメンタリティ解脱は無理だけれど、承認欲求ガツガツしなければいけない状態を良くする、燃費をよくする

ガツガツしすぎなければ不幸な気持ちはおさまってくるのでは

15 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/19(土) 00:04:31.28 ID:rYTGJ6O20

優越感ゲーム、ライバルたちに差をつける

友達と軍拡競争をしなければいけない

リソース、金を全部つぎこむ、他の領域に回らなくなる、しんどくなる

承認欲求所属欲求を持続的にいくらかずつ得ていくことが出来れば

繰り返すが、承認、所属を求めるのは自然、食欲と睡眠と同じ

自分の足を食べることは避ける。金銭コストコミュニケーションの他の領域がおろそかになる

すぐに路線変更はしきれない。個人個人の環境にもよる

ある程度どうなれば底なしに陥るか、ということを事前に知っておくことによって、気づきによって、

いくらか程度問題を軽く出来る。すぐには路線変更できなくても、頭の隅にあれば、他のことにも興味をもってみようという目が向くのではないか

繰り返すが、承認、所属欲求自体は全く問題ない。偏らない方法を探りたい。白熊もそういう傾向があり他人事ではない。

これからも考えていくのだよ!

16 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/19(土) 00:11:58.28 ID:rYTGJ6O20

2008年01月18日 hemo-hemoge 書き直し。シロクマ先生有難う御座います。元々承認欲求の低い人っているんでしょうか?

またそういう人は、どうしてそうなったと思いますか?

もともと承認欲求の低い人はいると思う

もともと低いから、求める水準が高くなるということもある

エリクソン←ここの段階がだめだと、次の段階がしんどいよ?

何年も我慢しているうちに気づいたら承認欲求が溜まっていて吹き出るということもある

2008年01月18日 westerndog blog /ブクマが一定以上集まるようになると他者の視線に常に晒される恐怖が承認欲求を上回り逃げたくなると思う。

肯定、または肯定否定もないところでは、もんだいねー

ネガティブコメントは好きじゃない。それへの耐性

承認欲求が高い人は、承認欲求が欲しい自分自身に駄目だしされるのに大変強い傾向がある

ディスられる恐怖が承認欲求を上回るというのがある

新しい場に出て行けないという、他の人に晒される場所が多くなると、満たしやすい限られた領域になっていく

2008年01月18日 republic1963はてな非モテウォッチャーの言う、「非モテ芸」って何?益田ラジオさんみたいな?

2ch喪男板の書き込みは「芸」ですか?

スタイルと呼ぶのがふさわしい。スタイルを通して、人の目を集める。行き過ぎるとそのスタイル一辺倒というふうになるような気もする

17 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/19(土) 00:20:19.84 ID:rYTGJ6O20

2008年01月18日 godfrey 自分はたぶん、挫折して鬱になった経験を通して承認欲求の燃費が少し良くなったタイプ

承認欲求どんだけでも満たしてもらえるというのだと燃費がよくならない

燃費はあまりよくならない

燃費がよくなくてもどこででも承認されれば平静を保てる

どこでも満たされる人の場合、逆に難しくなったりする、燃費の問題で

2008年01月18日 sync_sync ねとらじ, もふもふ, シロクマ <質問2>有名なブロガーになられたシロクマさんですが、

ご自身はネット上での承認要求は満たされてますか?更に論文投稿や著書執筆などでリアル論壇などへも踏み込んでさらなる承認を求めますか?

白熊そんな力があると思ってるのか!手札は広げたい。難易度、向き不向き、日常生活での余力の問題。コストベネフィット

できるもんならやってやんよ!

2008年01月18日 roromin11 望み薄にも関わらずクリエイター志望の人間が後を絶たないのは、

才能さえあれば単一分野の実績のみで高い承認と収入を得られるからかな?と、思ったのですがいかがでしょうか

まったくその通りだと思う。クリエイターは許してもらえそう。芸能人、スパースター等々。

かわいければ、承認欲求と収入が得られてウハウハ。無意識のうちに自然とそういう方向へ単一の才能で一旗上げたいという願望があったりする

クリエイター志望。アニメ声優学校。日常でいろいろな場で欲求が満たされている人が向かう方向ではないのでは?

配偶者会社、とかやってればアイドルクリエイターにならんでもいいさ。終身雇用制崩れて就職氷河期の世代になると難しくなる

地域社会の崩壊→セグメント化で欲求を満たす傾向

18 名前:以下、名無しにかわりましてVIPがお送りします。[] 投稿日:2008/01/19(土) 00:29:08.55 ID:rYTGJ6O20

2008年01月18日 phase_shift 外部からの承認が得られない局面では自身による承認(肯定)が重要になると思うのですが、

安易な自己と他者の比較はその自己承認を削いでしまいやすい(上を見る限り)と考えているのですがその辺はいかがでしょうか

原理的に外部からの承認がなければいけないのではないか。誰にも誉められなくても孤独でもメンタリティを保つのは困難

誉めてもらうとまではいかなくても、誰々がこういうひとでそこにいるという、気づき認知の中ではじめてメンタリティが保たれる

他者を通しての欲望をもたなければ生きづらい

2008年01月19日 pangchang 燃費がよくなるって去勢ってやつ?

白熊去勢という言葉が苦手。あきらめがきくってやつ?使う人によって概念がいろいろ違ってくるので。

燃費がよくなる=去勢とは白熊は言い切れない。去勢が無事に行われれば燃費が良くなる、ガツガツしなくなれるということになると思う

去勢というレトリックを使うのは抵抗がある。

2008年01月18日 yasudayasuhiro 承認をネットで得る。金を現実で得る。乖離していてOK?承認のリスクヘッジが必要ってことでしょうか?

お金が無尽蔵に沸いてくるんだったら分離してしまってOKだと思う

しかし全員そうではないし、ひきこもり続けられないと思う

ネットのみで生きていける人はいいけれども、現実世界で付き合う必要がある人が、リスクヘッジをしても、

対人不安や人間関係からの退却を余儀なくされたりするのではないか。デイトレーダーで高給を得ている人はネットでのみ承認欲求もできるが

実際は現実との接点がゼロにはならず、他人の視線に晒されるということにどう折り合いをつけるのかということが問題となってくる。

次回は2月。今回はさわり。ご清聴ありがとう。おやすみなさい。

おわった・・・

http://yutori.2ch.net/test/read.cgi/news4vip/1200664944/

さあ、議論を開始しやがれ暇人どもめ!

2007-12-01

"We Will Rock You" の思い出

中学文化祭での話。

うちの中学では全学年の全クラスが演し物をやることになっていた。体育館に全校生徒が集まる中、ステージ上で下の学年から順番に何かをやる。中身は演奏でも劇でも何でもいい。よくある青春の一ページだと思う。

そのクラスの出し物は演奏だった。順番は早め、空気があまり暖まってないなか、彼らは手拍子と足踏みで "We Will Rock You" を歌いはじめた。

どんどんぱん、どんどんぱん、どんどんぱん、どんどんぱん。

"Buddy you're a boy make a big noise Playin' in the street gonna be a big man some day Mud on yo' face Big disgrace Kickin' your can all over the place Singin!"

うぃー・うぃる・うぃー・うぃる・ろっきゅー。

うぃー・うぃる・うぃー・うぃる・ろっきゅー。

単純なリズムと歌詞の繰り返し。誰でもすぐ覚えられる QUEEN の名曲だ。当時のおれは "We Will Rock You" を知らなかったので、漠然とかっこいいなと思いながら聴いていた。

しばらくして異変が起こった。というか、何も起こらなかった。彼らはずっと手拍子と足踏みを繰り返し、ひたすら歌い続けた。どんどんぱん、どんどんぱん、どんどんぱん、どんどんぱん。うぃー・うぃる・うぃー・うぃる・ろっきゅー。うぃー・うぃる・うぃー・うぃる・ろっきゅー。そして演し物は唐突に終わった。何の落ちもなく急に終わった。

彼らが退場するなか、運営委員のアナウンスが流れた。

ステージ横のコンセントは電源が入っていません。電源が必要なクラスステージ下のコンセントを使ってください」

何が起こったのかは分からないまま、文化祭は続いた。

二十代になってから QUEENベストアルバムを買った。素晴らしかったがその素晴らしさについてはさておく。そしておれは本物の "We Will Rock You" を聴いた。君らは "We Will Rock You" を知っているか? 知らないなら Youtube あたりで動画を探して、四回くらい聴いてから続きを読んでほしい。

聴いた? じゃ続ける。

二分程度のこの曲は、うち一分二十秒がメインフレーズの繰り返しでできている。どんどんぱん、どんどんぱん、どんどんぱん、どんどんぱん。うぃー・うぃる・うぃー・うぃる・ろっきゅー。うぃー・うぃる・うぃー・うぃる・ろっきゅー。そのリフレインが続くと思わせて、一分二十秒あたりから印象的なギターソロが鳴り始める。後半四十秒はギターの独壇場だ。コーラスに絡むギターソロギターソロを盛り立てる手拍子と足踏み。最高に盛り上がってから曲は見事に完結する。ブラボー! 素晴らしい!

本物の "We Will Rock You" を知って、おれはようやくあの日の悲劇を理解した。あのステージの上では、ギターの電源が入らなかったのだ。

君らはギターソロが始まらない "We Will Rock You" を聴いたことがあるか。おれはある。君らは終われない "We Will Rock You" がどれほどいたたまれないものかを目の当たりにしたことがあるか。おれはある。あれはひどい。本当にひどい。

iTunes で "We Will Rock You" を聴いていて、ふとそんなことを思い出した。文化祭の彼らは、ある意味実にロックだったと思う。あの日のためにギターソロを練習した同門の誰かは、今も元気に暮らしているだろうか。

2007-11-15

たった今

酔っ払ったまま、ネトゲの運営にアカウント停止メールを出しました。

キャラは、向こうのサーバーで今も眠っています。

面白いけど面白くない

一番ひどいけど

回りくどい嘘をついてもしょうがない。

年末プレイしようと3ヶ月分を課金していたけれど

ソロプレイもしないし、キャンセルします。

面白かったよ

でも、特別じゃなかったの

ごめんね。

ばいばい。

コピペはなかなかうまくいかないもんだね。

http://anond.hatelabo.jp/20071115101205

2007-11-06

単語「意味」を起点としたテキプレ

意味というものは誰が与えるのか僕には分かりませんがおそらく一人一人が与えるものなのでしょうねと結論付けてみますしかしながら最近寒い僕の手足の末端が徐々に徐々に冷え切っていって中身のない内容を垂れ流すのもすごく意味ないのだけど誰かがこれを読んで意味を与えてくれるならそれだけで結構嬉しかったりするしそれこそ無から有を生み出しているわけでつまり創造とはすなわちあれなんですねあれ自己満足なんです自分がそう思えばなんだってそうなってしまうおソロしことですがこれは誰もが普通に行っているものであってある特定の人間だけだけがある特定の種類の人間だけがやっている特別な行為などでは決してないのです意味を与えるとは生きること生きていく以上物事に意味を与えずにはいられないのです意味のない世界など絶えられない生きられない死ぬだけそう死んでいくだけなのです無意味なものに感情を揺り動かされはしない世界にはそれぞれ意味がある自分で与え作り出している意味が必ずや存在するこの世界は下らなくて自分以外いや自分自身を含めた全存在が無価値だと思ってしまえばあなたの世界ではそうなってしまうのですそういえばスクールデイズというアニメに出てくるキャラクターに「世界」と「言葉」というのが出てきているみたいですがこれちょっと工夫すれば言語マジックができてしまいそうつまるところの言葉遊びですね西尾維新とかが好きそうな手法で作品のキャラ名を利用して字面だけ見るとなんかかっこいいこと言ってるような感じの文章が書けたりかっこよさげな暗喩というか直喩というかまあいろんなこと言えそうだなって思ったのですでもほんとに日本ドラマはつまらないな下らない内容をいつまでも膨らまして語ってやがんのってそれはこの糞みたいに垂れ流されてる文章も同じなんだけどこれにおいてはどんな文句も適用されえないのです僕がそう決めたからあーあーあーあー書くことないなあ書くって行為はいつまでも延々ととめどなく緩やかかつ際限なく溢れるように尽くすように続けられるものなのかなあ続けられたとしてもそこに筋の通った論理やら論旨やら言いたいことがちゃんと成立してるかどうかは推して知るしかないのだけど俺ごときにゃあたいした文章は書けんし意味なんて与えられもしないましてや他人が書いた文章に意味を感じられるか内容を創造できるかと聞かれてしまったらもうお終いそんな大層な真似できゃしませんよえへへへへってね謙遜してんだか媚売ってんのやらとりあえず気色悪く笑っているのかはあなたの頭の中でだけ選び取られる選択肢なのだまあそんなわけで文章がつまんなく感じられたらあなたがつまらないのだし面白きゃあなたに見る目があったってだけだそこにはあなたの求めるものがあるそして人それぞれまあ月並みな言い方ではあるけど求める意味は違うのだからあなたは褒められるものを褒め自論にそぐわないもの良くない感情を沸かせられるものには自信を持ちつつ深く許容しつつ批判するのが良いのじゃないかといってみる瞬く星がこれまた美しい秋の夜なのでしたさようならあららら大して字数稼げてませんでしたねその上内容が薄いのなんのでも何の害にもなりはしないだろうしまともに読んでくれる人もいなさそうなので好き勝手言ってみるかこれそういえば日記だしなあじゃ今日あった印象深いことを書いて締めくくりといたしましょうか今日は寒くて眠くて堕落していてそれでいて少し頑張った日でした僕にとってのヒロインである女の子にも会えたのでそこそこ素敵な一日だったのでしょうそんな自分はまだ社会の荒波とやらに海水のしょっぱさを噛まされていない高貴な少年なのですよにぱーおやすみなさい私にとって特別な存在でありヴェルダースオリジナルを贈られるべき皆さんへ。

2007-10-23

http://anond.hatelabo.jp/20071023154757

使ってるスケールの問題じゃね?

普通西洋はダイアトニックスケール使うから、このイントロみたいな使い方はしない。

西洋風にやりたいなら、この音配置は逆。

この順序でいきたいのだったら洋楽なら、ここは半音下の音をつかうはず。

じゃないと次のコードにいけないからね。

同様にBメロのところは、

ピッチベンドで西洋音楽ではいっちゃいけない所に音を飛ばしている。

これも普通ギターソロならもう半音チョーキングする。

あと、微妙に12音階外れた音いれてるのもオリエンタルを感じさせる要因なんじゃないかな。

日本雅楽もそうだけど、東洋楽器ってフレットレスだし。

イントロのこの単純な刻みもDTMなのにわざわざアタックだけずらしてるよ。

ほら貝を吹いたときみたいな音の変化というのかな。

そういう工夫がされてる。

と、音楽の評価がずっと2だった増田が申しております。

2007-09-23

理系文系の区分けなんて、ソプラノアルトパートわけのようなもの

私はまだ幼い頃、しばらく合唱と取り組んでいた。部活動とか OB の集いとか、要はクラス合唱に毛の生えたようなものだったけれども、クラス合唱レベルでは体験できないうたやオンガクの世界を垣間見ることができた。

でもって、クラス合唱や授業での合唱かそれ以上のことをやったことあるかたならば必ず経験のある儀式パート分け。声(音域)が高いからソプラノテノール)、声が低いからアルトベース)、に分ける、と思っている人が多いのではないだろうか。ほんとうは違う。これは、理系文系の区分けと実によく似ている。

実際、普通の個人の発声できる音域の差というのは、そう大して違うものではない。簡単にいうと、存在するのは「ソプラノ向きの声」と「アルト向きの声」だ。プロを考えてみればわかる、3大テノールの人は、ベースの音域が発声できないか、そんなことはない。充分カバーしている。(ではベースの人が世界レベルテノールが歌う高音域を出せるのか、というと、それは流石に無理だし、逆も勿論そうだ。しかしそれは飽くまでぎりぎり限界まで追求するプロ同士の場合の話であって、通常の合唱曲のパートぐらいならば余裕だろう。)

しかし現実には、クラス合唱などでもありがちな話として、ほんとうに喉から音が出ない、という物理的な制約からパートチェンジを余儀なくされることはある。「○○ちゃんと一緒のパートじゃないとヤダ」とかいう中二的な物言いなんかあったりして、懐かしい(まさかと思うかもしれないが、女子だけではない、男子でもこういうことを言うのを目にしたことがある)。身体ができあがってなければ正直なところ声はできあがらない。まだまだ未熟…というか、ほとんど取り組んでもいない状態で、これからどう伸びる可能性があるかわからない状態で、パートわけをしなくてはいけないのだ。たまたまそのとき高い音が出しづらいだけかもしれない。たまたま低音が乗っているだけかもしれない。(もちろん、「ハモリパートが好き」とかいう単に音楽的に器用かどうかがパート志望の理由になることもあるし、「主旋律じゃないと歌った気がしない」なんていう(楽して)目立ちたいかどうかだけがその理由になることもある。)ただまあ、ひとつ言えるのは、中学生変声期も迎えたかという頃になんなんとすれば、多くの人にだいたいその「片鱗」は見えてくるものだ。私は合唱の指導の経験はないが、ときどき街中を歩いていて聞こえてくる喋り声を聴いて「ああ、この人はソプラノかな、高音域の楽声を聴いてみたいなあ」とか「この低音の充実感はアルトだろうな」とか思うことがある。因みにしゃべり声の高低と合唱におけるパートは無関係ということも多く、地声が高くてもパートアルトの人もいるし、地声がガラガラでやんちゃなのにソプラノの人もいるのだ。(…ただし、私の「妄想」が合っているのかなんてわからないのだけど。)

もうひとつ、現実には「パートバランス」という切実な社会的要求がある。個人の資質をどれだけ正確に見極め、適切なパートに放り込んだとしても、合唱全体が「頭数」としてそのバランスでいいといっているかどうかはまた別問題だ。高々数十人という狭い範囲内(社会)で、これは解決されなければならなくなる。「どっちでもできそうな人」や「正直どっちとも微妙な人」などが、パートを移動することになる。勿論この「パートバランス」に関する要求というのは、歌われる楽曲によってそれぞれ異なる。だから、場合によっては、曲の部分部分で「あなたとあなた、ここだけアルトを手伝ってね」とかいう「手」もたまに使用されたりする。さらに、テノール人間アルトを手伝ったり、なんてこともないわけではない。

(「どっちとも微妙な人」(つまり、合唱全体の中では声量的に貢献しないんじゃないかという人)を動かして意味あるのか、と思う人もいるかもしれないが、これがまた合唱というものの不思議なところで、案外意味があったりするのだ。)

でもって実際、歌い始めてみると、「音域」と呼べるほど音程が異なるのは曲の中でもそう多くはなく、ほとんどが 3度 とか 6度程度。1オクターブも違いやしない。通常の流れでは「音域」はほぼ重なっている。単に「役割分担」程度の話。クラス合唱なんかでパート分けをなかよしグループ分けか何かと同一視する病理をあながち一笑に付すこともできない。

楽曲が高度になってゆくと、パート内で「ディビジョン」が頻繁に発生する。通常、合唱団では、ディビジョンした場合のパート分けは決まっており、例えば私はセカンドテナーテノールの下のほう)だった。男声四部の場合は通常上から 2番目を担当することになる。トップテナー担当することはあまり無かった。私の同期に私よりも適任がいたからである。ただし楽曲が高度になってゆけばゆくほどこの予め分けた「パート分け」は強い意味を持たなくなってゆく。

個人の資質というところでみると、例えばソプラノだったら高い音を出す練習ばかりしていればいいか、というと、そんなことはない。全音域を練習し、充実を図り、音域を広げる努力を続けることが、ひいては自分の得意な音域を充実させることに繋がる。

こうしてみてゆくと、パート分けにかかるあらゆる事項が「文理分け」と酷似していると言える。まだ習いたてもいいところの数式を目の前に「得意・不得意」を判断し、たまたまあたった先生のその授業で「苦手かどうか」「伸びうるかどうか」を判断し、また判断される。実際は、もっとあとに決めたい。でも、あとでは遅い。いま、決めなくてはならない。そんな中、「どっちつかずの人」とか「正直どっちでも同じようにできそうな人」なんてのも必ず出てくる。周りがどう見ても「こいつは理系だろ」と思うのに、「自分には将来やりたいことがある」と、文系科目をさらりとこなして進学してゆくようなのもいる。

理系だからといって物理数学ばかりやってればいいというものではない。様々な分野を習得し、深めてゆくことにより、ひいては得意分野についても実力の「底上げ」が図れるのである。

合唱おもしろいソロでは決して為し得ない音楽をつくり出すことができるのが、合唱だ。しかし、全体として少々高度なことをやっていこうと思うと、たちどころに構成員の個人個人の資質がその成果へと反映してゆくのだ。この点も文理を基準として見た場合の社会のありようとすさまじく似ているといえよう。

個人で何かやろう、事業でも起こそう、なんて思った人にとって理系文系がどんどん関係なくなってくるのも、そうだ。曲を構成できる音域を全てカバーしなくてはならない。苦手な音域も多少の無理をしつつ広げていかなくてはならないかもしれない。でも、そういうのが向いている人もいる。向いていない人もいる。

いま、その分野で、自分は「鳴って」いるか。「響いて」いるか。これからのひとは、長い目で見て、そのパートを気持ちよく充実して歌いこなせそうか。そのための鍛錬ができそうか。そんなふうに考えてみるのもいいかもしれない。

「その音域が出せるか」ではない。誰だって出せるのだ。「その音域を響かせることができるか」「その音域をよく鳴らせているか」。

2007-09-07

ようこそ、℃-uteLisp の世界へ

発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/

はじめに

Scheme という Lisp 語族言語を用いて ℃-ute相関関係プログラムし、様々な角度から関係性を分析する手法を紹介していきます(ソースコードは最後に張ります)。

まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係

(kanna . airi)

という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると

((kanna . airi) (desc "大好き") (score . 1))

のようになり、関係図における一つの矢印の情報データ化できたことになります(暫定的に、好意は 1、良好・中立は 0、険悪は -1 の3段階で表すことにします)。

メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。

例 1: リンク状況の調査

ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。

関係の中からリンクの起点を抽出してソートしてみると

(sort-nodes (number-list (from-links)))

結果:

((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))

栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。

ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質(好意/反感など)までは分からない点を考慮する必要があるでしょう。

例 2: 被リンク状況の調査

同様に、リンクの終点の件数を調べてみます。

(sort-nodes (number-list (to-links)))
((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))

えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが2件含まれている点に注意してください。

なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。

例 3: 愛情度の評価

リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。

まず、全ての関係性を対象として、スコアマイナス関係を抽出してみます。

(filter-nodes (lambda (n)
		(< (score-relation n) 0)))

結果:

(((kanna . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1))
 ((saki . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)))

件数だけを得ると

(length (filter-nodes (lambda (n)
			(< (score-relation n) 0))))
2

僅か2件です。

良好・中立的な関係

(length (filter-nodes (lambda (n)
			(= (score-relation n) 0))))
8

愛に満ちた関係

(length (filter-nodes (lambda (n)
			(> (score-relation n) 0))))
16

非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言(例のラジオ)を数値的に裏付ける結果と言えるんじゃないでしょうか。

次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば

(foldr (lambda (n acc)
	 (+ (get-score n) acc))
       0
       (filter-nodes (cut to? <> 'kanna)))

栞菜ちゃんに対するリンクスコアが得られます。結果:

3

上式を一般化して一挙にメンバー全員に適用してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loved x)))
		 (all-members)))

結果:

((airi . 4) (kanna . 3) (mai . 2) (erika . 2) (maimi . 2) (saki . 1) (chisato . 0))

愛理ちゃんが好意を寄せられやすい傾向が伺えます。

今度は逆方向のスコアを計算してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loving x)))
		 (all-members)))
((kanna . 3) (maimi . 3) (chisato . 2) (airi . 2) (saki . 2) (mai . 1) (erika . 1))

まいまいえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。

例 4: 相性の調査

今度は組み合わせ(カップリング)の評価です。

2点間相互のリンクスコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在スコアリング方式では 2 です。例えば

(score-between 'kanna 'airi)

の値は

2

となります。1 であれば一方通行と考えます。

関係性が未定義の場合もあるので 0 のものを除外して算出すると

(sort-nodes (filter (lambda (n)
		      (not (= (cdr n) 0)))
		    (map (lambda (n)
			   (cons n (apply score-between n)))
			 (all-combinations))))
(((chisato mai) . 2)
 ((chisato airi) . 2)
 ((airi kanna) . 2)
 ((saki kanna) . 2)
 ((kanna maimi) . 2)
 ((erika maimi) . 2)
 ((saki airi) . 1)
 ((saki erika) . 1)
 ((kanna mai) . 1)
 ((maimi airi) . 1)
 ((saki chisato) . -1)
 ((kanna chisato) . -1))

となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。

参考までに、スコア 1 の相互関係の中身を見てみると

(map (lambda (p)
       (find-relation (cons (caar p) (cadar p))
		      identity))
     (filter (lambda (n)
	       (= (cdr n) 1))
	     (map (lambda (n)
		    (cons n (apply score-between n)))
		  (all-combinations))))
(((kanna . mai) (desc "喰ってやるよ") (score . 1))
 ((saki . airi) (desc "好き") (score . 1))
 ((maimi . airi) (desc "良き妹") (score . 1))
 ((saki . erika) (desc "彼氏にしたい") (score . 1)))

のようになります。

まとめ

以上の調査を経て気になった問題点を列挙してみます。

特に最初の点に関して、「百合的」なるものの質的評価がなかなか難しいと感じました。例えば「大好き」も「良き妹」も同じ 1 と評価してしまっているのが妥当かどうか、といったことです。

また、スレにて与えられた情報を評価・分析する方法としては有効だとしても、逆方向のフィードバックの手段がなかなか見つからないというのが三つ目の問題です(技術力不足とも言います)。(注:画像化の方法が分かりました。追記参照)

最後に、プログラムソースを示します。実行には PLT Scheme が必要です。文字コードUTF-8 で保存した上で、(load "c-ute.ss") としてください。文字化けする場合はターミナルUTF-8 を表示できるよう設定する必要があります。がんばってください。

プログラム

c-ute.ss:

(require (lib "etc.ss")
         (lib "list.ss")
         (lib "26.ss" "srfi")
         (lib "delete.ss" "srfi" "1"))

;;; Utilities

(define true? (compose not not))

(define (ignore _) #f)

(define fif
  (case-lambda
    ((predicate consequent)
     (fif predicate consequent ignore))
    ((predicate consequent alternative)
     (lambda (x)
       (if (predicate x)
           (consequent x)
           (alternative x))))))

(define (concat! xs) (apply append! xs))

(define (mapconcat f lst sep)
  (let lp ((str (f (car lst)))
           (lst (cdr lst)))
    (if (null? lst)
        str
        (lp (string-append str sep (f (car lst)))
            (cdr lst)))))

(define (slice-string str len)
  (let lp ((res '())
           (str str))
    (if (<= (string-length str) len)
        (reverse! (cons str res))
        (lp (cons (substring str 0 len) res)
            (substring str len)))))

(define (break-string str len)
  (mapconcat identity (slice-string str len) "\\n"))

;; NOTE: input and output ports have to be either file-stream or #f
;; (i.e., cannot be a string port)
(define (run exe opt in out)
  (let-values (((p p-i p-o p-e)
                (subprocess out in #f exe opt)))
    (subprocess-wait p)
    (close-input-port p-e)))

;;; Database

;; http://ja.wikipedia.org/wiki/%E2%84%83-ute

(define names
  '((erika . "えりか") (maimi . "舞美") (saki . "早貴") (airi . "愛理")
    (chisato . "千聖") (mai . "舞") (kanna . "栞菜")))

(define (symbol->name sym)
  ((fif true?
        cdr)
   (assq sym names)))

(define nodes '())
(define edges '())

(define (relate from to desc score)
  (let ((n (cons from to)))
    (or (find-relation n
                       (lambda (r)
                         (let ((d (assq 'desc r))
                               (s (assq 'score r)))
                           (set-cdr! d (cons desc (cdr d)))
                           (set-cdr! s (+ score (cdr s))))))
        (begin
          (set! nodes (cons n nodes))
          (set! edges (cons (cons n `((desc ,desc)
                                      (score . ,score)))
                            edges))))))

(define (find-relation n k)
  ((fif true? k)
   (assoc n edges)))

(define (related? x y)
  (find-relation (cons x y) (lambda (_) #t)))

(define (from? n x)
  (eq? (car n) x))

(define (to? n x)
  (eq? (cdr n) x))

(define flip-relation
  (case-lambda
    ((n)
     (and (related? (cdr n) (car n))
          (cons (cdr n) (car n))))
    ((n k)
     ((fif true? k)
      (flip-relation n)))))

(define (get-score n)
  (cdr (assq 'score n)))

(define (get-description n)
  (cdr (assq 'desc n)))

(define (describe-relation n)
  (find-relation n get-description))

(define (score-relation n)
  (or (find-relation n get-score) 0))

(define (print-node . ns)
  (for-each (cute find-relation <>
                  (lambda (r)
                    (display
                     (format "| ~a => ~a  (~a)~%"
                             (caar r) (cdar r)
                             (mapconcat (lambda (s)
                                          (string-append "\"" s "\""))
                                        (cdr (assq 'desc r))
                                        ", ")))))
            ns))

(define (iter-nodes k)
  (let lp ((nodes nodes))
    (unless (null? nodes)
      (k (car nodes))
      (lp (cdr nodes)))))

(define (filter-nodes p)
  (let ((ns '()))
    (iter-nodes (fif p
                     (cut find-relation <> (lambda (n)
                                             (set! ns (cons n ns))))))
    ns))

(define (from-links)
  (map car nodes))

(define (to-links)
  (map cdr nodes))

(define (all-members)
  (delete-duplicates! (from-links)))

(define (all-pairs) nodes)

(define (ordered-pairs)
  (concat! (map (lambda (x)
                  (map car
                       (sort (filter-nodes (cute to? <> (car x)))
                             (lambda (x y)
                               (> (get-score x) (get-score y))))))
                (sort-nodes (map (lambda (x)
                                   (cons x (score-loved x)))
                                 (all-members))))))

(define (all-combinations)
  (let lp ((cs '()) (ns nodes))
    (if (null? ns)
        cs
        (let ((n (car ns)))
          (lp (if (member (list (cdr n) (car n))
                          cs)
                  cs
                  (cons (list (car n) (cdr n)) cs))
              (cdr ns))))))

;; number-list :: [a] -> [(a . Int)]
(define (number-list ls)
  (let lp ((ns '()) (ls ls))
    (if (null? ls)
        ns
        (let ((x (car ls)))
          (lp ((fif not
                    (lambda (_) (cons (cons x 1) ns))
                    (lambda (n)
                      (set-cdr! n (add1 (cdr n)))
                      ns))
               (assq x ns))
              (cdr ls))))))

;; sort-nodes :: [(a . Int)] -> [(a . Int)]
(define (sort-nodes ns)
  (sort ns (lambda (x y)
             (> (cdr x) (cdr y)))))

(define (diff-nodes ms ns)
  (let lp ((ds '()) (ns ns))
    (if (null? ns)
        (sort-nodes ds)
        (lp (let* ((n (car ns))
                   (m (assq (car n) ms)))
              (cons (cons (car n)
                          (- (cdr m) (cdr n)))
                    ds))
            (cdr ns)))))

(define (get-total-score x p)
  (foldr (lambda (n acc)
           (+ (get-score n) acc))
         0
         (filter-nodes (cut p <> x))))

(define (score-loved x)
  (get-total-score x to?))

(define (score-loving x)
  (get-total-score x from?))

(define (score-between x y)
  (+ (score-relation (cons x y))
     (score-relation (cons y x))))

(define (-> x)
  (display (format "~%Links from [~a]~%" x))
  (iter-nodes (fif (cut from? <> x)
                   print-node)))

(define (<- x)
  (display (format "~%Links towards [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   print-node)))

(define (<-> x)
  (display (format "~%Reciprocal links for [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   (lambda (n)
                     (flip-relation n
                                    (lambda (m)
                                      (print-node m n)))))))

(define (<=> x)
  (display (format "~%Reciprocal matches for [~a]~%" x))
  (iter-nodes
   (fif (cut to? <> x)
        (lambda (n)
          (flip-relation n
                         (lambda (m)
                           (if (ormap (lambda (x)
                                        (ormap (lambda (y)
                                                 (equal? x y))
                                               (describe-relation m)))
                                      (describe-relation n))
                               (print-node m n))))))))

(define (<?> x)
  (let ((to (assq x (number-list (from-links))))
        (from (assq x (number-list (to-links)))))
    (display (string-append
              (format "~%Link statistics for [~a]~%"
                      x)
              (format "| ~a => ~a (love ~a)~%"
                      x
                      (cdr to)
                      (score-loving x))
              (format "| ~a => ~a (love ~a)~%"
                      (cdr from)
                      x
                      (score-loved x))))))

(define (info x)
  (for-each (cut <> x)
            (list <- <-> <=> -> <?>)))

;;; GraphViz (http://www.graphviz.org/) support

(define graphviz "C:/Program Files/ATT/Graphviz/bin/dot.exe")

(define (nodes->dot ns)
  (string-append "digraph cute {\n"
                 ;;"\tordering=out;\n"
                 ;;"\trankdir=LR;\n"
                 "\toverlap=true;\n"
                 "\tnode[fontname=\"msgothic.ttc\"];\n"
                 "\tedge[fontname=\"msgothic.ttc\",fontsize=9];\n"
                 (let lp ((str "") (ns ns))
                   (if (null? ns)
                       str
                       (let* ((n (car ns))
                              (s (score-relation n)))
                         (lp (string-append
                              str
                              (format "\t\"~a\" -> \"~a\""
                                      (symbol->name (car n))
                                      (symbol->name (cdr n)))
                              (format "[label=\"~a\",color=\"~a\","
                                      (break-string
                                       (car (describe-relation n))
                                       7)
                                      (cond ((> s 0) "red")
                                            ((= s 0) "green")
                                            (else "blue")))
                              (format "style=\"bold~a\"];\n"
                                      (if (and (not (= s 0)) (< s 1) (> s -1))
                                          ",dashed"
                                          "")))
                             (cdr ns)))))
                 "}"))

(define (write-dotfile dot file)
  (and (file-exists? file) (delete-file file))
  (with-output-to-file file
    (lambda ()
      (display dot)))
  file)

(define (dot->png dot png)
  (call-with-input-file (write-dotfile dot "c-ute.dot")
    (lambda (in)
      (and (file-exists? png) (delete-file png))
      (call-with-output-file png
        (lambda (out)
          (run graphviz "-Tpng" in out)))))
  'done)

;;; Setup database

;; Based on:
;; http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/116-142
(begin
  (relate 'maimi 'erika "大好き" 1)
  (relate 'maimi 'kanna "良き妹" 1)
  (relate 'maimi 'airi "良き妹" 1)
  (relate 'maimi 'mai "姉妹" 0)
  (relate 'erika 'maimi "一番可愛いよ" 1)
  (relate 'erika 'kanna "仲間" 0)
  (relate 'erika 'chisato "おソロパジャマ" 0)
  (relate 'kanna 'erika "仲間" 0)
  (relate 'kanna 'maimi "好き" 1)
  (relate 'kanna 'saki "喰ってやるよ" 1)
  (relate 'kanna 'mai "喰ってやるよ" 1)
  (relate 'kanna 'airi "大好き" 1)
  (relate 'kanna 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'maimi "荷物整理" 0)
  (relate 'saki 'erika "彼氏にしたい" 1)
  (relate 'saki 'kanna "興味がある" 0.5)
  (relate 'saki 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'airi "好き" 1)
  (relate 'airi 'kanna "受け入れる" 1)
  (relate 'airi 'chisato "最近親密" 1)
  (relate 'mai 'erika "保護者" 0)
  (relate 'mai 'maimi "姉妹" 0)
  (relate 'mai 'chisato "恋人" 1)
  (relate 'chisato 'erika "おソロパジャマ" 0)
  (relate 'chisato 'mai "恋人" 1)
  (relate 'chisato 'airi "最近親密" 1))

;; query relations / draw graphs

(if (file-exists? graphviz)
    (dot->png (nodes->dot (ordered-pairs))
              "c-ute.png")
    (for-each info (all-members)))

追記(グラフ描画について)

Graphviz というソフトによって関係図を可視化できる、ということを教えていただきました(既に上プログラムを実行すると自動的に関係画像を作成するようにしてあります)。ここでは技術的な観点から幾つか注意点を挙げておきます。

まず、Scheme プログラムから Graphviz を動かす方法について。コマンドラインからの起動のように、プログラムへのオプション文字列で入出力ファイルを指定する方法ではどうも上手く行きませんでした。調査の結果、入出力ファイルポートScheme 側で用意しておく必要があるようです。処理系によって異なりますが、PLT Scheme の場合 subprocess という関数を次のように呼び出します。

(subprocess output-port input-port #f "/path/to/dot.exe" "-Tpng")

ここで output-port は png画像ファイルへの出力ポート。input-port は dot ファイルグラフの定義ファイル)の入力ポートです。エラーポートは必要無いでしょう (#f)。

dot という名前の実行ファイルが、関係図のような有向グラフを描画するプログラムです。最後にオプション文字列として出力形式を指定します(png, jpeg, gif, etc.)。

次に dot ファイルScheme で書く方法ですが、以下の基本的な有向グラフの書式

digraph g {
  A -> B;
  B -> C;
  C -> A;
}

を理解すれば、後は実直に Schemeデータを当てはめて format 関数等で変換するだけです。

(string-append
 "digraph g {"
 (format "~a -> ~a;" (car node) (cdr node))
 "}")

問題は、ノードを配置する順番によって出来上がる画像が変わってくる、ということです。

より見た目に分かりやすくするための工夫としては、相互にリンクするノード同士が dot ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。

また上述(特に例3)のスコア概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。

2007-07-16

結婚披露宴

この歳になるといろいろな結婚式結婚披露宴に招かれるけれど、とある披露宴を超える披露宴には出会っていない。

プロテスタント親族のツテで簡素な教会と会場をレンタル

・強制的なウェディングパックがないので、シンプルな式運び。

新婦ドレス新郎の母のもの。

写真新聞社に勤める新郎の同僚が担当。(これがさすが報道写真を撮り慣れているだけあって、印象的な撮りかたなんだ)

ビデオ撮影は金銭的な理由か、なし。

・お色直しもなし。

新郎がかつて参加していたバンドメジャー)による生演奏あり、新郎親族(某交響楽団楽器第二奏者)によるソロ演奏あり、果ては新郎新婦による協奏あり。

・引き出物は新郎新婦の友人作家による益子

思わず失笑してしまうような臭い大演出もなかったのに、10年以上経っても内容を覚えている、それだけでもすごい披露宴だったなあと思う。

新郎側に普通ではなかなか得がたい人脈があったおかげなのは否めないが、「これ、いくらかけたんだろうねえ」と思うような披露宴に出会うたび、つい、この披露宴と比較してしまう。

金をかけても、中身が伴わなければ、意味がないんだよねえ。次の日には、新郎がどんな生業の人だったかとかなんて、ぽかんと忘れてしまう。

これから結婚する人々よ。特に私が出席しないといけなさそうな同僚たちよ。ぜひ、ウェディング業者に惑わされず、ご自分のやりたいことを心置きなく表現なさり、かつ招待客にも楽しい、思い出深い披露宴にしてください。いやほんとお願いします。今まで、そしてこれからも招待される側でありつづけるだろう人間として、お願いいたしますです。

2007-07-14

ああちくしょう

なんなんだこの不安感と童貞の不満感の結びつきは。

泣き落としでも同情を買ってでもアレをすれば安心できるんじゃないかという妄想が頭から離れない。なぜか金で買ってアレをしても不安は消えないんじゃないかという妄想も並列してるし。でもそんなこと誰かに頼むなんて自尊心が死んでもしたくないって許さないし。

ソロ活動すれば少しは忘れてられるけど、時々葛藤の波がある。今日増田でわめいて溜飲を下げることにする。

2007-06-26

うつ病20歳無職過去と向き合ってみた

去年の春、高校卒業して、1年間自動車免許を取ったあと、療養していた。

最近余裕が出てきた。おしゃれが楽しくなった。就職活動を頑張ってみようと思い始めた。

でも、今までのダメダメ過去のおかげで、なかなか積極的になれない。

このままではダメだと思い、今まで目をそむけて黒歴史扱いしていた自分の過去と向き合おうと思う。

超長文のチラシの裏です。10代の過去話です。

昔から引っ込み思案でおとなしい子だった。いじめられっこ気質だったと思う。

自分から他人に話しかけられない子だった。だから友達もほとんどいなかった。

小学生のときは担任に嫌がらせを受けていた。とある授業で手紙定型文を書くという時間のとき

自分だけいつまでたってもやり直しだった。気付けば自分ひとりだけになっていた。

ちゃんとあっているはずなのに、どうしてだろう。何回も頑張って直した。でも駄目だった。

私はパニックになった。やけになってはじめに書いたものを出してみた。OKだった。

このとき、私は嫌がらせを受けていたことを実感してショックを受けた。

音楽の授業で、リコーダーパート決めがあった。立候補してもいないのに、なぜか勝手ソロパート

やらされることになった。(気付いたら黒板に書いてあった)

みんなの前で吹いてみろと言われた。私は、頑張って吹いたが息が続かず、失敗した。怒られた。

何回もやらされたが、駄目だった。そうしたら、その担任は他の男子にお前がやれと命じた。

「こいつは駄目だからお前がやれ」と。(ちなみにその男子は一発で吹けた)

これまたショックだった。勝手に決めておいてそれはないだろうと。恥をかかされた気分だった。

このときの救いは、その後あまり喋ったことのない女子が

「さっきのひどかったよね。勝手に決めたくせにね。」と言ってくれたことだった。嬉しかった。

まだまだいっぱいあるのだが、きりがないのでこの辺にする。

このとき登校拒否とか自殺とかの方向にいかなかったのは、私に特技があったからだ。

私は駄目な性格だったが勉強はできた。絵や習字も得意だった。良い賞をもらったこともあって嬉しかった。誇れることがあったから自分は生きていていい存在だと思ったから、辛くても耐えられた。

親に話せなかったのは共働きの両親に心配をかけたくなかったからだ。毎日愚痴をこぼす母には

とても言えなかった。

中学に入った。今度は男子いじめられてしまった。くせ毛を馬鹿にされ、

わざと「○○さん、こいつ○○さんのこと好きだって」と明らかに笑いのネタにされたときは

耐えられなかった。授業の時間、私の名前が書かれたとき

「○○なんてこのクラスにいたっけ?」と大声で言われた。

クラスに笑いがこもった。これは辛かった。

小学生のときとは裏腹に、私この件で一年の二学期で保健室投稿になった。登校拒否だ。

私は両親にはっきりといじめられているからいきたくない、とは言えなかった。なぜか。

でも担任から話をしたりしていたからなんとなくはわかっていたと思う。

そのときの両親は登校拒否に理解がなく、私を困った子扱いをして、何かあるたびにいやみを言われた。

学校に行こう!」という番組を居間で見ていると、学校に行かないくせにこんな番組を見るのかと

言われたりした。家にも自分の居場所が無くなった気がした。

その頃の私の性格はかなり暗くなってしまっていたと思う。

勉強ほとんどしなかったのに、高校には入れた。

高校のときも、2年頑張ったが途中でリタイアした。友達にはなれられてしまって、孤独に耐えられなかったからだ。私はすっかり弱くなってしまったなあと思った。1年間休学した。

このときは理由を言ったし、中学の頃もあったので、両親は優しかった。休んでいい。と言ってくれた。

嬉しかった。

それからやっぱり高卒資格が取りたくて、定時制高校に入学した。

人数が少なく、基本的に皆一人で過ごしていたので気楽だった。

転入クラスは、やっぱり同じようにリタイアしてしまった子ばかりだった。

ある日担任が話してくれたが、気さくに話しかけてくれたクラスメイト男子は、

親の期待に答えようと頑張りすぎて押しつぶされてしまい、

自分でお腹をカッターで傷つけまくったらしい。彼のお腹は切り傷で真っ赤らしい。

話す機会が多い女の子も前の学校で友達関係で悩み、手首を自分で切ったらしい。そういえば彼女

いつもリストバンドをしていた。だから多分本当なんだろう。みんな大変なんだ、辛いのは私だけ

じゃないんだと知って少し気分が軽くなった。

この高校は面白かった。私は教師に対しては小学校の経験でいい印象などゼロだった。

しかしひとりの教師は違った。おじいさん先生だったが、今日天気がいいから勉強やめて

散歩に行こうと言い出したときは驚いた。ドラマみたいだと思った。

帰りにみんなジュースをおごってくれた。

この先生テスト対策に、手作りプリントを作ってくれて一緒に頑張ろうと時間を作ってくれたりも

した。私はこの先生が大好きになった。尊敬もしていた。人間的に素晴らしい人だったからだ。

それからその先生に会うたび自分から挨拶した。

このまま順調に行くと思っていたが、夏になり、なんだか学校に行くのが苦痛になってしまった。

これから就職のことも考えなくてはいけないプレッシャー押しつぶされそうになった。

面接の練習で、自分の弱さを指摘されて(高校時代の過去など)わんわんと泣き喚いてしまった。

そうしたら担任が医者を紹介してくれ、精神科医へ通うことになった。

就職はいいから、卒業だけを考えろと言った。親も賛成した。

それから薬を飲みながら頑張った。もう途中で諦めたくないからだ。

雪国の冬のバス10分、徒歩20分の登校は辛かった。

そしてとうとう卒業式を向かえることができた。退場するとき、私は開放感でいっぱいだった。

そんなとき、尊敬していた先生が一言声をかけてくれた。

「おめでとう」

その瞬間、私はその先生にかけより、顔も隠さずぼろぼろと泣き出した。これだけ大人数の前で泣くなんて初めてだったが止まらなかった。

多分ひどい顔だったと思う。でもその先生は何も言わずにっこりと笑ってくれた。

私はありがとうございました。と一言言って逃げるように去った。

私の学生生活はかなり遠回りだったと思う。

嫌なことも多かったが、学んだことも多かった。嬉しかった出来事だってあった。

だから私はもう過去を気にするのはやめようと思う。

これを書いていたら完全に吹っ切れた。これからすこしずつ、やっていける自信がついた。

書いていたら涙がぼろぼろ出てきて目が痛い。文章めちゃめちゃだ。

この場所で吐き出させてもらってよかった。ありがとう未来に向けて、頑張ります。

2007-06-01

http://hochi.yomiuri.co.jp/entertainment/news/20070601-OHT1T00166.htm

あのグループは、ソロアイドル未満の集まりで、元がソロだった彼女はいわば落第生。

自分でやめることで、念願のソロに戻ったともいえまいか?

2007-05-17

[][]Task:Jazz 状態:緩やかに更新していく

Jazzを聞く環境を調える。

ソースネットラジオCD、いままでのもの

Player:itunesがくそになってきた、どうしよう

要望:できるだけ長く、あんまり音の種類の偏りがなく、PCへの負荷も少なく、

案:iPodにいれてPC外で出力。軽いソフトで聞く。大体10時間ぐらい。選択も出来た方が良い。落ち着いた環境で。

最終的には自分の環境だけで聞く。CD地道に揃えてく。聞きたいものを聞きたいときにという環境が一番良いだろうから。

渇望:しっとり系が聞きたい。ピアノソロとか、ECMレーベルなど。夜までは我慢。どうしたら聞けるかな。Last fmWeb2.0系のサイトアーティスト検索だろうか?しっとり系をよく作成するアーティストを知らねばならない。All About Jazzで探せるかな。また夜に。

それまでの妥協点:

IPラジオの部屋(2)

http://www5a.biglobe.ne.jp/~k-horn/ipradio02.htmlより、

1:Arrow 90.7 FM (Netherlands) (■32kbps) Smooth Jazz:mms://arrowfmjazz.atinet.nl/arrowfmjazz:2より悪い。×

2:Bay Smooth Jazz 105.9 FMUSA) (■128kbps)Smooth Jazz:mms://arrowfmjazz.atinet.nl/arrowfmjazz:ふっつうのスムースジャズ。△×

3:Concertzender Radio (Netherlands) (■128kbps)Jazz, Variety:http://www.omroep.nl/live/nieuw-concertzender-bb.asx:ダッチの喋りが入る。Fusionぽい。×

4:Crooze 104.2 FM (Belgium) (■128kbps)Smooth Jazzhttp://streams.lazernet.be:2580/listen.pls:なかなかいいかもしれない、すこしびっくりした。○△様子見

5:

All About Jazz - The World's Largest Jazz Music Website

http://www.allaboutjazz.com/の右側フレームRadioより

1:Jazz Excursion Radio 128k:http://www.jazzexcursion.com/listen128.m3u:今のところBest.とりあえず今日はこれで行こうかと思うぐらい。正統派。Playerの方にも現在流れているアーティスト名、曲名共にきちんと流れる。

大体RealPlayerアドレスを投げ入れて聞いている。

参考

All About Jazz - The World's Largest Jazz Music Website

http://www.allaboutjazz.com/

ジャズ2ch掲示板スレッド一覧

http://music8.2ch.net/classic/subback.html

IPラジオの部屋(2)

http://www5a.biglobe.ne.jp/~k-horn/ipradio02.html

Radio Station Directory @All About Jazz - The World's Largest Jazz Music Website

http://www.allaboutjazz.com/php/jazzguides.php?type=4

SHOUTcast - Genre:Jazz

http://shoutcast.com/directory/?sgenre=Jazz

Pages tagged with "internetradio+jazz" on del.icio.us

http://del.icio.us/tag/internetradio%2Bjazz

ジャズ聞いた順

1.Jazz Excursion Radio 128k:http://www.jazzexcursion.com/listen128.m3uAll About Jazzのやつ

2.My London Friends/Marco Di Marco Feat. Nathan Haines:無作為な選曲に耐え切れなくなって。

3.適当なものを探す。

適宜更新を行なう。

2007-04-12

http://anond.hatelabo.jp/20070412060104

どんだけぼんやりしてんだよ。火傷は痣とは違うし黒くなってるなら炭化してるんだろ。

熱傷では一番重い奴だよ。自然治癒しないらしいから早く病院池。壊死するぞ。

こういう危機感ないアホ見てるとイライラするんだよ。

もっとしっかり気を配れ。歩くときもソロソロ歩け。刃物を持つな火を使うな車に乗るな一人歩きするな。

このバカタレが。病院行って帰ってきてから俺に謝れ。

瘢痕は残ると思うけど黒く残るわけじゃないし、気になるなら美容整形もあるから。

高くつくかも知れんけど罰金だと思って諦めろ。

そして懲りたら二度と怪我するな。

2007-03-29

童貞諸君に告ぐ

童貞諸君。

君たちに告ぐ。

先人たちが遺した「オナニーしてはいけない」という忠告は正しい。

即刻やめるべきだ。

たとえこの件が既出だとしても書かずにはいられない。

私は四半世紀の長きにわたり、恋人もできず、ずぶの童貞だった。

ついに私はきのう、素人童貞へとクラスチェンジを果たした。

ソープランドに行ったのである。

懸命に、つとめた。

だが、絶頂に達しないまま制限時間が近づいた。

最終的に、ソロで終わった。

お互いに、謝りあいながら別れた。

「ごめーぇん、ほんともっとおネエさんだったらいけたかもしれないのにごめんね……」

「いや、俺がオナニーのしすぎだと思うんだ……」

「はじめてだからもっとはやくいくものかと思ってたけど……」

きっと彼女は、最中に「はやく終われよ童貞のくせに」と思っていたに違いないが。

童貞諸君。

諸君の多くはソロ活動においては長いキャリアを積んできたことと信ずる。

その経験を私は否定しない。

しかし、いつかその経験は枷となって君たちを苦しめることとなる。

おのが息子をつよくつよく握りしめる習慣が、かならずおのれの心をも締め付けることになる。

「いけなかった」という事実とともに。


オナニーをしすぎるとセックスでいけなくなる。


膣の筋肉は、手のひらの筋肉ほど強くはない。

残念ながら穴は手ほどは強い刺激を与えてはくれないのだ。

一人の惨めな敗者の言葉として聞いてほしい。

オナニーをやめろ。

快楽はとっておくがいい。

もしオナニーをしたいのならまずソープランドに行ってみて、実物がどんなものかを知ったうえでするがいい。

こんなところで、北方先生言葉はありがたい。

最低でもこれだけは言おう。

あまり強く握りすぎないことだ。

2007-01-29

(゜д゜)ハッ!

Napsterサブスクリプションで落としたKissベスト盤(邦題が「地獄宝石」という微妙にいい感じにナメタイトル)を聞いてるんだが、「Calling Dr.Love」の1分46秒くらい、短いドラムソロの最後あたりに入ってくる「ハッ!」って叫びがカッチョ良さすぎる。

ところで職場Napsterの話をしたら職場の人に「え、ナプってまだ使えたっけ?」という反応が。昔のファイル交換ソフトの頃じゃなく今の定額音楽配信の方だとあわてて(?)説明したものの、これってちょっとしたジェネレーションギャップなのかも知れない。

かなり大雑把だけれど、第1世代がNapsterで、第2世代くらいがWinMXで、その次の第3世代winnyshareだとすると、自分は第2世代くらいまでの記憶しかない。というか第2世代の記憶しかない。だからwinnyにはそんなに興味がないというかついていけない(インスコしたけどなんだかよくわからんかったし自分の求めてたファイルマニアック過ぎて見つからずすぐに興味が失せた)し、Napsterもどちらかというと音楽配信の印象が強い。というかまあファイル交換ソフトなんぞエムエクースとCabosくらいしか使ったことがないですが。そもそもそういう人間ファイル交換ソフトの世代云々という話をするのが(ry

ちなみにWinMXで落としたファイルが「とん平のヘイ・ユウ・ブルース」と「TVで流れた山本かよというアナウンサー出産シーンのキャプ」(!)だけだったのは内緒だったり内緒じゃなかったり。

ログイン ユーザー登録
ようこそ ゲスト さん