Points 0.1.0

このプログラムは画面上に点を打ちます。小さな ● と × の両方を使ってみました。方眼線の色も変えてみました。

実行結果

Small Basic オンラインで実行したスクリーンショットを以下に示します。座標 (100, 100) と座標 (200, 100) に点を打っています。

ソース

Points.txt

● も × も Small Basic では左上の座標を指定します。示したい点の座標をそのまま指定すると、座標の右下に図形が来てしまうので、図形のサイズの半分だけ左上にずらす必要があります。

11行目：● と × のサイズは size という変数に入れています。こうすることで数字の 10 がサイズを表していることが分かりやすくなります。また、サイズを変更したいときにこの行を変更するだけで済みます。
13行目：GraphicsWindow.FillEllipse で座標 (100, 100) に丸い点を描画。
19,20行目：GraphicsWindow.DrawLine の2本の線で座標 (200, 100) に × を描画。
30,31行目：方眼線の色を変えました。前回は c10 = "#CCCCCC99"、c100 = "#66666699" でしたが、今回 c10 = "#00000033"、c100 = "#00000066" としました。こちらのほうがより自然と考えたからです。27,28行目も同様です。

' Points Sample
' Version 0.1.0
' Copyright © 2020 Nonki Takahshi.  The MIT License.
' Last update 2020-08-21

DrawGrid()

' draw point with a circle
x = 100
y = 100
size = 10
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FillEllipse(x - size / 2, y - size / 2, size, size)

' draw point with a cross
x = 200
y = 100
GraphicsWindow.PenColor = "Black"
GraphicsWindow.DrawLine(x - size / 2, y - size / 2, x + size / 2, y + size / 2)
GraphicsWindow.DrawLine(x - size / 2, y + size / 2, x + size / 2, y - size / 2)

Sub DrawGrid
    gw = GraphicsWindow.Width
    gh = GraphicsWindow.Height
    fn = GraphicsWindow.FontName
    If (fn = "Tahoma") Or (fn = "Segoe UI") Then
        c10 = "#33000000"
        c100 = "#66000000"
    Else    ' for SBO
        c10 = "#00000033"
        c100 = "#00000066"
    EndIf
    For x = 0 To gw Step 10
        If Math.Remainder(x, 100) = 0 Then
            GraphicsWindow.PenColor = c100
        Else
            GraphicsWindow.PenColor = c10
        EndIf
        GraphicsWindow.DrawLine(x, 0, x, gh)
    EndFor
    For y = 0 To gh Step 10
        If Math.Remainder(y, 100) = 0 Then
            GraphicsWindow.PenColor = c100
        Else
            GraphicsWindow.PenColor = c10
        EndIf
        GraphicsWindow.DrawLine(0, y, gw, y)
    EndFor
EndSub