CAL Script: trigonometric operators?

;
; FOR EACH NOTE SELECTED...
; Write a series of controllers in a sine wave pattern
; for the duration of the note
;
; Parameters:
; Controller = CC#
; min = min value for CC 
; max = min value for CC
; xtop & xbottom define the frequency
; The ratio of xtop to xbottom allows for fractions, 
; e.g., 1 (xtop) / 2 (xbottom) means 1/2 cycle per note, & 4/1 = 4 cycles per note
; Offset = allows you to start waveform at different positions
; e.g., 90 starts at max, 270 starts at min, 0 & 180 start at midpt between max & min
;
;
; The SIN curve is created using Bhaskara I's sine approximation formula:
; SIN(x) = 4x(180-x)/(40500-x(180-x))
;
; The Bhaskara formula only works great for about the first 180 degrees, 
; so I basically only really use the first 180 degrees & transform it
; for any other input value.
;
; sjrb, 7/1/14
;
;
; Prologue - Executed once at start
;
(do
 ; Init some Variables
 
 ; prompted user values - defaults
 (int evController 12) ; selected controller
 (long min 10) ; min value of waveform
 (long max 120) ; max value of waveform
 (long xtop 1) ; sin frequency - top (numerator)
 (long xbottom 1) ; sin frequency - bottom (denominator), freq is in top/bottom (allows for fractions)
 (long offset 0) ; offset in degrees - allows you to start at different places in waveform
; User Prompts (if desired... otherwise comment 'em out...)
 (getInt evController "Input CC#" 0 127)
 (getInt min "Input CC minimum value" 0 127)
 (getInt max "Input CC maximum value" 0 127)
 (getInt xtop "Input cycles/note numerator" 1 120)
 (getInt xbottom "Input cycles/note denominator" 1 120)
 (getInt offset "Input offset in degrees" 0 359)
; config stuff - mod these to change behavior
 (long timeinc 120) ; distance between controller events in ticks
; event details
 (long evChan 0)
 (long evVal 0)
 (long evTime 0)
; work variables 
 (long currTime 0) ; time being operated on
 (long xval 0) ; input for sin calc (in degrees)
 (long xresult 0) ; output of sin calc
 (long xmod180 0) ; temp used during calc
 (long xd180m2 0) ; temp used during calc
 (long xf180x 0) ; temp used during calc
 (long divisor 0) ; temp used during calc
 (long ranged2 0) ; temp used during calc
 (long temp 0) ; temp used during calc
; doesn't work too well if min > max....
 (if (< max min) (do
 (= temp min)
 (= min max)
 (= max temp)
 ))
; 1/2 range (max-min) is used in a couple places...
 (= ranged2 (/ (- max min) 2))
)
;
; Body - Executed once per selected event 
;
(do
(if (== Event.Kind NOTE) (do
(= currTime 0)
 (= evChan Event.Chan)
(while (<= currTime Note.Dur) (do
; how far are you thru the note * freq = (time/dur) * (top/bottom)
 (= xval (+ offset (/ (* (* currTime 360) xtop) (* Note.Dur xbottom))))
; Start of Bhaskara algorithm
 ; If you want to reuse this logic, 
 ; load up xval with your input angle prior to getting here
; These mods & divs help me mirror 0-180 degrees for 180-360
 (= xmod180 (% xval 180))
 (= xd180m2 (% (/ xval 180) 2))
; x(180-x) is used a couple times in calc, so do it once here
 (= xf180x (* xmod180 (- 180 xmod180)))
; Build the divisor used in the algorithm
 (= divisor (- 40500 xf180x))
; This is where you reverse it if is 180-360
 ; Note formula modified by ranged2 here to scale it to min/max
 (if (== xd180m2 0)
 (= xresult (* 4 ranged2))
 ;else 
 (= xresult (* -4 ranged2)))
 (*= xresult xf180x)
; This wraps up the Bhaskara algorithm, result now in xresult
 (/= xresult divisor)
; Offset from min value...
 (+= xresult min)
 ; Offset by 1/2 of range to keep everything +
 (+= xresult ranged2)
 
 ; debug...
 ;(pause "input: " xval " output: " xresult)
 ;(pause "input: " xval " xmod180: " xmod180)
 ;(pause "input: " xval " xd180m2: " xd180m2)
 ;(pause "input: " xval " xf180x: " xf180x)
 ;(pause "input: " xval " divisor: " divisor)
; Do some safety edits, then pass result to evVal
 (if (< xresult min) (= xresult min))
 (if (> xresult max) (= xresult max))
 (= evVal xresult)
; insert controller event
 (= evTime (+ currTime Event.Time)) 
 (insert evTime evChan CONTROL evController evVal)
 
 ; increment time...
 (+= currTime timeinc)
)) ; End of While
)) ; End of IF NOTE
) ; End of Body

;
; Epilogue - Executed once at end
;
(do
 (pause "Complete!") 
)