lilypond-1.5.24
authorfred <fred>
Wed, 27 Mar 2002 02:04:26 +0000 (02:04 +0000)
committerfred <fred>
Wed, 27 Mar 2002 02:04:26 +0000 (02:04 +0000)
CHANGES
input/test/hara-kiri.ly
lily/include/lily-guile.hh
lily/lily-guile.cc
scm/ps.scm
scm/sketch.scm
scm/tex.scm

diff --git a/CHANGES b/CHANGES
index 5c34ea703ff63de34de74f689f8c0f7b97ce5f37..5f42581186375457c328c1fcd9c2c79a7cddbb7b 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,12 @@
+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
 ===========
 
@@ -108,7 +117,7 @@ abc2ly fixes:
    - 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.
 
index 0058297c1c828f2ea4da3ae6c72a36a724e5aa63..a9f08fd5334642584f0b80fad87b07d6d87e1363 100644 (file)
@@ -56,12 +56,16 @@ zager =  \context Staff = zager \notes \relative c'' {
 }
 
 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
@@ -85,7 +89,7 @@ zagers =  \context GrandStaff <
                >
        >
        \paper{
-               linewidth = 80.0\mm
+               linewidth = 100.0\mm
                \translator { \HaraKiriStaffContext }
 %uh?
                \translator { \OrchestralScoreContext }
index 2fb4f54cb32a6b96a61d733a71d8e8624e45f726..55aafc98c7d8cdea7102233ab888d2544626ce58 100644 (file)
 #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
index e01fd24b30ba7330910da96325600344533ee96f..a42715549180c18e07902fbcd6b479572fe0a00a 100644 (file)
@@ -266,11 +266,8 @@ init_lily_guile (String p )
   // 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--;)
@@ -280,9 +277,7 @@ init_lily_guile (String p )
     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)
index 6af36d6ab7a897bb502b69a484f47c814c7f2d15..77ee7d379edf37af463332bb720c0523774a3c58 100644 (file)
 
 (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
index c5417abeabe99a810a3f7f7e0105af51e5fc9f29..80c76752e3d9c30e47f35b1532c65dd71fcf98e8 100644 (file)
@@ -1,3 +1,4 @@
+
 ;;; sketch.scm -- implement Scheme output routines for Sketch
 ;;;
 ;;;  source file of the GNU LilyPond music typesetter
@@ -18,7 +19,6 @@
 ;;     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 "")))
 
index 072ed76ecede1241b2d85a716b866b3747798f5a..123f7dc4480605389de42f2ea8170cb380b5f4cd 100644 (file)
   ""
   )
 
-(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"))