GraphicsWindow.Width=800

GraphicsWindow.Height=600

GraphicsWindow.BackgroundColor="black"

kep = ImageList.LoadImage(Program.Directory + "\tel.jpg")

GraphicsWindow.DrawImage(kep,0,0)

GraphicsWindow.BrushColor = "white"

GraphicsWindow.PenColor="white"

GraphicsWindow.FontSize=40

x = Text.GetCharacter(10052)

ho=Shapes.AddText(x)

GraphicsWindow.Width=800

GraphicsWindow.Height=600

GraphicsWindow.BackgroundColor="black"

aj = ImageList.LoadImage(Program.Directory + "\autoj.png")

ab = ImageList.LoadImage(Program.Directory + "\autob.png")

autoj = Shapes.AddImage(aj)

autob = Shapes.AddImage(ab)

'Shapes.Move(autob,780,450)

'Shapes.Move(autoj,0,300)

'Shapes.Animate(autob,-200,450,3000)

'Shapes.Animate(autoj,700,300,9000)

GraphicsWindow.Width=800

GraphicsWindow.Height=600

GraphicsWindow.BackgroundColor="white"

f = ImageList.LoadImage(Program.Directory + "\fogaskerek.png")

fogaskerek = Shapes.AddImage(f)

Program.Delay(2000)

Shapes.Animate(fogaskerek,300,200,1000)

Program.Delay(2000)

'*******************átlátszatlanság

For i=100 To 0 step-1

  Shapes.SetOpacity(fogaskerek,i)

  Program.Delay(20)

EndFor

For i=0 To 100 step 1

  Shapes.SetOpacity(fogaskerek,i)

  Program.Delay(20)

EndFor

'*******************nagyítás

For i=1 To 3 step 0.1

  Shapes.Zoom(fogaskerek,i,i)

  Program.Delay(40)

EndFor

'*******************forgatás

For i=0 To 360

  Shapes.Rotate(fogaskerek,i)

  Program.Delay(20)

EndFor