Advertisement
Guest User

Untitled

a guest
Jan 17th, 2017
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.14 KB | None | 0 0
  1. {Timing}
  2. $start_time := $ENGINE_UPTIME
  3.  
  4. {Counters}
  5. $step_counter:=0
  6. $prefilter_counter:=0
  7. $postfilter_counter := 0
  8.  
  9. {Ignore first played note}
  10. if($step_sequencer=1)
  11. ignore_event($EVENT_ID)
  12. end if
  13.  
  14.  
  15. while($NOTE_HELD = 1)
  16.  
  17. {Step Sequencer}
  18.  
  19. if($step_sequencer=1 and (($ENGINE_UPTIME-$start_time) mod ($step_length/1000)) = 0)
  20.  
  21. if(%steps[$step_counter] >= 1)
  22. play_note($EVENT_NOTE,%steps[$step_counter],0,$step_length/$step_divisor)
  23. end if
  24.  
  25. $step_counter := $step_counter + 1
  26.  
  27. if($step_counter >= $step_num_steps)
  28. $step_counter := 0
  29. end if
  30.  
  31. end if
  32.  
  33. {Pre Filter Sequencer}
  34.  
  35. if($prefilter_seq_enable=1 and (($ENGINE_UPTIME-$start_time) mod ($prefilter_length/1000)) = 0)
  36.  
  37. $count := 0
  38. while($count < $NUM_GROUPS)
  39. {set_engine_par($ENGINE_PAR_CUTOFF,%prefilter_steps[$prefilter_counter],$count,$prefilter_position,-1)}
  40. set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,%prefilter_steps[$prefilter_counter],$count,find_mod(0,"FILTER_CUTOFF_CONSTANT"),find_target(0, }find_mod(0, "FILTER_CUTOFF_CONSTANT"), "FILTER_CUTOFF_CONSTANT"))
  41. message("")
  42. inc($count)
  43. end while
  44.  
  45. $prefilter_counter:=$prefilter_counter+1
  46.  
  47. if($prefilter_counter >= $prefilter_num_steps)
  48. $prefilter_counter:=0
  49. end if
  50.  
  51. end if
  52.  
  53. {Post Filter Sequencer}
  54.  
  55. if($postfilter_seq_enable=1 and (($ENGINE_UPTIME-$start_time) mod ($postfilter_length/1000)) = 0)
  56.  
  57. $count := 0
  58. while($count < $NUM_GROUPS)
  59. set_engine_par($ENGINE_PAR_CUTOFF,%postfilter_steps[$postfilter_counter],-1,$postfilter_position,1)
  60. inc($count)
  61. end while
  62.  
  63. $postfilter_counter:=$postfilter_counter+1
  64.  
  65. if($postfilter_counter >= $postfilter_num_steps)
  66. $postfilter_counter:=0
  67. end if
  68.  
  69. end if
  70.  
  71. wait(1000)
  72. end while
  73.  
  74. end on
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement