動画読み込み(Load a video)

※ 読み込めない動画ファイルもあります。その場合は別の動画ファイルをお試しください。 Some video files cannot be loaded. In this case, try a different video file.

動画設定(Video settings)

↓

画像読み込み(Load an image)

ここが貼り付け、およびドロップエリアです。「ファイルを選択」の代わりに、このエリアに対してブラウザの貼り付け機能を使用、またはファイルをドロップすることによって画像を読み込ませることができます。 This is the paste and drop area. Instead of using the "Select File", you can paste or drop an image (file) here to load it.

↓

減色設定(Color setting)

ノイズ除去(Noise reduction) 弱(Weak) 中(Middle) 強(Strong)

SCREEN3 Mono Animation Converter for MSX2

Version 1.10.1.27

動画再生プログラム(Animation program) for MSXPen

BSAVE形式で保存したファイルをMSX2で動画再生させるプログラムです。ファイル名PROGRAM.BINの部分は適宜変更してお使いください。何かキーを押すとプログラムが終了するようになっています。

また、MSXPenにも対応しており、 WebMSXエミュレーター上で変換した動画を再生することができます。下記手順通り行ってみてください。

MSXPenを開きます。
MSXPen内のWebMSXの歯車アイコンをクリックしてSelect Machineを選択し、機種一覧からMSX2以降を選択します。
MSXPenの歯車アイコンをクリックしてProject Settingsの設定を行います。
ASM SettingsのFile nameにPROGRAM.BINを入力します。ファイル名を変更している場合はその名前を入力します。
ASM SettingsのBuild asはplain fileを選択します。
Emulator SettingsのMachineがMSX2以降になってることを確認して、Saveをクリックします。
Basicタブの内容をMSXPen側のBasicタブに貼り付けます。(クリップボードにコピーボタンを使用すると便利です。)
Asmタブの内容をMSXPen側のAsmタブに貼り付けます。(クリップボードにコピーボタンを使用すると便利です。)
Basicタブ及びAsmタブの内容は変換ボタンをクリックした後に内容が反映されますので、変換する前に貼り付けないようにしてください。
MSXPen側のRunボタンをクリックすると動画が再生されます。

Basic

10 CLEAR 255,&HD000 20 DEFINT A-Y 30 DIM PA(8-1) 40 GOSUB 2000:REM PALETTE ADDRESS 49 REM PALETTE ROUTINE 50 GOSUB 3000:DEF USR=&HD000 60 SCREEN 5 70 COLOR 15,0,0 80 CLS 90 BLOAD "PROGRAM.BIN",S 99 REM SCREEN3 100 VDP(0)=VDP(0) AND &HF1 110 VDP(1)=VDP(1) AND &HE7:VDP(1)=VDP(1) OR &H8 120 VDP(4)=0:VDP(2)=0 129 REM NO USE TRANSPARENT COLOR & SPRITE OFF 130 VDP(9)=VDP(9) OR &H22 140 F=0:P=0 150 ON INTERVAL=60 GOSUB 1000 160 INTERVAL ON 170 IF INKEY$="" THEN 170 180 INTERVAL OFF 190 END 999 REM CHANGE PGT ADDRESS & PALETTE 1000 'INTERVAL OFF:REM NO NEED THIS LINE FOR turboR 1010 VDP(4)=F+1 1020 A=USR(PA(P)) 1030 P=(P+1) MOD 8 1040 IF P=0 OR P=4 THEN F=(F+1) MOD 31:IF F=0 THEN P=0 1050 'INTERVAL ON:REM NO NEED THIS LINE FOR turboR 1060 RETURN 1999 REM PALETTE ADDRESS 2000 FOR I=0 TO 8-1 2010 ZP=&H420+32*I 2020 IF ZP>&H7FFF THEN ZP=ZP-65536 2030 PA(I)=ZP 2040 NEXT I 2050 RETURN 2999 REM PALETTE ROUTINE 3000 FOR I=&HD000 TO &HD026 3010 READ C$ 3020 POKE I,VAL("&H"+C$) 3030 NEXT I 3040 RETURN 3100 DATA F3,2A,F8,F7,16,90,06,10 3110 DATA 3A,07,00,4F,0C,3E,10,90 3120 DATA ED,79,ED,51,0C,CD,74,01 3130 DATA 5F,23,CD,74,01,ED,59,ED 3140 DATA 79,23,0D,10,E8,FB,C9

Asm

皆さんの変換結果を見てみたい(Show me your converted animations)

変換結果を是非つぶやいてみてください。動画に撮ってポストするのも良いですが、 MSXPenにはShare機能があるので、動画再生プログラム for MSXPenにある手順で動画を作成した後、 MSXPen側にあるShareボタンをクリックするとシェア用URLが表示されるので、このURLを付けてポストすることもできます。その際にはハッシュタグ#MSX2動画を付けてくださると、ポストが探し易く(特に私が)なります。

The tweet hashtag is #MSX2動画.

資料(Data)

ファイルフォーマット(File format)

VRAM 0000Hから配置されるBSAVE形式のファイルになっています。

動画再生用ファイル FFF7H Bytes
0000H	BSAVEヘッダ BSAVE Header 7H Bytes = 1 + 2 + 2 + 2	FEH
			0000H
			FFF0H
			0000H
0007H	パターンネームテーブル Pattern Name Table 360H Bytes = 32 × (24 + 3) = 864
	空き Fill 00H
0427H	アニメーション用パレットテーブル Palette Tables for Animation 100H Bytes = 32 × 8 = 256	パレットテーブルパターン1 Palette Table Pattern 1 20H Bytes = 2 × 16 = 32
			パターン2 Pattern 2
			: : :
			パターン8 Pattern 8
	空き Fill 00H
0807H	1～4コマ目 1st to 4th frame	パターンジェネレータテーブル Pattern Generator Table 800H Bytes
1007H	5～8コマ目 5th to 8th frame	〃
: : :	: : :
F007H	117～120コマ目 117th to 120th frame	〃
F807H	121～124コマ目 121st to 124th frame	7F0H Bytes ※BLOAD不具合回避のため To avoid BLOAD Bug

更新履歴(History)

バージョン	更新日付	内容
1.10.1.27	2025/11/14	内部処理を共通処理に変更
1.10.0.26	2025/06/30	減色方法に誤差拡散 Atkinsonを追加減色方法にディザパターン横縞を追加減色方法にディザパターン縦縞を追加画像の読み込みをファイルのドロップに対応内部処理変更レイアウト調整
1.9.0.25	2024/11/26	開始位置に現在の再生位置取得ボタンを追加レイアウト調整
1.8.0.24	2024/10/23	Twitter(現X)カードに画像を追加間隔に合計秒を追加減色設定の輪郭色を選択から設定可能に変更減色方法にディザパターン効果を追加 MSX-BASICのマシン語パレットカラー変更ルーチンの改善内部処理共通化
1.7.2.23	2024/02/07	内部処理共通化
1.7.1.22	2024/02/03	レイアウト調整
1.7.0.21	2023/10/19	パレット最適化にメディアンカットを追加パレット最適化の使用色優先を頻度に名称変更
1.6.1.20	2023/09/29	パレット最適化のバランスの処理調整パレット最適化のバランス(使用色優先)を使用色優先のみの処理に変更
1.6.0.19	2023/09/24	動画設定にアスペクト比補正追加プレビューボタン追加
1.5.0.18	2023/07/12	SCREEN3 Mono Animation Converter for MSX2を公開 Easy SCREEN3 Animation Converter for MSX2 Version 1.4.0.17からブランチ

誤差拡散にはFloyd-Steinberg法、 Atkinson法を使用しています。
ディザパターンにはBayer行列を使用しています。
輪郭抽出にはLaplace(8方向)を使用しています。
パレット最適化には最小距離加算(新しい減色アルゴリズムのポストを参考)、バランス(自身のポストが元)、メディアンカット、頻度を使用しています。
ノイズ除去はMedianフィルターを参考にしています。
パレット変更ルーチンは16col/Frameのポスト、及びBASICをマシン語に変換したポストを参考にしています。
Windows11 Home + Google Chromeで動作検証しています。それ以外の環境、ブラウザでは動作しない可能性があります。ご了承ください。
Please excuse my strange English. Were you able to use this converter?