なんとなく、ふわっと・・

写真と画像処理関係とひとりごとをなんとなく書き溜めていきたい

とんぼ、再々

2007-08-28 00:27:12 | rinkaku
Flickr にアップロードした画像から。


つくば実験植物園にて。



処理前に median、処理中に KuwaharaDetail、処理後に再び median でノイズカット。
手描きの水墨画風になったが、写真特有の微細構造が失われている。
これはこれで味があるが、やはり、原画像まで遡って処理しないとだめだ。

Comment

てすと

2007-08-28 00:19:28 | その他
プログラムコードの表示のためのスタイルシート編集

uses
  Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
  i:integer;
  state:Boolean; // true in <pre>
begin
  state := false;
  sl := TStringList.Create;
  try
    for i := 0 to Memo1.Lines.Count-1 do
    begin
      if not state then
      begin
        if Length(Memo1.Lines[i]) = 0 then
        begin
          sl.Add('<br>');
          continue;
        end;
        if Memo1.Lines[i][1] = '#' then
        begin
          sl.Add('<big><pre>');
          state := true;
        end
        else
          sl.Add(Memo1.Lines[i]+'<br>');
      end
      else
        if (Length(Memo1.Lines[i])>0) and (Memo1.Lines[i][1] = '#') then
        begin
          sl.Add('</pre></big>');
          state := false;
        end
        else
          sl.Add(Memo1.Lines[i]);
    end;
    Clipboard.SetTextBuf(PChar(sl.Text));
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
end;


pre タグのためのスタイルシートを設定した。
いろいろ試して、以下のようにした。

/* custom pre */
pre { padding: 1.5em;
      color: #eeeeee;
      font-size: 85%; 
      line-height: 97%;
      background-color: #445577;    
}
Comment

また、とんぼ

2007-08-28 00:14:20 | 写真

乙戸沼公園、土浦市

懲りずにとんぼ。

これの rinkaku 画像。手動ノイズリダクションした。



つぎは、前回のトンボのもの。KuwaharaDetail でノイズカット。



うーーん、オリジナルをつかって再トライすることにしよう・・・

Comment

R

2007-08-28 00:11:42 | rinkaku




Comment

ガマ

2007-08-28 00:09:34 | 写真


筑波山神社参道の売店にて。

筑波山の象徴である。信楽焼きだそうだ。
こどもを背負っているのは子孫繁栄への願い。
少子化の昨今ではアナクロだが、こどもの成長を祈るのならこれは永遠に親の願い。

Comments (2)