(define-unit px (/ 1in 72)) (define $width 1024px) (define $height 768px) (define-unit pc (/ $height 100)) (define $font "Arial") (define $bullet "\bullet") (define $item-indent 5pc) (element slide (make simple-page-sequence page-width: $width page-height: $height left-margin: 10pc top-margin: (if (equal? (attribute-string "type") "title") 30pc 10pc) right-margin: 10pc bottom-margin: 10pc right-footer: (page-number-sosofo) footer-margin: 3pc (process-children))) (element title (make paragraph font-family-name: $font font-size: 8pc font-weight: 'bold space-after: 4pc quadding: 'center)) (element item (make paragraph font-size: 5pc font-family-name: $font space-after: 3pc line-spacing: 5pc first-line-start-indent: (- $item-indent) start-indent: $item-indent (make line-field field-width: $item-indent (literal $bullet)) (process-children))) (element code (make paragraph font-family-name: "Courier New" font-size: 4pc line-spacing: 4pc space-after: 3pc input-whitespace-treatment: 'preserve lines: 'asis (process-children-trim))) (element table (make table table-border: #t (process-children-trim))) (element tr (make table-row (process-children-trim))) (element td (make table-cell cell-before-column-border: (make table-border line-thickness: 1pt) cell-after-column-border: (make table-border line-thickness: 1pt) cell-before-row-border: (make table-border line-thickness: 1pt) cell-after-row-border: (make table-border line-thickness: 1pt) cell-before-row-margin: 3.5pc cell-after-row-margin: 1.5pc cell-before-column-margin: 0.5pc cell-after-column-margin: 0.5pc (make paragraph font-family-name: $font font-size: 5pc (process-children-trim)))) (element b (make sequence font-weight: 'bold (process-children-trim)))