n88互換Basicでview、Window命令

昔のフラクタルの本を引っ張り出してきて、動かしてみようと思ったのだが、
もちろんリストはPC-9801シリーズ用。。
互換Basicというのを作られている方がいて、とりあえず打ってみた。
だが表示すらされない。

調べてみると、window命令、view命令が未サポートで無視されているのが
原因のようであった。

ということで、ちょっくら作ってみた。検索してもなかなか出てこないので、
書いておきます。誰かの役に立つといいなぁ。

window (wxs,wys)-(wxe,wye)
view (vxs,vys)-(vxe,vye)
pset(X,Y)C

とやりたかったとする（元のリスト）

wxs = ワールド座標系のX始点
wys = ワールド座標系のY始点
wxe = ワールド座標系のX終点
wye = ワールド座標系のY終点
vxs = ローカル座標系のX始点
vys = ローカル座標系のY始点
vxe = ローカル座標系のX終点
vye = ローカル座標系のY終点
'
DEF FNWX(X)=((X-wxs)/(wxe-wxs))*(vxe-vxs)+vxs
DEF FNWX(Y)=((Y-wys)/(wye-wys))*(vye-vys)+vys
'で関数を定義して、XとYに計算した座標が入っているとすると、
PSET (FNWX(X),FNWY(Y)),C

で使えます。