[BASICのはじめ方] Part22: シンプルなグラフィックデモ

' 画面モードを VGA 320x200 256色モードに設定する例 (QBasicなど)
SCREEN 13

' FreeBASIC など、より高解像度なモードを使う例
' SCREENRES 横ピクセル数, 縦ピクセル数, 色数
' 例: 640x480 256色モード
SCREENRES 640, 480, 8

' 画面モード設定 (環境に合わせて変更してください)
SCREEN 13 ' 例: QBasic 320x200 256色モード

DIM x AS INTEGER    ' 円の中心x座標
DIM y AS INTEGER    ' 円の中心y座標 (今回は固定)
DIM dx AS INTEGER   ' x座標の変化量 (移動方向と速度)
DIM radius AS INTEGER ' 円の半径
DIM circleColor AS INTEGER ' 円の色
DIM bgColor AS INTEGER ' 背景色 (消去用)

' --- 初期設定 ---
x = 160         ' 画面の横中央あたりから開始
y = 100         ' 画面の縦中央あたり
radius = 20     ' 半径を20ピクセルに
circleColor = 14 ' 明るい黄色 (色はモードによって異なります)
bgColor = 0     ' 背景色 (通常は0が黒)
dx = 2          ' 1フレームあたり2ピクセル右に移動

' --- メインループ ---
DO
    ' 1. 前のフレームの円を消す (背景色で同じ場所に描画)
    CIRCLE (x, y), radius, bgColor

    ' 2. 円の中心座標を更新
    x = x + dx

    ' 3. 画面の端に来たら移動方向を反転
    '    (円の半径も考慮して判定)
    IF x + radius > 319 THEN ' 右端チェック (320x200モードの場合)
        x = 319 - radius ' 端にめり込まないように調整
        dx = -dx         ' 左向きに反転
    ELSEIF x - radius < 0 THEN ' 左端チェック
        x = radius       ' 端にめり込まないように調整
        dx = -dx         ' 右向きに反転
    END IF

    ' 4. 新しい位置に円を描画
    CIRCLE (x, y), radius, circleColor

    ' 5. 少し待機 (速度調整) - 環境に合わせて命令を選択
    ' FOR i = 1 TO 500: NEXT i ' 古いBASICでの時間稼ぎループ例
    SLEEP 10, 1 ' FreeBASIC などでの待機例 (10ミリ秒, 1はキー入力待ちをしないオプション)

LOOP UNTIL INKEY$ <> "" ' 何かキーが押されたらループを抜ける

END ' プログラム終了

SCREEN 13 ' 例: 320x200 256色モード
RANDOMIZE TIMER ' 乱数の種を設定 (毎回違うパターンにするため)

DIM x AS INTEGER, y AS INTEGER, c AS INTEGER

DO
    ' ランダムな座標 (x, y) を決める
    x = INT(RND * 320) ' 0 から 319 の範囲
    y = INT(RND * 200) ' 0 から 199 の範囲

    ' ランダムな色を決める (1から15の範囲など、モードによる)
    ' 0は背景色として使われることが多いので避ける
    c = INT(RND * 15) + 1

    ' 点を描画
    PSET (x, y), c

    ' CPU使用率を下げるための短い待機 (任意)
    SLEEP 1, 1

LOOP UNTIL INKEY$ <> "" ' 何かキーが押されたら終了

END