mieki256's diary

• $hnfdir に、hnfファイルが入ってるディレクトリを指定。(例: ~/diary/)
• $cattxtdpath に、cat.txt が入ってるディレクトリを指定。(例: ~/.public_html/diary/cat/)
• $lock_dir に、処理中のロックディレクトリのパスを指定。(例: ~/diary/log/update_hnf_cat_lock)

perl update_hnf_cat.pl
or
./update_hnf_cat.pl

perl update_hnf_cat.pl --clean
or
./update_hnf_cat.pl --clean

• Windows10 x64 22H2 + Strawberry Perl 5.32.1.1-x64
• Debian Linux 10 buster + Perl 5.28.1 i686

import tkinter as tk

text = "This message is temporary.\nIt is displayed using tkinter's root."
title = "Title"

root = tk.Tk()
lbl = tk.Label(root, text=text, font=("Consolas", 20), justify="left")
lbl.pack()

btn = tk.Button(root, text="OK", command=root.destroy, font=("Consolas", 14))
btn.pack()

root.mainloop()

• Label や Button に対しては、font=("フォント種類", フォントサイズ) が指定できる。
• Label 内で、改行を含む複数行を表示、かつ、左揃えにしたい場合、justify="left" を指定する。
• root.destroy() を呼べば、ルートウインドウを破棄できる。(.mainloop() から抜ける？)

import tkinter as tk


def close_win(e):
    root.destroy()


text = "This message is temporary.\nIt is displayed using tkinter's root."
title = "Title"

root = tk.Tk()

lbl = tk.Label(root, text=text, font=("Consolas", 20), justify="left")
lbl.pack()

btn = tk.Button(root, text="OK", command=root.destroy, font=("Consolas", 14))
btn.pack()

btn.focus()

root.bind("<Return>", lambda e: close_win(e))
root.bind("<Escape>", lambda e: close_win(e))

root.mainloop()

• .bind() で、キーの割り当てができる。
• .focus() で、そのウィジェットをあらかじめフォーカスしておくことができる。

cvt 1600 900 59
or
cvt 1600 900

$ cvt 1600 900 59
# 1600x900 58.93 Hz (CVT) hsync: 55.04 kHz; pclk: 116.25 MHz
Modeline "1600x900_59.00"  116.25  1600 1696 1856 2112  900 903 908 934 -hsync +vsync

$ cvt 1600 900
# 1600x900 59.95 Hz (CVT 1.44M9) hsync: 55.99 kHz; pclk: 118.25 MHz
Modeline "1600x900_60.00"  118.25  1600 1696 1856 2112  900 903 908 934 -hsync +vsync

xrandr --newmode "1600x900" 116.25  1600 1696 1856 2112  900 903 908 934 -hsync +vsync
or
xrandr --newmode "1600x900" 118.25  1600 1696 1856 2112  900 903 908 934 -hsync +vsync

xrandr --addmode Virtual1 "1600x900"

sudo vi /etc/profile.d/mydisplay.sh

xrandr --newmode "1600x900" 118.25  1600 1696 1856 2112  900 903 908 934 -hsync +vsync
xrandr --addmode Virtual1 "1600x900"

• DAZ80.EXE
• DISASM.HLP
• DISASM4.DOC

msdos DAZ80.exe hoge.bin

;MS-DOS Dis-Assem ( Z80 )     #1 < 1z009a.bin >


                        ORG     00000H

                L0000:                          ;006D   ;0528   ;071D   ;0E4D
0000 C34A00             JP      L004A           ;ﾃJ.

                L0003:                          ;00B8   ;012B
0003 C3E607             JP      L07E6           ;ﾃ..

                L0005   EQU     00005H          ;0063

0006 C30E09             JP      L090E           ;ﾃ..

                L0009:                          ;0098   ;00AD   ;010D   ;0451
                                                ;05FA   ;06C3   ;0F75   ;0FA1
0009 C31809             JP      L0918           ;ﾃ..

Dasmx.exe -cZ80 -o 0x0000 hoge.bin

• -cZ80 で、Z80用として逆アセンブルする。
• -o 0x0000 で、開始用アドレスを指定。

                                ;
                                ;       Disassembled by:
                                ;               DASMx object code disassembler
                                ;               (c) Copyright 1996-2003   Conquest Consultants
                                ;               Version 1.40 (Oct 18 2003)
                                ;
                                ;       File:           1z009a.bin
                                ;
                                ;       Size:           4096 bytes
                                ;       Checksum:       B849
                                ;       CRC-32:         255C5074
                                ;
                                ;       Date:           Sat Jun 08 10:00:51 2019
                                ;
                                ;       CPU:            Zilog Z80 (Z80 family)
                                ;
                                ;
                                ;
                                        org     00000H
                                ;
0000                            L0000:
0000 : C3 4A 00         " J "           jp      L004A
0003                            L0003:
0003 : C3 E6 07         "   "           jp      L07E6
0006 : C3 0E 09         "   "           jp      L090E
0009                            L0009:
0009 : C3 18 09         "   "           jp      L0918
000C                            L000C:
000C : C3 20 09         "   "           jp      L0920
000F : C3 24 09         " $ "           jp      L0924
0012                            L0012:
0012 : C3 35 09         " 5 "           jp      L0935
0015 : C3 93 08         "   "           jp      L0893

• 自動ウェルド : 描画中に別のポイントに近付いたら、自動的にそのポイントと結合するかどうか。
• 自動塗りつぶし : 線が閉じたら、自動的に塗りつぶしするかどうか。
• 自動ストローク : 線が閉じたら、自動的にストローク(境界線)を描画するかどうか。
• コーナーをシャープ : 頂点と頂点の間を直線で結ぶか、曲線で結ぶか。

• 変形ツールの遠近法？だかで、上辺896ドット、下辺1792ドットの台形画像を作成。
• 真ん中あたりから、896 x 160ドットぐらいをクリップ。

• 台形画像を作る際、下辺の長さを、上辺の2倍の長さにすると、処理や計算が楽。
• 最終的に必要な画像の横幅は、ウインドウサイズ＋グリッドサイズ(64ドット) x 4 にしておくと楽。

#
# ラスタースクロール用BGの下絵画像を生成して保存する。
# 天井、壁、床、の3つの画像を保存する。
#

require 'dxruby'

# ----------------------------------------
# 定義部分

wdw_w = 640 # ウインドウ横幅
wdw_h = 480 # ウインドウ縦幅

cw = 128 / 2 # 1マス分のドットサイズ

h0 = 32 * 5
h2 = 32 * 5
h1 = wdw_h - h0 - h2

w = wdw_w + cw * 4 # 画像横幅

# 出力ファイル名
output_fname = [
  "bg_ras_a_base.png",
  "bg_ras_b_base.png",
  "bg_ras_c_base.png",
]

# 定義部分ここまで
# ----------------------------------------

# 新規画像作成
img0 = Image.new(w, h0, [0, 0, 0, 0])
img1 = Image.new(w, h1, [0, 0, 0, 0])
img2 = Image.new(w, h2, [0, 0, 0, 0])

# 線を引く
cx = w / 2
0.step(cx, cw) do |d|
  a0 = d
  a1 = d * 2
  img0.line(cx + a1, 0, cx + a0, h0, C_WHITE)
  img0.line(cx - a1, 0, cx - a0, h0, C_WHITE)

  img1.line(cx + a0, 0, cx + a0, h1, C_WHITE)
  img1.line(cx - a0, 0, cx - a0, h1, C_WHITE)

  img2.line(cx + a0, 0, cx + a1, h2, C_WHITE)
  img2.line(cx - a0, 0, cx - a1, h2, C_WHITE)
end

# 保存する
img0.save(output_fname[0])
img1.save(output_fname[1])
img2.save(output_fname[2])

font = Font.new(14)

# 表示して確認
Window.loop do
  break if Input.keyPush?(K_ESCAPE)

  x = (Window.width - w) / 2
  y = 0

  Window.draw(x, y, img0)
  y += img0.height

  Window.draw(x, y, img1)
  y += img1.height

  Window.draw(x, y, img2)
  y += img2.height

  [
    output_fname[0],
    output_fname[1],
    output_fname[2],
    "を保存しました"
  ].each_with_index do |s, i|
    Window.drawFont(4, 4 + i * 20, s, font)
  end
end

1. 128x128の画像を作成。これが1マス分。
2. フィルタ → マップ → 並べる、で、1792 x 640 ドットの画像を作成。
3. 遠近法ツールで、遠近感がついた台形に変形。ガイドを作って、頂点をガイドに合わせるようにすれば作業が少し楽。x=448,x=1344の位置にガイドを作ればいいのかな。
4. ガイドの作り方は、画像 → ガイド → 新規ガイド。それと、表示 → ガイドにスナップ、にチェックが入っていること。
5. 変形できたら、矩形選択ツールで、必要な部分だけコピー。
6. ファイル → 画像の生成 → クリップボードから、を選べば新規画像ができる。
7. ブレンドツール(グラデーションを塗るツール)や、色調整で、見た目を修正。

# Shaderを使ってラスタスクロールのテスト
# 天井、壁、床をラスタースクロールさせるっぽい感じの処理
# 画像を読み込んで表示する版

require 'dxruby'

class BgRasterScroll3

  attr_accessor :gridsize
  attr_accessor :imgs
  attr_accessor :shaders

  # コンストラクタ
  #
  # @param [Number] gridsize 1マス分のドットサイズ
  # @param [Array] imgs 天井、壁、床のImageオブジェクトを配列に入れて渡す
  #
  def initialize(gridsize, imgs)
    hlsl = <<EOS
  float2 size;
  float d;
  float dd;
  texture tex0;

  sampler Samp0 = sampler_state
  {
    Texture =<tex0>;

    // こっちだと画面がチラチラする (´･ω･｀)
    // MinFilter = LINEAR;
    // MagFilter = LINEAR;
    // MipFilter = LINEAR;

    // こっちならチラチラしない
    MinFilter = POINT;
    MagFilter = POINT;
    MipFilter = NONE;

    AddressU = WRAP;
    AddressV = WRAP;
  };

  struct PixelIn
  {
    float2 UV : TEXCOORD0;
  };

  struct PixelOut
  {
    float4 Color : COLOR0;
  };

  PixelOut PS1(PixelIn input)
  {
    PixelOut output;
    input.UV.x = input.UV.x + ((d + (d * input.UV.y * dd)) / size.x);
    output.Color = tex2D( Samp0, input.UV );
    return output;
  }

  PixelOut PS2(PixelIn input)
  {
    PixelOut output;
    input.UV.x = input.UV.x + ((d + (d * (1.0 - input.UV.y) * dd)) / size.x);
    output.Color = tex2D( Samp0, input.UV );
    return output;
  }

  PixelOut PS3(PixelIn input)
  {
    PixelOut output;
    input.UV.x = input.UV.x + d / size.x;
    output.Color = tex2D( Samp0, input.UV );
    return output;
  }

//   float4 PS(float2 input : TEXCOORD0) : COLOR0
//   {
//     float4 output;
//     // input.x -= ((d / size.x) + ((d / size.x) * input.y * dd));
//     input.x = input.x - ((d + (d * input.y * dd)) / size.x);
//     output = tex2D( Samp0, input);
//     return output;
//   }

  technique FloorScroll
  {
    pass P0
    {
      PixelShader = compile ps_2_0 PS1();
    }
  }
  technique CeilingScroll
  {
    pass P0
    {
      PixelShader = compile ps_2_0 PS2();
    }
  }
  technique WallScroll
  {
    pass P0
    {
      PixelShader = compile ps_2_0 PS3();
    }
  }
EOS

    core = Shader::Core.new(hlsl, {:size=>:float, :d=>:float, :dd=>:float})
    self.shaders = []
    self.imgs = []
    self.gridsize = gridsize

    shader_names = [
      ["CeilingScroll", 1.0],
      ["WallScroll", 1.0],
      ["FloorScroll", 1.0]
    ]

    shader_names.each_with_index do |dt, i|
      sname, dd = dt
      img = imgs[i]
      self.imgs.push(img)
      shr = Shader.new(core, sname)
      shr.size = [img.width, img.height]
      shr.d = 0 # スクロール量
      shr.dd = dd # 上辺と下辺で、x方向に何ドットずれるか
      self.shaders.push(shr)
    end
  end

  # スクロール量を更新
  #
  # @param [Number] d スクロール量
  #
  def update(d)
    d = (d % self.gridsize)
    self.shaders.each do |shr|
      shr.d = d
    end
  end

  # 描画
  #
  # @param [Number] bx 描画位置 x
  # @param [Number] by 描画位置 y
  #
  def draw(bx, by)
    x, y = bx - self.gridsize * 2, by
    3.times do |i|
      Window.drawShader(x, y, self.imgs[i], self.shaders[i])
      y += self.imgs[i].height
    end
  end

end


if __FILE__ == $0
  # ----------------------------------------
  # 動作確認

  imgs = []

  # 画像ファイル名一覧に従って画像ロード
  [
    "bg_ras_a.png", # 天井
    "bg_ras_b.png", # 壁
    "bg_ras_c.png" # 床
  ].each {|fn| imgs.push(Image.load(fn)) }

  # ラスタースクロール用オブジェクトを発生
  ras = BgRasterScroll3.new(64, imgs)

  # 柱スプライトを発生
  pole = Image.load("pole.png")
  sprs = []
  4.times do |i|
    spr = Sprite.new(i * (96 * 2) + 72, 480 - (160 /2) - 128 + 8, pole)
    sprs.push(spr)
  end

  font = Font.new(14)
  x = 0
  Window.loop do
    break if Input.keyPush?(K_ESCAPE)

    # マウス位置に応じてスクロール量を変化
    dx = ((Window.width / 2) -  Input.mousePosX).to_f / Window.width * 32
    x -= dx
    ras.update(x) # スクロール量を指定

    ras.draw(0, 0) # 描画

    # 柱を描画
    tdx = dx + dx * 0.5
    sprs.each do |spr|
      spr.x += tdx
      spr.x += Window.width + 128 if dx < 0 and spr.x + 64 < 0
      spr.x -= (Window.width + 128) if dx > 0 and spr.x > Window.width
    end

    Sprite.update(sprs)
    Sprite.draw(sprs)

    Window.drawFont(4, 4, "dx = #{dx} , x = #{x}", font)
  end
end

# BgRasterScroll3.rb の呼び出しテスト

require 'dxruby'
require_relative 'bgrasterscroll3'

imgs = []
[
  "bg_ras_a_base.png", # 天井
  "bg_ras_b_base.png", # 壁
  "bg_ras_c_base.png" # 床
].each {|fn| imgs.push(Image.load(fn)) }

ras = BgRasterScroll3.new(64, imgs)

x = 0
Window.loop do
  break if Input.keyPush?(K_ESCAPE)

  ras.update(x) # スクロール量を指定
  ras.draw(0, 0) # 描画
  x += 3
end

Could not move mode "JavaScript Mode" to the sketchbook.

Could not delete C:\home\prg\Processing\modes\mode3187443478460851517tmp\JavaScriptMode\keywords.txt
Could not delete C:\home\prg\Processing\modes\mode3187443478460851517tmp\JavaScriptMode\mode\JavaScriptMode.jar
Could not delete C:\home\prg\Processing\modes\mode3187443478460851517tmp\JavaScriptMode\mode
Could not delete C:\home\prg\Processing\modes\mode3187443478460851517tmp\JavaScriptMode
Could not delete C:\home\prg\Processing\modes\mode3187443478460851517tmp

• 一般的には、CD販売＋パスワードで、という形で済ませるだろうけど。それだとCDコピー・パスワード流出流用で不正利用ができてしまう。
• サーバを用意してネット経由でアクティベーションする形では、サーバとサーバアプリを用意する分、ソフト提供側の負担も大きくなるだろうし。
• ハードウェア構成と紐づけてのパスワード生成は、同じハードウェア構成の環境下で不正利用ができてしまう。
• ハードウェア構成とOS環境の両方と紐づけてパスワード生成すると、ドライバ更新しただけで不正利用とみなされてしまったりして、ユーザ側が不便極まりない。

使い方はいとも簡単で、PCを起動すると同時に横のヒモを引っぱるだけ…そうすると「ガチャッ」という音と共に上の蓋が開いて内部の熱は物凄い風量とともに、外へ追い出されるワケである。

DLNA は、パソコンやデジタル家電などを相互接続してネットワークを組むための標準方式を定めようという業界団体。メーカーが異なる家庭内のパソコンやテレビ、DVDレコーダー、モバイル機器などをつないで映像や音楽などのデータをやり取りできるようにしようとしている。そのために、データの圧縮方式や転送方式の標準化を進めている。

この構想が実現すると、パソコンに保存してある映像をテレビで見たり、DVDレコーダーに保存してある映像を PDA に取り出して出先で見るといったことが簡単にできるようになる。

$ diff -c continuous-save.scm.orig continuous-save.scm
*** continuous-save.scm.orig    Mon Jun  7 19:21:06 2004
--- continuous-save.scm Mon Jun  7 21:53:30 2004
***************
*** 83,88 ****
--- 83,89 ----
                )
  
        ;; create an image with single layer, and remove the layer mask (if exists)
+               (gimp-drawable-fill tmp-layer TRANS-IMAGE-FILL)
            (gimp-image-add-layer tmp-img tmp-layer 0)
            (gimp-edit-copy layer)
            (gimp-floating-sel-anchor (car (gimp-edit-paste tmp-layer 0)))