mieki256's diary

◎ しょーもない妄想。 :

-- love2d bit operation test

bit = require("bit")

function love.load()
  tm = 0
  v = 0
end

function love.update(dt)
  tm = tm + dt
  local st = 0.2
  if tm >= st then
    tm = tm - st
    v = bit.band(v + 1, 0x0f)
  end
end

function love.draw()
  love.graphics.clear(0, 0.25, 0.5, 1.0)

  local s = ""
  for i=0,3 do
    local msk = bit.lshift(1, i)
    if bit.band(v, msk) == 0 then
      s = "0"..s
    else
      s = "1"..s
    end
  end

  love.graphics.print(s, 10, 40)
end

function love.keypressed(key, isrepeat)
  if key == "escape" then
    -- ESC to exit
    love.event.quit()
  end
end

function love.conf(t)
  t.window.title = "Bit operation test - love2d"
  t.window.vsync = true
  t.window.width = 320
  t.window.height = 240
  -- t.window.fullscreen = true
  -- t.window.fullscreentype = "exclusive"
end

love フォルダ名

◎ 少し解説。 :

> lua -i
Lua 5.3.4  Copyright (C) 1994-2017 Lua.org, PUC-Rio
> bit32.band(7, 3)
3
> bit32.bor(1, 4)
5
> bit32.lshift(8, 1)
16
> bit32.rshift(8, 1)
4

local bit = require("bit")

local a = bit.band(7, 3)

◎ 画像管理ソフトの差別化は難しい。 :

• Celeron B820 というゴミみたいなCPUが載ってるし。
• メモリは少ない上に、メモリ増設作業をした人の知識が無かったのか、デュアルチャネルで動かせるはずのところを何故かシングルチャネルで動かしてるし。
• HDDだから遅いし。
• 富士通製だから要らないアプリがてんこもりで、バックグラウンドで謎のサービスが色々動いててますます遅いし。
• しかも、Windows8.1…。(一応、Windows8からアップグレードはしてある。)

sudo apt install mediatomb

sudo vi /etc/default/mediatomb

NO_START="no"
# MT_INTERFACE="lo"
MT_INTERFACE="eth0"

sudo vi /etc/mediatomb/config.xml

sudo systemctl start mediatomb
sudo systemctl stop mediatomb
sudo systemctl restart mediatomb

◎ 動作確認。 :

◎ 参考ページ :

◎ REGZAからは見えなかった。 :

“/etc/mediatomb/config.xmlにある”protocolInfo extend”を”no”から”yes”に変更して、MediaTombをリスタート。

DLNAサーバーを試す[MediaTomb][ubuntu]編 - REGZAへ認識させる | デジ備忘 より

◎ 3DCGソフトで疑似的にシミュレーションしてみる。 :

ということで、無料で使える3DCGソフト、blenderを使って、実際にできそうなのかどうか試してみたり。

模様が描かれた背景画を置いて、その手前に、スリットが開いてる板を置く。それを、前後に動くカメラで撮影していく…はず。そして、カメラはシャッターを開きっぱなしにして、長時間露光をしながら動かしていく。けれど、blenderで長時間露光なんてできないので、そこは後で全レンダリング画像を合成して疑似的に行うことにする。

カメラから眺めると、瞬間的には、以下のような画が見えているはず。

おお…。なんだか模様が3Dっぽく見えそうな。カメラが前後に動いてるから当たり前ではあるのかな。

120枚ほどレンダリング。

全画像を、GIMPのレイヤーとして開いて合成。以下のような画像になった。ちなみに今回は面倒臭くてGIMPを使ったけれど、この枚数なら ImageMagick を使って合成したほうがいいのかもしれない。

酷い見た目ではあるけれど、なんだかそれっぽくなりそうな予感がしてくる、そんな画像になった。

今回は3DCGソフトを使って、デジタル的にカメラを動かしてレンダリングしたので、結果画像もガタガタした見た目になっているけれど。フィルムカメラを長時間露光させながらアナログ的に動かしていけば、撮影される画像もアナログっぽく連続した状態になるから、ちゃんと滑らかに、立体的な画になるんだろうなと。

そして、フィルムの1コマ分をこうやって撮影したら、今度は背景画をほんの少し横に動かして、その状態でまた同じように1コマ分を撮影…ということをしていけば、背景画が立体的にスクロールしていく映像になるのかも。

しかしコレ、単に背景画を床に置いて、斜めから撮るようなカメラ位置にして、カメラを動かしていったらダメだったのだろうか…。いや、その場合、めちゃくちゃ長い背景画が必要になってしまうのかな…。

何はともあれ、今ならCGで作れる映像も、昔はこうやって作ってたんだなと…。

◎ GIMPスクリプトについてメモ。 :

◎ スリットスキャンというと。 :

# usage : ruby checkimage.rb IMAGE_FILE
#         ruby checkimage.rb DIR

DUMP_NORMAL = false

$err_count = 0

#
# 前述のページのソースをここにコピペ
#

def check_and_output(path)
  
  if FileTest.directory?(path)
    pathlist = []
    Dir::entries(path).each do |lpath|
      next if lpath =~ /^\.{1,2}$/
      lpath = path + "/" + lpath
      check_and_output(lpath)
    end
  elsif FileTest.file?(path)
    return unless path =~ /\.(gif|jpg|png)$/
    result = check_file(path)
    lpath = File.basename(path)
    if result[0] == :unknown
      puts "unknown : #{lpath}"
    elsif result[1] == :damaged
      puts "corrupted : #{lpath}"
      $err_count += 1
    elsif result[1] == :clean
      puts "normal : #{lpath}" if DUMP_NORMAL
    else
      puts "illegal : #{lpath}"
    end
  else
    puts "not found #{path}"
  end
end

def hit_enter_key
  puts "\nHit Enter Key"
  s = STDIN.gets
end

def usage
  puts "usage: ruby #{$0} IMAGE_FILE"
  puts "       ruby #{$0} DIR"
end

if $0 == __FILE__
  if ARGV.size == 0
    usage
  else
    ARGV.each do |path|
      puts "check #{path}"
      check_and_output(path)
    end
    puts "\ncorrupted : #{$err_count}"
  end
  
  hit_enter_key
  exit(0)
end

"Image file damage check"    cmd.exe /c ruby checkimage.rb "$P"

• cmd.exe /c hoge で、DOS窓を開いて hoge を実行。
• 「"$P"」で、あふで開いてるフォルダのパスが渡される。

◎ GAPは使えないらしい。 :

◎ G'MICも問題有り。 :

◎ pycファイルが作られる模様。 :

◎ テーマの色もまだ今一つ。 :

◎ アイコンファイルが不足してる気がする。 :

◎ GIMP 2.10.2の起動時にDOS窓が開いてしまうプラグイン。 :

◎ GIMP 2.10.2上で実行するとエラーが出てしまうプラグイン。 :

◎ GIMP 2.10.2上でメニューが出てこないプラグイン。 :

◎ GIMP 2.10.2上で使う際に注意が必要になりそうなプラグイン。 :

◎ GIMP 2.10.2の起動時にDOS窓が開いてしまうPython-Fuスクリプト。 :

◎ layerfxについて。 :

◎ GIMP 2.10.2 Portable の入力欄がおかしい。 :

• WHITE-IMAGE-FILL -> FILL-WHITE
• FG-IMAGE-FILL -> FOREGROUND-FILL
• BG-IMAGE-FILL -> BACKGROUND-FILL
• WHITE-MASK -> ADD-MASK-WHITE
• BLACK-MASK -> ADD-MASK-BLACK
• plug-in-bump-map の最後に与える値は数字のみ。LINEAR -> 0
• gimp-rect-select の operation は定義が変わってる。REPLACE -> CHANNEL-OP-REPLACE

◎ ノートPCについて。 :

◎ Windows8.1にする前に必要な作業。 :

◎ Windows8.1にする前にアンインストールしておくアプリ。 :

◎ Windows8.1にするための操作。 :

◎ Windows8.1にした後インストールするプログラム。 :

◎ Windows8.1にアップデートした後の注意点。 :

◎ 余談。Microsoft Officeについて。 :

◎ バッテリー交換できない気配を感じる。 :

• PC-6001版競馬ゲーム
• MZ-700版野球拳
• アーケード版ダライアスII
• ファミコン版グラディウスII

◎ PC-6001版競馬ゲーム。 :

◎ MZ-700版野球拳。 :

◎ アーケード版ダライアスII。 :

◎ ファミコン版グラディウスII。 :

◎ ゲーム内容はどうでもいいのかもしれない。 :

◎ EmuZ-700の導入の仕方。 :

◎ 野球拳2000を入手。 :

◎ EmuZ-700を実行。 :

◎ 野球拳2000を実行。 :

◎ ハドソン野球拳を実行。 :

従来、MZ-700エミュレータ "MZ700WIN" を十分に活用するためには、 ユーザ様ご自身で、実機上のモニタROMをイメージ化する必要がありましたが、 この度、MZ-700/80K/C/1200用互換モニタ MZ-NEW MONITOR(I/O '82年2月号 '83年9月号掲載・工学社刊)の開発者、 武蔵野マイコンクラブの高田 岳治様、町田 健治様より、同ソフトウェアのROMイメージの、 フリーソフトとしての公開にご快諾いただきました。

このソフトウェアの公開により、MZ-700の実機をお持ちでない方でも、オンラインで公開されているMZ用ソフトウェアをお楽しみいただけるようになりました。

使用許諾条件 より

◎ 感想。 :

◎ フォントのライセンスが気になる。 :

◎ この手のツールを昔メモしたような。 :

◎ ウルトラマンの責任問題。 :

アメリカでは，スミソニアン博物館に保管されているコンピュータ第1号機ENIACをはじめとして，各地のコンピュータ博物館に技術発展の証しとしての「物」が保存されている。(中略)

日本の各大学・企業では，コンピュータを道具としてしか認識していないため，新しいモデルが登場するや古いモデルは役に立たなくなった道具として廃棄処分され，そしてそのことに，これまで誰も疑義を抱かなかったのであろう。

日本のハードウェアの水準は米国と並んで世界のトップに位置してきた経緯がありながら，実物はほとんど残っていない。今，同じものを作ろうとしても過去の製作技術は失われ，部品も不足し再製造は不可能である。

情報処理学会歴史特別委員会は，2007年，バーチャル博物館をウェブ上に立ち上げた。しかし，実博物館は日本に存在せず，特にヨーロッパでは，「物はどこにあるのか，世界最高水準といってもペーパー上のことか」と片付けられつつある現状である。

◎ 余談。MZシリーズは迫害されてる気がする。 :

◎ 余談その2。N-BASICがよく分からない。 :

◎ 余談その3。MZシリーズのBASICはどうなんだろう。 :

◎ KM-BASICという選択肢。 :

◎ S-OS + BASIC という選択肢。 :

◎ インストール。 :

◎ crt.asm を記述。 :

    .globl  _init
    .globl  _main

    call    _init
    jp      _main

sdasz80 -o crt.o crt.asm

◎ サンプルソースを書いた。 :

int main(void)
{
  int c;

  for (c = 0; c <= 255; c++) {
    int y;
    unsigned char d = (unsigned char)c;
    for (y = 0; y < 25; y++) {
      int x = 20;
      unsigned char *p = (unsigned char*)(0x0d000 + y * 40 + x);
      unsigned char *q = (unsigned char*)(0x0d800 + y * 40 + x);
      while(x < 40) {
        *p++ = d;     // display code
        *q++ = 0x50;  // attrib
        x++;
      }
      d++;
    }
  }
  return 0;
}

int init(void)
{
  return 0;
}

sdcc main.c -mz80 --code-loc 0x1200 --no-std-crt0 -Wlcrt.o

:20120000CDB412C30612DDE5DD210000DD3921F8FF39F90100003333C5210000DD36FE00E2
:20122000DD36FF00DD7EFEC600DD77FCDD7EFFCED0DD77FDDD7EFEC600DD77FADD7EFFCE4F
:20124000D8DD77FB111400E5DD6EFCDD66FDE5FDE1E1FD19DD7EF8FD7700E5DD6EFADD66E8
:20126000FBE5FDE1E1FD19FD360050137BD6287A173F1FDE8038D0D1D513DD73F8DD36F948
:2012800000DD7EFEC628DD77FEDD7EFFCE00DD77FF237DD6197C173F1FDE803887033EFF5D
:1812A000B93E0098E2A912EE80F21612210000DDF9DDE1C9210000C91A
:00000001FF

◎ mztファイルに変換。 :

◎ 動作確認。 :

MZ700WIN を起動して、Setting → MONITOR Rom → MZ-700{J} / MZ700 NEW-MONITOR を選択。画面に「MZ-700」と表示された。

File → Set Load Tape を選択して、main.mzt を指定。L[Enter]でロード。

画面に何か出た。

ということで、SDCC を使えばMZ-700用(Z80 CPU用)のプログラムをC言語で書くことができる、と分かった。

◎ ちゃんと書くならアセンブラは必須かも。 :

◎ KM-BASIC 0.8.0で動作確認。 :

例えば、以下の記事では、IF文とGOSUB文を使う事例が紹介されているけれど。

_IF/GOSUB文を実装 - 電子ブロック工房

KM-BASIC 0.8.0上で、スクリーンショットの通りに打ち込んでも、以下のように SYNTAX ERROR になってしまう。

どうやら少なくとも、IF文、GOSUB文、RETURN文を打ち込んだだけでもエラーが出るようで。

◎ KM-BASIC 0.6.8で動作確認。 :

幸い、旧版 0.6.8 も入手可能だったので、そちらでも試してみた。以下の記事内の、打消し線のリンクをクリックすれば、まだ 2012-09-20-kmb068.zip をダウンロードできる模様。

_KM-BASIC for MZ-80K/MZ-700 ver 0.6.8 - 電子ブロック工房

こちらはスクリーンショットの通りに打ち込んでも、エラーは出ないし、同じ結果になった。

ということで、どうやら Vector で公開されてる KM-BASIC 0.8.0 は、いくつかの命令が正常動作しない状態になってるようだなと。MZ700WIN上で試したいなら、KM-BASIC 0.6.8 を使ったほうがいいのかもしれない。

ただ、0.6.8 は、メモリが48KB未満の環境に対応できないバグがあるらしい。MZ-1200、MZ-80K2Eは、RAM 32KB、MZ-80CはRAM 48KBらしいので、そのあたりで動かそうとすると問題が起きたりするのだろうか。となると、 _PasocomMini MZ-80C では動かない可能性が…。エミュレータのスペックは、 _RAM 48KB と書いてあるし…。 *1

各zipにはソースファイルも同梱されているのでざっと眺めてみたのだけど、どうやら 0.8.0 にする際に、命令の追加を楽にしようと試みたのか、結構ごっそりと処理が変わったようで。そこでエンバグしたのかな、と…。

◎ 公式のblog記事にコメントの形で報告しようとしたのだけど。 :

◎ 2019/04/21追記。 :