Re: Create one png image per pageBreak?

[Thomas Morley]

2014-12-22 22:23 GMT+01:00 Stan Mulder <address@hidden>:
>> How about compiling your code with
>> lilypond -dpreview -dresolution=200 your-file.ly
>> ?
>> (or whatever resolution is apropiate)
>
>
> Oh wow! That -dpreview trims the file nicely. I was prepared to use
> ImageMagik's convert program to trim the whitespace thusly, "convert -trim
> filename.png outfile.png" -- but now I don't have to do that.
>
> I guess the question is, since I've got to construct a lot of repetitive
> lines of code for each chord, am I doing this in the most efficient manner?
> This would be great for a for-loop kind of thing. Do you see any way to
> simplify or automate my code? Maybe with macros, or something else?
>
>
> \version "2.19.15"
> %#(set-global-staff-size 30)
>
> \include "lilypond-book-preamble.ly"
> \paper { oddFooterMarkup = ##f }
> \include "english.ly"
> %\include "predefined-plectrum-banjo-fretboards.ly"
> \include "predefined-guitar-fretboards.ly"
>
> plec = {
>   %\set Staff.stringTunings = #plectrumTuning
>   \override FretBoard.fret-diagram-details.number-type = #'arabic
>   \override FretBoard.fret-diagram-details.finger-code = #'in-dot
> }
>
> chord_C    = \chordmode { c   } #(define output-suffix "chord_C")   \book {
> << \new ChordNames { \chord_C  } \new FretBoards { \plec \chord_C  } >> }
> chord_Cm   = \chordmode { c:m } #(define output-suffix "chord_Cm")  \book {
> << \new ChordNames { \chord_Cm } \new FretBoards { \plec \chord_Cm } >> }
>
>
>
>
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user

Well, below my attempt.
It reads and builds all chords from 'default-fret-table' outputting
them in scores. Each with ChordName- and FretBoards-context. Each
score will be put out as a single book. Finally you'll get 153 books.
;)
Will last some minutes ...

Compiling it with
lilypond -dpreview -dresolution=200 file.ly
will return some unwanted additional files, they are deleted.
It woud be better to not create them at all. Though, I don't know how.

Known issues and warnings ;)

I didn't mange to get proper descriptive names for the books.
I don't know, whether those chords are complete, are there others.
Please, read all comments!!




\version "2.19.8"

\include "predefined-guitar-fretboards.ly"

fretprop =
\override FretBoard.fret-diagram-details.finger-code = #'in-dot

%% Get the pitches for each chord from 'default-fret-table'
%% stored in a list
%% Are there other chords? Stored elsewhere?
#(define chrds-from-default-fret-table
  (map cdar (hash-table->alist default-fret-table)))

%% Make an EventChord from each list of pitches from
%%    'chrds-from-default-fret-table'
%% Duration is hardcoded
%% Store them in a list
#(define my-chrds
   (map
     (lambda (pitches)
       (make-event-chord
         (map
           (lambda (p)
             (make-music
               'NoteEvent
               'duration (ly:make-duration 0)
               'pitch p))
            pitches)))
     chrds-from-default-fret-table))

%% Make a list of scores containing 'ChordNames' and 'FretBoards' of each
%% chord from 'my-chords'
#(define scrs
   (map
     (lambda (c)
       #{
         \score {
           <<
           \new ChordNames { $c }
           \new FretBoards { \fretprop $c }
           >>
         }
       #})
     my-chrds))

%% Get the name of the current input-file
myname = #(ly:parser-output-name parser)

%% put out a book for each score
%% TODO: How to get proper names for each book?
%% As a poor solution, a number is added
writescore =
#(define-void-function (parser location) ()
 (for-each
  (lambda (score i)
   (let* ((my-new-book
            (ly:make-book
              $defaultpaper
              $defaultheader
              score)))
          (ly:book-process
             my-new-book
             $defaultpaper
             $defaultlayout
             (format "~a-~a" myname (1+ i)))))
    ;; 'scrs' contains 153 scores!!
    ;; For testing comment it and uncomment the next code-line
    scrs
    ;; for testing comment the previous line and use the following list,
    ;; containing a single chord
    ;(list (first scrs))
    (iota (length scrs))))

\writescore

%% Compiling it with:
%%     lilypond -dpreview -dresolution=200 file.ly
%% (or whatever resolution is apropiate)
%% will result in several .eps-, .pdf- and .png-files
%%


%% Delete unwanted files:
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% BE VERY CAREFUL WHAT YOU DELETE !!!!!!
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% TODO: Better than deleting those files, would be not to create them at all!
%%       How to do?

%% delete preview .eps-files
#(for-each
  (lambda (i)
   (if (file-exists? (format "~a-~a.preview.eps" myname (1+ i)))
       (delete-file (format "~a-~a.preview.eps" myname (1+ i)))))
   (iota (length scrs)))

%% delete preview .pdf-files
#(for-each
  (lambda (i)
   (if (file-exists? (format "~a-~a.preview.pdf" myname (1+ i)))
       (delete-file (format "~a-~a.preview.pdf" myname (1+ i)))))
   (iota (length scrs)))

%% delete default .pdf-files
#(for-each
  (lambda (i)
   (if (file-exists? (format "~a-~a.pdf" myname (1+ i)))
       (delete-file (format "~a-~a.pdf" myname (1+ i)))))
   (iota (length scrs)))



HTH,
  Harm