SmallBasicのコードは次のとおりです。
GraphicsWindow.CanResize = 0
GraphicsWindow.Width = 201
GraphicsWindow.Height = 300
X = 0
circumstance = 0
'Initialization
GraphicsWindow.SetPixel(100,0,"Black")
code = "01111111"
'Start
For i=1 To GraphicsWindow.Height
For X=0 To GraphicsWindow.Width
Program.Delay(1)
If X>0 Then
If GraphicsWindow.GetPixel(X-1,i-1) = "Black" Then
circumstance = circumstance + 1
EndIf
EndIf
If GraphicsWindow.GetPixel(X,i-1) = "Black" Then
circumstance = circumstance + 10
EndIf
If X<GraphicsWindow.Width Then
If GraphicsWindow.GetPixel(X+1,i-1) = "Black" Then
circumstance = circumstance + 100
EndIf
EndIf
TextWindow.WriteLine(circumstance)
EndFor
EndFor
グラフィックウィンドウをピクセルごとに表示します。変数「状況」はそれが見つけたものです。ターゲットピクセルの左上に黒いピクセルがある場合、最初の桁は1になります。ターゲットピクセルの左上に黒いピクセルがある場合、2番目の桁は1になります。ターゲットピクセルの右上では、3桁目は1になります。しかし、私が何を試しても、状況は常に000を出力します。