alien.sco

t0 79

f 1 0 1024 7 -1 1024 1 ;Saw wave

f 2 0 1024 7 1 512 1 0 -1 512 -1 ;Square wave

f 3 0 1024 9 1 1 0



i 90 0 90

#define BEATUSWONCE(WHEN) #

i1 $WHEN .5 1000 100 1

i1 + .5 1000 100 1

i1 + 1 1000 200 2

i1 + .5 1000 100 1

i1 + .5 1000 100 1

i1 + 1 1000 200 2

i1 + .5 1000 175 2

i1 + 1 1000 100 2

i1 + .5 1000 100 1

i1 + .5 1000 100 1

i1 + 1 1000 200 2





i2 $WHEN .5 1000 

i2 + 1 1000 

i2 + .5 1000 

i2 + .5 1000

i2 + 1 1000 

i2 + .5 1000 

i2 + .5 500 

i2 + .5 700 

i2 + .5 1100

i2 + .5 1000

i2 + 1 1000 

i2 + .5 1000 

#





#define GLISS711(WHEN) #

i3 $WHEN .1 1000 700

i3 + .1 1000 800

i3 + .1 1000 900

i3 + .1 1000 1000

i3 + .25 1000 1100 # 



#define GLISS1115(WHEN) #

i3 $WHEN .1 1000 1100

i3 + .1 1000 1200

i3 + .1 1000 1300

i3 + .1 1000 1400

i3 + .25 1000 1500 # 

$BEATUSWONCE(0)

$BEATUSWONCE(7.5)

$BEATUSWONCE(15)

$BEATUSWONCE(22.5)



$GLISS711(2)

$GLISS1115(4)

$GLISS711(6)

$GLISS1115(8)

$GLISS711(10)

$GLISS1115(12)

$GLISS711(14)

$GLISS1115(16)

$GLISS711(20)

$GLISS1115(24)

$GLISS711(28)

$GLISS1115(32)



i19 0 4 1

i19 + 4 100

i19 + 4 10

i19 + 4 1000

i19 + 4 1

i19 + 4 100

i19 + 4 10

i19 + 4 1000



i39 0 5 1 0

i39 + 5 10 1

i39 + 5 1 2

i39 + 5 10 3

i39 + 5 1 4

i39 + 5 10 1

i39 + 5 1 5

i39 + 5 10 3

i39 + 5 1 7