- (case style
- ((default)
- (if (< duration -1)
- '(0.0 . 0.6) ;; neo-mensural
- '(1.0 . 0.5) ;; default
- ))
- ((cross) '(1.0 . 0.75))
- ((mensural) '(0.0 . 0.6))
- ((neo_mensural) '(0.0 . 0.6))
- ((diamond) '(1.0 . 0.8))
- ((transparent) '(1.0 . 1.0))
- ((slash) '(1.0 . 1.0))
- ((harmonic) '(1.0 0.0))
-
- ;;
- ;;UGH this needs to be changed: triangle is not point-symmetric, has different attachments
- ;; for up/down stem
- ((triangle) '(0.75 . 0.15))
- ((baroque)
- (if (< duration 0)
- '(0.0 . 0.6) ;; neo-mensural
- '(1.0 . 0.5) ;; default
- ))
- (else
-
- ;; this also works for easy notation.
- '(1.0 . 0.0)
- )))