Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Timing}
- $start_time := $ENGINE_UPTIME
- {Counters}
- $step_counter:=0
- $prefilter_counter:=0
- $postfilter_counter := 0
- {Ignore first played note}
- if($step_sequencer=1)
- ignore_event($EVENT_ID)
- end if
- while($NOTE_HELD = 1)
- {Step Sequencer}
- if($step_sequencer=1 and (($ENGINE_UPTIME-$start_time) mod ($step_length/1000)) = 0)
- if(%steps[$step_counter] >= 1)
- play_note($EVENT_NOTE,%steps[$step_counter],0,$step_length/$step_divisor)
- end if
- $step_counter := $step_counter + 1
- if($step_counter >= $step_num_steps)
- $step_counter := 0
- end if
- end if
- {Pre Filter Sequencer}
- if($prefilter_seq_enable=1 and (($ENGINE_UPTIME-$start_time) mod ($prefilter_length/1000)) = 0)
- $count := 0
- while($count < $NUM_GROUPS)
- {set_engine_par($ENGINE_PAR_CUTOFF,%prefilter_steps[$prefilter_counter],$count,$prefilter_position,-1)}
- 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"))
- message("")
- inc($count)
- end while
- $prefilter_counter:=$prefilter_counter+1
- if($prefilter_counter >= $prefilter_num_steps)
- $prefilter_counter:=0
- end if
- end if
- {Post Filter Sequencer}
- if($postfilter_seq_enable=1 and (($ENGINE_UPTIME-$start_time) mod ($postfilter_length/1000)) = 0)
- $count := 0
- while($count < $NUM_GROUPS)
- set_engine_par($ENGINE_PAR_CUTOFF,%postfilter_steps[$postfilter_counter],-1,$postfilter_position,1)
- inc($count)
- end while
- $postfilter_counter:=$postfilter_counter+1
- if($postfilter_counter >= $postfilter_num_steps)
- $postfilter_counter:=0
- end if
- end if
- wait(1000)
- end while
- end on
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement