「Lp」を含む日記 RSS

はてなキーワード: Lpとは

2010-06-29

こないだまで年齢=彼女いない暦の僕が、この度めでたくtwitter結婚することになったよー\(^o^)/

 

 

アニヲタの僕が結婚することになった彼女と出会ったのは最近やたらと話題のtwitter

僕は1年くらい前に、アニヲタ仲間からtwitterやろうぜ!と誘われて、それからなんとなくぬるぬるtwitterしてた。

しばらくは普通に仲間と他愛もない話をしたり、アニメの実況したり会社愚痴書いたり、まぁ普通に使ってた。

  

ある時、僕は今までに見たことのないようなアイコンの人にフォローされた。

今までフォローされたりフォローしてた人のアイコンといえば、アニメアイコンばっかりだったし、僕自身も嫁(二次元アイコン

フォローしてくれたのは自分撮り?の実写アイコン女性

後に詐欺写真だとわかるんですけど、めちゃくちゃ可愛い!!

色が白くて目がくりっとしてて髪の毛もふわふわで…。

男子校卒で大学の学部も男ばっかりの学部を選んじゃってさらに仕事も男率が高い職場でまったく女の人に免疫のない僕。

ソッコーでフォロー返ししますた

 

その彼女のTLをしばらく観察していた。

ある日、彼女は外を歩いていたときにナンパされたらしい。それをたいそう立腹した様子でpostしていた。

それを彼女リアル知り合いと思われるフォロワーたち(この人たちもみんな実写アイコンだったりオシャレっぽいアイコンだったりみんな全体的にピンクっぽい)が

「○○ちゃんはかわいいから仕方ないよ」とか「○○さんは美人だもんねー」とリプライを送りあっていた。

それを見ていた僕は、彼女はほんとうに美人なんだ…と思い込んでしまい、どんどん妄想を膨らませていってしまった。

しばらくはいつ@飛ばされるか、とてもドキドキしてた。

自分から送ろうかとも思ったんだけど、彼女twitterに書く内容といえば

今日エステ」とか「習い事」とか「スイーツおいしい」みたいな僕とは全く無関係な世界の話で、@を送る勇気さえ沸いてこなかった…。

僕はと言えば相変わらずアニメのこととか嫁(二次元)のこととか会社愚痴とかそんなことしか書いてなかったし、きっと彼女から@をもらうのなんて無理だろうし、こんなキモオタはそのうちリムーブされるだろう。と彼女との接触をあきらめていた。

 

そんな時!!!

なんと彼女のほうからでぃ…DMがッ!!!

簡単に言うと

「住んでるところが近そうだから会ってみたい。あなたに興味がある」

ってな内容だtった。

キタ━━━(゚∀゚)━( ゚∀)━( ゚)━( )━(゚ )━(∀゚ )━(゚∀゚)━━━!!!!

僕は二つ返事でオッケーのメールを送り、wktkしながら当日をまった。

 

 

待ち合わせ当日、彼女の指定したおしゃれなレストランの前で待ち合わせをした。

こんなおしゃれなレストランなんて行った事がなくて何を着ていけばいいのかわからなかった僕は、とりあえずスーツを着ていった。

これはどうやら正解だったらしい。

そして待ち合わせ5分前、彼女は現れた。

ピンクワンピースにふわふわの巻き髪、そして…あれ。ふくよかすぎる身体に、あれれ?目がなんだか小さい・・・アイコンと顔が違うよ・・・?

「○○さんですか?」

声をかけられてビクっとする僕。

「はい、あのぼくggくぁwせdrftgyふじこlp

「それじゃあ入りましょうか。ドア、あけて」

彼女の後ろからのこのこついて入ろうとした僕に彼女は顎でこう指示した。

デート経験なんてない僕だから、女の人にドアを開けさせないなんて初歩的なことわからなかった。

 

レストランの中に入ると本当にアニメ世界みたいだった。

あんなところに入る機会がまさかくるなんてなあ。

席についてワイン乾杯

そうすると彼女

「で、あなた年収どのくらい?家族構成は?家事はできるの?」

怒涛の質問タイム…。

僕は全ての質問におずおずと答えた。

「ふーん。そうなんだ。あ、ワインおかわりいい? すいません」

あっけにとられる僕をよそに、彼女はグラスに少し残ったワインを一気に飲み干した。

その姿は、TLで彼女自身の発言や彼女の知人たちからの言葉からもあまりにもかけ離れていた。

「あの・・・ほんとうに○○さんですよね?」

僕は彼女に尋ねた。

「はい?そうだけど?どうして」

「いや…アイコンとなんか違うなぁって思って…」

「ああ、よく言われるの。アイコンよりもかわいいねーってww」

がははと笑う彼女につられて僕もアハハ…と笑った。

アイコンよりも可愛いんだ…。

 

その後はまあ普通に話をして、普通にご飯を食べて、普通に帰って、普通に嫁(二次元)で夜の作業をして寝た。

支払いは割勘だと思っていたら当然のように彼女は財布を出さなかったので、全額僕が出した。

高い授業料だった。今日の事は忘れよう。僕には嫁(二次元)がいるじゃないか。そう思っていた。

 

 

そして数日後、彼女から電話がきた。

今から会えないか?というものだった。

いやちょっと…と曖昧な返事をしたら怒られた。今すぐ来いと言われたので、僕は指定された場所に急いだ。

そして彼女に「わたしと付き合え」と言われた。

「まだあまりお互いを知らないので…」と断ろうとしたら「付き合ってから知ればいいじゃない。というわけでわたしたちは今からカップルです。」

と言われた。そして、彼女は僕の腕に胸(とおなか)を押し付け

ホテル、いこうか」と上目遣いで言った。

「くぁwせdrftgyふじこlpいやそんなのまだ知り合ったばかr」

「今まで彼女いたことないって言ってたよね?興味あるんでしょ?おねえさんが教えてあげる」

 

……こうして僕の28年間大事に守ってきたものは奪われました\(^o^)/

 

 

そして僕は彼女に度々呼び出されるようになり、会って触れ合っているうちにすっかり彼女洗脳され彼女がかわいく見え始めてきたそんなころ、彼女

今日大丈夫な日」

その一言にだまされてうっかり中田氏

見事に来年にはパパになることになったよー\(^o^)/

最初はどうしようかと思ったけど、彼女自分勝手なところも脂肪がつきすぎな身体もなんか可愛らしく思えてきたからもういいんだ。

子供ほしかったしね\(^o^)/

 

 

ちなみに彼女twitter上ではだいぶ嘘をついてたらしい。

年齢も5歳くらいサバ呼んでたし、彼女の知人だと思ってたフォロワー、あれ、全部婚活仲間らしい。

彼女達はネットでいかに男性自分を可愛く思わせるか、それを仲間とのやりとりでうまいことしてるらしい。

今、twitter婚活女性の中で狩場として重宝されてるそうです。

アニメオタク系の草食男子は狙い目なのよ。意外と金持ってるし。

と、彼女はニヤニヤしながら言ってました。

それって僕のことだよね?って聞いたら、うん。でもよかったじゃない。結果かわいい彼女ができたんだから。と言ってました。

 

 

というわけで、僕は今週末彼女実家にご挨拶に行ってきます。

みんな、ひとあしさきにぼくはしあわせになるね\(^o^)/

2010-06-26

http://anond.hatelabo.jp/20100623200427

元増田です。

このエントリ、書き始めるときに対象を「社会」にしようか「組織」にしようか迷ったんですよね。で、結局は「社会」のほうで書いたんですが、今はやっぱり「組織」にしといた方が分かりやすいストーリーを組めたかなあと、ちょっと後悔しています。

そのストーリーってやつをざっと書くと、

  1. 組織に属していると、「組織内だけなら大丈夫だけど、外にはうるさい人もいるから・・・」と言ってくる人が非常に多い
  2. しかし実は、組織の外の人も大概は「俺は別に気にしないけどほげほげ」と思っている
  3. みんなどうでもいいんじゃん
  4. 本当は茶髪でも全然大丈夫なんじゃん

こんな感じです。

上司の立場にある人はリスク回避するために云々」って話が出ていますが、僕の主張としては、そのリスク見積もりが実は過大なものなんですよと言いたいです。今どきは、お客さんもビジネスパートナーも、みんな「地毛なんですよ」とか言うと「あ〜、大変ですね。まあ、私は気にしませんが」って言ってくれるもんです。だけど、みんな自分の寛容さは自分認識してるのに、他人の寛容さには懐疑的なんですよね。疲れるからやめればいいのに。

付け加えたいのは、古くからある慣習や思想が、実は砂上の楼閣だってこと。数年前から、夏場のネクタイクールビズエコに押し負けてますよね。あれはアパレル業界イケてるシャツづくりを頑張った成果だけど、実はその前段階として暑い中でネクタイ着けたい人なんて少数派だったという土壌があってのことじゃないですか。特に最近なんて、本当にうるさい人たちのことを「モンスター○○」とか、酷いのになると「老害」なんて呼んでみんな嫌う風潮があるし、社会は変わっていくんだと思います。

あと、染髪と天然の議論についてもちょっと一言。この手の人も、天然からしたらいい迷惑だったりします。染髪と天然を初見で完全に見分けるのは無理です。「天然はいいけど似合わない染髪はふがふが」言ってる人は残念ながら、「化学調味料なんか喰えるか!天然が究極至高あqwせdrftgyふじこlp;」と同レベルです。そんなの「※ただイケ」に決まってるじゃないですか。

最初エントリは注目されたくて差別に絡めて話を進めていったら、書いてるうちに無性にムカついてきて変な文章になっちゃっいました。もっと冷静なって、構成を考えて書ければよかったです。でもまあ、こんなにたくさんの人に注目してもらえたし、僕の言いたかったことをしっかり受け止めてくれてる人もいっぱいいるので、結果オーライです。読んでくれた皆さん、ありがとうございました。

2010-04-01

鳩山谷垣党首討論テレビでは絶対に放送しない、やりとりの一部>

ttp://irregular-expression.tumblr.com/post/487680959

鳩山自民は13年間何もやってこなかったではないか!」

谷垣「この間、地元の合意を取り、米の同意を取り、時間を掛け、県民に負担の無いようやってきた」

鳩山「くぁwせdrftgyふじこlp

鳩山自民の歴代総理は現地の赴いていない!」

谷垣「みんな行っている。車座で対話集会とかやってる」

鳩山「くぁwせdrftgyふじこlp

鳩山「合意を取り付けたといっているが、現実に杭一本打ってないではないか!」

谷垣環境アセスが終わらなければ打てないでしょ? 終わる寸前だったのに」

鳩山「くぁwせdrftgyふじこlp

2010-02-25

浅田真央インタビュー韓国メディアの信じられない質問 日本メダルが欲しいと言いながら、選手へのケアはまったく最低レベル

ttp://alfalfalfa.com/archives/386933.html

浅田真央世界で愛されてるからな~

こんなスポーツ選手日本では貴重だよ

コーチタラソワも真央の演技をビデオでみて涙を流すほどいれこんでる

カナダのロシェットは一番尊敬するスケーターとしていつも真央名前をあげる(現世界女王じゃなく)

RDS.ca:あなたが尊敬する選手は誰ですか?そしてその理由は?

ロシェ :日本浅田真央です。なぜならとてもスケートが上手だから

     真央はおそらく男子よりも上手です

     真央日本でとても大きなプレッシャーにさらされています

     いつもパパラッチに追いかけられてるのですが、彼女はうまく適応してるように見えます

     彼女の状況と比べれば、カナダで受ける私のプレッシャーは無いのも同然です

アメリカ男子選手も、四大陸の結果みて感動してつぶやいてくれてる

Wow, Mao’s 4Continents LP was amazing and inspiring. Maybe it’s time to upload Clair de Lune…

この選手は本当に真央を応援してくれていて、次々と真央トリビュートすると真央プロの曲を

ピアノで弾いてはつべにあげてる

フランス解説も見ると、真央という選手がどれだけ世界のスケーターに愛されてるかわかる

2009-08-18

http://anond.hatelabo.jp/20090818135443

http://dic.yahoo.co.jp/dsearch?enc=UTF-8&p=%E3%82%81%E3%82%8D%E3%81%86&dtype=0&dname=0na&stype=0&pagenum=1&index=21182718148100

め‐ろう〔‐ラウ〕【女郎

1 女をののしっていう語。

・ 「うぬおれを馬鹿にするな。此―」〈逍遥当世書生気質

女の子少女

・ 「―などにすくはせ」〈宗長手記〉

http://dictionary.goo.ne.jp/leaf/jn/191099/m0u/%E3%82%81%E3%82%8D%E3%81%86/

めろう ―らう 2 【女郎

(1)女を卑しめていう語。

「おれを馬鹿にするな、此(この)―/当世書生気質逍遥)」

(2)少女女の子

「上京に姉をもつてござ有が、是に―がひとり御ざあり/狂言・粟田口

(3)人に使われる身分の低い女。[日葡]

http://dictionary.infoseek.co.jp/?ii=0&lp=0&sm=1&sc=&gr=ml&qt=%A4%E1%A4%ED%A4%A6&sv=KO&se=on

めろう ―らう 2 【女郎

(1)女を卑しめていう語。

「おれを馬鹿にするな、此(この)―/当世書生気質逍遥)」

(2)少女女の子

「上京に姉をもつてござ有が、是に―がひとり御ざあり/狂言田口

(3)人に使われる身分の低い女。[日葡]

2009-04-08

ソープにいったら従姉妹が出てきた件について

微妙にやばい状況にあるので、頭を整理するために書いてみる。

嫁さんが実家に遊びに行ってる隙に、ちょっとソープでも行ってみようかなと軽い気持ちで考えたのが運の尽きだった。まあ、一番悪いのが従姉妹似の嬢を選んでしまったことなんだけどさ。

 

従姉妹(仮にAとする)はオレと同い年で、美人スタイルも良くて憧れの対象だった。従姉妹なら結婚できるよな、なんて調べたり(笑) だけどまあ、オレはガリ勉非モテ、向こうはモテモテで全然キャラも違うし、何の接点も無かったんだけど。そういうわけでAに似てる写真をみて、ついつい指名してしまったのだ。

 

部屋に入ってもまだお互い気がつかなかった。当たり障りのない会話をして、服を脱がそうというときに目が合って2人とも硬直状態に。

「あ・・・」

「え・・・」

しばらく気まずい状況が続いたんだけど、Aが

「とりあえずすることしよっか」

と言ってくれたので、とりあえずすることだけはしてまいりました(爆)

 

事後「ずっとここで働いてたの?」と聞くと、

最近パートじゃ稼げないからね」とのことだった。

Aはバツイチ子持ち。最近は男ができたらしいけど、働かなくてパチンコばっかりやってると親から聞いたことがある。

「大変じゃない?」

「いや、私こういうの嫌いじゃないから。っていうかあんたもこういうとこ来るのね。真面目に見えるくせに」

たまにはね」

「奥さんは知ってるの?」

(ギクッとしながら)「知ってる訳ないじゃん」

こちらも離婚の危機だが、向こうもソープで働いてることは知られたくないだろうとは思う。とはいえ、かなりヒヤヒヤした。

「へー(ニヤニヤ)」

「別に脅したって何も出ないぞ」

「それよりまた指名して」

「えっ!?」

「指名されたらあたしにお金入るの」

「や、まあ、分かるけど」

「それとも他のところでする?」

「そ、それはくぁwせdrftgyふじこlp

 

Aは完全にぱにくったオレをニヤニヤしながら送り出したんだけど、一晩明けて困ったことになったと頭を抱えている。

ゆすってもお金は出ない→そのかわりちょくちょく来て指名しろ

ということなのか? 脅されているのか?

でも、また行ったら完全に確信犯だよな。一発だけなら誤射かもしれないけど、二度三度と関係してしまってからばれちゃったらまずいよな~。だけどまた行きたい気持ちもあるんだよね。昔憧れてた女性だし、すごく気持ちよかっ(ry

 

さあどうしよう。いま、生涯で一番悩み苦しんでます。

2009-02-13

http://anond.hatelabo.jp/20090213111416

そういえば彼女は俺のアナルに興味があるような気がする

うわ何をすrふじこlp

2008-11-04

http://anond.hatelabo.jp/20081104232326

CDは小さくてね、良く見えないんだよ。やっぱりジャケ買いLPでこそ伸びるのがスターの証だよ。

とか考えついた。

2008-10-18

くぁw背Drftgyふじこlp;@

流石に今回の先生の芸風はID:Sokalian程では無いにしろ、やり方が稚拙だと感じました。

2008-08-28

ギガジンさん、間違っています!!!

http://gigazine.net/index.php?/news/comments/20080827_osaka_gas_service/

拝啓 ギガジン

 

平素はガス業界へ格別のお引き立てを賜り誠にありがとうございます。

 

この度はご使用商品に破損があったとのこと、

大変ご迷惑をおかけして誠に申し訳ございませんでした。

またお申し出の際に対応させていただいたの業界の者の態度に、ご無礼のありました段、重ねて謹んでお詫び申し上げます。

 

 

さて、今回話題になっております記事の件です。

日ごろ、ギガジンを愛読させていただいている読者の一人として

またガス業界に携わる一人として看過できない部分が多々ございましたので、一筆啓上させていただきたいと思います。

 

 

まず、「メンテマンが売り上げを稼ぐためにわざとコードを損傷させたのでは?」と強くお考えのようですが、「そんなことは絶対に無い」と断言できます。

 

ガス業界人間が、コードの損傷のような火事につながる瑕疵を見逃すことはありません。

なぜなら、「火事が起こった時点でその家はオール電化になるから」です。(特にLPガスエリア

 

売り上げを稼ぐことができるのも、その家がガスである場合に限られます。

機械故障で売り上げが上げる」という企みのために、その家が電化になっては元も子もないです。実際、火事がある度に「オール電化なら安全安心」だという宣伝文句の下、電化されるお客様は少なくないです。火事の原因で一番多いのはたばこで、ガスは関係ないにもかかわらずです。

 

 

さらに、「メンテマン以外にさわったものがいない」との事ですが、私にはそれも疑問です。ギガジン様(記者のお名前がわからないので仮にこう記述させていただきます)は「カッターのようなもので切ったに違いない」とおっしゃってますが、掲示されております写真を見ますと、あまり綺麗な切り口ではありません。メンテマンが持つ道具は工具ですので、コードなどは綺麗に切れる道具しかもっておりません。ニッパーなどでこじる様にすればあのような断面になりますが、先ほどもうしましたように、火事危険押しコード破壊する動機がありません。(大抵コードの破損はコードの交換で済んでしまいます。たいした金額になりません)

ギガジン様を全否定して、まことに失礼ですが、あくまで写真の印象ではあの断面は私の経験ではカラスや猫といった類がコードを噛んだような断面によく似ています。あの断面だけを見て「カッターだ、刃物だ」と何故判断されたのでしょうか。

 

 

さて、では何故メンテマンが見逃したのかですが、ここはギガジン様から情報をいただかないと良くわかりません。というのは、掲示されております写真には4月??5月にメンテマンが来るチラシがあります。コードの損傷が発見されたのがいつかわかりませんが、仮に7月に発見されたとしても、随分と間に期間があります。

お客様のご都合で日程が遅れることは良くあることですので、実際は間の期間はもっと短いのかもしれませんが、期間がはっきりしないと他の要因をはっきり排除できないと思います。逆にギガジン様は他の要因を何故排除されたのでしょうか。多分合理的な理由があったのだと思いますが、私にはわかりません。

 

 

あと「大阪ガスでは無くサービスショップ人間大阪ガスマークをつけて訪問する」ことを問題視されていらっしゃいますが、これに関してはあまり問題ないと思ってます。何万とあるお客様を社員だけで回りきれるはずも無く、定期的に協力会社連携して訪問するのはいたしかたありません。電気店にメーカーさんの販売会社の方がいらっしゃったり、ネットワーク関係でも提携先のロゴが入った名刺をお持ちの方がいらっしゃると思います。

 

 

お客様への訪問の回数も本当を言えば3年に1回の法定点検だけで、良いのですが、松下の暖房機の件、パロマ給湯器の件、などなどガス業界を取り巻く環境やガス業界に向けられる世間の目は近年厳しく、「お客様との接点を増やして、安全を守ろう」というのが最近のガス業界の潮流です。LPボンベの交換の際のお声かけなどもより重視しております。

確かにこういうトラブルがありますと「何か売りつけようとしている」という目で見られるのは致し方ないと思いますが、世の中が求めるサービスの水準が上がる中、ご訪問させていただく回数も増えているとご理解ください。

 

長々と書いてまいりましたが、確かに集団として中の構成員に質のムラはありますが、私はガス業界意図して火事を起こす様な人間はいないと思っております。

「それは性善説だ」とか「なかには悪い人間もいる」というご指摘もあるかとは思いますが、悪い人でもそんな馬鹿なことはしません。重ねて申しますが、合理的に見ても火事を起こす様な手を加える理由はないです。その時点でその家はオール電化になりますから。

私といたしましては、「大阪ガス大阪ガスサービスショップノルマを課してはいないが、大阪ガスサービスショップは所属する社員などにノルマを課しており、そのノルマを達成するために今回のような「自作自演」「マッチポンプ」をしている可能性は依然として残っている」というご意見と「火事になれば、市場がなくなって、儲けも何もなくなるのだから、火事を回避するように行動するのは当然」という意見の双方をお見比べいただきまして、皆様でお考えいただくのが一番真実に近いと考えております。

 

 

最後に一つ、私の愚痴というか嘆息になります。

 私が理解ができないのは、B-CASへの取材などで「一問一答」という形であれだけ文脈を重視して、すばらしい取材をされていたギガジン様が、今回の件に関しては、消防署の方のコメントや生活センターの方のコメント前後の文脈なしに、一言だけ(しかも憶測を呼ぶような形で)掲載するなど、まるでネット言論を煽るような行動をとられている事です。

 今回のギガジン様の件は、大阪ガスの対応も事務的でお腹立ちはもっともだと思いますが、事件の日程の推移など肝心なところがいくつもぼやけていて、愛読者の一人として「何か違うのではないか」と思いましたことを申し添えたいと思います。

 

はてなブックマークで冷静なコメントをいただきました。

id:napsucksさま、id:keiloveyasudaさま id:m_shinzakiさま id:hirok52さま id:TERRAZIさま、その他多くの皆様に厚く御礼もうしあげます。

 

ここまでお読みいただいた方ありがとうございました。

これからもガス業界をよろしくお願いいたします。

2008-07-24

メモ

133 名盤さん [] Date:2008/05/10(土) 00:11:05 ID:uW+7WZgx Be:

NME 年間ベストアルバム1980-2007

1980 Joy Division / Closer

1981 Grace Jones / Nightclubbing

1982 Marvin Gaye / Midnight love

1983 Elvis Costello / Punch The Clock

1984 Bobby Womack / Poet 2

1985 Tom Waits / Rain Dogs

1986 Prince & the Revolution / Parade

1987 Public Enemy / Yo bum rush the show

1988 Public Enemy / It Takes A Nation Of Millions..

1990 De La Soul / 3 Feet high & rising

1990 Happy Mondays / Pills 'n' thrills and bellyaches

1991 Nirvana / Nevermind

1992 Sugar / Copper Blue

1993 Bjork / Debut

1994 Oasis / Definitely Maybe

1995 Tricky / Maxinquaye

1996 Beck / Odelay

1997 Spiritualized / Ladies And Gentleman We Are Floating In Space

1998 Mercury Rev / Deserters Songs

1999 The Flaming Lips / The Soft Bulletin

2000 Queens Of The Stone Age ? Rated R

2001 The Strokes / Is This It

2002 Coldplay / A Rush Of Blood To The Head

2003 The White Stripes / Elephant

2004 Franz Ferdinand / Franz Ferdinand

2005 Bloc Party ? Silent Alarm

2006 Arctic Monkeys / Whatever People Say I Am, That’s What I’m Not

2007 Klaxons / Myths Of The Near Future

134 名盤さん [] Date:2008/05/10(土) 00:12:00 ID:uW+7WZgx Be:

Rolling Stone 年間ベストアルバム1980-2007

1980 The Clash / London Calling

1981 Rolling Stones / Tatoo You

1982 Bruce Springsteen / Nebraska and R. & L. Thompson / Shoot out the lights

1983 R.E.M. / Murmur

1984 Bruce Springsteen / Born In The U.S.A.

1985 Talking Heads / Little Creatures

1986 Paul Simon / Graceland

1987 Bruce Springsteen / Tunnel Of Love

1988 Midnight Oil / Diesel and Dust

1989 Neil Young / Freedom

1990 Sinead O'Connor / I Do Not Want What I Haven't Got

1991 R.E.M. / Out Of Time

1992 R.E.M. / Automatic For The People

1993 Nirvana / In Utero

1994 Hole / Live Through This

1995 PJ Harvey / To Bring You My Love

1996 Beck / Odelay

1997 Bob Dylan / Time Out Of Mind

1998 Lauryn Hill / The Miseducation of Lauryn Hill

1999 Rage Against The Machine / The Battle of Los Angeles

2000 Eminem / The Marshall Mathers LP

2001 Bob Dylan / Love and Theft

2002 Beck / Sea Change

2003 OutKast / Speakerboxxx/The Love Below

2004 Kanye West / The College Dropout

2005 Kanye West / Late Registration

2006 Bob Dylan / Modern Times

2007 MIA / Kala

135 名盤さん [] Date:2008/05/10(土) 00:42:04 ID:uW+7WZgx Be:

おまけ

rockin'on 年間ベストアルバム 2002-2007

2002 Red Hot Chili Peppers / By the Way

2003 Radiohead / Hail to the Thief

2004 Green Day / American Idiot

2005 Oasis / Don't Believe The Truth

2006 Red Hot Chili Peppers / Stadium Arcadium

2007 Radiohead / In Rainbows

SNOOZER 年間ベストアルバム 1997-2007

1997 Radiohead / OK Computer

1998 Elliott Smith / XO

1999 Super Furry Animals / Guerilla

2000 FUMIYA TANAKA / UNKNOWN POSSIBILITY vol.2

2001 Super Furry Animals / Rings Around The World

2002 Beck / Sea Change

2003 Outkast / Speakerboxxx/The Love Below

2004 The Libertines / The Libertines

2005 Hard-Fi / Stars Of CCTV

2006 Arctic Monkeys / Whatever People Say I Am, That’s What I’m Not

2007 Radiohead / In Rainbows

2008-03-26

孤独だが引きこもりではない人間休日の過ごし方

社会人1年目(23歳)。地方県庁所在地一人暮らし恋人・友人はいない。

何の予定もないので家でごろごろすることも可能だが

そうはさせない。

「予定がない」

おれはこれを「完全なる自由」と肯定的に捉えている。

何も考えずに出かけることが多い。

大体休日は朝8時から9時に家を出る。

自転車

適当に街を行くと喫茶店があるのでそこでコーヒーたばこ漫画/小説

喫茶店は行き着けの所に行くこともあれば新規開拓もする。

内装音楽の雰囲気がよくて一人で来てる奴(服装に気を遣う人間スポーツ紙を読んだりしない人間限定)が多ければあたり。

ジジババの溜まり場だったり内装にこだわってなかったりテレビあったりしたら全てハズレ。

味は二の次。雰囲気さえよければいい。

新規開拓はリスクが高いのです。

(余談だが喫茶店に関して、今まで行った店は開店時間内装音楽など分かる(調べられる・聞ける)範囲は

全て記録している)

閑話休題

持ってきた本やたばこやむかつく客の来店等で滞在時間は変わる。

早ければ30分、遅ければ2時間ほど。

その後どうするか?

さすがに飲食店はないからここで本屋コンビニですよ。

本の種類ってはんぱじゃないよ?

いくらでも時間つぶせる。

まあ1時間としようか。

まあ大体11時から12時くらいになってるわな。

腹は減ってないよ。朝飯食べて家出るからね。

ここで運動です。

ここは地方都市

そして俺の乗っているのは自転車

どんな路地にも入っていける訳です。

景色芸術品と同等に捉えている自分としては「道」そのものが美術館のようなもの。

通ってない道や雰囲気のいい通りをキョロキョロしない程度に味わうわけです。

ひからびた民家や小汚い子猫貧乏くさい料理のにおい、寺の地面に舞い散る落ち葉

その全てが鑑賞に堪えうるのです自分にとっては。

国道沿いはサイアクだね。国道でも県道でもない、

いわゆる「車で走りにくいクソ道」が一番いい)

道も喫茶店と同様いきつけと新規開拓があるため、

「一応」地図携帯。これは迷ったとき用。

「おやこんなところに道があるぞどれどれ?ふむ、これはいい道だ」

というシチュエーションが好きなのです。

まあ、どっちにしても30から40分くらいか。

そんなこんなで小腹も空きました、と。

次に行くのは洋食店もしくは古汚い食堂またはラーメン屋な訳です。

洋食店はカップル・小汚いジジババがいないことをせつに願いつつ来店。

煙草は吸わず、置いてる雑誌新聞週刊誌を読む。

適度な満腹感が非常に心地よい。晴れの日ならさらに。

まだ昼。

ここからが孤独にとっては難易度が高くなる。

カップル・友達・家族連れの出現。

何かに時間を挟み3時から4時に喫茶店に行くわけだが、ここの時間の使い方。

図書館本屋レコード屋(文字通りLPとかの普通レコード屋)・たばこ屋は一人で問題ないが服屋(路面店)。

こいつが厄介。

「一人で来ている客がすでにいる」

ことが条件だからだ。

いればあたりでいなけりゃはずれで。

こいつばかりは運試しだ。

その後、またも風景を味わうために自転車でとばす。

途中新規開拓できそうな店を見つければ寄る(書き忘れたが1回目の風景探索でも寄る)。

そうしていると3時から5時になっている。

喫茶店だ。

あたりをひくことを切に願う。

できるだけ長くいたいからな。

出ると日も暮れている。

スーパー野菜や肉を買い、その時点で空腹感がかなりあれば外食(行く店は前述)。

あまり減ってなければ喫茶店もしくは家で適当料理

家では読みかけの本やRSS・行きつけサイトニコニコ増田ホッテントリの巡回。

こうして休みの一日は終わる。

寝っ転がって昼寝してテレビ見るだけの人間にだけはなりたくない。

2008-01-11

裁判リテラシー講座第一回 『訴えてやる』って民事?刑事?>

第一回 第二回 第三回 第四回 第五回

福岡飲酒運転事件について書いたのがそこそこ好評だったので、調子に乗ってシリーズ化してみる。

コンセプトは、ニュースなんかで裁判の話が出たときに、そのことをきちんと理解して、

その内容を適切に評価する能力の涵養、です。

民事、刑事

裁判所が扱う事件を大きく二つにぶった切ると、民事事件と刑事事件とがあります。

これらは明確に区別され、用語も異なり、手続き上もいろいろ異なってきます。

民事事件は、自己の権利を誰かに対して主張し、勝訴すればその権利を国が(強制)執行してくれる、というような事件です。

「金貸したけど返さない奴がいるから訴えて(取り返して)やる」というのはこちらです。

このような訴訟(給付訴訟)の他にも、確認訴訟遺言は無効だ!)や形成訴訟(てめーとは離婚だ!)という類型もあります。

一方刑事事件は、犯罪を犯した(と思われる)者に対して、国を代表して検察官が訴追権を発動して刑罰を求めるものです。

痴漢されたから訴えて(前科つけて)やる」というのはこれです。

どちらにも「訴えてやる」という言葉を使うので混同してしまいやすいです。

しかし、先の通り、この二つは全然違います。

民事事件は、実際に裁判を起こす(新聞では提訴、法学では訴えを提起と言うことが多い)のに対して、

刑事事件は、捜査機関犯人の訴追を求めるのに過ぎない(告訴とくに刑事告訴といいます)のです。

刑事事件については国が訴追権を独占しており、告訴によって対応が義務付けられます。

本人は捜査機関に行って告訴する旨主張すればいい(口頭でもいいのですが、通常は書面で)。

著作権法の議論でたびたび登場する親告罪とは、この告訴がない限り、公訴を提起できない犯罪のことです。

普通親告罪の場合に告訴が問題になります(非親告罪だと普通は被害届くらいで終わります)。

また、法律用語的には、民事に告訴という言葉を使いません。

紛らわしい

このように、手続は明確に違うので、民事事件と刑事事件を混同するのは、

我が国の司法について無知であることを表明するようなもので、恥ずかしいものと思ってください。

こうやって得意げに指摘すること自体もこっ恥ずかしいです(一般常識を得意そうに解説しているみたいで)。

たとえるならRPGHPとMPを混同するようなものでしょうか。

ただ、HPをMPに変えてメテオを放って孫娘の敵討ち(未遂)をした老賢者や、HPMPいれかえのマテリアのように、

刑事と民事がごっちゃになりやすい事案があります。

最たる例が不法行為です。

簡単に言えば、誰かの故意過失により自分の権利利益を侵害された時には、不法行為として民事上の請求権が成立します。

一方、刑事には不法行為という言葉は登場しません。

しかし、犯罪なんてのは、基本的に誰かの故意過失によって生じるのが当然ですから、被害者犯人にいつも不法行為による請求権が発生しているはずです。

ここで、明文上規定がある、名誉毀損を引きます。

誰かに名誉を毀損された場合、民法上、不法行為の一例として、損害賠償請求権が発生します(民法710条)。

同時に、その行為は名誉毀損罪を構成(刑法230条)し、親告罪として捜査機関に告訴することが出来ます(刑法232条)。

ここでは、名誉毀損について「訴えてやる」は、民事の場合刑事の場合、両方に通用することになるわけです。

したがって、掲示板ブログで煽られて、顔真っ赤で「名誉毀損だ、訴えてやる」なんて書くと、どっちがしたいのかよく分かりません。

そんなこと言ってると、無知がバレて、さらなる炎上を招くかも知れませんよ。

見分けるには

ではどうやって、どういう趣旨の「訴えてやる」なのか、つまり、民事事件なのか刑事事件なのかを見分けるか。

それは簡単な話です。

訴追を求めていれば刑事、それ以外なら民事、でおkです。

民事と刑事排他的なので、刑事かどうかを見分ければいいのです。

ここらへんの混乱は、マスコミの用語方法がいい加減だったりするのが原因の一端なので(民事なのに告訴と言ったりする)、

皆さんにおかれましても、用語に拘わらず、しっかりと区別していただきたいと思います。

よって、上島竜兵のいう「訴えてやる!」は、犯罪に対して訴追を求めるものではないので、

せいぜい民事上の不法行為による損害賠償を求めるということだと思われます。

※なお、行政事件とか非訟事件とか、HPMPに対してLPみたいな要素が登場する場合もありますが、基本的に民事の亜流と捉えればおkです。

2007-10-17

増田都市伝説

何か特殊なキーワードを書き込むとIDが出てしまうって話、聞いたことあるか?

噂では、しなもん中の人の本名をバラすとうわなにをするやめくぁwせdrftgyふじこlp

2007-09-09

昔のレコード会社って「○○音楽産業」とか「××音楽工業」だった

CCCDに関しては一種の産業保護だったんじゃないかな?って気がする。

と言うか音楽配信が盛んになればなるほどCDと言う媒体はかつての

LPレコードみたいに製造設備含めて必要なくなるわけで、

レコード産業全体がCDに頼らなくとも設けられるような手法を

ひねり出すまでの時間稼ぎがCCCDだったということで。

どうやって儲けるか?と言うことについてはとにかく正規の音楽配信サービスを支援して

購入時に生じた著作権料等で儲けると言う感じにはなったんだろうけど、そうなると今の

JASRACのような運営が不透明でかつ一極集中的なシステムレコード会社にとって大きな足かせになりそうな。

http://anond.hatelabo.jp/20070909171912

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-30

反時計回りに絶望した!

http://anond.hatelabo.jp/20070730005902

絶望した!レコードを反時計回りに回しているアニメ制作スタッフ絶望した!

いいですか皆さん、レコードは蓄音機の時代から今に至るまで、時計回りと決まっているのです!

それに蓄音機の場合、針は垂直ではなくて少し角度を付けてあります!

逆回転させると、針で盤が削れてしまうではありませんか!

※その前に針が折れるかもしれません!大事な盤をダメにするのが怖くて試せませんが!

あの映像を見るたびにレコードの溝が削れていく様子が想像されて・・・ああ、キモチワルイ・・・

しかも蓄音機にしては回転数がめちゃくちゃ遅いではありませんか!

いいですか、あの映像だと、1分間に33 1/3回転のLPレコードくらいの速度です!

SPレコードは78回転や80回転ですが、レーベルはまずまともに読めないくらい速く回るのです!

蓄音機のぜんまいが切れかけたように見えるので巻き足したくなるではありませんか!

2007-06-04

[]??Delphihacks??Delphi??Win32API??

Delphi - Wikipedia??Windows開発の決定版 - Delphi(Skype??なでしこ)

タグ「delphi」を含む注目エントリー - はてなブックマーク

Delphiアプリケーションのメモリリーク検出法

Delphiアプリケーションのメモリリーク検出法 (山本隆の開発日誌)

作ろう!コンポーネント Delphi C++Builder

http://www.componentsource.co.jp/features/delphi/

TMS Software | Productivity software building blocks

Components > Effects and Multimedia > Video. Torry's Delphi Pages

Components > Effects and Multimedia > Audio. Torry's Delphi Pages

Components > Effects and Multimedia > Voice. Torry's Delphi Pages

Components > Effects and Multimedia > Direct X. Torry's Delphi Pages

try finally end

CとDelphiの対比表

eXeScope(Windows95/98/Me / ユーティリティ)

Delphi - テクノラティブログ検索

2ch検索: [Delphi]

Delphi-ML〓〓〓〓〓〓〓〓〓〓〓??About Delphi

Delphi Q & A掲示板

Delphi Q & A 〓f〓〓〓〓 〓〓〓〓〓〓O〓〓(HTML〓o〓[〓W〓〓〓〓)

fdelphi.com

Delphi入門

旧 Delphi 入門??Seventh Delphi

Delphiメモ

超ローテクDelphi講座

俺のためのDelphi学習

Delphi はじめの一歩

VB〓〓VC〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓H

Delphi の格言

キーボードからの入力取得

マウスボタンのクリック、マウスの位置情報の取得

ジョイスティックからの入力取得

バッカーへの階段: 入門:キーロガー

テキストファイルを読み書きする

テキストファイルのロードとセーブ

DelphiによるWin32API

Delphi WAVEサウンド音を鳴らす/Tips & Tricks

MIDI、WAVEファイルを再生する

サウンドを読み込んで鳴らす

MIDIを演奏する MCI/midiStream

5分ではじめるDelphi - 第1回 簡単なメディアプレーヤの作成(前編)

MP3プレイヤーを作る>dllによる再生

Controling sound volume from code

Torry's Delphi Pages

lsMicrophone: mxl.dwComponentType :=MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

MIXERLINE_COMPONENTTYPE_DST_SPEAKERS

MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT

SwissDelphiCenter.ch : ...set the volume for the microphone/ mute it (enhanced)?

Components > Sound Effects > Mixer. Torry's Delphi Pages

uses MMSystems;

//

PlaySound('C:\WINNT\Media\start.wav', 0, SND_FILENAME or SND_ASYNC);


ビットマップを表示しよう

画像ファイルを指定した位置へ表示

俺Delゲーム応用

画面をキャプチャして表示する

めもニャンだむ

Delphi6でプログラミング ビットマップの半透明コピー AlphaDraw

画像処理プログラミング講座

Graphic Effect

カラー画像をモノクロ画像に変換

procedure TForm1.Button1Click(Sender: TObject);

var

bmp1,bmp2 :TBitmap;

begin

bmp1 :=Tbitmap.Create;

bmp2 :=Tbitmap.Create;

try

bmp1.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FINANCE.BMP');

bmp2.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FACTORY.BMP');

Form1.Canvas.Draw(10,10,bmp1);

Form1.Image1.Canvas.Draw(10,10,bmp2);

finally

bmp1.Free;

bmp2.Free;

end;

end;


無料版Delphi6でSTGをつくるためのプログラミング講座 Ver.2005 Jan.

Delphiでわずか59KBのオセロを作る方法

めもニャンだむ:BIOS 情報

コンストラクタとデストラクタ

SwissDelphiCenter.ch : ...get the MAC Address?

乱数

DelphiでMD5

もっと楽にGUIとの連携がしたい:Python + Delphi = P4D(Python for Delphi) - ふにゃるん

Delphi WindowsのOSのバージョンを取得する/Tips & Tricks

SourceForge.net: Gecko SDK for Delphi

DelphiでWinSock

SQLite-もげもげ〜

BDS(Delphi/BCB)用SQLiteライブラリ (山本隆の開発日誌)

Application.ProcessMessages

FrontPage - DelphiVIP

SwissDelphiCenter.ch : programming tips

Torry's Delphi Pages

Delphi Tips

Delphi Code Tips

Magic of Delphi4〓z〓[〓〓 〓y〓[〓W

Delphi Win32API/API関数一覧

Delphi〓〓〓Z

クジラ式 Delphi 資料

Delphi〓〓y〓[〓W

サイト移転のお知らせ(Mr.XRAY)

openDelphi.org

KOL and MCKPage

Gen's Delphi Labo.

サイト移転のお知らせ(Mr.XRAY)

ナッキーの「Turbo Delphiはじめて奮戦記」- 第1回 Turbo Delphi のインストール

フリーのTurbo Delphiで始めるWindowsプログラミング:ITpro

フリーのTurbo Delphiで始めるWindowsプログラミング:ITpro

http://torrent.borland.com/turbo_hotfix_rollup.zip

http://torrent.borland.com/prereqs_jp.zip

http://torrent.borland.com/turbodelphi_jp.exe

(1) \dotNETRedist\dotnetfx.exe

(2) \dotNETRedist\langpack.exe

(3) \dotNETRedist\NDP1.1sp1-KB867460-X86.exe

\dotNETSDK\setup.exe

\IE60SP1\ie6setup.exe

\dotNETJSharp\vjredist.exe

\dotNETJSharp\vjredist-Permalink | 記事への反応(1) | 15:15

2007-03-18

http://anond.hatelabo.jp/20070318042507

増田さんを想像してみる。

あくまで想像なので、見当違いなことを言っていても鼻で笑って流して欲しい。

 

増田さんはスキがない。というか、弱みを見られるのが怖くてガードが堅い。

男性(か恋愛?)はちょっと苦手だが、逆にそれを隠すのにぶっきらぼうな言動で男どもに同化しちゃう。

この傾向が強いと、男前とか姉御とか言われちゃったりしそうだけど、自己評価では、

それとも、今みたいに自分に自信がないのが原因か。時代は強い女を求めるのか。

とのことだから、物静かにしているタイプかもしれない。

思うに長女気質なのかな。要領のいい妹か弟がいたりして。

初心な男を強気で従わせるくらいでないと恋愛できないと思ってるかもしれないけど、年上男に甘えるのもしっくりくるんじゃないかな。ちょっとだけスキを見せてさ。

 

よし、ここは年上で初心な私めが立k(うわ何をするやmあwせdrftgyふじこlp

2006-12-09

Q1.一生物として欲しい物は何かありますか?

Q1.一生物として欲しい物は何かありますか?

YES → 3458人

NO → 246人

無回答 → 23人

──それはどんなアイテムですか?

1.時計…(2051)

2.リング…(709)

3.ジュエリー全般の中から…(293)

4.インテリア…(224)

5.バッグ…(51)

http://fanet.jp/cgi-bin/diary/View.cgi?CT=18&RN=00298&LP=1

装身具の前にもっと必要な物があるんじゃないか。生物として。

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