(define (dot x y radius)
(embedded-ps (list 'dot x y radius)))
-(define (beam width slope thick)
- (embedded-ps (list 'beam width slope thick)))
+(define (beam width slope thick blot)
+ (embedded-ps (list 'beam width slope thick blot)))
(define (bracket arch_angle arch_width arch_height height arch_thick thick)
(embedded-ps (list 'bracket arch_angle arch_width arch_height height arch_thick thick)))
(define (no-origin) "")
(define-public (tex-output-expression expr port)
- (display (eval expr this-module) port )
- )
+ (display (eval expr this-module) port ))