スモールベーシック(SmallBasic)-タワーグラフィックス

マイクロソフト
マイクロソフトの小型基本(Microsoft Small Basic)は、マイクロソフトの無料ソフトウェア制作の教育言語の一つである.この言語はBasicをベースにしています.
test_code1.sb

Turtle.Show()
Turtle.Speed = 10
GraphicsWindow.BackgroundColor = "pink"
GraphicsWindow.PenColor = "red"

For loop = 1 To 5
  
  If loop = 2 Then
    GraphicsWindow.PenColor = "green"
  EndIf
  
  If loop = 3 Then
    GraphicsWindow.PenColor = "black"
  EndIf
  
  If loop = 4 Then
    GraphicsWindow.PenColor = "yellow"
  EndIf
  
  If loop = 5 Then
    GraphicsWindow.PenColor = "blue"
  EndIf
  
  
    For i = 1 To 45 
        Turtle.Turn(8)
        Turtle.Move(10)
    EndFor
    Turtle.Turn(72)
    
EndFor
Turtle.Hide()

test_code2.sb

これは下手なコードですから、あまり意味がないでください!!

Turtle.Show()
Turtle.Speed = 10 
Turtle.X = GraphicsWindow.Width/2
Turtle.Y = GraphicsWindow.Height/2

n = 256
turn = 30 
GraphicsWindow.BackgroundColor = "black"
GraphicsWindow.PenColor = "green"
Turtle.Hide()

for loop = n To 1 Step -(Math.GetRandomNumber(8))
  T_Circle()
  Turtle.Turn(360/loop)
  GraphicsWindow.Title = loop+",X=>"+Turtle.X+",Y=>"+Turtle.Y
  
  If Math.Remainder(loop,2) = 1 Then 
    turn = 30
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  Else 
    turn = -30
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  EndIf
EndFor

Sub T_Circle
  For i = 1 To 12
    Turtle.Turn(turn*2)
    Turtle.Move(loop*360)
  EndFor
EndSub 

関連資料
スモール・ベース・サイト
https://smallbasic-publicwebsite.azurewebsites.net/
チュートリアル
https://smallbasic-publicwebsite.azurewebsites.net/tutorials
ダウンロード
https://smallbasic-publicwebsite.azurewebsites.net/assets/SmallBasic_v1.2.msi