;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Adding constants

(define *titleFontSize*         18pt)

(define *fmFontSize*            (/ *titleFontSize* 2))

(define *fmIndent*              3cm)

(define *fmSpaceBefore*         0.5cm)



(define *textFontSize*          10pt)

(define *textSpaceBefore*       (/ *textFontSize* 2))



(define *personaetitleFontSize* (+ *textFontSize*  3pt))

(define *personaIndent*          1.5cm)

(define *personaSpaceBefore*    (/ *textFontSize* 2))



(define *pgroupIndent*          (+ *personaIndent* 0.5cm))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; This version adds some page the title of the play

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(root

  (make simple-page-sequence

; margins

        left-margin:            2cm

; default font



        font-size:              *textFontSize*

        line-spacing:           *textFontSize*

        right-margin:           2cm

        top-margin:             2cm

        bottom-margin:          2cm

        (process-children))

)

..... ; rest deleted to limit size of this example ..