mieki256's diary

青画面の英文メッセージを読むと「ビデオカードを変更してみろ」とか言われてるように思えるのだけど。うーむ。

◎ _440BXで動作確認されたビデオカードまとめページ :

◎ いきなりCPUファンのあたりが耳障りな音が聞こえてきた :

◎ _モニタソフト紹介 :

◎ PL-iP3/T Ver.2.0に取り付け可能なCPUファンを検索 :

◎ FANだけ交換ってわけにはいかんのだろうか :

書いておかないと忘れそうなのでメモ。とりあえずメールを送って知らせたり。

数字の書かれた画像が欲しかったので、 _:: Cepheid :: - PerlMagickリファレンス と _PerlMagick + CGI のページを参考に、Perlスクリプトを作成。

#!/usr/bin/perl
# Last updated: <2005/11/16 15:57:04 +0900>
#
# 100 x 2 枚の数値が書かれた画像を作る
# PerlMagick(ImageMagick)を使用

use strict;
use Image::Magick;

for ( my $i=0; $i<=100; $i++ ) {

    my $str = sprintf("%03d",$i);
    my $text = $str;
    my $fname_omote = "./".$str.'a.png';
    my $fname_ura   = "./".$str.'b.png';

    my $basefile = 't' . ($i % 3) . '.tif';     # 't1.tif' etc
    
    my $image = Image::Magick->new;
    
    $image->Set(size=>'120x120');
    $image->Read($basefile);
    # $image->ReadImage('xc:white');
    # $image->AddNoise('Impulse');
    # $image->Blur(radius=>5, sigma=>0.5);
    $image->Annotate(font=>'impact.ttf', pointsize=>48, stroke=>'white', strokewidth=>2, fill=>'black', antialias=>'true', text=>$text, gravity=>'Center');

    $image->Write($fname_omote);

    # $image->Colorize(fill=>'olive', opacity=>'128');
    $image->Negate();
    $image->Write($fname_ura);
    
    undef $image;

    print "make $fname_omote, $fname_ura\n";
}

exit;

t0.tif 〜 t2.tif を読み込んで、それら画像の上に順々に数字を書き込んで、別画像として出力。スクリプトのあるディレクトリに、利用するフォントファイル(.ttf) をコピーしてから使う。

要するに、 こういう画像から、


こういう画像を作る。

色々とメモ。

◎ _Resynthesizer - Gimp plug-in for texture synthesis :

◎ _GIMP - 未圧縮AVI入出力プラグイン :

◎ GIMPのモーションぼかし「拡大」って :

参考にして、時刻だけ挿入する指定を .xyzzy に。

(defun insert-my-time-string()
  (interactive)
  (insert (format-date-string "%H:%M:%S")))

(global-set-key '(#\C-x #\t #\t) 'insert-my-time-string)

忘れそうなので、メモ。

loadMovie() の使い方がなんとなくわかったような。

◎ _ローディングの表示(getBytesLoaded と getBytesTotal) FLASHRAVE FLASH　講座 :