ラジカセ風ミュージックプレイヤーを作る その2

【再掲】

古いラジカセ

1982年に買った（←買ってもらったでは無く、アルバイトをして買った）ラジカセが、急に欲しくなってしまいました。

パイオニア ランナウェイ SK-700です。
某オークションを見ていたら、それが出品されていて、あまりの懐かしさに購入意欲が急に沸いてきてしまったのです。

いや、しかしジャンク品であるし（カセットは不動との事）、自分のスキルでは修理する事も出来ない。
購入したら、単なるオブジェになってしまいます。

（熱狂的な「アンティーク・ラジカセ・ファン」でも無いし・・・・・・）

「うーん。でも、欲しい・・・・」
カセットテープの (動作により）音楽が聴きたい。


「ならば、パソコンの画面上で、ラジカセ (パイオニア・ランナウェイ SK-700)を再現してみようではないか！」
・・・と思った次第です。

「バーチャル・ラジカセ（？）」みたいなソフトウェアを作ってみようかと。

【再掲 終わり】

前回の投稿 2018年10月21日「ラジカセ風ミュージックプレイヤーを作る」から随分と経ってしまいましたが、
また、開発を再開いたしました。

今回は「スピーカー（コーン）」の振動です。
大きな音になった場合に、コーンが振動するようにしました。

本来ならば、低音をピックアップ（ローパスフィルタ・・・て言うのかな？詳しくないケド）して、それに応じて振動させる方がリアルだとは思うのです。
ですが、まずは音量のみで判断させています。


 

プログラミング（コードを書いている）時間よりも、お絵かき時間の方が長かったな。

Excel VBAでhtmlファイルを自動作成させる [複数の画像ファイルに対応させる]

もっぱら、（主に自動車の）整備作業の「備忘録」として、記録しているに過ぎない当サイトです。
その際に作業の工程が分かり易くする為に（最近では多くの）写真を撮影するようにしています。

ホームページ作成ソフト（私は"Homepage Manager"を使用しています）は、ワープロ感覚で使用が出来て「容易」ではありますが（画像を沢山あると）　「かなりの手間です」

（手作業で画像ファイルを、ひとつひとつ指定するのが、面倒です。私の場合は3個以上の画像ファイル指定するのでも嫌になってしまいます。
私が知らないだけで良いソフトウェアがあるかもしれませんね）

なので、該当の画像フォルダを指定したら一括でhtmlファイルを作成できる仕組みを作っています。

これは、Excel VBAを使用して作りました。

詳細はこちらに書きました。

レトロペイントBASICジェネレータ バージョン２

レトロペイントBASICジェネレータをバージョンアップ
今まで（初期バージョン）のは、遅くて使いづらかった。

詳細はコチラ

・・・で、以前手を抜いて描いたヤマト（バージョン１で作成)

初期バージョンだと、拡大表示（＆描画）や背景は単なる透過機能だけだったので、細かな箇所を書くのが苦手でした。

バージョン２で、拡大と背景読込が可能となり精密な絵を描けるようになりました。

・・・・で、実際に描いてみた。

しかし、レトロパソコン（今回もFM77AV用F-BASIC3.4)では、今回のはメモリ不足で読めません。

F-BASIC3.4の使用可能メモリを計算すると、800行程度しか読めないようです。
今回、描いたヤマトは1251行でした。全然足りませんね。
（マルチステートメントにしたところで、たかが知れています）

そんな「ヤマトの描画プログラム」をダウンロード

せっかく描いたモノが（レトロパソコンで）見れないのは残念すぎる・・・・

なので、レトロペイントBASICジェネレータ(以下「自作ツール」）で保存された別ファイル(CSVファイル）を直接読み取りながら描画を行う方法にしました。

以下はF-BASICで作ったです。（多分、どのBASICでも殆ど変更なしで動くような気がしています）

「DREWCSV.txt」をダウンロード

このプログラムによって描画を行いました。
（ファイルからの読み取りなので、遅いです）

結構、良く描けている・・とは思いますが、良く見ると結果が違っていたりします。
（紫の点が所々ありますね。これは自作ツールを使用した場合にはありません）

これは、自作ツールでの線描画と、F-BASICでの線描画のアルゴリズム（や計算）の違いによるものです。

以下は自作ツールで描いたヤマト

始点と終点は一致していますが、それへのルートが微妙に異なる訳です。
これによって、塗られるべき箇所が塗られなかったり、その逆もあったりします。

この辺りは、もう「しようがない」とあきらめ・・・・る？

デジタル8色で描く その２

繰り返しになりますが、デジタル８色（黒・青・赤・紫・緑・水色・黄・白）によるお絵かきです。
光の3原色(RGB)の組み合わせですね。

黒=光っていない。
青=B
赤=R
紫=B+R
緑=G
水=B+G
黄=R+G
白=B+R+G


元画像はコレ

これを8階調にグレースケール化し、8色にしてみます。
これをモノクロモニターで見たら、結構良い感じになるはずです。
上記の8色は（黒→白）の順序で輝度が明るくなっているからなのです。

これを、赤部分とそれ以外で、タイルペイントを駆使しながら、描いてみます。
（描く・・と言うよりもも、塗ると言った方が良いかな）

どうも、センスが無いな～

メタリック部分（銀色）は、水色っぽくなり、黒（暗い色）は青が強い。
８色＋灰色(白の輝度の半分）があると結構良くなりそうなんだけどね。

デジタル８色の本当の実力はどこまであるのか！？

以下は、フリーソフトの「色さがし」を使用し減色させたものです。
ですから、以下の画像は「お絵かき」ではなく「画像変換」です。

 

デジタル8色で描く

某友人Fさんの乗るバイク（と同じだと思われる）を描いてみましたよ。

なお、レトロパソコンでも表現できる８色のみで表現しています。
（黒、青、赤、紫、緑、水色、黄、白）

前回のは、テスト的に作ってみたので、かなり赤っぽい感じ
（手抜きとも言える）




やはり赤が強いですね。
なぜ、こんな事（今さらな事）をしているのかはコチラに書いてあります。

で、描き直してみました。

「結構、良くなったんでないの？・・・・」

いずれは、これと同等のモノをレトロパソコンのBASICで描かせてみたいのです。
（自作ソフト「レトロペイントBASICジェネレータ」の機能アップを検討中）

現在、BMPファイルを読み込ませて「縁取りツール」なるモノを作成中です。
画像の境界線を自動的に検出して、線（LINE命令)を描かせる機能なのです。

これで、手作業で複雑な線を描くという作業が軽減できるハズ。

テスト的に作ったツールで、線を描かせてみました。

8色に減色させてモノネタは以下の画像です。

で、この画像を読み込ませて、縁取ったのが次の画面です。

正確に縁取りが可能なのですが、LINEも命令が多すぎてしまい、レトロパソコンでは、メモリ不足となりそうです。

次の画面は、精度を低く設定した縁取りです。

上の例では正確な縁取りの場合は、4746個のLINE命令になりますが、この場合は、511個と圧縮されます。

まだまだ、検出結果に不満があるので、もう少し考えてみましょう。

自作ペイントソフトで絵を描いてみた【200ライン対応】 その５

BASICによるお絵かきです。

まずは、640×400で描いたモノ

これは、自作ペイントソフトからBASIC出力したものです。

次は640×200ドットでの出力にしてみます。

この出力はY座標だけを50%にして出力させるだけの簡易200ライン対応なのです。

・・・・で出力されたBASICで描いたもの

肌色の濃淡の境目（赤色）がスゴク気になります。
２００ラインになると（４００ラインではあまり目立たなかった）アラがよく分かりますね。

やはり、境界色もタイリング対応させないとダメですね

・・・・で、やってみた。

境界色タイリングについては、サブルーチン処理としています。（以下のコード)

10000 X1=248:Y1=163:X2=252:Y2=163:C1=7:C2=2:GOSUB 60300
59999 END
60300 LINE(X1,Y1)-(X2,Y2),PSET,C1:IF C1<>C2 THEN X3=X1:Y3=Y1:XP=(X2-X1):YP=(Y2-Y1):IF ABS(XP)>ABS(YP) THEN GOSUB 60400 ELSE GOSUB 60500
60320 RETURN
60400 YP=YP/ABS(XP):XP=SGN(XP):FOR X3=X1 TO X2 STEP XP
60410 X4=INT(X3*10)-INT(X3)*10:IF X4<5 THEN X4=0 ELSE X4=1
60420 Y4=INT(Y3*10)-INT(Y3)*10:IF Y4<5 THEN Y4=0 ELSE Y4=1
60430 IF (INT(X3+X4) MOD 2+INT(Y3+Y4) MOD 2)=1 THEN PSET(INT(X3+X4),INT(Y3+Y4),C2)
60440 Y3=Y3+YP:NEXT
60450 RETURN
60500 XP=XP/ABS(YP):YP=SGN(YP):FOR Y3=Y1 TO Y2 STEP YP
60510 X4=INT(X3*10)-INT(X3)*10:IF X4<5 THEN X4=0 ELSE X4=1
60520 Y4=INT(Y3*10)-INT(Y3)*10:IF Y4<5 THEN Y4=0 ELSE Y4=1
60530 IF (INT(X3+X4) MOD 2+INT(Y3+Y4) MOD 2)=1 THEN PSET(INT(X3+X4),INT(Y3+Y4),C2)
60540 X3=X3+XP:NEXT
60550 RETURN


・・・・・しかし、境界色タイリングはうまく処理されていますが、他の箇所が塗れきれていませんね。(青が少し残ってしまっている)
やはり、単なる座標変換だけでは（400→200)正常に動作しないです。
「作成画面自体を200ライン対応にしなければ無理だな」


なお、以下の画面は400ラインで、境界線をタイリング処理したものです。

BASICソースはコチラ (F-BASIC用)

http://homepage3.nifty.com/ae85fcmxs/retro-pc05/amuro3-4.txt

自作ペイントソフトで絵を描いてみた【タイリング対応】その４

タイリングのパターンを増やしてみた。

詳しくは、こちらに書きました。

http://homepage3.nifty.com/ae85fcmxs/02-info-retro05.html

実行画面の動画

自作ペイントソフトで絵を描いてみた【タイリング対応】その３

前の記事で、

「レトロパソコンのメモリよりも処理速度を優先させ、実際には「ペイント」処理はさせず、始点と終点を大量に吐き出す」

・・・としました。

しかし、FM77AVに読み込ませたところ、メモリ不足になってしまいました。

タイルペイント対応のBASICならば、その記述で吐き出すのが一番ですね。
そうすると、機種制限が大分ありそう。

とりあえず、F-BASIC(V3.3以降)の記述方法でBASICプログラムを出力させてみました。

http://www.youtube.com/watch?v=YvLPnyzeKxI

もうちょっと考えてみよう。

自作ペイントソフトで絵を描いてみた【タイリング対応】

自作ペイントソフト
↓
http://homepage3.nifty.com/ae85fcmxs/02-info-retro03.html

前記事で、タイリングペイントは対応していない・・・と書きましたが、（一応）対応してみました。

BASICソースの出力については、思案した結果
（どのレトロパソコンのBASICでも、”ある程度”は対応出来る様に）

・タイリングペイントはサブルーチンを加えて出力させる。
・レトロパソコンのメモリよりも処理速度を優先させ、実際には「ペイント」処理はさせず、始点と終点を大量に吐き出す。

（ペイントは機械語でなければ実用に耐えられないだろうと思いまして）

・・・で、変更前の画像

本当は水色箇所はグレーにしたかった。

変更後

結構、良くなった？？
とりあえず、まだ黒との組み合わせだけのタイルペイントです。

ソフト自体の使用感はイマイチなので、もうちょっと改善したらダウンロードできるようにするカモ・・・・

自作ペイントソフトで絵を描いてみた

自作ペイントソフト
↓
http://homepage3.nifty.com/ae85fcmxs/02-info-retro03.html

これで、ヤマトを描いてみましたが、中間色が表現できないので、途中で断念してしまいました。
（まだ、タイリングペイント機能が無い）

原色で、ある程度表現できるモノ

「ガンダム」がいいかな？


早速、描いてみた。

BASICを使って絵を描いてみた【ガンダム】