mieki256's diary

    ; sx, sy, sw, sh : 転送元の x, y, 幅, 高さ
    ; dx, dy, dw, dh : 転送先の x, y, 幅, 高さ
    ; srcid : 転送元イメージバッファID
    ; dstid : 転送先イメージバッファID
    ; tmpid : 仮イメージバッファID

    switch zoom_kind@
    case 0
        ; gzoomで処理
        ; gzoom は透明色を扱えない(gmode設定が反映されない)ので小技が必要
        ; 一旦、仮バッファに拡大縮小描画する
        gsel tmpid
        pos 0, 0
        gzoom dw, dh, srcid, sx, sy, sw, sh, 0

        ; 仮バッファから実スクリーンに gcopy で転送
        ; gcopy なら RGB=(0,0,0) を透明色として扱える
        gsel dstid
        gmode gmode_rgb0    ; RGB=(0,0,0)を透明色として扱う
        pos dx, dy
        gcopy tmpid, 0, 0, dw, dh
        swbreak

    case 1
        ; grotateで処理
        ; grotate なら一発で透明色(RGB=(0,0,0))を扱えるので処理が速い
        ; その代わり精度が荒くて描画結果がプルプルと震える
        gsel dstid
        gmode gmode_rgb0, sw, sh            ; 転送元サイズをここで指定
        pos dx + (dw / 2), dy + (dh / 2)    ; 中心座標を転送先座標として指定
        grotate srcid, sx, sy, 0, dw, dh    ; 転送元座標、転送先サイズを指定
        swbreak

    case 2
        ; gsquareで描画
        ; gsquareも一発で透明色(RGB=(0,0,0))を扱えるので処理が速い
        ; その代わりこれも精度が荒い。プルプルする
        dim _dx, 4
        dim _dy, 4
        dim _sx, 4
        dim _sy, 4
        
        ; 転送先座標
        _dx(0) = dx
        _dy(0) = dy
        _dx(1) = dx + dw - 1
        _dy(1) = dy
        _dx(2) = dx + dw - 1
        _dy(2) = dy + dh - 1
        _dx(3) = dx
        _dy(3) = dy + dh - 1
        
        ; 転送元座標
        _sx(0) = sx
        _sy(0) = sy
        _sx(1) = sx + sw - 1
        _sy(1) = sy
        _sx(2) = sx + sw - 1
        _sy(2) = sy + sh - 1
        _sx(3) = sx
        _sy(3) = sy + sh - 1
        
        gsel dstid
        gmode gmode_rgb0
        gsquare srcid, _dx, _dy, _sx, _sy
        swbreak
    swend

• gzoom 利用時は、仮想画面サイズを 1280x720 にすると 15FPSが限界だった。
• grotate、gsquare 利用時は、仮想画面サイズを 1280x720 にしても 30FPSが出せた。

• bwBASIC
• Chipmunk Basic
• FreeBASIC
• Basic-256
• Yabasic
• SmallBASIC(非Microsoft版、GPL版)
• sdlBasic
• Gambas3

journalctl --disk-usage
sudo journalctl --vacuum-time=3days

sudo flatpak uninstall org.wxformbuilder.wxFormBuilder

• スクリプトを実行 : lua hello.lua
• 対話モード : lua - i
• 対話モード終了 : Ctrl+Z[enter]
• バイトコンパイル : luac -o hello.luac hello.lua
• バイトコンパイルされたファイルの実行 : lua hello.luac
• 実行ファイル(.exe)生成 : glue srluaのPATH スクリプトファイル名 生成ファイル名。ただし lua??.dll が実行ファイルと一緒に必要。

#!ruby -Ks
# 2つのディレクトリパスを渡して、サブディレクトリ名を取得後、比較。
# 同じディレクトリ名が存在したらリストアップする。
#
# usage : ruby dircmp_double.rb dir1 dir2

require "io/console"

$dbg = false

def usage
  puts "usage : ruby #{File.basename(__FILE__)} dir1 dir2"
  puts "  2つのディレクトリパスを渡して、サブディレクトリ名を取得後に比較。"
  puts "  同じディレクトリ名が存在したらリストアップする。"
  push_any_key
end

def push_any_key
  puts "\nPush Any Key"
  STDIN.getch
  exit
end

def get_filelist(path)
  puts "Search [#{path}]"
  flist = []
  Dir::entries(path).each do |f|
    next if f =~ /^\.{1,2}$/
    dirpath = path + "\\" + f
    if FileTest.directory?(dirpath)
      puts "[Dir]  #{f}" if $dbg
      flist.push(f)
    elsif FileTest.file?(dirpath)
      puts "[File] #{f}" if $dbg
    else
      puts "[Unknown] #{f}"
    end
  end
  puts " ... #{flist.length}"
  return flist
end

if ARGV.length != 2
  puts "引数の数が違います。"
  ARGV.each do |s|
    puts "[#{s}]"
  end
  usage
end

dirs = []
ARGV.each do |f|
  if FileTest.directory?(f)
    puts "[BaseDir] #{f}" if $dbg
    dirs.push(f)
  else
    puts "#{f} はディレクトリではありません"
    usage
  end
end

a = get_filelist(dirs[0])
b = get_filelist(dirs[1])

duplist = []
a.each do |sa|
  b.each do |sb|
    duplist.push(sa) if sa == sb
  end
end

puts
if duplist.length == 0
  puts "重複ディレクトリ名は見つかりませんでした。"
else
  puts "重複ディレクトリ名 : "
  puts '-' * 40
  duplist.sort.each do |s|
    puts "    #{s}"
  end
end

push_any_key

require 'irb/completion'

IRB.conf[:IRB_RC] = "C:\ホームディレクトリ\.irbrc"

734 名前： nobodyさん 投稿日： 02/04/22 07:01 ID:LmMZGpbz
>>731
ウインドウの左上に表示されるTkのアイコン（？）がダサいよね。
あれ他のアイコンに変えられないかな？

-------------
|TK
-------------
|
|
|
|

735 名前： _gunzip 投稿日： 02/04/22 21:19 ID:???
>>734
my $image = $mw->Pixmap(-file => "title.xpm");
$mw->Icon(-image => $image);
# ないし、$mw->iconimage($image);

736 名前： _gunzip 投稿日： 02/04/22 21:21 ID:???
my $iconImage = $mw->Photo(-file => "icon.gif");
でもよろし

CGIに依存しないPerlの話題一般 より

1/2/5plの3サイズのインクを吐出できる「3サイズドロップレット技術」、および後端領域で使用するノズル数を増加する「Wエンコーダーシステム」を採用することにより、印刷速度を高速化した。従来機種ではL判フチなし印刷で約32秒だったが、新機種では18秒で印刷可能。

キヤノン、L判フチなしを約18秒で印刷可能なインクジェット「iP4500」 より

おれが厭で仕方ないことは、要するに何事の善し悪しも漠然とした印象で決められてしまうことなんです。根拠のない理由を理由に、｢これはこういうものだ｣と言われてしまうことなんです。

例えば｢DVDの画質は何故良くなったのか｣と問えば、｢デジタルだから｣なんて返答が平気で罷り通ってるわけです。もっと悪いものだと｢DVDだから｣と言うことも。

00年代前半、MPEGキャプチャに焦れたり、熱中した人間からすれば、そんなことはないことが明らかなのに、それ以下の体験しか持たない人たちが、経験者以上の自信と確信を持って｢これはこういうことだ｣と言い切ってしまうこと。

或いは経験が少ないからこそ言い切れるのかも知れないです。ただ、このことが気持ち悪くて、怖くて、そしてその根っこに横たわるものによって受けた様々な事柄が胃の中を熱くして仕方ない。

sside.net: 我が不満の日々 より

録音、撮影といった行為の時点で、ぼくらは、非可逆への暗黙的了解をしてしまっているのかもしれない。その時点でオリジナルは劣化コピーと化し、二度と再現することはできなくなる。

山田祥平のRe:config.sys より

デジタルがぼくらの生活にもたらした恩恵は決して少なくはないが、それによって、失ったものも多い。

山田祥平のRe:config.sys より

# URL -> 名前 への変換マップ・ファイル(正規表現)
my $url_map_regexp = "$diaryDir/conf/url_map_regexp.txt";

my %urlnameregexp;

    if (-f $url_map_regexp) {
        open(URLMAPREGEXP,"$url_map_regexp") || die "Can't Open URLMapRegexp File: $url_map_regexp: $!";
        while (<URLMAPREGEXP>) {
            CodeConv::toeuc(\$_);
            $urlnameregexp{$1} = $2 if (/^(\S+)\s+(.+)$/);
        }
        close(URLMAPREGEXP);
    }

            # 正規表現でURL->名前変換
            my $refname = $_;
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ( $fg == 0 && exists($urlname{$_})) {
                $refname = $urlname{$_};
            }

            # 正規表現でURL->名前変換
            my $refname = $REFERER[$j];
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( $refname =~ /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ($fg == 0 && exists($urlname{$REFERER[$j]})) {
                $refname = $urlname{$REFERER[$j]};
            }

b.hatena.ne.jp/keyword/(.*)$ はてブ:キーワード

MIDIPLUGを要求するページを自分のWEBサイト内においたまま配布を中止するのは最低と言える…。ちゃんと代替手段を提供してほしいと思う。

そもそもMIDPLUGってEMBEDタグでMIDIファイルの再生をページに埋め込む機能のためのもので、それにおまけで期間限定のXGソフトシンセが付属してるだけ。例えばMIDPLUGとMSシンセやVSCを組み合わせることも可能。

しかし実は今はWMPをインストールするとMIDPLUGをインストールしなくてもEMBEDタグをちゃんと解釈してくれる(見かけはクソになるが)ので、MIDPLUGの役割は事実上終わったと言っていいかもしれない。実際いつのまにか使わなくなってしまったし。

> MIDPLUG以外に再生用プラグインってありましたっけ？

QuickTime [apple.co.jp] なんてどうでしょう ? Mac 版だけでしょうか。はじめのころとくらべると、音質もずいぶんよくなっているようです。音源は Roland が提供だったような。

<embed src="music.mid" autostart="true" hidden="false" loop="true" type="audio/midi">

サウンド : サンプラー、演算波形、PCM、ノイズから8音

ディスクシステムの看板ソフト。FM音源のあの音、当時には子供心に衝撃的なクオリティでした。

ファミコン本体では矩形波など限られた音色しか出せなかったサウンド機能のためにPWM音源が搭載されて

ディスクシステム独特のFM音源のサウンドもしっかりと再現されているようだ。

NTT中央パーソナル通信網株式会社（NTTパーソナル中央）は、97年7月1日より実用化試験を実施している「位置情報サービス」の試験提供区域を、