Bring back drawing tool customization

What I have done is the following.  Create two Cals. One to increment selected velocities by one and the other to decrement velocities by one. I named these cal files "Velocity up.cal and "Velocity down.cal" respectively and placed them in the cal folder.  You can find this folder by checking your "folder locations" settings.  While probably not an eligant solution, but it works for me..

Then I mapped one key combination (SHIFT PAGE-UP) to "Velocity up.cal and another (SHIFT PAGE-DOWN) to "Velocity down.cal"
 
Here are the respective cals
-
Velocity up.cal
_________________________________________________________
(forEachEvent
    (if (&& (== Event.Kind NOTE) (< Note.Vel 127))   
        (do
            (+= Note.Vel 1)
        )
    )
)
_________________________________________________________
 
Velocity down.cal
_________________________________________________________
(forEachEvent
    (if (&& (== Event.Kind NOTE) (>= Note.Vel 1))   
        (do
            (-= Note.Vel 1)
        )
    )
)
_________________________________________________________

promidi
What I have done is the following.  Create two Cals. One to increment selected velocities by one and the other to decrement velocities by one. I named these cal files "Velocity up.cal and "Velocity down.cal" respectively and placed them in the cal folder.  You can find this folder by checking your "folder locations" settings.  While probably not an eligant solution, but it works for me..

Then I mapped one key combination (SHIFT PAGE-UP) to "Velocity up.cal and another (SHIFT PAGE-DOWN) to "Velocity down.cal"
 
Here are the respective cals
-
Velocity up.cal
_________________________________________________________
(forEachEvent
   (if (&& (== Event.Kind NOTE) (< Note.Vel 127))   
       (do
           (+= Note.Vel 1)
       )
   )
)
_________________________________________________________
 
Velocity down.cal
_________________________________________________________
(forEachEvent
   (if (&& (== Event.Kind NOTE) (>= Note.Vel 1))   
       (do
           (-= Note.Vel 1)
       )
   )
)
_________________________________________________________

Nice! Very useful. Thank you.

Adq
What do you think guys, is it possible that Cakewalk admit their evident mistake after so many years, and so many user requests, and return it back in some way?

Hope so!

bump