GraphicsWindow.Width=810
GraphicsWindow.Height=540

GraphicsWindow.BackgroundColor="#003399"
GraphicsWindow.BrushColor = "#FFCC00"
GraphicsWindow.FontSize=68

star = Text.GetCharacter(9733)
For i=0 To 11
  s[i]=Shapes.AddText(star)
EndFor

f=2*Math.Pi/12
r=180
ey=46
ex=30

For i=0 To 11
  x[i]=405+r*math.Cos(i*f)-ex
  y[i]=270+r*math.Sin(i*f)-ey
EndFor

For i=0 To 11
   Shapes.Move(s[i],405-ex,270-ey)
 EndFor
 
Program.Delay(3000)

For i=0 To 11
   Shapes.Animate(s[i],x[i],y[i],3000)
EndFor
Program.Delay(3000)

For ef=0 To 360
  for i=0 To 11
    Shapes.Rotate(s[i],ef)
  EndFor
  Program.Delay(20)
EndFor

For n=1 To 3 Step .1
  for i=0 To 11
    Shapes.Zoom(s[i],n,n)
  EndFor
  Program.Delay(60)
EndFor

For n=3 To 1 Step -.1
  for i=0 To 11
    Shapes.Zoom(s[i],n,n)
  EndFor
  Program.Delay(60)
EndFor
csx=x[0]
csy=y[0]
For i=0 To 10
  x[i]=x[i+1]
  y[i]=y[i+1]
EndFor
x[11]=csx
y[11]=csy
  
For i=0 To 11
   Shapes.Animate(s[i],x[i],y[i],2000)
EndFor
Program.Delay(2000)

For i=0 To 5
    Shapes.Animate(s[i],x[i+6],y[i+6],3000)
    Shapes.Animate(s[i+6],x[i],y[i],3000)
EndFor
Program.Delay(3000)

For i=0 To 5
    Shapes.Animate(s[i],x[11-i],y[11-i],3000)
    Shapes.Animate(s[11-i],x[i],y[i],3000)
EndFor
Program.Delay(3000)

For i=0 To 11 Step 2
    Shapes.Animate(s[i],x[i+1],y[i+1],3000)
    Shapes.Animate(s[i+1],x[i],y[i],3000)
EndFor
Program.Delay(3000)