Big_Bird_FrameBlender

Option Explicit

'Script written by Luis Quinones
'www.luisquinonesdesign.com

'Script version Wednesday, June 08, 2011 6:18:01 PM
Call Main()
Sub Main()        

    Dim i    
    For i = 0 To 360                
        If i = 20 Then            
            Dim m        
            For m = 0 To 19                
                Call Rhino.LayerVisible("Plines"& m,True)                    
            Next    
        End If        
        If i = 290 Then            
            Dim x 
            Dim count
            count = 20
            For x = 0 To 19                
                Call Rhino.LayerVisible("Plines"& count,False)                
                count = count - 1
            Next        
        End If        
        Call Rhino.RotateView("g",0,1)
    Next
End Sub