□置きざり保管庫

2008年7月27日日曜日

* CALL.32 -- 「三度目の旅立ち」
ネメシスQ…ネメたんのアップ満載の今週、中の人の正体含めプロットが固まった気配。
頭のオサゲから「シャオ君の未来の姿か？！」という意見もあったんですが気になる所。
アゲハがネメたんに喧嘩売るもゴッドハンドばりの空間歪めスキルでいなされます。
対照的に冷静にネメたんと交渉する祭センセ。ｶｺｲｲ…22回プロポーズもうなずけます。
おっぱい度が下がってますがその方がスポーティーで好きだ結婚してくれええ！

朧「すぐ戻るよ松本さん」戻らないフラグですね、わかります。
こんな美味しいキャラが死なないよな？
メロンパン5個ね、あるあ…ねーよ！
つくりすぎたカレー連続5食ならありました。
3食目以降は「発酵？」みたいな「うまずい」味を楽しめます。
素人にはお薦めできない。

アゲハ「雨宮はオレがまもる！」
ヒリュー（恥ずかし気もなくサラッと言いやがって…）
そんな恥しがりっ子なヒリューが可愛いです。
マツリ先生の兵隊…この二人は普段サー・イエッ・サー！な関係なんでしょうか。
雨宮刀持参。そのカバンの背負い方はどうなの的な。

今回は新しいドリフトがいない模様。
カブトが単独行動。なんかリュックサック背負って準備万端な感じでオジキの別荘へれつご。
タツオ君と途中で合流しそうな予感。
祭センセが試して
時計 × 新聞等 × 機械類 ×
だったけど、何か新しい過去情報の保存方法を見付けてくれそう。
ただ単に運良く残ってましたかもしんないけれど。

2008年7月25日金曜日

(アニメ) ひだまりスケッチ×365 #04

木（金？）曜深夜はひだまり待機する体になってしまった…
昨日まで耐え切れなくてMADで補完したり…
無論、今日までに原作も完走してしまいました…
そんな苦労も！今日まで！！だ！！！
そういえばOP発売。やっと「あやふやロケット飛ばしたこころは接近」だと分かったぜ。
テンション上げていきましょう。うおおおおおおおおおおおおわしょしょーい！

* A「まろやかツナ風味 (3/16-23)」
宮ちゃん×にゃんこ回！
鮑（あわび）！
ゆのっちの性的な眼差し…
ヒロさん武闘派…
原作通り進む進む。
低αな水面。へそに視線誘導されたら負けということですね。

* B「ガガガガ (10/31)」
Bパート1期10話の直前ちっく。
見たかった、見たかったぞ！よしよし…
ガチ百合。すてきよね〜♥ちゃうわ！的な。ガガガガってゆのっちのことかい。
ゆのっち身体硬っ！
すごい動くなあ…
大家さんやめてねえ、つかやめられねええええ！ニコ厨ですね、わかります。
EDいいわあ…早く欲しい。
あと予告で流れる「た〜りらった、た〜りら」ってBGM欲しい…サントラもでるよね？

来週は05話「おめちか (3/25)」。
釘智花話みたいですねい。アニメオリ展。

以下ネタバレサイト
http://anime.webnt.jp/program/index.php?pg_page=tv_detail&detail=633

2008年7月24日木曜日

Hueサイクル

HSV色空間のHue（色彩）をぐるぐると回る動画です。
色のRGB値を補色のテキストで表示しています。

テキストのフォント: "DejaVu Sans Mono Bold"

テキストなしバージョン

* 使ったコード
h2rgb (シェルスクリプト) -- HueをRGBに変換
seq-text (シェルスクリプト) -- gimpに渡す引数を成形
seq-text.scm (gimp script-fu) -- 背景色、テキスト色、テキストを与え画像を出力

* 製作環境
debian-etch (i386)
linux-2.6.18
xorg-7.1.1
gimp-2.2.13
ffmpeg-SVN-r13618

(Code: sh) h2rgb

#!/bin/sh

for ((h=0;h<360;h++)) ;do
  if [ $h -ge 0 ] && [ $h -lt 60 ] ;then
    F=$[$h * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=255 ;G=$T ;B=$P
  elif [ $h -ge 60 ] && [ $h -lt 120 ] ;then
    F=$[$[$h - 60] * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=$Q ;G=255 ;B=$P
  elif [ $h -ge 120 ] && [ $h -lt 180 ] ;then
    F=$[$[$h - 120] * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=$P ;G=255 ;B=$T
  elif [ $h -ge 180 ] && [ $h -lt 240 ] ;then
    F=$[$[$h - 180] * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=$P ;G=$Q ;B=255
  elif [ $h -ge 240 ] && [ $h -lt 300 ] ;then
    F=$[$[$h - 240] * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=$T ;G=$P ;B=255
  elif [ $h -ge 300 ] && [ $h -lt 360 ] ;then
    F=$[$[$h - 300] * 255 / 60]
    P=0
    Q=$[255 - $F]
    T=$F
    R=255 ;G=$P ;B=$Q
  fi
  echo "($R $G $B)"
done

(Code) seq-text.scm

(
 (define (my-indexget List i)
   (let*
       (
        (j 0)
        )

     (while (< j i)
            (set! List (cdr List))

            (set! j (+ j 1))
            )
     (car List)
     ))

 (define (my-seq-filename-jpg N i)
   (let*
       (
        (str_i (number->string i))
        (LEN_i (string-length str_i))
        (LEN_N (string-length (number->string (- N 1))))
        (N_zero (- LEN_N LEN_i))
        (Zeros)
        (i)
        )

     (set! Zeros "")
     (set! i 0)
     (while (< i N_zero)
            (set! Zeros (string-append Zeros "0"))
            (set! i (+ i 1))
            )
     (string-append "src/text/" Zeros str_i ".jpg")
     ))

 (define (seq-text Lists)
   (let*
       (
        (W 704) (H 396)
        (fontsize 64)
        (font "DejaVu Sans Mono Bold")

        (theImage
         (car
          (gimp-image-new W H RGB)
          ))
        (theLayer
         (car
          (gimp-layer-new
           theImage
           W H
           RGBA-IMAGE
           "base"
           100
           NORMAL
           )))

        (N) (i 0)
        (List)
        (Color)
        (Color_inv)
        (text)

        (theText)
        (w) (h)
        (offset_x) (offset_y)

        (filename)
        )

     (gimp-image-add-layer theImage theLayer 0)

     (set! N (length Lists))
     (while (< i N)
            (set! List (my-indexget Lists i))
            (set! Color (car List))
            (set! Color_inv (car (cdr List)))
            (set! text (car (cdr (cdr List))))
            (gimp-context-set-background Color)
            (gimp-drawable-fill theLayer BACKGROUND-FILL)
            (gimp-context-set-foreground Color_inv)
            (set! theText
                  (car
                   (gimp-text-fontname
                    theImage theLayer
                    0 0
                    text
                    0
                    TRUE
                    fontsize PIXELS
                    font
                    )))
            (set! w (car (gimp-drawable-width theText)))
            (set! h (car (gimp-drawable-height theText)))
            (set! offset_x (/ (- W w) 2))
            (set! offset_y (/ (- H h) 2))
            (gimp-layer-set-offsets theText offset_x offset_y)
            (gimp-floating-sel-anchor theText)

            (set! filename (my-seq-filename-jpg N i))
            (file-jpeg-save
             1 theImage theLayer filename filename 1 0 0 0 "" 0 0 0 0)

            (set! i (+ i 1))
            )
     ))

 (seq-text '(<lists>))
 (gimp-quit 0)
 )

(Code: sh) seq-text

#!/bin/sh

FILE=src/text.txt
if [ ! -f $FILE ] ;then
  echo "Error: file \"$FILE\" not exist" >&2
  exit 1
fi

LISTS=`cat $FILE |tr '\n' ' '`
cat script/seq-text.scm \
    |sed -e 's/;.*//g' -e 's/<lists>/'"$LISTS"'/' \
    |gimp -i -b -