(define (placebox x y expr)
(entity 'g
-
- ;; FIXME -- JCN
- ;;(dispatch expr)
expr
- `(transform . ,(format #f "translate (~f, ~f)"
+ ;; FIXME: Not using GNU coding standards [translate ()] here
+ ;; to work around a bug in Microsoft Internet Explorer 6.0
+ `(transform . ,(format #f "translate(~f, ~f)"
x (- y)))))
(define (polygon coords blot-diameter is-filled)
(map offset->point (ly:list->offsets '() coords))))
))
+;; rotate around given point
+(define (setrotation ang x y)
+ (format "<g transform=\"rotate(~a,~a,~a)\">"
+ (number->string (* -1 ang))
+ (number->string x)
+ (number->string (* -1 y))))
+
+(define (resetrotation ang x y)
+ "</g>")
+
(define (round-filled-box breapth width depth height blot-diameter)
(entity 'rect ""
;; The stroke will stick out. To use stroke,