animation_redesign.monkey

Strict                                                                   
                                                                         
Import mojo.graphics                                                     
Import bono                                                              
                                                                         
Function Main:Int()                                                      
    Local director:Director = New Director(640, 480)                     
                                                                         
    Local text:Text = New Text("angel_verdana", New Vector2D(200, 100))  
    text.text = "Hello World"                                            
                                                                         
    Local logo:Sprite = New Sprite("monkey64.png")                       
    logo.pos = director.size.Copy().Sub(logo.size)                       
                                                                         
    Local anim:Animation = New Animation(5000, New TransitionInOutQuad())
    anim.Add(New EffectAlpha(0, 1, logo)) 
    anim.Add(New EffectAlpha(0, 1, text))                                
    anim.Start()                                                         
                                                                         
    director.Run(anim)                                                   
    Return 0                                                             
End