Microsoft Small Basic

Program Listing: VWN481

List Program

' Pont du Gard
' Copyright © 2018 Nonki Takahashi. The MIT License.
' Lastupdate 2018-02-02

GraphicsWindow.Title = "Pont du Gard"
Init()
GraphicsWindow.BrushColor = bc
GraphicsWindow.FillRectangle(0, 175, gw, 35)
GraphicsWindow.BrushColor = sc
For x = -10 To gw Step 30
GraphicsWindow.FillEllipse(x, 190, 20, 20)
GraphicsWindow.FillRectangle(x, 200, 20, 20)
EndFor
GraphicsWindow.BrushColor = bc
GraphicsWindow.FillRectangle(0, 210, gw, 80)
GraphicsWindow.BrushColor = sc
For x = -5 To gw Step 90
GraphicsWindow.FillEllipse(x, 220, 70, 70)
GraphicsWindow.FillRectangle(x, 255, 70, 70)
EndFor
GraphicsWindow.BrushColor = bc
GraphicsWindow.FillRectangle(0, 290, gw, 60)
GraphicsWindow.BrushColor = sc
For x = -5 To gw Step 90
GraphicsWindow.FillEllipse(x, 300, 70, 70)
GraphicsWindow.FillRectangle(x, 335, 70, 50)
EndFor
GraphicsWindow.BrushColor = wc
GraphicsWindow.FillRectangle(0, 350, gw, gh - 350)

Sub Init
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
sc = "DeepSkyBlue"
bc = "PeachPuff"
wc = "SteelBlue"
GraphicsWindow.BackgroundColor = sc
EndSub