X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fgeneric-property.scm;h=740f0a641afb9ec0d01b57d8edecdfe577489091;hb=54404c570a48ddf9772c5ca64a154d0c0149e61e;hp=befcda71bce6c7355f507973609a3fe5f7d884c8;hpb=f1346920f64c571a1475d3ded295b9637560c6bc;p=lilypond.git

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index befcda71bc..740f0a641a 100644
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -25,8 +25,8 @@
 	 (list 'autoKneeGap number? 'auto-knee-gap)
 	 (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
 	 (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
-	 (list 'beamHeight number? 'height-hs)
-	 (list 'beamVerticalPosition number? 'y-position-hs)
+	 (list 'beamHeight number? 'height)
+	 (list 'beamVerticalPosition number? 'staff-position)
 	 )
 	)
   )
@@ -39,7 +39,6 @@
 	 (list 'verticalDirection dir? 'direction)	 
 	 (list 'stemLength number? 'length)
 	 (list 'flagStyle string? 'flag-style)
-	 (list 'stemCentered boolean? 'stem-centered)
 	 (list 'noStemExtend boolean? 'no-stem-extend)
 	 (list 'stemShorten number? 'shorten)
 	 ))
@@ -120,6 +119,17 @@
 	)
   )	
 
+(define generic-bar-number-properties
+  (cons 'bar-number-interface
+	(list
+	 (list 'barNumberScriptPadding number? 'padding)
+	 (list 'barNumberDirection dir? 'direction)	 
+	 )
+	
+	)
+  )
+
+  
 ; don't do this yet. Depends on whennn the staff is really announced
 (define generic-staff-symbol-properties
   (cons 'staff-symbol-interface
@@ -144,13 +154,17 @@
 
 (define generic-All-properties
   (cons 'all
-	(list (list 'fontSize number? 'font-size))))
+	(list (list 'fontSize number? 'font-relative-size))))
 
 
 (define generic-notehead-properties
   (cons 'note-head-interface
 	(list (list 'noteHeadStyle symbol? 'style))))
 
+(define generic-notename-properties
+  (cons 'note-name-interface
+	(list (list 'noteNameStyle symbol? 'style))))
+
 
 (define generic-rest-properties
   (cons 'rest-interface