Microsoft Small Basic

Program Listing: VWH585

List Program

XMAX = 639
YMAX = 531
HABA = 60
RITTAIDO = 2
MASUX = 5
MASUY = 5
GraphicsWindow.BackgroundColor="Black"
GraphicsWindow.Width = 635
GraphicsWindow.Height = 534
PX=180
PY=250
R=140
CNumber=6
wr=40
NAKANUKECIRCLE()
PX=230
PY=180
R=120
CNumber=10
wr=30
NAKANUKECIRCLE()
PX=390
PY=200
R=160
CNumber=13
wr=50
NAKANUKECIRCLE()
For Y = 0 To YMAX Step MASUY
For i = 0 To XMAX
COL2[i] = 0
EndFor
TAKASALOAD()
For X = 0 To XMAX Step MASUX
TAKASA1 = TAKASA[X] * RITTAIDO
If COL2[X] = 0 Then
COL2[X] =Math.GetRandomNumber(8)+1
EndIf
CNumber=COL2[X]
QBColor()
GraphicsWindow.BrushColor=col
GraphicsWindow.FillRectangle( X, Y, MASUX - 1, MASUY - 1)
TUGI = X + HABA - TAKASA1
If TUGI + MASUX < XMAX Then
For i = 0 To MASUX - 1
COL2[TUGI + i] = COL2[X]
EndFor
EndIf

EndFor
EndFor
Sub NAKANUKECIRCLE
QBColor()
GraphicsWindow.PenColor=col
GraphicsWindow.PenWidth=wr
GraphicsWindow.DrawEllipse(PX-R,PY-R,R*2,R*2)
EndSub
Sub QBCN
If (col1 = "#000000") Or (col1="FF000000") Then
CNumber1 = 0
ElseIf (col1 = "#000080") Or (col1 = "#FF000080") Then
CNumber1 = 1
ElseIf (col1 = "#008000") Or (col1 = "#FF008000") Then
CNumber1= 2
ElseIf (col1 = "#008080") Or (col1 = "#FF008080") Then
CNumber1 = 3
ElseIf (col1 = "#800000") Or (col1 = "#FF800000") Then
CNumber1 = 4
ElseIf (col1 = "#800080") Or (col1 = "#FF800080") Then
CNumber1 = 5
ElseIf (col1 = "#808000") Or (col1 = "#FF808000") Then
CNumber1 = 6
ElseIf (col1 = "#C0C0C0") Or (col1 = "#FFC0C0C0") Then
CNumber1 = 7
ElseIf (col1 = "#808080") Or (col1 = "#FF808080") Then
CNumber1 = 8
ElseIf (col1 = "#0000FF") Or (col1 = "#FF0000FF") Then
CNumber1 = 9
ElseIf (col1 = "#00FF00" ) Or (col1 = "#FF00FF00" ) Then
CNumber1 = 10
ElseIf (col1 = "#00FFFF") Or (col1 = "#FF00FFFF") Then
CNumber1 = 11
ElseIf (col1 = "#FF0000") Or (col1 = "#FFFF0000") Then
CNumber1 = 12
ElseIf (col1 = "#FF00FF") Or (col1 = "#FFFF00FF") Then
CNumber1 = 13
ElseIf (col1 = "#FFFF00") Or (col1 = "#FFFFFF00") Then
CNumber1 = 14
ElseIf (col1 = "#FFFFFF") Or (col1 = "#FFFFFFFF") Then
CNumber1 = 15
EndIf
Endsub
Sub QBColor
If (CNumber=0) Then
col="Black"
EndIf
If (CNumber=1) Then
col="Navy"
EndIf
If (CNumber=2) Then
col="Green"
EndIf
If (CNumber=3) Then
col="Teal"
EndIf
If (CNumber=4) Then
col="Maroon"
EndIf
If (CNumber=5) Then
col="Purple"
EndIf
If (CNumber=6) Then
col="Olive"
EndIf
If (CNumber=7) Then
col="Silver"
EndIf
If (CNumber=8) Then
col="Gray"
EndIf
If (CNumber=9) Then
col="Blue"
EndIf
If (CNumber=10) Then
col="Lime"
EndIf
If (CNumber=11) Then
col="Aqua"
EndIf
If (CNumber=12) Then
col="Red"
EndIf
If (CNumber=13) Then
col="Fuchsia"
EndIf
If (CNumber=14) Then
col="Yellow"
EndIf
If (CNumber=15) Then
col="White"
EndIf
EndSub
Sub TAKASALOAD
For X = 0 To XMAX
col1 = GraphicsWindow.GetPixel(X, Y)
QBCN()
TAKASA[X] = CNumber1
EndFor
GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillRectangle(0,Y,XMAX,MASUY)
EndSub