Microsoft Small Basic

Program Listing: FQL761

List Program

' Face animation
' original by mahreen miangul, 2015
' modified by Nonki Takahashi, 2020

GraphicsWindow.Width = 400
GraphicsWindow.Height = 300

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(100, 60, 200, 150)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(130, 80, 50, 50)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(220, 80, 50, 50)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(180, 110, 40, 60)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(60, 90, 40, 60)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawEllipse(300, 90, 40, 60)

GraphicsWindow.PenColor = "Red"
GraphicsWindow.BrushColor = "Transparent"
mouth = Shapes.AddEllipse(40, 20)
Shapes.Move(mouth, 180, 180)
While "True"
For scale = 1.1 To 2 Step 0.1
Shapes.Zoom(mouth, scale, 1)
Program.Delay(50)
EndFor
For scale = 1.9 To 1 Step -0.1
Shapes.Zoom(mouth, scale, 1)
Program.Delay(50)
EndFor
EndWhile