;A rather drastic way to standardize the loudness of each style.
;Each volume controller is set to 90.
;Each note-on velocity is set to a random value between 80 thru 99 (for some human feel)
;This program may be useful if the difference in loudness between differen parts and tracks are
;incorrect. 
;To maintain these differences and just change the overall loudness use AvarageLoudness.stp.
Define Dice Numeric
Define Velocity Numeric
ForEachStyle 
  PrintLine StyleName
  ForEachPart
    ForEachTrack
      ForEachEvent
        If EventType = 3           ;Controller
          If DataByte1 = 7         ;Volume
            Let DataByte2 = 90     ;Volume is 90                  *** CUSTOMIZE VALUES HERE ***
            UpdateEvent
          EndIf
        EndIf
        If EventType = 1             ;Note on  
          Let Dice = Random          ;Random value 0 thru 999
          Let Dice = Divide Dice 50  ;Random value 0 thru 19
          Let Velocity = Add 80 Dice ;Random value 80 thru 99    *** CUSTOMIZE VALUES HERE ***
          Let DataByte2 = Velocity   
          UpdateEvent 
        EndIf
      NextEvent
    NextTrack
  NextPart
  SaveStyle
NextStyle