; For the SynTecno TeeBee 303, a '303 glidemaker'. ; By H kan 'Zap' Andersson | zap@lysator.liu.se | http://zap.base.org ; Turns all notes played *legato* into TeeBee glides ; ; HOW TO USE ; Record your sequence. One tip is to slow down the tempo (use the 0.5 button ; in the Cakewalk toolbar). Wherever you want a slide, just play the notes ; legato-style (i.e. press the new note BEFORE releasing the old one) ; ; Another way is to step-enter, and use the piano-roll view to drag the end ; of the notes you want to glide out gurther, so they overlap (on the time axis) ; the following note. ; ; When you play legato, the teebee plays your notes with a sort of "instant ; slide", i.e. it doesn't retrigger, but it doesn't slide either ; But if you use this CAL routine, all these overlaps will be detected, and ; recalculated to become teebee SLIDES. ; ; Just select the sequence you want to affect, and run this CAL routine (do (include "need20.cal") ; Require version 2.0 or higher of CAL (dword lastEnd 0) (dword lastStart 0) (forEachEvent (do (if (== Event.Kind NOTE) (do (if (> Event.Time 0) (= lastStart (- Event.Time 1)) ) (if (> lastEnd 0) (if (< Event.Time lastEnd) (insert lastStart Event.Chan CONTROL 0 1) (insert lastEnd Event.Chan CONTROL 0 0) ) ) (= lastEnd (+ Event.Time Note.Dur)) (if (> Event.Time 0) (= lastStart (- Event.Time 10)) ) ) ) (if (== Event.Kind CONTROL) (do (if (== Control.Num 0) (delete) ) ) ) )) (insert lastEnd Event.Chan CONTROL 0 0) )