# Example4
# picprojects.org.uk
#

print "Running "Example4.txt" demo script"

define address test3 = 0,16,32
define address test2 = 0,32


repeat 10
    select from nofades, fades
next


sub nofades
    print "Select from nofades"
    select from nf1, nf2, nf3
    
return

sub fades
    print "Select from fades"
    select from fa1, fa2, fa3

return


sub nf1
    
    repeat 10
        colour red nofade to all
        transfer to all
        fastpause 1
        colour black nofade to all
        transfer to all
        fastpause 1
        
    next
        
return

sub nf2
    repeat 10
        colour green nofade to all
        transfer to all
        fastpause 1
        colour black nofade to all
        transfer to all
        fastpause 1
        
    next
return

sub nf3
    repeat 10
        colour blue nofade to all
        transfer to all
        fastpause 1
        colour black nofade to all
        transfer to all
        fastpause 1
        
    next
return


sub fa1
    repeat 4
        colour cyan fade 2 to all
        transfer to all
        pause 3
        colour magenta fade 2 to all
        transfer to all
        pause 3
    next
return


sub fa2
    repeat 4
        colour yellow fade 2 to all
        transfer to all
        pause 3
        colour cyan fade 2 to all
        transfer to all
        pause 3
    next
return

sub fa3
    repeat 4
        colour yellow fade 2 to all
        transfer to all
        pause 3
        colour magenta fade 2 to all
        transfer to all
        pause 3
    next
return

