mieki256's diary

1. 右のほうに並んだマッピング種類の中から良さそうなものを選ぶ。
2. 左下の設定ウインドウ内で、出力画像サイズ(Result Size)を変更。
3. 「Update Preview」をクリックして更新。
4. pngとして保存。

• 表示 → 色補正、で色補正ウインドウを表示しておく。
• 背景ウインドウに .hdr をドラッグアンドドロップで渡す。
• 色補正ウインドウで、ガンマを2.2に変更。
• レンダリング → レンダリング設定 → 効果 → パノラマをキューブマップに。
• レンダリング設定 → イメージ → 幅と高さが1:6になるように指定。画像1枚あたりを 512 x 512 にしたければ、512 x 3072 になる。
• レンダリング設定 → 基本設定 → アンチエイリアシング、のチェックを外して無効に。
• レンダリング開始。

import sys
import math
from OpenGL.GL import *
from OpenGL.GLU import *
from OpenGL.GLUT import *
from PIL import Image

IMG_NAME = "montorfano_cubemap.png"
# IMG_NAME = "alps_field_cubemap.png"
# IMG_NAME = "bell_park_cubemap.png"

# SCRW, SCRH = 1600, 900
SCRW, SCRH = 512, 512
FPS = 60
BOXW = 16

scr_w, scr_h = SCRW, SCRH
window = 0

mouse_x = 0
mouse_y = 0
cam_rot_x = 0.0
cam_rot_y = 0.0
cam_pos = (0, 0, 0)

texture = 0


def load_texture():
    global texture

    # load image by using PIL
    im = Image.open(IMG_NAME)
    w, h = im.size
    print("Image: %d x %d, %s" % (w, h, im.mode))

    if im.mode == "RGB":
        # RGB convert to RGBA
        im.putalpha(alpha=255)
    elif im.mode == "L" or im.mode == "P":
        # Grayscale, Index Color convert to RGBA
        im = im.convert("RGBA")

    raw_image = im.tobytes()

    ttype = GL_RGBA
    if im.mode == "RGB":
        ttype = GL_RGB
        print("Set GL_RGB")
    elif im.mode == "RGBA":
        ttype = GL_RGBA
        print("Set GL_RGBA")

    glBindTexture(GL_TEXTURE_2D, glGenTextures(1))

    # glPixelStorei(GL_UNPACK_ALIGNMENT, 1)
    glPixelStorei(GL_UNPACK_ALIGNMENT, 4)

    # set texture
    glTexImage2D(
        GL_TEXTURE_2D,      # target
        0,                  # MIPMAP level
        ttype,              # texture type (RGB, RGBA)
        w,                  # texture image width
        h,                  # texture image height
        0,                  # border width
        ttype,              # texture type (RGB, RGBA)
        GL_UNSIGNED_BYTE,   # data is unsigne char
        raw_image,          # texture data pointer
    )

    glClearColor(0, 0, 0, 0)
    glShadeModel(GL_SMOOTH)

    # set texture repeat
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)

    # set texture filter
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
    glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)

    glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
    # glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_BLEND)


def draw_skybox():
    glEnable(GL_BLEND)
    glEnable(GL_TEXTURE_2D)
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
    glColor4f(1.0, 1.0, 1.0, 1.0)
    glDisable(GL_ALPHA_TEST)

    w = BOXW

    glPushMatrix()

    m = glGetDoublev(GL_MODELVIEW_MATRIX)
    m[3][0] = m[3][1] = m[3][2] = 0.0
    glLoadMatrixd(m)

    va = 0.0005
    # va = 0.0

    pntlist = [
        # x, y, z
        [-1, +1, -1],  # 0
        [+1, +1, -1],  # 1
        [+1, +1, +1],  # 2
        [-1, +1, +1],  # 3
        [-1, -1, -1],  # 4
        [+1, -1, -1],  # 5
        [+1, -1, +1],  # 6
        [-1, -1, +1],  # 7
    ]

    pos = [
        [
            # index, u, v
            [0, 0.25, 0.50 + va],
            [1, 0.50, 0.50 + va],
            [5, 0.50, 0.75 - va],
            [4, 0.25, 0.75 - va],
        ],
        [
            [1, 0.50, 0.50 + va],
            [2, 0.75, 0.50 + va],
            [6, 0.75, 0.75 - va],
            [5, 0.50, 0.75 - va],
        ],
        [
            [2, 0.75, 0.50 + va],
            [3, 1.00, 0.50 + va],
            [7, 1.00, 0.75 - va],
            [6, 0.75, 0.75 - va],
        ],
        [
            [3, 0.00, 0.50 + va],
            [0, 0.25, 0.50 + va],
            [4, 0.25, 0.75 - va],
            [7, 0.00, 0.75 - va],
        ],
        [
            [3, 0.25 + va, 0.25 + va],
            [2, 0.50 - va, 0.25 + va],
            [1, 0.50 - va, 0.50 - va],
            [0, 0.25 + va, 0.50 - va],
        ],
        [
            [4, 0.25 + va, 0.75 + va],
            [5, 0.50 - va, 0.75 + va],
            [6, 0.50 - va, 1.00 - va],
            [7, 0.25 + va, 1.00 - va],
        ],
    ]

    for poly in pos:
        glBegin(GL_QUADS)
        for idx, u, v in poly:
            x, y, z = pntlist[idx]
            glTexCoord2f(u, v)  # set u, v
            glVertex3f(w * x, w * y, w * z)
        glEnd()

    glPopMatrix()


def draw_gl():
    global cam_rot_x, cam_rot_y, cam_pos

    glClearColor(0.2, 0.4, 0.8, 0.0)  # background color
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)

    glLoadIdentity()  # Reset The View

    # move camera
    r = 8.0
    rr = r * math.cos(math.radians(cam_rot_x))
    ey = r * math.sin(math.radians(cam_rot_x))
    ex = rr * math.cos(math.radians(cam_rot_y + 90.0))
    ez = rr * math.sin(math.radians(cam_rot_y + 90.0))
    tx, ty, tz = 0.0, 0.0, 0.0
    gluLookAt(ex, ey, ez, tx, ty, tz, 0, 1, 0)
    cam_pos = (ex, ey, ez)

    draw_skybox()

    glDisable(GL_TEXTURE_2D)
    glDisable(GL_ALPHA_TEST)

    glutSwapBuffers()


def init_viewport_and_pers(width, height):
    global scr_w, scr_h
    # Prevent A Divide By Zero If The Window Is Too Small
    if height == 0:
        height = 1

    scr_w, scr_h = width, height

    # Reset The Current Viewport And Perspective Transformation
    glViewport(0, 0, width, height)
    glMatrixMode(GL_PROJECTION)
    glLoadIdentity()  # Reset The Projection Matrix

    # Calculate The Aspect Ratio Of The Window
    # gluPerspective(fovy, aspect, zNear, zFar )
    gluPerspective(60.0, float(width) / float(height), 0.1, 100.0)
    glMatrixMode(GL_MODELVIEW)


def InitGL(width, height):
    glClearColor(0.2, 0.4, 0.8, 0.0)  # background color
    glClearDepth(1.0)  # Enables Clearing Of The Depth Buffer
    glEnable(GL_DEPTH_TEST)  # Enables Depth Testing
    glDepthFunc(GL_LESS)  # The Type Of Depth Test To Do
    glShadeModel(GL_SMOOTH)  # Enables Smooth Color Shading

    init_viewport_and_pers(width, height)


def resize_gl(width, height):
    init_viewport_and_pers(width, height)


def on_timer(value):
    global cam_rot_x, cam_rot_y
    # cam_rot_y += 0.25
    glutPostRedisplay()
    glutTimerFunc(int(1000 / FPS), on_timer, 0)


def key_pressed(key, x, y):
    # If escape is pressed, kill everything.
    ESCAPE = b"\x1b"
    if key == ESCAPE or key == b'q':
        if glutLeaveMainLoop:
            glutLeaveMainLoop()
        else:
            sys.exit()


def mouse_move(x, y):
    global mouse_x, mouse_y, cam_rot_x, cam_rot_y, scr_w, scr_h

    dw = scr_w / 2
    dh = scr_h / 2
    mouse_x = (x - dw) / dh
    mouse_y = (y - dh) / dh

    cam_rot_x = 90.0 * mouse_y
    cam_rot_y = 180.0 * mouse_x


def main():
    global window

    glutInit(sys.argv)
    glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE | GLUT_DEPTH)

    glutInitWindowSize(SCRW, SCRH)
    # glutInitWindowPosition(0, 0)

    window = glutCreateWindow(b"Draw Skybox")

    glutDisplayFunc(draw_gl)
    glutReshapeFunc(resize_gl)
    glutKeyboardFunc(key_pressed)
    glutPassiveMotionFunc(mouse_move)
    # glutFullScreen()

    # glutIdleFunc(draw_gl)
    glutTimerFunc(int(1000 / FPS), on_timer, 0)

    InitGL(SCRW, SCRH)

    load_texture()

    glutMainLoop()


if __name__ == "__main__":
    print("Hit ESC key to quit.")
    main()

python 01_draw_skybox.py

D:\Dev\yaze-ag-2.51.2-64Bit\bin\mintty.exe --config .\.minttyrc --exec .\yaze_bin.exe

D:\Dev\yaze-ag-2.51.2-64Bit\bin\mintty.exe --config .\.minttyrc --exec .\yaze_bin.exe -l -1 -b yaze.boot

sys mount c ./disksort

C:
mbasic

10 for i=0 to 5
20 print i*i
30 next

list
10 FOR I=0 TO 5
20 PRINT I*I
30 NEXT
Ok

run
0
1
4
9
16
25
Ok

system

sys
quit

A>; The following ydsk-files can be mounted by deleting  the ';' at the begin of
A>; the line bevore the sys command. To editing the file  use "ws profile.sub".
A>;
A>;sys mount c ./disksort              ; source of the  Disksort program (DIR)
A>;sys mount d disks/disksort.ydsk     ; submit examples  to compile Disksort
A>;sys mount f disks/zinc.ydsk           ; CP/M Utilities  of the ZINC projekt
A>;sys mount g disks/test-utils-1.10.ydsk    ;  Testutilities with ZEXALL.COM
A>;sys mount h disks/hi-c-z280-compiler.ydsk ; Hitech  Z80/Z280 C-Compiler
A>;sys mount i disks/unixlike.ydsk           : Unixlike  utilites for CP/M
A>;sys mount j disks/mmu-utils.ydsk    ; testprograms  when I develope the MMU
A>;sys mount k disks/kermit_szrz.ydsk  ; comunication  programm for serial line
A>;sys mount l disks/spl.ydsk          ; programming  language "SPL"
A>;sys mount m disks/turbo-modula-2.ydsk  ; Borlands  Turbo-Modula-2 environment
A>;sys mount n disks/testdsk.ydsk      ; Testdisk
A>;sys mount o disks/zsm4-source.ydsk ; Source of ZSM4  V4.4 Macro Assembler
A>;sys mount p disks/bios3-zsm4.ydsk  ; sources CP/M 3.1  BIOS (ZSM4)
A>;
A>pause

• Ctrl + K の後に D を叩けば、保存してからファイルを閉じる。
• Ctrl + K の後に Q を叩けば、保存しないままファイルを閉じる。
• その後、X を叩けば ws を終了できる模様。

B:PIP A:HELLO.ASM=C:HELLO.ASM

sys mount c ./disksort
sys mount h disks/hi-c-z280-compiler.ydsk
H:
c C:HELLO.C

HELLO

era HELLO.COM

• C: と H: をマウント。
• カレントドライブを H: ドライブに変更。
• C: ドライブの HELLO.C というファイルを、H: ドライブの C.COM というコンパイラでコンパイル。H: ドライブ内に HELLO.COM が生成される。
• H: ドライブ内の HELLO.COM を実行。
• 動作確認できたので、eraコマンドを使って、HELLO.COM を削除。

A:
B:PIP A:HELLO.ASM=C:HELLO.ASM
B:PIP A:LOAD.COM=C:LOAD.COM
B:MAC HELLO
LOAD HELLO

HELLO

era HELLO.ASM
era HELLO.PRN
era HELLO.HEX
era HELLO.SYM
era HELLO.COM

• C: ドライブの HELLO.ASM を A: ドライブにコピー。
• B:MAC.COM や A:LOAD.COM を使ってアセンブルして、A:HELLO.COM を生成している。

The following disks and directory are defined in .yazerc  and PROFILE.SUB:

A: r/w  BOOT_UTILS      BOOT disk with CCP.COM and some  utilies (.yazerc)
B: r/w  CPM3_SYSdsk     Disk with all CP/M 3.1 system  utilities (.yazerc)
                          A section "YAZE-AG" is added in  the help file.
C: r/o  ./disksort/     Connected to the (unix-)directory  ./disksort/ (SOURCE)
D: r/w  disksort.dsk    Submit examples of the DISKSORT  project
F: r/w  zinc.ydsk       System Utilies of the ZINC  project from John Elliott
G: r/w  test-utils-1.10 Test Utilities of the old version  yaze-1.10
H: r/w  hi-c-z280-compiler   A Copy of the C Compiler  from HI Tech Soft
I: r/w  unixlike.ydsk   UNIX like utilities
J: r/w  mmu-utils       Testfiles for the Memory  Management Unit (MMU).
K: r/w  kermit_szrz.ydsk Kermit and SZ/RZ (Zmodem)
L: r/w  spl.ydsk        SPL development environment to  compile .SPL files
M: r/w  turbo-modula-2  Modula 2 Compiler of Borland
N: r/w  testdsk.ydsk    testdisk
O: r/w  zsm4.4-source   ZSM4 v4.4 Macro Assembler for  Z80/Z180/Z280 (source)
P: r/w  bios3-zsm4      sources of the BIOS3 for YAZE-AG  (look 0-README.1ST)

On every disk is a file named 0-README.1ST. This file  describes the 
contents of the disk. You can use the a:S.COM (NSWEEP)  utility to read it.

wget https://www.mathematik.uni-ulm.de/users/ag/yaze-ag/devel/yaze-ag-2.51.3.tar.gz
tar zxvf yaze-ag-2.51.3.tar.gz
cd yaze-ag-2.51.3

$ ls Makefile*
Makefile                                     Makefile_first
Makefile_Orange_Pi_Plus2_ARMv7               Makefile_freebsd
Makefile_Raspberry_Pi_1                      Makefile_linux_32_i586
Makefile_Raspberry_Pi_2_Model_B              Makefile_linux_64_amd_athlon64
Makefile_Raspberry_Pi_3_Model_B_ARMv7_32Bit  Makefile_linux_64_intel_corei7
Makefile_Raspberry_Pi_3_Model_B_ARMv8_64Bit  Makefile_linux_64_intel_nocona
Makefile_Raspberry_Pi_4_Model_B_ARMv7_32Bit  Makefile_linux_64_intel_skylake
Makefile_Raspberry_Pi_4_Model_B_ARMv8_64Bit  Makefile_linux_64_intel_tigerlake
Makefile_bananapim3_BPI-M3                   Makefile_radxa_Rock_RockPro_RockLite
Makefile_cygwin_32                           Makefile_solaris_cc-sparcv9
Makefile_cygwin_64_core2duo                  Makefile_solaris_cc-x86_64
Makefile_cygwin_64_corei7                    Makefile_solaris_gcc-sparcv9
Makefile_cygwin_64_generic                   Makefile_solaris_gcc-x86_64

cp Makefile_linux_64_amd_athlon64 Makefile

make
sudo make install

cd ~/cpm
yaze

sys
quit

1. Mbasic.com を入手。~/cpm/disksort/ にコピー。
2. yaze を実行。
3. sys mount c ./disksort で、./disksort ディレクトリを C: として割り当てる。
4. C:MBASIC を実行。

1. TVTest を起動。
2. 左下のチューナー選択部分で、BonDriver_PT-S に切り替える。
3. 画面を右クリック → 設定 → チャンネルスキャン。
4. 「サービスを検索する」にチェックを入れた状態で、「スキャン開始」。

1. チューナー選択部分で、BonDriver_Spinel_PT1_0_S0 を選択。
2. 画面を右クリック → 設定 → チャンネルスキャン。
3. 「サービスを検索する」にチェックを入れた状態で、「スキャン開始」。

• チャンネルエディタに新チャンネル3つを追加。
• TVRockチューナー設定で追加したチャンネルにチャンネル番号とサービスIDを設定。
• (TVTestインストールフォルダ)\Plugins\TVRockOnTVTest.ini に周波数設定を3つ追加。

sudo apt remove -y xubuntu-desktop xfdesktop4 xfce4-* libxfce4*
sudo apt remove -y ubuntu-mate-desktop mate-* ubuntu-mate-* plymouth-theme-ubuntu-mate-*
sudo apt remove x11vnc
sudo apt remove virtualbox*

sudo apt update
sudo apt upgrade -y -d

sudo do-release-upgrade -d
sudo do-release-upgrade

sudo rm -f /etc/aternatives/mpi* /var/lib/dpkg/alternatives/mpi*
sudo apt install openmpi-bin

sudo apt remove libdvd-pkg
sudo apt install libdvd-pkg

sudo dpkg-reconfigure libdvd-pkg

sudo apt install xubuntu-desktop
sudo apt install ubuntu-mate-desktop
sudo apt install x11vnc

sudo systemctl daemon-reload
sudo systemctl disable x11vnc
sudo systemctl enable x11vnc
sudo systemctl start x11vnc
sudo systemctl status x11vnc

sudo apt install virtualbox virtualbox-ext-pack virtualbox-guest-additions-iso

sudo bash VMware-Player-15.5.2-15785246.x86_64.bundle --uninstall-component=vmware-player

wget https://github.com/mkubecek/vmware-host-modules/archive/player-15.5.2.tar.gz
tar zxvf player-15.5.2.tar.gz
cd vmware-host-modules-player-15.5.2
make

sudo apt install git build-essential
sudo apt install xfce4-dev-tools libxfce4util-dev
sudo apt install libxfce4ui-2-dev
sudo apt install libxfce4panel-2.0-dev

• libxfce4ui-1-dev は libxfce4ui-2-dev になった模様。
• xfce4-panel-dev は見当たらなかった。
• libxfce4panel-2.0-dev というパッケージのインストールも必要な模様。

git clone https://github.com/oco2000/xfce4-kbdleds-plugin.git
cd xfce4-kbdleds-plugin
./autogen.sh

*** The required package libxfce4panel-2.0 was not found on your system.
*** Please install libxfce4panel-2.0 (atleast version 4.12.0) or adjust
*** the PKG_CONFIG_PATH environment variable if you
*** installed the package in a nonstandard prefix so that
*** pkg-config is able to find it.

sudo apt install libxfce4panel-2.0-dev

./autogen.sh
./configure --prefix=/usr
make
sudo make install

C:\Users\(USERNAME)\AppData\Local\Programs\dynobo\NormCap\

C:\Users\(USERNAME)\AppData\Local\normcap\tessdata\

日本語 [jpn]
日本語 縦書き [jpn_vert]
Japanese [スクリプト]
Japanese_vert [スクリプト]

tesseract.exe INPUT.png OUTPUT_FILE -l eng
tesseract.exe INPUT.png OUTPUT_FILE -l jpn

altairz80.exe bdsc

 B:

 R PBAS.ASM
 DIR B:PBAS.*

B>DIR B:PBAS.*
B: PBAS     ASM

 ASM PBAS
 LOAD PBAS

 PBAS

10 FOR I=0 TO 5
20 PRINT I, "  Hello World!!"
30 NEXT I

 LIST
 RUN

>LIST
  10 FOR I=0 TO 5
  20 PRINT I, "  Hello World!!"
  30 NEXT I

 OK
>RUN
     0  Hello World!!
     1  Hello World!!
     2  Hello World!!
     3  Hello World!!
     4  Hello World!!
     5  Hello World!!

 OK

 SYSTEM

 halt
 quit

 B:MAC PBAS
 LOAD PBAS

• R.COM : Windows側が管理するファイルを、CP/M側のカレントドライブに読み込む(ファイルをコピーする)。
• W.COM : CP/M側が管理するファイルを、Windows側のカレントディレクトリに書き出す(ファイルをコピーする)。

• IPLROM.X1 / IPL.ROM X1 IPL ROM 4KB ($0000-$0FFF)
• FNT0808.X1 / ANK8.ROM 8x8 ANK Font ROM
• FNT0816.X1 / ANK16.ROM 8x16 ANK Font ROM
• FNT1616.X1 / KANJI.ROM 16x16 Kanji Font ROM
• SUBROM.X1 X1 Sub CPU Internal ROM
• KBDROM.X1 X1 Keyboard CPU Internal ROM

• IPLROM.X1T / IPL.ROM X1turbo IPL ROM 4KB ($0000-$0FFF)
• SUBROM.X1T X1turbo/X1G Sub CPU Internal ROM (*)
• KBDROM.X1T X1turbo Keyboard CPU Internal ROM
  

• ヘッダ部分は、INVADER.obj.HED として保存した。
• 本体バイナリは、INVADER.obj.BIN として保存した。

• 「カテゴリー」は「シャープ X1 Hu-BASIC」を選択。
• 「ディスク名」は…今回は「GAME01」にしてみた。おそらく、大文字の英数字だけにしておいたほうが問題が起きにくい予感。

ディスクフォーマット

ディスクのフォーマットはHuBASICと同じにしました。
つまり、S-BASICと比べるとディスクの表裏が逆、記録されるデータはビットが反転しています。
これは、現在S-OSを移植中のマシンとの関係も合わでて、こちらのほうが一般的かつ合理的であると判断したからです。

• 「ディスクイメージ内のファイル名」を指定。ここもおそらく、大文字の英数字にしておいたほうが問題が起きにくい予感。
• 「ファイル種類」は「Bin」にしておく。
• 「ロードアドレス」「実行アドレス」を指定。INVADER.obj.HED には「3000」と書かれてたので、それに従って入力。
• 一応、「全ての日付を無視する」にチェックを入れておいた。

#D
$4C Clusters Free
Bin  A:INVADER     .BIN:3000:430B:3000

#L INVADER.BIN
Loading INVADER     .BIN

#J 3000

• 4キーと6キーで砲台の左右移動。
• スペースキーで弾を撃つ。
• ゲーム開始は、タイトル画面表示中にスペースキー押し。
• 終了は、『ゲームプレイ中』に BREAKキー、らしい。Windows + X1エミュレータの場合、Shiftキーを押しながら Pauseキー、だろうか…？

1. ディスクを新規作成。「カテゴリー」は「シャープ X1 Hu-BASIC」を選択。「ディスク名」は「BASIC」にしてみた。
2. 「BASIC」を右クリックして「BASIC用にフォーマット」。BASICの種類は「X1 Hu-BASIC (3インチ/5インチ2D)」を選択。
3. 「インポート」をクリックして、FUZZYBASIC.BIN を選択。
4. 「ディスクイメージ内のファイル名」は「FUZZYBASIC.BIN」にしてみた。ファイル種類は「Bin」を選択。
5. ロードアドレスと実行アドレスは「3000」を入力。
6. BASIC.d88 として、ディスクイメージを保存。

#D
$4A Clusters Free
Bin  A:FUZZYBASIC   .BIN:3000:69FF:3000

#L FUZZYBASIC.BIN
Loading FUZZYBASIC   .BIN

#J 3000

* Fuzzy BASIC Interpreter ver 1.0 *
38397 bytes free
ready

files
$4A Clusters Free
Bin  A:FUZZYBASIC   .BIN:3000:69FF:3000
ready

10 FOR I=0 TO 5
20 PRINT I
30 PRINT "  Hello World!!"
40 PRINT
50 NEXT I

list
   10 FOR I=0 TO 5
   20 PRINT I
   30 PRINT "  Hello World!!"
   40 PRINT
   50 NEXT I
ready

run
0  Hello World!!
1  Hello World!!
2  Hello World!!
3  Hello World!!
4  Hello World!!
5  Hello World!!
ready

save "TEST01.BAS"
Writing TEST01       .BAS
ready

files
$49 Clusters Free
Bin  A:FUZZYBASIC   .BIN:3000:69FF:3000
Bas  A:TEST01       .BAS:6A00:6A33:30C1
ready

bye

#J 3000

load "TEST01.BAS"
Loading TEST01     .BAS
ready

list
   10 FOR I=0 TO 5
   20 PRINT I
   30 PRINT "  Hello World!!"
   40 PRINT
   50 NEXT I
ready

• FZ_DRG.BAS にもヘッダ部分がついているので、ヘッダ部分と本体バイナリに分割して、本体バイナリだけを BASIC.d88 にインクルードする。
• 一旦、ファイル種類を「Bin」にしてインクルードしないと、ロードアドレス(0x6A00)と実行アドレス(0x30C1)が指定できない。
• インクルードしてから、ファイルを右クリック → プロパティ → ファイル種類を「Bas」に切り替える。

• X1実機の IPL ROM が無いと動かないプログラムなのだろうか？
• オリジナルの S-OS SWORD のバイナリが無いと動かないプログラムなのか？
• LINE文を使うには、何か他にも必要になるのだろうか？ 例えばグラフィックパッケージの MAGIC とか…。
• FuzzyBASIC の LINE文は、実はX1には非対応だったりして…？ これが MZ-2000 ならすんなり動いたりする？
• X1エミュレータの再現度の問題だろうか。しかし、X millennium ではなくて、eX1 を使っても、同様に落ちてしまう…。

グラフィック関係の機能はありませんが

Fuzzy BASIC より

最初に公開されたものは、グラフィック命令のサポートが無かったのですが、後に拡張という形でサポートされました。 こちらは、通称”石上”版と呼ばれている。

Fuzzy BASICコンパイラ より

S-OS“SWORD"は、
X1では BASIC CZ-8CB01/8FB01のモニタ、
MZ-80B/2000/2200/2500ではモニタSB-1520またはMZ-1Z001M、
MZ-80K/C/1200/700/1500ではROMモニタ上で動作します。
それぞれのマシン語モニタから入力してください。

10 PRINT CHR$(&H1B);"[2J";
20 FOR Y=1 TO 10
30 X=Y*4
40 Y$=RIGHT$(STR$(Y), LEN(STR$(Y))-1)
50 X$=RIGHT$(STR$(X), LEN(STR$(X))-1)
60 C$="["+Y$+";"+X$+"H"
70 PRINT CHR$(&H1B);C$;C$
80 NEXT Y

• 10行目で画面クリア。
• 10回ループして、文字列の表示位置を変えている。
• 「ESC[y;xH」を出力すれば、(x, y) にカーソル位置を変更することができるらしい。上記ソースでは、C$ の中に「[y;xH」を格納している。
• STR$(y) で、数値が入った変数 y の値を、文字列に変換することができる。
• STR$(y) は、先頭に空白が入った文字列を返してしまうので、RIGHT$() と LEN() を使って先頭の空白を除去している。
• RIGHT$() は、指定された文字数分、右から数えて文字列を返す。
• LEN() は、与えられた文字列の文字数を返す。

y=15
Ok

print str$(y)
 15
Ok

print right$(str$(y), len(str$(y))-1)
15
Ok

• Lua51インストールディレクトリ\lib\lua\5.1\lfs.dll
• MinGWインストールディレクトリ\bin\libgcc_s_dw2-1.dll

tic80.exe --fs=.
tic80 --fs=.

tic80.exe --fs=hoge

tic80.exe --scale=2
tic80.exe --scale=1

• BDR(4) は SCN(0) と同じ。
• BDR(139) は SCN(135) と同じ。

For users who can't spend the money, we made it easy to build the pro version from the source code: (cmake .. -DBUILD_PRO=On)

nesbox/TIC-80 より

• SCN(n) : n = 描画するラインのy座標。0 - 135 の値が入る。
• BDR(m) : m = 描画するラインのy座標 + 4。0 - 143 の値が入る。0 - 3 は TOP BORDER。140 - 143 は BOTTOM BORDER になっている。

tic80.exe raster1.tic

tic80.exe --fs=.

import tiles tiles3.png
import map map3.map

t=0
x=96
y=24

function TIC()
 cls(13)
 map(0,0)
 local col=0
 local scale=3
 spr(1+t%60//30*2,x,y,col,scale,0,0,2,2)
 col=12
 print("HELLO WORLD!",84,84,col)
 t=t+1
end

--function SCN(row)
function BDR(row)
 local rx,ry
 rx=8*math.cos(math.rad(3*t+4*row))
 ry=6*math.sin(math.rad(2*t+4*row))
 poke(0x3FF9,rx)
 poke(0x3FF9+1,ry)
end

• function BDR(row) - end の中が、ラスタースクロール処理。
• poke(0x3FF9,rx) で、Screen Offset の x値を書き換え。
• poke(0x3FF9+1,ry) で、Screen Offset の y値を書き換え。今気づいたけど、poke(0x3FFA,ry) と書いたほうが良かったかも…。
• Lua で sin,cos を使う時は、math.sin(), math.cos() を使う。
• sin, cos関数に渡される値はラジアン単位。math.rad() を使って、度からラジアンに変換できる。

t=0
x=96
y=24

function TIC()
 local spd=2
 if btn(0) then y=y-spd end
 if btn(1) then y=y+spd end
 if btn(2) then x=x-spd end
 if btn(3) then x=x+spd end

 cls(13)
 map(0,0)
 t=t+1
end

--function SCN(row)
function BDR(row)
 local rx,ry
 local sx,sy=x/10,y/5
 rx=sx*math.cos(math.rad(3*t+4*row))
 ry=sy*math.sin(math.rad(2*t+4*row))
 poke(0x3FF9,rx) -- Screen Offset x
 poke(0x3FFA,ry) -- Screen Offset y
end

function OVR()
 local col=0
 local scale=2
 spr(257+t%60//30*2,
     x,y,col,scale,0,0,2,2)
 col=12
 print("HELLO WORLD!",84,84,col)
end

t=0
x=64
y=32
sy=0

function TIC()
 local spd=2
 if btn(0) then y=y-spd end
 if btn(1) then y=y+spd end
 if btn(2) then x=x-spd end
 if btn(3) then x=x+spd end

 cls(0)
 map(0,0)
 local col=0
 local scale=2
 spr(1+t%60//30*2,x,y,col,scale,0,0,2,2)
 col=12
 print("HELLO WORLD!",84,28,col)
 t=t+1
 sy=math.floor((136*0.7)+16*math.sin(math.rad(t)))

 -- reset palette
 sync(1<<5)
end

--function SCN(row)
function BDR(row)
 local rx,ry=0,0
 
 if row==sy then
  -- palette change
  local PAL_ADDR=0x3FC0
  for i=PAL_ADDR,PAL_ADDR+16*3-1 do
   poke(i,peek(i)*0.5)
  end
 end
 
 if row<sy then
  rx=0
  ry=0
 else
  local dy=row-sy
  rx=1.5*math.cos(math.rad(4*t+55*dy))
  -- ry=-dy*2 -- TIC-80 0.70.6
  ry=dy*2 -- TIC-80 1.0.2164
 end
 
 local SCROFSX=0x3FF9
 local SCROFSY=0x3FFA
 poke(SCROFSX,rx)
 poke(SCROFSY,ry)
end

t=0
x,y=96,24

function TIC()
 cls(13)
 map(0,0)
 spr(1+t%60//30*2,x,y,0,3,0,0,2,2)
 print("HELLO WORLD!",84,84,12)
 t=t+1
end

function BDR(v)
 -- TIC-80 0.90 later
 local y=v-4
 if y<0 or y>135 then return end
 my_bdr(y)
end

function SCN(v)
 -- TIC-80 0.70.6
 my_bdr(v)
end

function my_bdr(y)
 poke(0x3FF9,0)     -- screen offset x
 poke(0x3FFA,y*0.5) -- screen offset y
end