+2004-06-13 Jan Nieuwenhuizen <janneke@gnu.org>
+
+ * scm/framework-gnome.scm: Do not load output-gnome.
+ (framework-gnome): Invoke output-gnome::header and
+ output-gnome::end-output as faked stencils. Fixes experimental
+ gnome output.
+
2004-06-13 Han-Wen Nienhuys <hanwen@xs4all.nl>
* lily/system.cc (get_line): extract page-penalty from the left
(use-modules
(guile)
- (lily)
- (scm output-gnome))
+ (lily))
;; dump?
(define (dump-page outputter page page-number page-count)
(page-number 0)
(page-count (length pages)))
+ ;;(header)
+ ;; FIXME: should output command, not stencil?
+ ;;(ly:outputter-dump-string outputter '(header))
+ ;; hmm, probably need (ly:outputter-command but its too late for that
+ ;; kind of elegancy now :-)
+ (ly:outputter-dump-stencil outputter (ly:make-stencil '(header)
+ '(0 . 0) '(0 . 0)))
+
(for-each
(lambda (page)
(set! page-number (1+ page-number))
(dump-page outputter page page-number page-count))
- pages)))
-
-
-
-
+ pages)
+ (ly:outputter-dump-stencil outputter (ly:make-stencil '(end-output)
+ '(0 . 0) '(0 . 0)))))
;;;
;;;
;;; todo: hmm --output-base broken?
-;;; ### cd mf && mftrace --encoding=$(kpsewhich cork.enc) --autotrace --output-base=feta-cork-20 feta20.mf && mf feta20.pfa out
+;;; ### cd mf && mftrace --encoding=$(kpsewhich cork.enc) --autotrace --output-base=feta-cork-20 feta20.mf && mv feta20.pfa out
;;; TODO:
;;; * pango+feta font (see archives gtk-i18n-list@gnome.org and
(debug-enable 'backtrace)
-(define-module (scm output-gnome))
+(define-module (scm output-gnome)
+ #:export (header))
+
(define this-module (current-module))
(use-modules
(text font (utf8 i)))
(define (placebox x y expr)
+ (stderr "item: ~S\n" expr)
(let ((item expr))
- (if item
+ ;;(if item
+ ;; FIXME ugly hack to skip #unspecified ...
+ (if (and item (not (eq? item (if #f #f))))
(begin
(move item
(* output-scale (+ (car system-origin) x))
;; FIXME: no rounded corners on rectangle
(make <gnome-canvas-rect>
#:parent canvas-root
- #:x1 (- breapth) #:y1 (- depth) #:x2 width #:y2 height
+ #:x1 (- breapth) #:y1 depth #:x2 width #:y2 (- height)
#:fill-color "black" #:width-units blot-diameter))
(define (fontify font expr)
(stderr "font-name: ~S\n" (ly:font-name font))
;; TODO s/filename/file-name/
(stderr "font-filename: ~S\n" (ly:font-filename font))
+
+ (stderr "pango-font-name: ~S\n" (pango-font-name font))
+ (stderr "pango-font-size: ~S\n" (pango-font-size font))
(set!
text-items
(cons
;;#:scale-set #t
#:fill-color "black"
- #:text string)
+ #:text string
+ #:anchor 'west)
text-items))
(car text-items))