-
Notifications
You must be signed in to change notification settings - Fork 1
/
alien.sco
172 lines (75 loc) · 1.27 KB
/
alien.sco
1
t0 79f 1 0 1024 7 -1 1024 1 ;Saw wavef 2 0 1024 7 1 512 1 0 -1 512 -1 ;Square wavef 3 0 1024 9 1 1 0i 90 0 90#define BEATUSWONCE(WHEN) #i1 $WHEN .5 1000 100 1i1 + .5 1000 100 1i1 + 1 1000 200 2i1 + .5 1000 100 1i1 + .5 1000 100 1i1 + 1 1000 200 2i1 + .5 1000 175 2i1 + 1 1000 100 2i1 + .5 1000 100 1i1 + .5 1000 100 1i1 + 1 1000 200 2i2 $WHEN .5 1000 i2 + 1 1000 i2 + .5 1000 i2 + .5 1000i2 + 1 1000 i2 + .5 1000 i2 + .5 500 i2 + .5 700 i2 + .5 1100i2 + .5 1000i2 + 1 1000 i2 + .5 1000 ##define GLISS711(WHEN) #i3 $WHEN .1 1000 700i3 + .1 1000 800i3 + .1 1000 900i3 + .1 1000 1000i3 + .25 1000 1100 # #define GLISS1115(WHEN) #i3 $WHEN .1 1000 1100i3 + .1 1000 1200i3 + .1 1000 1300i3 + .1 1000 1400i3 + .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 1i19 + 4 100i19 + 4 10i19 + 4 1000i19 + 4 1i19 + 4 100i19 + 4 10i19 + 4 1000i39 0 5 1 0i39 + 5 10 1i39 + 5 1 2i39 + 5 10 3i39 + 5 1 4i39 + 5 10 1i39 + 5 1 5i39 + 5 10 3i39 + 5 1 7