なんか:かんがえて-7

シトロ絵本

シトロ絵本

このひといろいろビジュアル妄想系のうけ狙いコンテンツがあっておもしろい。

ちなみに、シトロエンをボートに改造する業者はヨーロッパに実在した。
ぼくの知るかぎり、湖の上を走って云々の写真は、少なくとも一枚は本物です。

iengine

iengine

503i を買った人は どうぞ。どうも汚いしバグいのだが、もうめんどくせえのでいいや (ワラ

しかし、java.lang.Math に min(), max(), abs() しかないのには まいった。そんなの Math じゃねえっての。drawLines(), fillPolygons() とかちゃんとあるな、と思ったら、drawArc() とかの類が何もない。あと定数として小数値もかけない。あらゆる sin, cos, マル系なんにもなし。SP-5030 な世界だ。

というか、そもそもおでんまんのこれを手伝っているつもりが脱線してしまった。まぁ Thread とか覚えたからいいや。

ドット絵仕事とかも、たまにはいいね。

jam-mode

頭痛がいたくてしょうがない

NTT DoCoMo 503i とか、iアプリを emacs で書くひとむけの、いちいち jar 作るたびに jam かくのめんどくさいので
*.jam を更新する elisp

;; -*-emacs-lisp-*-
;; jam-mode.el
;; $Id: 01.tdf,v 1.2 2005/02/20 08:06:08 morimoto Exp $
;; result of current-time-string is in the form "Thu Jan  4 12:22:33 2001"

(defvar jam-mode-map nil
  "Keymap used in jam-mode.")
(defvar jam-mode-syntax-table nil
  "Syntax table in use in jam-mode buffers.")

(if jam-mode-map
    nil
  (setq jam-mode-map (make-sparse-keymap))
  (define-key jam-mode-map "\C-c\C-c" 'jam-update))

(defun jam-mode ()
  "Major mode for editing jam file"
  (interactive)
  (use-local-map jam-mode-map)
  (setq mode-name "jam")
  (setq major-mode 'jam-mode)
  (run-hooks 'jam-mode-hook))

(defun jar-last-modified-string (jar-filename)
  ""
  (let
      ((jar-attribute)
       (jar-last-modified)
       (jar-mday) (jar-day) (jar-month) (jar-year) (jar-time)
       (pattern "^\\([A-Z][a-z][a-z]\\) \\([A-Z][a-z][a-z]\\) +\\([0-9]+\\) \\(\
[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\\) \\([0-9][0-9][0-9][0-9]\\)"))
    (setq jar-attribute (file-attributes jar-filename))
    (setq jar-last-modified (current-time-string (nth 6 jar-attribute)))
    (if (string-match pattern jar-last-modified)
        (progn
          (setq jar-mday
                (match-string 1 jar-last-modified))
          (setq jar-month
                (match-string 2 jar-last-modified))
          (setq jar-day
                (match-string 3 jar-last-modified))
          (setq jar-time
                (match-string 4 jar-last-modified))
          (setq jar-year
                (match-string 5 jar-last-modified))
          (format "%s, %s %s %s %s"
                  jar-mday jar-day jar-month jar-year jar-time))
        nil)))

(defun jar-app-size-string (jar-filename)
  ""
  (format "%s"
	  (nth 7
	       (file-attributes jar-filename))))

(defun jam-update-jar-size (jar-filename)
  ""
  (beginning-of-buffer)
  (if
      (re-search-forward "AppSize *= *" nil t nil)
      (progn
	(kill-line)
	(insert (jar-app-size-string jar-filename)))
    (progn
      (beginning-of-line)
      (insert "AppSize = ")
      (insert (jar-app-size-string jar-filename))
      (insert "\n"))))

(defun jam-update-last-modified (jar-filename)
  ""
  (beginning-of-buffer)
  (if
      (re-search-forward "LastModified *= *" nil t nil)
      (progn
	(kill-line)
	(insert (jar-last-modified-string jar-filename)))
    (progn
      (beginning-of-line)
      (insert "LastModified = ")
      (insert (jar-last-modified-string jar-filename))
      (insert "\n"))))

(defun jam-update ()
  "Updates LastModified and AppSize lines of buffer."
  (interactive)
  (save-excursion
    (let
	((jar-filename))
      (beginning-of-buffer)
      (if
	  (re-search-forward "PackageURL *= *" nil t nil)
	  (progn
	    (re-search-forward "\\w+\\.jar" nil t nil)
	    (setq jar-filename (match-string 0))
	    (jam-update-jar-size jar-filename)
	    (jam-update-last-modified jar-filename))
	(progn
	  (beep)
	  (message "PackageURL does not specified!!"))))))

例によって、~/.emacs に

(autoload 'jam-mode "jam-mode" "jam mode." t)
(setq auto-mode-alist
      (append '(("\\.jam$" . jam-mode))
	      auto-mode-alist))

とか書いて、*.jam を読んだときに jam-mode になるようにしてくれ

あとは C-c C-c で LastModified 行と AppSize 行が更新される

む。バファリンが効いたのか、あたまいたいのなおった。
現実逃避終了。では。

240Z 液晶不良

240Z 液晶不良

全然なおってねえじゃねえか。

不特定個所が RGB の B とか G だけ抜けたり、ザーザー ノイズがはいったり、画面が消えちまったり
こう、絶妙にイライラのツボをつかれる

個人的にはもう ThinkPad 買わねえ、つーか IBM シネ

日記のスタイル決めました

日記のスタイル決めました

どこをいいと思ったかというと、個人的には、とにかく文章がとてもいい、に尽きます。ひとさまの文を「文章がいい」なんて僭越もいいところですが、少なくともぼくはそう思ったのです。リズムを保ちながらも自由さときらめきがあって、しかしラフには崩れない。うまくいえませんが、そういうところをいいと思いました。

「一人ごとめいた批判は書かない」ってのは、同感ですね。
といいつつ、自分もやってしまうのだけど、あれは自分のなかが満ちたらないのをぶつけているだけで、オナニーそのものなんですよね。要は、どんだけいま不健康か、どんだけたまってるか? のバロメータだよねあれは。表に出て体操でもしとけ、ってのが正解だとおもいます。

...という「個人的なことを表出しても意味がない」ってことは、たとえば上記のパラグラフにも当てはまるし、そうすると再帰ってしまう。ないしは Web 日記ってもの自体の意味がなくなっちゃう。

たしかに自分も、最初に Web 日記ってものを見たときは、「うへ、なんだこの気色わるいやつらは!」とか思っていたし、それも正当な感触のひとつだとおもう。

まぁ所詮人間なんて完全ではないし、自分・人様から見て恥ずかしいものも含めて個人性とかを出していかずには生きていられないので、しょーがないかな、なんてね。

それはともかく、じゃあ今度南大沢まで、自転車でスイーッと来てもらうことにしよう。

リトルアジア

リトルアジア

むかしよく使った Los Angeles Club つーライブハウスのすぐ近くだ。

名前は西海岸 US 健康ロックとか、せいぜいフラワームーヴメントでピース＆ラヴな絞り染め、ってかんじだが、店長は案外プログレ＆オルタネイティブ好きで、うちらのような前衛打ち込み系のも受け入れてくれた。

そういえば、ここで電気グルーヴ周辺と一緒にギグやったなぁ♪
こう、ライブがはねたあと、ぼくのルノーと、相棒のプレリュードで、シンセとミキサと機材と花束と女の子を満載して、自分たちの演奏を聴きながら ぴゃぁーっと撤収、これを至福といわずしてなんという、というかんじですか。ちと美化されているかな。

まぁ、こういうことばかりやっているから、大学卒業に5年かかるわけだが。

とか、若き日々の甘い思い出。

というか、うえやまさんの日記 とてもよいね。