branch: elpa/telephone-line
commit 85d25085ef958559f37bbe19c68762c725ae2759
Author: Daniel Bordak <dbor...@fastmail.fm>
Commit: Daniel Bordak <dbor...@fastmail.fm>
Trig Separators!
---
telephone-line-separators.el | 45 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 45 insertions(+)
diff --git a/telephone-line-separators.el b/telephone-line-separators.el
index 469fb8ca79..7d864d2d62 100644
--- a/telephone-line-separators.el
+++ b/telephone-line-separators.el
@@ -66,6 +66,51 @@
(make-instance 'telephone-line-subseparator
:axis-func (lambda (x) (- (expt x 3)))))
+(defvar telephone-line-sin-right
+ (make-instance 'telephone-line-separator :axis-func
(telephone-line-complement sin)))
+(defvar telephone-line-sin-left
+ (make-instance 'telephone-line-separator :axis-func #'sin))
+(defvar telephone-line-sin-hollow-right
+ (make-instance 'telephone-line-subseparator :axis-func
(telephone-line-complement sin)))
+(defvar telephone-line-sin-hollow-left
+ (make-instance 'telephone-line-subseparator :axis-func #'sin))
+
+(defvar telephone-line-halfsin-right
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (sin (/ x
2))))))
+(defvar telephone-line-halfsin-left
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (sin (/ x
2)))))
+(defvar telephone-line-halfsin-hollow-right
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (sin
(/ x 2))))))
+(defvar telephone-line-halfsin-hollow-left
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (sin (/ x
2)))))
+
+(defvar telephone-line-cos-right
+ (make-instance 'telephone-line-separator :axis-func
(telephone-line-complement cos)))
+(defvar telephone-line-cos-left
+ (make-instance 'telephone-line-separator :axis-func #'cos))
+(defvar telephone-line-cos-hollow-right
+ (make-instance 'telephone-line-subseparator :axis-func
(telephone-line-complement cos)))
+(defvar telephone-line-cos-hollow-left
+ (make-instance 'telephone-line-subseparator :axis-func #'cos))
+
+(defvar telephone-line-halfcos-right
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (cos (/ x
2))))))
+(defvar telephone-line-halfcos-left
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (cos (/ x
2)))))
+(defvar telephone-line-halfcos-hollow-right
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (cos
(/ x 2))))))
+(defvar telephone-line-halfcos-hollow-left
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (cos (/ x
2)))))
+
+(defvar telephone-line-tan-right
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (tan (/ x
2.2))))))
+(defvar telephone-line-tan-left
+ (make-instance 'telephone-line-separator :axis-func (lambda (x) (tan (/ x
2.2)))))
+(defvar telephone-line-tan-hollow-right
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (tan
(/ x 2.2))))))
+(defvar telephone-line-tan-hollow-left
+ (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (tan (/ x
2.2)))))
+
(defvar telephone-line-identity-right
(make-instance 'telephone-line-separator :axis-func #'identity))
(defvar telephone-line-identity-left
