+1.5.23
+======
+
+* Bugfix: be anal about slur dimensions.
+
+* Bugfix: insert extra margin around pixmaps.
+
+* lilypond-book: magnification option for EPS
+
1.5.22.jcn1
===========
- Hmm, then find that
+ Sketch accesses characters by name, ie, the
- name characters have in default text fonts. Luckily, textrace
+clefs name characters have in default text fonts. Luckily, textrace
mangles the feta names too. Sadly, textrace chooses different names
for characters > 128.
}
zoger = \context Staff = zoger \notes \relative c'' {
+ % Hmm
+ \property Staff.HaraKiriVerticalGroup \override
+ #'items-worth-living = #'(#t #t)
+
+
\clef treble
\property Staff.instrument = #"Zoger"
\property Staff.instr = #"Zog."
c4^"zog" d e f
\skip 1*2
-
\translator Staff=zager
\stemDown
c2 g2
>
>
\paper{
- linewidth = 80.0\mm
+ linewidth = 100.0\mm
\translator { \HaraKiriStaffContext }
%uh?
\translator { \OrchestralScoreContext }
#define fix_guile_1_4_scm_primitive_eval(form) scm_eval_3 (form, 1, SCM_EOL)
#define scm_primitive_eval(form) fix_guile_1_4_scm_primitive_eval (form)
+#define scm_current_module() (SCM)0
+#define scm_set_current_module(x) (void)x
+#define scm_c_resolve_module(x) (SCM)0
+
#define scm_c_define_gsubr scm_make_gsubr
#define scm_c_eval_string(str) gh_eval_str ((char*)str)
#define scm_c_memq scm_sloppy_memq
// todo: junk this. We should make real modules iso. just loading files.
prepend_load_path (p + "/scm/");
-
-#if GUILE_MINOR_VERSION >= 5
SCM last_mod = scm_current_module ();
scm_set_current_module (scm_c_resolve_module ("guile"));
-#endif
init_cxx_function_smobs ();
for (int i=scm_init_funcs_->size () ; i--;)
progress_indication ("\n");
read_lily_scm_file ("lily.scm");
-#if GUILE_MINOR_VERSION >= 5
scm_set_current_module (last_mod);
-#endif
}
unsigned int ly_scm_hash (SCM s)
(if (or (equal? (minor-version) "4")
(equal? (minor-version) "3.4"))
- (define-public (ps-output-expression expr port)
- (display (eval-in-module expr this-module) port )
- )
+ (define-public (ps-output-expression expr)
+ (display (eval-in-module expr this-module)))
(define-public (ps-output-expression expr port)
- (display (eval expr this-module) port )
- )
- )
+ (display (eval expr this-module) port)))
(use-modules
+
;;; sketch.scm -- implement Scheme output routines for Sketch
;;;
;;; source file of the GNU LilyPond music typesetter
;; elif symbol == 'char':
;; out.write ('moveto( %f %f); char(%d)' % (x,y,rest))
-
;; (define (dispatch x y expr)
;; (let ((keyword (car expr)))
;; (cond
-(define-module (scm sketch)
- :export (sketch-output-expression)
- :no-backtrace)
+(define-module (scm sketch) )
+; :export (sketch-output-expression)
+; :no-backtrace
(define this-module (current-module))
-(define (sketch-output-expression expr port)
+(define-public (sketch-output-expression expr port)
(display (dispatch expr) port))
(use-modules
((eq? keyword 'placebox)
(dispatch-x-y (cadr expr) (+ 150 (caddr expr)) (cadddr expr)))
(else
- (apply (eval keyword this-module) (cdr expr))))))
+ (apply (ly-eval keyword this-module) (cdr expr))))))
(define (dispatch-x-y x y expr)
- (apply (eval (car expr) this-module) (append (list x y) (cdr expr))))
+ (apply (ly-eval (car expr) this-module) (append (list x y) (cdr expr))))
(define (fontify x y name-mag-pair exp)
(string-append (select-font name-mag-pair)
- (apply (eval (car exp) this-module)
+ (apply (ly-eval (car exp) this-module)
(append (list x y) (cdr exp)))))
;; (if (string? exp) exp "")))
""
)
-(define (embedded-ps expr)
- (let
- ((os (open-output-string)))
- (ps-output-expression expr os)
- (string-append "\\embeddedps{" (get-output-string os) "}")
- ))
+(if (or (equal? (minor-version) "4")
+ (equal? (minor-version) "3.4"))
+ (define (embedded-ps expr)
+ (let ((ps-string
+ (with-output-to-string
+ (lambda () (ps-output-expression expr)))))
+ (string-append "\\embeddedps{" ps-string "}")))
+ (define (embedded-ps expr)
+ (let
+ ((os (open-output-string)))
+ (ps-output-expression expr os)
+ (string-append "\\embeddedps{" (get-output-string os) "}"))))
(define (comment s)
(string-append "% " s "\n"))