Microsoft Small Basic

Program Listing: SMT641
' Challenge of the month December 2013 reflection of a picture by NaochanON

gui()

While NN<31
NN=NN+1
GraphicsWindow.BrushColor= GraphicsWindow.GetRandomColor()
GFS=40+Math.GetRandomNumber(50)
GraphicsWindow.FontSize=GFS
SHP["L"][NN]=Shapes.AddText(Text.GetCharacter(LST[NN]))
SHP["R"][NN]=Shapes.AddText(Text.GetCharacter(LST[NN]))
RY=1000-Math.GetRandomNumber(2000)
RY2=100+math.GetRandomNumber(200)
Shapes.Move(SHP["L"][NN],-2000,RY)
Shapes.Move(SHP["R"][NN], 2000,RY)
Shapes.Animate(SHP["L"][NN],400-2-GFS,RY2,2000)
Shapes.Animate(SHP["R"][NN],400+2,RY2,2000)
Program.Delay(2010)
Shapes.Animate(SHP["L"][NN],-2000,RY2-RY,2000)
Shapes.Animate(SHP["R"][NN],2000,RY2-RY,2000)
endwhile
GraphicsWindow.FontSize=35
MSG=Shapes.AddText("How many characters are asymmetry?")
Shapes.Move(msg,50,2000)
Shapes.Animate(msg,50,100,3000)
Program.Delay(5000)
Program.End()


Sub gui
GraphicsWindow.Width=800
GraphicsWindow.Height=400
GraphicsWindow.BackgroundColor="White"
GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillRectangle(400-2,0,4,400)
LST="1=9742;2=9745;3=9746;4=9747;5=9748;6=9749;7=9750;8=9751;9=9752;10=9753;11=9754;12=9755;"
LST=LST+"13=9924;14=9991;15=9992;16=10048;17=10049;18=10050;19=10051;20=10052;21=10053;22=10054;23=10055;"
LST=LST+"24=10056;25=10057;26=10058;27=10059;28=9728;29=9760;30=9792;31=9824"
EndSub