木星の近くを光の速さで飛行してみよう。(VL-BASICによるリアルタイムレイトレーシング)

 

VL-BASIC(N88-BASICシミュレータもどき)の

拡張コンピュータグラフィックスで、

太陽と木星を置き、木星の近くに地球を配置しました。

この仮想宇宙空間を自由に移動できます。

バックスラッシュキーで前進するのですが、

通常の移動速度を光速にしてありますので、

光の速度を体験できます。

 

VL-BASICホームページへのリンク

上記ホームページから最新バージョンをダウンロードできます。

 

ダウンロードしてReadme.txtをよみ、

g3.bas(キー操作はg3.basの最終行のコメント参照)

を走らせると以下のような空間内を光の速さで自由に

移動できます。

(shiftを押しながらだと光速を超えてしまいます。)

(テスト環境は、Windows10

 Celeron N3350 2コア2.4GHz 外部GPUなしです。)

 

いかがでしょうか、光は木星の直径を横切るのに

約0.5秒の時間がかかります。

木星の直径の10倍離れたところから到達するのに

5秒かかります。

この仮想空間を光の速さで移動してみると

意外と遅いことが分かります。

実際に光の速さで移動したときに見える景色は

ゆがむらしいので見え方は異なりますが、

光の速さは体験してもらえると思います。

 

裸眼立体視ができる人は試してみて下さい。

平行法

 

交差法

 

VL-BASIC(N88-BASIC互換?)でリアルタイムレイトレーシング

リアルタイムレイトレーシングによるCG

(コンピュータグラフィックス)。

球などの簡単な図形に限定して処理速度を速めた

レイトレーシングをVL-BASIC(N88-BASICシミュレータもどき)

の命令として組込みました。

以下のリンクからダウンロードできます。

 

VL-BASICホームページへのリンク

上記ホームページから最新バージョンをダウンロードできます。

 

解凍して、Readme.txtを読んでください。

/VLBasic/内の VLBasic01.exe を走らせ、LOAD "g2

RUN すると、水色の球の周りを黄色と透明な球が回ります。

この空間を自由に移動できます。

キー操作はg2.basの最後の行に、コメントとして書いてあります。

 

以下の画像のfps(1秒当たりの描画画面数)は、Readme.txtに

記載の動作環境(Celeron N3350 2コア2.4GHz)での値です。

球に近づくと処理に時間がかかり動作が遅くなります。

あまり期待せず遊んでみて下さい。

 

 

 

N88-BASICで再帰図形の木

N88-BASICなどの旧BASICで再帰呼び出しを使って

再帰図形の木を描いて見ました。

VL-BASICで走らせる事か出来ます。

 

VL-BASICホームページへのリンク

上記ホームページから最新バージョンをダウンロードできます。

(a4.basはサンプルとして付属しています)

Readme.txtを読んで遊んで見て下さい

 

 

BASIC言語

初めまして、ULprojectです。

初めてブログを書きます。

まずは、BASIC言語について書いていきます。

昔のPCのBASIC言語に色を塗る命令がありました。

 

10 CLS 2                        '--- 画面消去
20 LINE(0,0)-(320,200),6    '--- 線を引く
30 CIRCLE(320,200),100,6　'--- 円を描く
40 PAINT(330,180),1,6        '--- 塗潰す
 

という命令を実行すると、上下に境界線に沿って

塗りつぶしていく様子を見ることができて面白い

と思っていました。

線を引く命令や円を描く命令も描いている途中を

見ることができて面白いと思っていました。

さらに命令がとてもシンプルです。

 

今、昔のPC(PC-8801、PC-9801、FMシリーズなど)

を手に入れることは困難ですので、

より懐かしく思うこのごろです。

そんな、昔のBASICについて書いていく予定です。

 

PAINT命令などのN88-BASICの命令を

シミュレートするVL_BASICを公開しています。

 

VL-BASICホームページへのリンク

上記ホームページから最新バージョンをダウンロードできます。

 

Readme.txtを読んでサンプルのa1.basを実行してみて下さい。

以下は実行画面と動画です。