left_adjoint
/
PoetryForms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

almost there

This commit is contained in:
Clarissa Littler 2020-09-29 14:11:46 -07:00
parent 4251098a49
commit 2a7d930c84
47 changed files with 2721 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
PoetryGen.lisp
View File

@ -1,16 +1,44 @@
;; generating match constraints
;; there are line matching constraints, where the lines need to be the same length and
;; ending matching constraints
;; there's also the possibility of generating lines lengths according to a function
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *constraints* nil)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
(defun gen-line (avg-line)
(funcall (up-down (floor (/ avg-line 2))) avg-line))
(defun gen-stanza (avg-stanza avg-line)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
collect (gen-line avg-line)))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun gen-poem (num-stanza avg-stanza avg-line)
(defun gen-line-rand (i)
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*))
(defun gen-line-sine (i)
(max (floor (+ *avg-line* (funcall (sines 3 -3 1 2) i))) 2))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
(defun gen-stanza (avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
do (incf *poem-line*)
collect (gen-line-f line-fun)))
(defun gen-poem (num-stanza avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 2) num-stanza)
collect (gen-stanza avg-stanza avg-line)))
collect (gen-stanza avg-stanza line-fun)))
(defun print-line (l)
(let ((s ""))
@ -26,9 +54,13 @@
(format t "~%")))
(defun main (argv)
(let ((num-stanza (parse-integer (nth 1 argv)))
(avg-stanza (parse-integer (nth 2 argv)))
(avg-line (parse-integer (nth 3 argv))))
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun
(cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) #'gen-line-sine))))
(setf *random-state* (make-random-state t))
(print-poem (gen-poem num-stanza avg-stanza avg-line))))
(print-poem (gen-poem num-stanza avg-stanza line-fun))))

85
PoetryGenRhyme3.lisp Normal file
View File

@ -0,0 +1,85 @@
;; let's consider the possibility of interesting indentation as a part of the form
;; each line will be represented by a data structure, at first just a pair
;; of (spaces . syllables)
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *constraints* nil)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun gen-line-rand (i)
(cons (random 5)
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun gen-line-sine (i)
(let ((n (max (floor (+ *avg-line* (funcall (sines 3 -3 1 2) i))) 2)))
(cons (floor (/ n 2)) n)))
(defun gen-line-rand-linspace (i)
(cons (floor (/ i 2))
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
(defun gen-stanza (avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
do (incf *poem-line*)
collect (gen-line-f line-fun)))
(defun gen-poem (num-stanza avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 2) num-stanza)
collect (gen-stanza avg-stanza line-fun)))
(defun total-lengths (p)
(reduce #'(lambda (x y) (+ x (length y))) p :initial-value 0))
(defun add-rhymes (p)
(let ((rhymes (+ 1 (random (floor (/ (total-lengths p) 2))))))
(mapcar
#'(lambda (s)
(mapcar #'(lambda (l) (cons (random rhymes) l)) s)) p)))
(defun print-line (l)
(let ((s "")
(rhyme (car l))
(llen (cddr l))
(slen (cadr l)))
(dotimes (i slen)
(setf s (concatenate 'string " " s)))
(dotimes (i llen)
(setf s (concatenate 'string s "-")))
(format t "(~a,~a) ~a: ~a~%" slen llen (code-char (+ 97 rhyme)) s)))
;; takes a list of stanzas and prints it
(defun print-poem (poem)
(dolist (s poem)
(dolist (l s)
(print-line l))
(format t "~%")))
(defun main (argv)
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun
(cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) #'gen-line-sine)
((= fun-choice 2) #'gen-line-rand-linspace))))
(setf *random-state* (make-random-state t))
(print-poem (add-rhymes (gen-poem num-stanza avg-stanza line-fun)))))

162
PoetryGenRhymes.lisp Normal file
View File

@ -0,0 +1,162 @@
;; let's consider the possibility of interesting indentation as a part of the form
;; each line will be represented by a data structure, at first just a pair
;; of (spaces . syllables)
;;; okay so first we need to generate the number of stanzas,
;;; then we need /stanza/ constraints
;;; stanza constraints are thing like
;;; `(rotate 4 2 3) which means that 2 is relate to three by rotating four lines
;;; or
;;; `(eq-stanza 4 5) which means that 4 and 5 are equal in lines and constraints
;;;
;;; line constraints/rhymes
;;; (rhyme #'b)
;;; and when we generate new lines we can either attach a previous rhyme or create a new
;;; one.
;;; Caution: doing this would weight lines improperly, we need to do something like
;;; generate the number of rhyming schema in accordance with how many unique line-endings
;;; we have (so then we have to generate equality constraints first)
;;; and we can have a probability of generating slant rhymes (10%?)
;;; So to summarize what we need to do
;;; generate the number of stanzas
;;; generate the stanza constraints
;;; generate the number of lines per stanza given constraints
;;; generate the set of rhyming schema
;;; generate the lines in each stanza along with constraints
;;; sub-step: propagate constraints based on stanzas
;;; PRINT
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *stanza-constraints* nil)
(defvar *lineconstraints* nil)
(defvar *avg-line* 0)
(defvar *total-lines* 0)
;; (defvar *total-stanzas* 0)
(defvar *next-rhyme-name* 96) ;; we start with #\a by adding one
(defvar *stanza-array* nil)
(defun get-name ()
(incf *next-rhyme-name*)
(code-char *next-rhyme-name*))
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
(defun up-down-half (r)
(funcall (up-down (floor (/ r 2))) r))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun gen-line-rand (i)
(cons (random 5)
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun gen-line-sine (i)
(let ((n (max (floor (+ *avg-line* (funcall (sines 3 -3 1 2) i))) 2)))
(cons (floor (/ n 2)) n)))
(defun gen-line-rand-linspace (i)
(cons (floor (/ i 2))
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
;; format for stanzas are (constraint . line-list)
;; stanza constraints are either (=line s1 s2) or (rotate s1 s2 n)
;; we're hardcoding probabilities to start
;; write rand-cond macro later, it'll be useful
(defun random-from (i r)
(+ i (random (- r i))))
(defun rotate-list (l n)
(if (= n 0)
l
(rotate-list (append (cdr l) (cons (car l) nil)) (- n 1))))
(defun choose-stanza-constraint (s total-stanzas)
(let ((rando (random 10)))
(cond ((< rando 2) (list '=line (random-from 0 s)))
((< rando 4) (list 'rotate (random-from 0 s) (+ 1 (length
(t nil))))
;; ;; we'll see if it makes more sense to thread the data or have a global
;; (defun gen-stanza (total-stanzas stanza-length)
;; (dotimes (i total-stanzas)
;; (let ((sc (choose-stanza-constraint i total-stanzas)))
;; (setf *stanza-list* (cons (cons sc (list nil)) *stanza-list*))))
;; (setf *stanza-list* (reverse *stanza-list*)))
;;; stanza-length should average around the length +/- 1/2 length
;;; steps: check if there's a constraint for this stanza on this already,
;;; if there is then grab the previously made stanza and perform the constraints
;;; and generate the lines
;;; if not then
(defun gen-stanza (s avg-sl total-stanzas)
(let ((const (choose-stanza-constraint s total-stanzas)))
(if (not const)
(let ((ls (up-down-half avg-sl)))
(setf (aref *stanza-array* s)
(make-array ls :initial-element nil))
(incf *total-lines* ls))
(
(defun gen-poem (avg-stanzas stanza-length)
(let* ((total-stanzas (funcall (up-down 2) avg-stanzas))
(*stanza-array* (make-array total-stanzas :initial-element nil)))
(dotimes (i total-stanzas)
(gen-stanza i stanza-length))
(dotimes (i total-stanzas)
(gen-lines i))))
;; (defun gen-stanza (avg-stanza line-fun)
;; (loop for x from 1 to (funcall (up-down 3) avg-stanza)
;; do (incf *poem-line*)
;; collect (gen-line-f line-fun)))
;; (defun gen-poem (num-stanza avg-stanza line-fun)
;; (loop for x from 1 to (funcall (up-down 2) num-stanza)
;; collect (gen-stanza avg-stanza line-fun)))
;; (defun print-line (l)
;; (let ((s "")
;; (llen (cdr l))
;; (slen (car l)))
;; (dotimes (i slen)
;; (setf s (concatenate 'string " " s)))
;; (dotimes (i llen)
;; (setf s (concatenate 'string s "-")))
;; (format t "(~a,~a): ~a~%" slen llen s)))
;; ;; takes a list of stanzas and prints it
;; (defun print-poem (poem)
;; (dolist (s poem)
;; (dolist (l s)
;; (print-line l))
;; (format t "~%")))
;; (defun main (argv)
;; (let* ((fun-choice (parse-integer (nth 1 argv)))
;; (num-stanza (parse-integer (nth 2 argv)))
;; (avg-stanza (parse-integer (nth 3 argv)))
;; (*avg-line* (parse-integer (nth 4 argv)))
;; (line-fun
;; (cond ((= fun-choice 0) #'gen-line-rand)
;; ((= fun-choice 1) #'gen-line-sine)
;; ((= fun-choice 2) #'gen-line-rand-linspace))))
;; (setf *random-state* (make-random-state t))
;; (print-poem (gen-poem num-stanza avg-stanza line-fun))))

75
PoetryGenSpace.lisp Normal file
View File

@ -0,0 +1,75 @@
;; let's consider the possibility of interesting indentation as a part of the form
;; each line will be represented by a data structure, at first just a pair
;; of (spaces . syllables)
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *constraints* nil)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun gen-line-rand (i)
(cons (random 5)
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun gen-line-sine (i)
(let ((n (max (floor (+ *avg-line* (funcall (sines 3 -3 1 2) i))) 2)))
(cons (floor (/ n 2)) n)))
(defun gen-line-rand-linspace (i)
(cons (floor (/ i 2))
(funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
(defun gen-stanza (avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
do (incf *poem-line*)
collect (gen-line-f line-fun)))
(defun gen-poem (num-stanza avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 2) num-stanza)
collect (gen-stanza avg-stanza line-fun)))
(defun print-line (l)
(let ((s "")
(llen (cdr l))
(slen (car l)))
(dotimes (i slen)
(setf s (concatenate 'string " " s)))
(dotimes (i llen)
(setf s (concatenate 'string s "-")))
(format t "(~a,~a): ~a~%" slen llen s)))
;; takes a list of stanzas and prints it
(defun print-poem (poem)
(dolist (s poem)
(dolist (l s)
(print-line l))
(format t "~%")))
(defun main (argv)
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun
(cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) #'gen-line-sine)
((= fun-choice 2) #'gen-line-rand-linspace))))
(setf *random-state* (make-random-state t))
(print-poem (gen-poem num-stanza avg-stanza line-fun))))

134
PoetryMetre.lisp Normal file
View File

@ -0,0 +1,134 @@
;;Okay so what we're going to be doing here in this version is treating
;;line structure as a thing that is a mix of blank space and word space
;;so a line will now be a list like
;; (#\SPACE #\- #\* #- #\SPACE #\SPACE)
;; our first stab will be to have a random choice of disyllables
;; 'py is pyrrhic
;; 'ia is iambic
;; 'tr is trochee
;; 'sp is spondee
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
(defun up-down-half (r)
(funcall (up-down (floor (/ r 2))) r))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun rand-foot ()
(let ((rando (random 10)))
(cond ((< rando 5) 'ia)
((< rando 9) 'tr)
((< rando 10) 'py)
(t 'sp))))
(defun gen-line-rand (i)
(declare (ignore i))
(loop for x from 1 to (funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)
collecting (let ((r (random 10)))
(cond ((< r 3) 'b)
(t (rand-foot))))))
(defun rand-list (avg-size low-bound up-bound)
(let ((l (up-down-half avg-size)))
(loop for x from 1 to l
collecting (+ low-bound (random (- up-bound low-bound))))))
(defun make-list-f (n f)
(loop for x from 1 to n collecting (funcall f)))
(defun gen-line-half-space (f)
#'(lambda (i)
(let ((n (funcall f i)))
(append
(make-list (floor (/ n 2)) :initial-element 'b)
(make-list-f n #'rand-foot)))))
(defun gen-line-sine ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-half-space #'(lambda (x) (floor (+ *avg-line* (funcall sins x)))))))
(defun gen-line-signal (f)
#'(lambda (i)
(let ((len (up-down-half *avg-line*)))
(loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
(rand-foot)
'b)))))
(defun palindrome (l)
(append l (reverse l)))
(defun gen-line-signal-sym (f)
#'(lambda (i)
(let ((len (floor (/ (up-down-half *avg-line*) 2))))
(palindrome (loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
(rand-foot)
'b))))))
(defun gen-line-horiz-sines ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-signal sins)))
(defun gen-line-horiz-sines-sym ()
(let ((sins (apply #'sines (rand-list (+ 3 (random 4)) -3 3))))
(gen-line-signal-sym sins)))
(defun gen-stanza (avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
do (incf *poem-line*)
collect (gen-line-f line-fun)))
(defun gen-poem (num-stanza avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 2) num-stanza)
collect (gen-stanza avg-stanza line-fun)))
(defun print-line (l)
(let ((s ""))
(dolist (c l)
(setf s (concatenate 'string s "|"
(case c
(b " ")
(- "-")
(tr "*-")
(sp "**")
(py "--")
(ia "-*")))))
(format t "~a~%" s)))
;; takes a list of stanzas and prints it
(defun print-poem (poem)
(dolist (s poem)
(dolist (l s)
(print-line l))
(format t "~%")))
(defun main (argv)
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun
(cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) (gen-line-sine))
((= fun-choice 2) (gen-line-horiz-sines))
((= fun-choice 3) (gen-line-horiz-sines-sym)))))
(setf *random-state* (make-random-state t))
(print-poem (gen-poem num-stanza avg-stanza line-fun))))

183
PoetryRhyme2.lisp Normal file
View File

@ -0,0 +1,183 @@
(defvar *line-number* 0)
(defvar *total-lines* 0)
(defvar *stanza-array* nil)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
(defun up-down-half (r)
(funcall (up-down (floor (/ r 2))) r))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
(defun gen-line-rand (i)
(declare (ignore i))
(loop for x from 1 to (funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)
collecting (let ((r (random 10)))
(cond ((< r 3) 'b)
(t '-)))))
(defun rand-list (avg-size low-bound up-bound)
(let ((l (up-down-half avg-size)))
(loop for x from 1 to l
collecting (+ low-bound (random (- up-bound low-bound))))))
(defun gen-line-half-space (f)
#'(lambda (i)
(let ((n (funcall f i)))
(append
(make-list (floor (/ n 2)) :initial-element 'b)
(make-list n :initial-element '-)))))
(defun gen-line-sine ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-half-space #'(lambda (x) (floor (+ *avg-line* (funcall sins x)))))))
(defun gen-line-signal (f)
#'(lambda (i)
(let ((len (up-down-half *avg-line*)))
(loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
'-
'b)))))
(defun palindrome (l)
(append l (reverse l)))
(defun gen-line-signal-sym (f)
#'(lambda (i)
(let ((len (floor (/ (up-down-half *avg-line*) 2))))
(palindrome (loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
'-
'b))))))
(defun gen-line-horiz-sines ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-signal sins)))
(defun gen-line-horiz-sines-sym ()
(let ((sins (apply #'sines (rand-list (+ 3 (random 4)) -3 3))))
(gen-line-signal-sym sins)))
(defun get-stanza-length (s)
(let ((st (aref *stanza-array* s)))
(if (arrayp st)
(length st)
(case (car st) ;for the constraints we have they're all the same but not necessarily
(=line (get-stanza-length (cadr st)))
(rotate (get-stanza-length (cadr st)))))))
(defun choose-stanza-con (s)
(let ((rando (random 10))
(const-st (if (> s 0) (random s) 0)))
(cond ((< rando 2) (list '=line const-st))
((< rando 4) (list 'rotate const-st (random (get-stanza-length s))))
(t nil))))
(defun rhyme-to-rep (rhyme)
(if (null rhyme)
""
(let ((ty (car rhyme))
(rhyme-char (string (code-char (+ 97 (cadr rhyme))))))
(case ty
(rhyme rhyme-char)
(slant (concatenate 'string rhyme-char "/"))
(=word (format nil "=~a" (cadr rhyme)))))))
(defun choose-line-con (rhymes cur-line)
(let ((rando (random 10)))
(cond ((< rando 4) (list 'rhyme (random rhymes)))
((< rando 8) (list 'slant (random rhymes)))
((> cur-line 0) (list '=word (random cur-line)))
(t nil))))
(defun gen-stanza (s avg-st)
(let ((constr (choose-stanza-con s)))
(if (not constr)
(let ((ls (up-down-half avg-st)))
(setf (aref *stanza-array* s)
(make-array ls :initial-element nil))
(incf *total-lines* ls))
(progn
(setf (aref *stanza-array* s) constr)
(incf *total-lines* (get-stanza-length constr))))))
(defun rot-array (a n)
(let* ((l (length a))
(a-new (make-array l)))
(dotimes (i l)
(setf (aref a-new (mod (+ i n) l)) (aref a i)))
a-new))
(defun gen-lines-cons (s-index st rhymes)
(let ((fin-st (make-array (get-stanza-length st) :initial-element nil)))
(setf (aref *stanza-array* s-index) fin-st)
(case (car st)
(=line (dotimes (i (get-stanza-length st))
(setf (aref fin-st i) (cons (car (aref *stanza-array* (cadr st)))
(choose-line-con rhymes *line-number*)))
(incf *line-number*)))
(rotate (progn
(setf (aref *stanza-array* s-index)
(rot-array (aref *stanza-array* (cadr st)) (caddr st)))
(incf *line-number* (get-stanza-length st)))))))
(defun gen-lines-free (s line-fun rhymes)
(dotimes (i (length s))
(let ((constr (choose-line-con rhymes *line-number*)))
(setf (aref s i) (cons (funcall line-fun *line-number*) constr))
(incf *line-number*))))
(defun gen-lines (s line-fun rhymes)
(let ((st (aref *stanza-array* s)))
(if (arrayp (type-of st))
(gen-lines-free st line-fun rhymes)
(gen-lines-cons s st rhymes))))
(defun gen-poem (num-stanzas avg-stanza line-fun)
(let* ((total-stanzas (funcall (up-down 2) num-stanzas))
(*stanza-array* (make-array total-stanzas :initial-element nil))
(rhymes 0))
(dotimes (i total-stanzas)
(gen-stanza i avg-stanza))
(setf rhymes (random *total-lines*))
(dotimes (i total-stanzas)
(gen-lines i line-fun rhymes))))
(defun print-line (l)
(let ((s "")
(line-struct (car l))
(rhyme (rhyme-to-rep (cdr l))))
(dolist (c line-struct)
(setf s (concatenate 'string s "|"
(case c
(b " ")
(- "-")))))
(format t "~a: ~a~%" rhyme s)))
(defun print-poem ()
(dotimes (i (length *stanza-array*))
(let ((st (aref *stanza-array* i)))
(dotimes (j (length st))
(print-line (aref st j))))
(format t "~%")))
(defun main (argv)
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun (cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) (gen-line-sine))
((= fun-choice 2) (gen-line-horiz-sines))
((= fun-choice 3) (gen-line-horiz-sines-sym)))))
(setf *random-state* (make-random-state t))
(gen-poem num-stanza avg-stanza line-fun)
(print-poem)))

369
PoetryTalk.tpp Normal file
View File

@ -0,0 +1,369 @@
--author Clarissa Littler (left_adjoint)
--title Poetry in Partnership
--date today
--newpage
--heading Me and my talk
--center Me
* My background is in diff geo/particle physics/programming language design
* Worked for the last few years in education
* Computation ∩ Arts
--center This talk
* A little on poetry
* A little on things I tried
* The experience of partnership
* What else I want to do
* Lessons learned
--newpage
--heading The why and wherefore
I love writing poetry but I often feel stuck in creative ruts
Why not work on a procgen project to help me
* feel more creative
* think more about what makes poetry, poetry
--newpage
--heading Not generated poetry, generated shapes
The goal isn't to generate poetry per-se but rather to generate the shapes of poetry that the authors writes themselves
--newpage
--heading Scope
This talk is entirely about what I know, which is anglophonic poetry.
This is a limitation of experience not interest!
--newpage
--heading Version 1
Observations:
* The base unit of (english) poetry structure is the syllable
* Syllables in English are weird and irregular (e.g. haiku is w e i r d in English)
* Poetry comes in a terrifying array of forms, anti-forms, styles, and philosophies
* Need not just one generator but a family of them
--newpage
--heading Version 1
Observations cont.:
* The simplest generator creates stanzas and chooses line lengths in syllables
* Unconstrained variation is too ugly
* Variation around a mean
--newpage
--heading Example: form
------: 6
---------: 9
------------: 12
-----: 5
------: 6
----: 4
------: 6
---------: 9
------: 6
-----: 5
-------------: 13
-----------: 11
--newpage
--heading Example:poem
Nihilism and the
End Times, we're all prophets of a dead
God damn we're empty in intention and becoming
more hollow by the
hour. I don't know when we
stopped believing
that we had a future but I---
I think too many are proud of seeing the
end at hand, of sneering
that they're not surprised
but when we survive 10000 years, humanity's
lease renewed birth by birth: who did you help live?
--newpage
--heading Example: form
Very first poem on project
---------: 9
-----: 5
----: 4
------------: 12
---------: 9
-----------------: 17
-----------: 11
-------------: 13
------------: 12
-------------: 13
--newpage
--heading Example
Very first poem on project
If I had been in the Garden that
day and I'd seen Eve
before her first
bite. I would have grabbed on tight and I would have told
her "don't stop, no matter what he says"
Because we talk an awful lot about Eve's foolishness about her
sin, but we never talk about how scary
it had to be, terrifying it had to feel to
defy your god and only family you knew
to take a snake's word that it could be better than this
--newpage
--heading Version 2
Observations:
* This already produces something kinda okay!
* In only a few lines of code!
* It's enough to get the ol' bean working
* But it's a tiny sliver of what poetry can be
--newpage
--heading Version 2
What to change:
* Arbitrary functions of line and stanza number
* Can create waves, shapes, pictures
--newpage
--heading Example
Superposition of sine waves, randomly generated
8: --------
9: ---------
8: --------
7: -------
7: -------
10: ----------
12: ------------
13: -------------
12: ------------
9: ---------
7: -------
6: ------
6: ------
5: -----
3: ---
2: --
2: --
2: --
4: ----
7: -------
8: --------
7: -------
6: ------
6: ------
7: -------
9: ---------
9: ---------
7: -------
6: ------
--newpage
--heading Example
I worship the moon and the stars,
I lose myself in the sacred void
that swims with endless energy
the infinitude: holy
beyond our comprehension.
I was taught to worship a righteous God,
a being of absolute power, wrath, envy
His jealously intertwined with his love-cruelty
He was a God who I tried to love, a father
I wanted to please and a distant
listener always holding
every thought captive
I was trapped and alone
I was emptied out
a vessel
Nothing
Can grow
Nothing
Can build itself
back up because nothing is
really ever just nothing and
the vaccuum pulses with life
and the universe is
never empty but is
full of creation, breathing
in & out, rising, falling, being
Nothing is ever lost or wasted
and all the time I mourn is
endless fabric of space
--newpage
--heading Version 3 & 4: Modern poetry
First tried generating indentation as well.
Okay but not right!
Modern poetry treats the empty space as as much
a part of the line as the text itself
Generate text and space interleaved
Signals to generate space: >= 0 text, <0 space
--newpage
--heading Example
Forms get more interesting, representation gets harder
| |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-
|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-| | |-|-
|-|-|-| | |-|-|-| | | | | |-|-| | |-|-
|-|-| | | |-| | | | | |-|-|-
|-| |-|-|-|-| | | | | |-
| | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-|-|
|-|-|-| | | | | |-|-| | |-|-|-
| |-| | | | |-|-|-| |
|-| | | | | |-|-| | |-|-|-|-|-| | | |-| | | |
| | | | |-|-|-| | | |-|-
| | | | |-|-| | |-|-|-|-|-| | | |-| |
| | |-|-|-| | |-|-|-|-|-| |-
| | |-| | |-|-|-|-|-| |
|-|-| | | |-|-|-|-|-| |-|-|-| |
|-| | |-|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-
| | | |-|-|-|-| | |-|-|-| | | |
| |-|-|-|-|-| | | |-| | | | | |-|-|-| | |-|-|-|-
|-|-|-|-|-| |-|-|-|-|
|-|-|-| | | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-
--newpage
--heading Version 5: Metre
Everything we've considered is free verse
Free verse has metre
just not prescribed metre
Most classical anglophonic forms are described in two-syllable feet:
spondee: strong-strong
pyrric: weak-weak
iamb: weak-strong
trochee: strong-weak
iambic pentameter: five iambs per line
--newpage
--heading Example: Form
|-*| | | | | |-*|--| | | |*-|*-|-*
| |-*|--|*-|*-|-*| |-*|*-|*-| | |
| | | | |
|-*|--|-*|-*| | | |-*|--| | | | |-*
| | | |-*|*-|*-| | |
--newpage
--heading Example: Poem
The fall of man. this the love/fear, our motiva-
tion. I've been a woman---always? perhaps but I haven't even
____________
do you know who you are? will you be assured when they ask
your name? Can you even ______
--newpage
--heading Version 6: Rhyming
To this point I've neglected rhyme
Historically important, but less a part of modern prosody
Easiest approach: generate rhymes by random assignment
--newpage
--heading Example: Form
(2,5) c: -----
(2,12) c: ------------
(4,8) a: --------
(0,10) b: ----------
(3,13) a: -------------
(0,14) e: --------------
(2,11) a: -----------
(2,12) c: ------------
(3,11) d: -----------
(3,9) c: ---------
(2,10) b: ----------
(2,10) c: ----------
(2,9) c: ---------
(3,13) c: -------------
(2,6) a: ------
(3,13) d: -------------
--newpage
--heading Example: Form
Sometimes odd results
(5,11) a: -----------
(5,11) a: -----------
(4,9) a: ---------
(3,7) a: -------
(4,8) a: --------
(5,11) a: -----------
(7,15) a: ---------------
(8,17) a: -----------------
(7,15) a: ---------------
(6,12) a: ------------
(4,9) a: ---------
(4,8) a: --------
--newpage
--heading Example: Poem
But I tried it anyway:
The reciprocity of our mutual
destruction, eternity ensured in full
avarice--consumptive--future cull
and the world replaced. dull
flesh has become vestigial
this the promise of a god so genial
he would wipe out all that has been so he can make his will inviolable
and we must accelerate extraction of the biological
for when the world is burned and hope gone, we escape: raptural
the new heaven and earth/a paradise/a lull
salvation ours, stasis makes will null
holy statues, immovable
--newpage
--heading Lessons learned
* You can do a lot with a little
* Sweet spot between freedom and constraint
* Constraining too much is interesting exercise
** but not terrible practical
--boldon
* It felt good
--boldoff
--newpage
--heading What's left?
So much to do!
* Constraint handling
* Concrete poetry with p5.js
* Concrete poetry with *LaTeX*
* More writing
* A better UI for people who aren't me
* Generation of LaTeX templates

114
PoetryWhitespace.lisp Normal file
View File

@ -0,0 +1,114 @@
;;Okay so what we're going to be doing here in this version is treating
;;line structure as a thing that is a mix of blank space and word space
;;so a line will now be a list like
;; (#\SPACE #\- #\* #- #\SPACE #\SPACE)
(defvar *poem-line* 0)
(defvar *poem-stanza* 0)
(defvar *avg-line* 0)
(defun up-down (r)
#'(lambda (x) (+ x (- (random (* 2 r)) r ))))
(defun up-down-half (r)
(funcall (up-down (floor (/ r 2))) r))
(defun sines (&rest args)
#'(lambda (time)
(let ((res 0))
(dotimes (i (length args))
(setf res (+ res (* (nth i args) (sin (/ time (+ 1 i)))))))
res)))
;; this is really a stub for what will probably get more complicated
(defun gen-line-f (f)
(funcall f *poem-line*))
(defun gen-line-rand (i)
(declare (ignore i))
(loop for x from 1 to (funcall (up-down (floor (/ *avg-line* 2))) *avg-line*)
collecting (let ((r (random 10)))
(cond ((< r 3) 'b)
(t '-)))))
(defun rand-list (avg-size low-bound up-bound)
(let ((l (up-down-half avg-size)))
(loop for x from 1 to l
collecting (+ low-bound (random (- up-bound low-bound))))))
(defun gen-line-half-space (f)
#'(lambda (i)
(let ((n (funcall f i)))
(append
(make-list (floor (/ n 2)) :initial-element 'b)
(make-list n :initial-element '-)))))
(defun gen-line-sine ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-half-space #'(lambda (x) (floor (+ *avg-line* (funcall sins x)))))))
(defun gen-line-signal (f)
#'(lambda (i)
(let ((len (up-down-half *avg-line*)))
(loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
'-
'b)))))
(defun palindrome (l)
(append l (reverse l)))
(defun gen-line-signal-sym (f)
#'(lambda (i)
(let ((len (floor (/ (up-down-half *avg-line*) 2))))
(palindrome (loop for x from 1 to len
collecting (if (> (funcall f (+ (* i *avg-line*) x)) 0)
'-
'b))))))
(defun gen-line-horiz-sines ()
(let ((sins (apply #'sines (rand-list 5 -3 3))))
(gen-line-signal sins)))
(defun gen-line-horiz-sines-sym ()
(let ((sins (apply #'sines (rand-list (+ 3 (random 4)) -3 3))))
(gen-line-signal-sym sins)))
(defun gen-stanza (avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 3) avg-stanza)
do (incf *poem-line*)
collect (gen-line-f line-fun)))
(defun gen-poem (num-stanza avg-stanza line-fun)
(loop for x from 1 to (funcall (up-down 2) num-stanza)
collect (gen-stanza avg-stanza line-fun)))
(defun print-line (l)
(let ((s ""))
(dolist (c l)
(setf s (concatenate 'string s "|"
(case c
(b " ")
(- "-")))))
(format t "~a~%" s)))
;; takes a list of stanzas and prints it
(defun print-poem (poem)
(dolist (s poem)
(dolist (l s)
(print-line l))
(format t "~%")))
(defun main (argv)
(let* ((fun-choice (parse-integer (nth 1 argv)))
(num-stanza (parse-integer (nth 2 argv)))
(avg-stanza (parse-integer (nth 3 argv)))
(*avg-line* (parse-integer (nth 4 argv)))
(line-fun
(cond ((= fun-choice 0) #'gen-line-rand)
((= fun-choice 1) (gen-line-sine))
((= fun-choice 2) (gen-line-horiz-sines))
((= fun-choice 3) (gen-line-horiz-sines-sym)))))
(setf *random-state* (make-random-state t))
(print-poem (gen-poem num-stanza avg-stanza line-fun))))

39
forms/#14.txt# Normal file
View File

@ -0,0 +1,39 @@
(1,7): -------
(1,17): -----------------
(2,15): ---------------
(2,17): -----------------
(3,12): ------------
(3,19): -------------------
(4,9): ---------
(4,13): -------------
(5,9): ---------
(5,20): --------------------
(6,9): ---------
(6,14): --------------
(7,18): ------------------
(7,17): -----------------
(8,14): --------------
(8,12): ------------
(9,12): ------------
(9,19): -------------------
(10,9): ---------
(10,15): ---------------
(11,10): ----------
(11,16): ----------------
(12,11): -----------
(12,20): --------------------
(13,20): --------------------
(13,17): -----------------
(14,7): -------
(14,19): -------------------
(15,12): ------------
(15,10): ----------
(16,20): --------------------
(16,19): -------------------
(17,16): ----------------
(17,17): -----------------
(18,10): ----------

79
forms/10.txt Normal file
View File

@ -0,0 +1,79 @@
20: --------------------
16: ----------------
8: --------
18: ------------------
15: ---------------
10: ----------
15: ---------------
16: ----------------
8: --------
17: -----------------
17: -----------------
10: ----------
15: ---------------
20: --------------------
16: ----------------
8: --------
9: ---------
9: ---------
9: ---------
9: ---------
20: --------------------
13: -------------
11: -----------
13: -------------
16: ----------------
8: --------
20: --------------------
8: --------
8: --------
7: -------
16: ----------------
15: ---------------
8: --------
18: ------------------
13: -------------
17: -----------------
18: ------------------
16: ----------------
16: ----------------
15: ---------------
19: -------------------
10: ----------
14: --------------
13: -------------
12: ------------
17: -----------------
11: -----------
8: --------
19: -------------------
11: -----------
14: --------------
20: --------------------
11: -----------
18: ------------------
11: -----------
19: -------------------
11: -----------
16: ----------------
10: ----------
8: --------
7: -------
10: ----------
13: -------------
13: -------------
12: ------------
15: ---------------
11: -----------
13: -------------
18: ------------------
9: ---------
15: ---------------
13: -------------
9: ---------
19: -------------------
13: -------------

57
forms/11.txt Normal file
View File

@ -0,0 +1,57 @@
(3,9): ---------
(1,14): --------------
(2,13): -------------
(1,19): -------------------
(1,19): -------------------
(0,18): ------------------
(2,15): ---------------
(1,12): ------------
(1,17): -----------------
(1,18): ------------------
(0,7): -------
(2,12): ------------
(0,15): ---------------
(1,18): ------------------
(2,8): --------
(3,12): ------------
(2,16): ----------------
(1,16): ----------------
(2,8): --------
(2,12): ------------
(2,10): ----------
(1,10): ----------
(1,12): ------------
(2,10): ----------
(3,18): ------------------
(4,14): --------------
(3,20): --------------------
(4,8): --------
(3,14): --------------
(3,9): ---------
(3,16): ----------------
(2,11): -----------
(2,20): --------------------
(2,17): -----------------
(3,12): ------------
(1,18): ------------------
(1,19): -------------------
(3,11): -----------
(0,11): -----------
(1,15): ---------------
(3,20): --------------------
(4,20): --------------------
(4,20): --------------------
(2,11): -----------
(1,17): -----------------
(1,15): ---------------
(3,12): ------------
(0,19): -------------------
(0,14): --------------
(2,17): -----------------
(2,7): -------
(1,10): ----------

22
forms/12.txt Normal file
View File

@ -0,0 +1,22 @@
(7,15): ---------------
(7,15): ---------------
(6,13): -------------
(5,11): -----------
(6,12): ------------
(7,15): ---------------
(9,19): -------------------
(10,21): ---------------------
(9,19): -------------------
(8,16): ----------------
(6,13): -------------
(6,12): ------------
(6,13): -------------
(6,13): -------------
(5,11): -----------
(3,7): -------
(3,6): ------
(4,8): --------
(6,12): ------------
(8,16): ----------------

33
forms/13.txt Normal file
View File

@ -0,0 +1,33 @@
(7,15): ---------------
(7,15): ---------------
(6,13): -------------
(5,11): -----------
(6,12): ------------
(7,15): ---------------
(9,19): -------------------
(10,21): ---------------------
(9,19): -------------------
(8,16): ----------------
(6,13): -------------
(6,12): ------------
(6,13): -------------
(6,13): -------------
(5,11): -----------
(3,7): -------
(3,6): ------
(4,8): --------
(6,12): ------------
(8,16): ----------------
(9,18): ------------------
(8,16): ----------------
(7,14): --------------
(6,13): -------------
(7,14): --------------
(8,16): ----------------
(7,15): ---------------
(6,13): -------------
(5,10): ----------
(5,10): ----------

40
forms/14.txt Normal file
View File

@ -0,0 +1,40 @@
(0,10): ----------
(1,7): -------
(1,17): -----------------
(2,15): ---------------
(2,17): -----------------
(3,12): ------------
(3,19): -------------------
(4,9): ---------
(4,13): -------------
(5,9): ---------
(5,20): --------------------
(6,9): ---------
(6,14): --------------
(7,18): ------------------
(7,17): -----------------
(8,14): --------------
(8,12): ------------
(9,12): ------------
(9,19): -------------------
(10,9): ---------
(10,15): ---------------
(11,10): ----------
(11,16): ----------------
(12,11): -----------
(12,20): --------------------
(13,20): --------------------
(13,17): -----------------
(14,7): -------
(14,19): -------------------
(15,12): ------------
(15,10): ----------
(16,20): --------------------
(16,19): -------------------
(17,16): ----------------
(17,17): -----------------
(18,10): ----------

64
forms/15.txt Normal file
View File

@ -0,0 +1,64 @@
|-|-| |-|-|-|-|-|-|-|-|-| |-| |-|-|-| |-|
|-| |-| |-| | |-|-|-|-|-| |-|-|-|-|-| |-| |-| |-|-| |-|
|-|-| | |-|-|-| |-|-|-| |-|-| |-
|-|-|-| | |-|-| |-|-|-|-|-
|-|-|-| | | |-| |-|-|-| |-|-|-|-|-| |-|-| | |-| |-|-|-|-|-
|-| |-|-|-| |-| | |-|-|-|-|-|-| |-|-|-| |
| |-| |-|-| |-|-|-|-|-|-|-|-
|-|-| |-|-| | |-|-|-|-|-|-|-| |-|-|-|-|-|-|-| |-| |
|-|-| |-| |-|-|-| | |-| | |-
|-|-|-| |-| |-|-|-|-|-| | |-|-| | | |-
|-| |-|-| | | |-|-|-|-|-|-| |-|-|-|-|-|-|-|-
|-| |-|-| | |-|-|-| |-
|-|-|-|-|-|-|-| |-| |-|-|-|-
|-| |-|-|-| | |-|-|-| |-|-|-|-|-| |
|-| |-|-|-| |-|-|-|-|-|-| |-|-|-|-|-|-|-| |-|-|-| |-| |-|-
|-|-| |-|-|-|-|-|-|-|-| |-|-|-|-|-| |-| |-| | | | |-
|-|-| |-|-| | |-|-|-| |-| |-|-|-|-| | | | |-|-|-|-
|-|-|-|-|-| | |-|-| |-|-|-| | |-|-|-
|-|-|-|-|-| | | |-|-| |-| |-|-|-|-|-|-
| |-| |-|-|-| |-| |-| |-|-|-|-| |-|-
|-| |-| | | |-|-|-|-| | |-|-|-|-| | |-|-|-
|-|-|-| |-| |-|-|-| |-| |-|-|-| |-|-|-|-| |-|-
|-|-|-|-|-|-|-|-|-|-|-| |
|-|-|-|-| |-|-|-|-| |-| |-
|-|-|-| |-|-|-|-|-|-|-|-| |-|-|-| |-
| |-|-| |-|-| | | |-|-|-| |-
|-| |-|-| |-|-|-|-| | |-|-| | | |-|-
| |-|-| | | |-|-|-|-|-|-| |-|-|-| |-|-|-|-| |-
| |-|-|-|-|-|-| |-| |-
|-|-| |-| |-| |-|-| |-|-|-|-| |-| |-|-|-|-| |-|-
| |-| |-|-| | |-|-|-| |-
| |-|-|-|-|-|-| |-|-|-|-|-|-| |-| | |-
|-|-| |-|-|-|-|-| |-| |-|-|-|-|-|-|-|-|-|-|-|-|-| |-|-|-|-
|-|-|-|-|-|-| |-|-|-| |-| | |-
| |-|-| |-|-| |-|-| | | |-|-
|-| | |-|-|-|-|-|-|-|-|-|-|-|-| |-| |-|-|-
|-|-|-| |-|-|-| |-|-|-|-| |-| |-|-| |-|-|-| | | |-
|-| |-|-|-|-|-|-| |-|-| |-|-|-|-| |-| |-
|-| |-| |-|-|-|-| | |-|-|-|-|-|-| |-| |-
|-|-|-|-|-|-|-|-|-| | |-| | |-|-|-| |-|-| | |-|-
|-|-| |-|-| |-| |-|-| |-|-|-| |-| |-| |-|
| | |-|-|-|-|-|-| |-|-|-|-| |-
| | |-|-|-|-|-|-|-|-| | | |-| |-|-|-
|-|-|-|-|-| |-| | |-|-| |-|-| |
|-|-|-|-| |-|-| |-| |-|-| |-|-|-|-|-| |-|-|-| | |-|-|-|-
| |-|-|-|-|-|-| |-|-|-| | |-| | |-|-|-| | |-
| |-| |-|-| |-| |-|-|-|-|-| |-|-|-|-|-|-|-| |-|-|
|-| |-| |-|-| | |-|-
| |-|-|-|-| |-|-|-|-|-|-| |-|-|-|-|-|-
| |-| | | |-|-|-|-|-|-|-|-|-|-| |-|-|-| | | |-| |-|-
|-|-| | |-| |-|-|-|-|-|-| | | |-|-|-| |-| | |-|-
|-|-|-| |-|-|-|-| | | |-|-|-|-|-|-|-|-
|-|-|-|-|-|-|-|-|-|-|-|-|-| | |-|-|
|-|-|-|-| |-| |-| | | |-|-|-|-|-|-|
|-|-| | | |-|-| |-|-|-|-|-|-|-| |-|-|-| |-|-|-|
|-| |-|-|-|-|-| |-|-|-|-|-|-|-| |-|-|-|-|-|-| |-|-
|-|-|-| |-|-|-|-|-| |-| |-| |-| | | |-|-| |-|-| |-| |-| |-
|-| |-|-| |-| |-|-|-|-| | | |-|-| |-|-|-|

55
forms/16.txt Normal file
View File

@ -0,0 +1,55 @@
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-

41
forms/17.txt Normal file
View File

@ -0,0 +1,41 @@
| |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-
|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-| | |-|-
|-|-|-| | |-|-|-| | | | | |-|-| | |-|-
|-|-| | | |-| | | | | |-|-|-
|-| |-|-|-|-| | | | | |-
| | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-|-|
|-|-|-| | | | | |-|-| | |-|-|-
| |-| | | | |-|-|-| |
|-| | | | | |-|-| | |-|-|-|-|-| | | |-| | | |
| | | | |-|-|-| | | |-|-
| | | | |-|-| | |-|-|-|-|-| | | |-| |
| | |-|-|-| | |-|-|-|-|-| |-
| | |-| | |-|-|-|-|-| |
|-|-| | | |-|-|-|-|-| |-|-|-| |
|-| | |-|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-
| | | |-|-|-|-| | |-|-|-| | | |
| |-|-|-|-|-| | | |-| | | | | |-|-|-| | |-|-|-|-
|-|-|-|-|-| |-|-|-|-|
|-|-|-| | | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-
|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-|-| | |
|-| | | |-|-| | | | |-|-|-| | |
| | |-|-|-| | | | | |-|-| | |-|-|-|-|-| | |
| | |-| | | | | |-|-|-| | | |-|-|-
|-|-|-| | | | | |-|-| |-|-|-|-|-|-| | | |-| | | | | |-|-|
|-| | | | | |-|-| | | |-|-|-|-
| | | | | |-|-| | |-|-|-|-|-| |
| | | |-|-|-| | | |-|-|-|-|-| |-|-|-| | | | |
| | | |-|-| | |-|-|-|-|-| | | |-| | | | |
| |-|-|-| | | |-|-|-|-| |-|-|-|-
| |-|-| | |-|-|-|-|-| | | |-
|-|-| | |-|-|-|-|-| |-|-|-| | | | | | |-| | |-|-|-|-
| | |-|-|-|-|-| | | | |-| | | | |-|-|-
| | |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-
|-|-|-|-|-| | | |-|-
|-|-|-|-| | |-|-|-| | | | |
|-|-|-| | | |-| | | | | |-
|-|-| |-|-|-|-| | | | | |-| | |-|-|-|-|-| | | | |-|

55
forms/18.txt Normal file
View File

@ -0,0 +1,55 @@
| |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-|-|-
|-|-|-|-| | | |-|-| |
|-|-|-| | |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-
|-|-| | | |-| | | | | |-|-|-| | | |-|-|-|-| |-|-|-
|-| |-|-|-|-| | | | | |-|-| |-|-|-|-
| | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-|-
|-|-|-| | | | | |-|-| | |-|-|-|-|-| | | | |-|
| |-| | | | |-|-|-| | | |-|-|-|-|-| |-|-|-
|-| | | | | |-|-| | |-|-|-|-|-| | | |-| | | |
| | | | |-|-|-| | | |-|-|-|-| |-|-|-|-| | | | | |-|-
| | | | |-|-| | |-|-|-|-|-| |
| | |-|-|-| | |-|-|-|-|-| |-|-|-| | | | | | |-| | |-|-|-
| | |-| | |-|-|-|-|-| |
|-|-| | | |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-
|-| | |-|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-| |
| | | |-|-|-|-| | |-|-|-| | | | | |-|-| | |-|-|-|-
| |-|-|-|-|-| | | |-| | | | | |-|-
|-|-|-|-|-| |-|-|-|-| | | | | |-| |
|-|-|-| | | | |-| | | | | |-|-
|-|-|-| |-|-|-| | |
|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-| | |-|-
| | |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-|
| | |-| | | | | |-|-|-| | | |-|-|-|-| |-|-|-|-
|-|-|-| | | | | |-|-
|-| | | | | |-|-| | | |-|-|-
| | | | | |-|-| | |-|-|-|-|-| | | | |-| | | | |-|-
| | | |-|-|-| | | |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-
| | | |-|-| | |-|-|-|-|-| | | |-| | | | | |-|-
| |-|-|-| | | |-|-|-|-| |-|-|-|-|
| |-|-| | |-|-|-|-|-| | | |-| | | | | |-|-|-|
|-|-| | |-|-|-|-|-| |-
| | |-|-|-|-|-| | |
| | |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-|-|-
|-|-|-|-|-| | | |-|-|
|-|-|-|-| | |-|-|-| | | | | |-|-| |
|-|-|-| | | |-| | | | | |-|-|-| | |-|-|-|-|-| |-
|-|-| |-|-|-|-| | | | | |-| | |-|-|-|-|-| | | | |-
| | | | |-| | | | | |-|-| | | |-|-|-|-|-| |-|-|-| | | | |
| |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-|-| | | | |-|-
| |-|-| | | | |-|-|-| | | |-|-|-|-| | |-|-|-| | | | | |-|-
|-|-| | | | | |-|-|
| | | | | |-|-|-| | | |-|-|-|-| |-|-|-|-
| | | | | |-|-| |-|-|-|-|-| | | | |-| |
| | | |-|-| | | |-|-|-|-|-| |-|-|-| | | | | |-|-| | |-|-
| | |-|-| | |-|-|-|-|-| | | | |-| | |
|-|-|-| | | |-|-|-|-|-| |-|-|-|
|-|-| | |-|-|-|-|-| | | |-| | | | | |-|-|-|
|-| | | |-|-|-|-| |-|-|-|-| | |
| | |-|-|-|-|-| | | |-| | | | | |-|-|-| | |-
| |-|-|-|-|-| |-|-|-| | | | | | |-

28
forms/19.txt Normal file
View File

@ -0,0 +1,28 @@
| |-|-| | | |-|-|-|-|-| |-
| | | | | |-|-| | |-|-|-|-
| | |-|-| | | | |-|-|-| | | |-|-|-
|-|-|-| | |-|-|-| | | | | |-|-|
| | |-|-|-|-|-| | | |-| | | | | |-|-|-| |
| |-|-|-| | | |-|-|-|-| |-|-
|-| | | | | |-|-| |-|-|-|-|-|-|
| | | |-| | | | | |-|-| | | |-|-|-|-|-
|-|-|-|-| |-|-|-| | | | | |-
| | |-|-|-|-|-| | | | |-|
| |-|-|-| | | |-|-|-|-|-| |-|-|-| | |
|-| | | | | |-|-| | |-|-|-|-|-| | | |-|
| | | |-| | | | | |-|-|-
|-|-|-|-| |-|-|-|-| | | | | |-|-|
|-| | |-|-|-|-|-| | | |-| | | | | |-
| | |-|-|-| | |-
|-| | | | | | |-| | |-
| | | | |-| | | | |-|-|-| |
|-|-|-|-|-| |-|-|-| | |
|-| | |-|-|-|-|-| | | |-|-| | |
| | |-|-|-| | | |-|-|-|-| | |-|-|-| | |
|-|-| | | | | |-|-|
|-| | | |-| | | | | |-|-|-| | |-|-|-

33
forms/20.txt Normal file
View File

@ -0,0 +1,33 @@
| |-|-| | | |-|-|-|-|-| |-|-|-| | | |
| | | | | |-|-| | |-|-|-|-|-
| | |-|-| | | | |-|-|-| | | |-|-
|-|-|-| | |-|-|-| | | | | |-
| | |-|-|-|-|-| | | |-| | | | | |-
| |-|-|-| | | |-|-|-|-| |-|-|-|-| | | |
|-| | | | | |-|-| |-|-|-|-|-|-| | | |-
| | | |-| | | |
|-|-|-|-| |-|-|-| | | |
| | |-|-|-|-|-| | | | |-| | | | |-|-|-| |
| |-|-|-| | | |-|-|-|-|-| |-|-|-| | | | |
|-| | | | | |-|-| | |-
| | | |-| | | | | |-|-|-| | | |-|-|-
|-|-|-|-| |-|-|-|-| | | | | |-|-| | |-|-
|-| | |-|-|-|-|-| | | |-| | |
| | |-|-|-| | |-|-|-|-
|-| | | | | | |-
| | | | |-| | | | |-|-|-| | |
|-|-|-|-|-| |-|-|-| |
|-| | |-|-|-|-|-| | | |-
| | |-|-|-| | | |-|-|-|-| | |-|-|-| |
|-|-| | | | | |-|-| | |-|-|-|-
|-| | | |-| | | | | |-|-|-| | |-|-|-|-|-|
|-|-|-|-|-| |-|-|-|-
|-| | |-|-|-|-|-| | | | |-| |
| | | |-|-| | |
|-|-| | | | | |-|-

45
forms/21.txt Normal file
View File

@ -0,0 +1,45 @@
| |-|-|-|-|-| |-|-|-| | | | |
|-|-|-|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-| | |-|-|-|
|-|-|-| | |-|-|-| | | | | |-|-| |
|-|-| | | |-| | | | | |-|-|-| | | |-|-|-|-| |-|-|-
|-| |-|-|-|-| | | | | |-|-| |-|-|-|-|-|-| | | |-| | | |
| | | |-| | | | | |-|-| | | |-|-|-|-
|-|-|-| | | | | |-|-| | |-|-|-|-|-|
| |-| | | | |-|-|-| | |
|-| | | | | |-|-| | |-|-|-
| | | | |-|-|-| | | |-|-|-|-| |-|-|-|-| | | | | |-|-| | |-
| | | | |-|-| | |-|-|-|-|-| | | |-| | | | | |-|-|-| | |-|-
| | |-|-|-| | |-|-|-|-|-| |-|-|-| | | | | | |-|
| | |-| | |-|-|-|-|-| | |
|-|-| | | |-|-|-|-|-| |-|-|-| | | | |
|-| | |-|-|-|-|-| | | |-|-| | |
| | | |-|-|-|-| | |-|-|-| | | | | |-|-| | |-|-|-|-|-|
| |-|-|-|-|-| | | |-| | | | | |-|-|-| | |-|-|-|-|-
|-|-|-|-|-| |-|-|-|-| | | | | |-| | |-|-|-|-|-| | | | |-|
|-|-|-| | | | |-| | | | | |-
|-|-|-| |-|-|-| | | | | |-|-| | |-
|-| | | |-|-| | | | |-|-|-| | | |-|-|-|-|
| | |-|-|-| | | | | |-|-| |
| | |-| | | | | |-|-|-| | | |-|-|-|-| |-|-|-|-| | | | |
|-|-|-| | | | | |-|-| |-|-|-|-|-|-| | | |-|
|-| | | | | |-|-| | | |-|-
| | | | | |-|-| | |-|-|-|-|-| | | | |-| | |
| | | |-|-|-| | | |-|-|-|-|-| |-|-|-| |
| | | |-|-| | |-|-|-|-|-| | | |-
| |-|-|-| | | |-|-|-|-| |-|-|-|-| | | | | |-|-| | |-|-|-|-
| |-|-| | |-|-|-|-|-| | |
|-|-| | |-|-|-|-|-| |-|-|-| | | | |
| | |-|-|-|-|-| | | | |-| | | | |-
| | |-|-|-|-|-| |-|-|-| | |
|-|-|-|-|-| | | |-|-| | | | |-|-|-|
|-|-|-|-| | |-|-|-| | | | | |-|-| | |-|-|-|-|-| | | |-| |
|-|-|-| | | |-| | | | | |-|-|-| | |-|-|-|-|-| |-
|-|-| |-|-|-|-| | | | | |-| | |-|-|-|-|-| | |
| | | | |-| | | | | |-|-| | | |-|-|-|-|-
| |-|-|-| | | | | |-|-| | |-|-|-

40
forms/22.txt Normal file
View File

@ -0,0 +1,40 @@
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-
| | | | | |-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | |-|-|-|-|-|-|-|-|-|-|-
| | | | | |-|-|-|-|-|-|-|-|-|-
| | | | | |-|-|-|-|-|-|-|-|-|-|-
| | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-
| | | | | | | |-|-|-|-|-|-|-|-|-|-|-|-|-|-|-

17
forms/23.txt Normal file
View File

@ -0,0 +1,17 @@
| |-|-|-|-| |-|-|-| | |-|-
|-|-|-| | |-|-|-|-| |-|-| | |-| |-|-|-|
| | |-| | | |-|-|-|-|-|-|-|-|-| | | |-|-
|-|-|-|-| |-| |-|-| |-|-| |-|-
| | |-| |-|-|-| |-|-
|-|-| | | |-|-|-|-| |-|
|-| |-| |-|-| |-
| |-| |-|-| |-|-|-|-|-|-|-| |-|-|-|-|-
| | | | |-| |-|-
|-|-|-| |-| |-|-|-| |-|-|-|-|-|-|-|-
|-| |-|-|-| | |-|-|-
|-|-|-|-|-| | |-| | |-|-|-| |-| | |-| | |
|-|-|-|-|-|-| |-|-|-|-|-|-| |-| |-|-| |-|-
| |-|-|-|-| |-|-|-|-|-| |-|-|-

7
forms/24.txt Normal file
View File

@ -0,0 +1,7 @@
|-*| | | | | |-*|--| | | |*-|*-|-*
| |-*|--|*-|*-|-*| |-*|*-|*-| | |
| | | | |
|-*|--|-*|-*| | | |-*|--| | | | |-*
| | | |-*|*-|*-| | |

6
forms/25.txt Normal file
View File

@ -0,0 +1,6 @@
|-*| | | | |
| |-*|--|*-|*-|-*| |*-
| | | | |
|-*|-*|-*|-*| | | |-*
| | | |*-|--

25
forms/26.txt Normal file
View File

@ -0,0 +1,25 @@
| | | | |-*|*-|*-|*-|-*|*-|-*|-*|*-
| | | | | |-*|-*|*-|*-|*-|*-|-*|*-|-*|*-
| | | | | | |*-|*-|*-|-*|--|-*|-*|-*|-*|*-|*-|-*
| | | | | | | |-*|-*|-*|-*|-*|*-|-*|*-|*-|-*|-*|-*|*-|*-
| | | | | | | |*-|*-|*-|-*|-*|-*|--|-*|*-|-*|*-|-*|-*|*-
| | | | | | |--|*-|-*|--|-*|*-|*-|--|-*|--|-*|-*
| | | | |-*|*-|-*|-*|*-|-*|*-|-*|-*
| | | | |-*|*-|*-|*-|*-|--|*-|*-
| | | | |-*|*-|-*|-*|*-|*-|-*|-*
| | | | |-*|--|*-|*-|*-|*-|-*|-*|*-
| | | | | |-*|*-|*-|*-|*-|--|-*|-*|-*|*-
| | | | |*-|*-|-*|-*|--|*-|-*|-*|-*
| | | |*-|-*|-*|*-|*-|--|--
| | | |*-|*-|*-|--|-*|*-
| | | |*-|*-|*-|--|*-|*-|-*
| | | | |-*|*-|-*|*-|--|-*|*-|-*|-*
| | | | | |*-|-*|-*|-*|*-|*-|-*|-*|-*|-*|-*
| | | | | |*-|*-|*-|*-|-*|--|--|-*|--|-*|-*
| | | | |-*|-*|*-|-*|-*|*-|*-|--|*-
| | | | |-*|--|-*|-*|*-|-*|*-|-*
| | | | |-*|*-|*-|*-|*-|*-|-*|*-

12
forms/27.txt Normal file
View File

@ -0,0 +1,12 @@
|*-|*-| | | | |*-|*-
| | |*-|-*|-*|*-| |
|-*| | | | |-*|-*| | | | |-*
|-*|-*|*-| | | | |*-|-*|-*
| | |-*|-*|*-|-*|-*|*-|-*|-*| |
|-*|-*| | | | | | |-*|-*
| | | |
|*-| | | | |*-|*-| | | | |*-
|-*|-*|--|*-|*-|--|-*|-*
| | | | | |

8
forms/28.txt Normal file
View File

@ -0,0 +1,8 @@
(4,8) a: --------
(4,5) b: -----
(3,12) b: ------------
(0,10) b: ----------
(4,10) b: ----------
(1,8) a: --------
(3,6) a: ------

20
forms/29.txt Normal file
View File

@ -0,0 +1,20 @@
(2,5) c: -----
(2,12) c: ------------
(4,8) a: --------
(0,10) b: ----------
(3,13) a: -------------
(0,14) e: --------------
(2,11) a: -----------
(2,12) c: ------------
(3,11) d: -----------
(3,9) c: ---------
(2,10) b: ----------
(2,10) c: ----------
(2,9) c: ---------
(3,13) c: -------------
(2,6) a: ------
(3,13) d: -------------

15
forms/30.txt Normal file
View File

@ -0,0 +1,15 @@
(5,11) a: -----------
(5,11) a: -----------
(4,9) a: ---------
(3,7) a: -------
(4,8) a: --------
(5,11) a: -----------
(7,15) a: ---------------
(8,17) a: -----------------
(7,15) a: ---------------
(6,12) a: ------------
(4,9) a: ---------
(4,8) a: --------

40
forms/4.txt Normal file
View File

@ -0,0 +1,40 @@
6: ------
12: ------------
8: --------
7: -------
10: ----------
11: -----------
7: -------
13: -------------
11: -----------
7: -------
12: ------------
8: --------
7: -------
9: ---------
14: --------------
12: ------------
9: ---------
8: --------
10: ----------
9: ---------
9: ---------
12: ------------
13: -------------
9: ---------
7: -------
13: -------------
9: ---------
13: -------------
9: ---------
11: -----------
7: -------
12: ------------
8: --------
12: ------------
8: --------
12: ------------

37
forms/5.txt Normal file
View File

@ -0,0 +1,37 @@
7: -------
8: --------
10: ----------
11: -----------
9: ---------
9: ---------
7: -------
10: ----------
13: -------------
8: --------
10: ----------
11: -----------
9: ---------
11: -----------
11: -----------
12: ------------
11: -----------
11: -----------
10: ----------
9: ---------
6: ------
14: --------------
12: ------------
12: ------------
7: -------
13: -------------
10: ----------
7: -------
5: -----
12: ------------
14: --------------
8: --------
14: --------------

55
forms/6.txt Normal file
View File

@ -0,0 +1,55 @@
11: -----------
12: ------------
13: -------------
7: -------
8: --------
7: -------
12: ------------
8: --------
14: --------------
9: ---------
12: ------------
9: ---------
10: ----------
11: -----------
5: -----
11: -----------
11: -----------
12: ------------
10: ----------
6: ------
6: ------
9: ---------
12: ------------
9: ---------
9: ---------
8: --------
6: ------
11: -----------
14: --------------
9: ---------
6: ------
12: ------------
8: --------
12: ------------
12: ------------
13: -------------
7: -------
5: -----
14: --------------
12: ------------
8: --------
7: -------
14: --------------
7: -------
12: ------------
9: ---------
7: -------
5: -----
10: ----------
8: --------

93
forms/7.txt Normal file
View File

@ -0,0 +1,93 @@
8: --------
9: ---------
8: --------
7: -------
7: -------
10: ----------
12: ------------
13: -------------
12: ------------
9: ---------
7: -------
6: ------
6: ------
5: -----
3: ---
2: --
2: --
2: --
4: ----
7: -------
8: --------
7: -------
6: ------
6: ------
7: -------
9: ---------
9: ---------
7: -------
6: ------
5: -----
7: -------
10: ----------
12: ------------
11: -----------
9: ---------
7: -------
6: ------
7: -------
7: -------
5: -----
3: ---
2: --
2: --
4: ----
7: -------
8: --------
7: -------
5: -----
4: ----
5: -----
7: -------
7: -------
6: ------
5: -----
5: -----
8: --------
11: -----------
13: -------------
13: -------------
11: -----------
8: --------
7: -------
7: -------
7: -------
5: -----
2: --
2: --
2: --
2: --
5: -----
6: ------
6: ------
5: -----
4: ----
6: ------
8: --------
9: ---------
8: --------
7: -------
7: -------
8: --------
11: -----------
13: -------------
13: -------------
10: ----------
7: -------
6: ------

65
forms/8.txt Normal file
View File

@ -0,0 +1,65 @@
21: ---------------------
15: ---------------
22: ----------------------
25: -------------------------
11: -----------
16: ----------------
23: -----------------------
23: -----------------------
10: ----------
18: ------------------
22: ----------------------
27: ---------------------------
16: ----------------
23: -----------------------
12: ------------
17: -----------------
14: --------------
19: -------------------
28: ----------------------------
27: ---------------------------
19: -------------------
18: ------------------
10: ----------
22: ----------------------
15: ---------------
22: ----------------------
15: ---------------
16: ----------------
20: --------------------
16: ----------------
14: --------------
23: -----------------------
24: ------------------------
29: -----------------------------
25: -------------------------
17: -----------------
14: --------------
16: ----------------
14: --------------
21: ---------------------
23: -----------------------
24: ------------------------
16: ----------------
27: ---------------------------
23: -----------------------
16: ----------------
24: ------------------------
13: -------------
17: -----------------
10: ----------
26: --------------------------
28: ----------------------------
24: ------------------------
22: ----------------------
23: -----------------------
28: ----------------------------
28: ----------------------------
16: ----------------
19: -------------------

55
forms/9.txt Normal file
View File

@ -0,0 +1,55 @@
21: ---------------------
21: ---------------------
19: -------------------
17: -----------------
18: ------------------
21: ---------------------
25: -------------------------
27: ---------------------------
25: -------------------------
22: ----------------------
19: -------------------
18: ------------------
19: -------------------
19: -------------------
17: -----------------
13: -------------
12: ------------
14: --------------
18: ------------------
22: ----------------------
24: ------------------------
22: ----------------------
20: --------------------
19: -------------------
20: --------------------
22: ----------------------
21: ---------------------
19: -------------------
16: ----------------
16: ----------------
19: -------------------
23: -----------------------
25: -------------------------
25: -------------------------
22: ----------------------
19: -------------------
19: -------------------
20: --------------------
20: --------------------
19: -------------------
15: ---------------
13: -------------
15: ---------------
18: ------------------
22: ----------------------
23: -----------------------
21: ---------------------
19: -------------------
17: -----------------
18: ------------------

79
poems/10.txt Normal file
View File

@ -0,0 +1,79 @@
20: --------------------
16: ----------------
8: --------
18: ------------------
15: ---------------
10: ----------
15: ---------------
16: ----------------
8: --------
17: -----------------
17: -----------------
10: ----------
15: ---------------
20: --------------------
16: ----------------
8: --------
9: ---------
9: ---------
9: ---------
9: ---------
20: --------------------
13: -------------
11: -----------
13: -------------
16: ----------------
8: --------
20: --------------------
8: --------
8: --------
7: -------
16: ----------------
15: ---------------
8: --------
18: ------------------
13: -------------
17: -----------------
18: ------------------
16: ----------------
16: ----------------
15: ---------------
19: -------------------
10: ----------
14: --------------
13: -------------
12: ------------
17: -----------------
11: -----------
8: --------
19: -------------------
11: -----------
14: --------------
20: --------------------
11: -----------
18: ------------------
11: -----------
19: -------------------
11: -----------
16: ----------------
10: ----------
8: --------
7: -------
10: ----------
13: -------------
13: -------------
12: ------------
15: ---------------
11: -----------
13: -------------
18: ------------------
9: ---------
15: ---------------
13: -------------
9: ---------
19: -------------------
13: -------------

41
poems/20.txt Normal file
View File

@ -0,0 +1,41 @@
spider guardian of my home & soul
patrons who watch over us
I have the ways you build and
grow. Cover the porch and the
step with your thin strand your gapped
ladder a hundred stories high by your self
you give of body to create some thing
new
and do you know you are breath
taking, that you make art with every
movement: ae sthetic is not our domain a-
lone your
| |-|-|-| | | |-|-|-|-| |-|-|-|-| | | |
|-| | | | | |-|-| |-|-|-|-|-|-| | | |-
| | | |-| | | |
|-|-|-|-| |-|-|-| | | |
| | |-|-|-|-|-| | | | |-| | | | |-|-|-| |
| |-|-|-| | | |-|-|-|-|-| |-|-|-| | | | |
|-| | | | | |-|-| | |-
| | | |-| | | | | |-|-|-| | | |-|-|-
|-|-|-|-| |-|-|-|-| | | | | |-|-| | |-|-
|-| | |-|-|-|-|-| | | |-| | |
| | |-|-|-| | |-|-|-|-
|-| | | | | | |-
| | | | |-| | | | |-|-|-| | |
|-|-|-|-|-| |-|-|-| |
|-| | |-|-|-|-|-| | | |-
| | |-|-|-| | | |-|-|-|-| | |-|-|-| |
|-|-| | | | | |-|-| | |-|-|-|-
|-| | | |-| | | | | |-|-|-| | |-|-|-|-|-|
|-|-|-|-|-| |-|-|-|-
|-| | |-|-|-|-|-| | | | |-| |
| | | |-|-| | |
|-|-| | | | | |-|-

15
poems/24.txt Normal file
View File

@ -0,0 +1,15 @@
The fall of man. love, the great motiva-
tion. I've been a woman---always? perhaps but I haven't even
____________
do you know who you are? will you be assured when they ask
your name? Will you even ______
|-*| | | | | |-*|--| | | |*-|*-|-*
| |-*|--|*-|*-|-*| |-*|*-|*-| | |
| | | | |
|-*|--|-*|-*| | | |-*|--| | | | |-*
| | | |-*|*-|*-| | |

19
poems/3.txt Normal file
View File

@ -0,0 +1,19 @@
We are
Forgetting everything
we will be
the viscosity of
memory is
holding us a-
float but languid, pulling
ourselves through uncer
tainty
towards nothing that can be
realized or forseen
How can any of us
make a future when they
say the end is now but
life is what
happens
when you're prep-
ping for the end

16
poems/30.txt Normal file
View File

@ -0,0 +1,16 @@
The reciprocity of our mutual
destruction, eternity ensured in full
avarice--consumptive--future cull
and the world replaced. dull
flesh has become vestigial
this the promise of a god so genial
he would wipe out all that has been so he can make his will inviolable
and we must accelerate extraction of the biological
for when the world is burned and hope gone, we escape: raptural
the new heaven and earth/a paradise/a lull
salvation ours, stasis makes will null
holy statues, immovable

39
poems/4.txt Normal file
View File

@ -0,0 +1,39 @@
The spirit of the end
is upon me, [REDACTED] annointed me to
preach a lost gospel of death
a [negative|inverse] kind
of utilitarian metaphysics
suicide as praxis, surrender as our
resistance against evil
For I have been [assured|convinced|deceived] by the one
true zeitgeist that nothing we do is enough,
that the transistor throated
messiah holds us to a standard we cannot
survive. [Lord|Almighty|External]!
Forgive us our hope and our frailness
For we are an imperfect people who wanted to be
happy, fulfilled. What right do we have to a now,
what claim do we have to a self? We
should have known that there is only---
Death, oh death, where is your song? Grave where is
your holy embrace? For we were for
gone and for[ill]gotten. Our relief
only in your finality. Does [REDACTED] laugh
at our futility, does the [memetic|viral]
idea of nihilism enjoy our
worship, relish our fever-
ish lust for the absolution of autonomy?
But here in the strong wind, the presence of
behemoth & leviathan, I must ask you all:
How do you know when visions are true?
How do you know when the damnation is set?
For I have been here before
and I have heard these words, lived the many ends of
the world. And I have been chosen
as holy messenger so many times and I'm
starting to wonder if you can
ever trust propehcy, certainly not your own?

38
poems/5.txt Normal file
View File

@ -0,0 +1,38 @@
There was once a little child
that wanted to be a spider.
They could stay small
10: ----------
11: -----------
9: ---------
9: ---------
7: -------
10: ----------
13: -------------
8: --------
10: ----------
11: -----------
9: ---------
11: -----------
11: -----------
12: ------------
11: -----------
11: -----------
10: ----------
9: ---------
6: ------
14: --------------
12: ------------
12: ------------
7: -------
13: -------------
10: ----------
7: -------
5: -----
12: ------------
14: --------------
8: --------
14: --------------

55
poems/6.txt Normal file
View File

@ -0,0 +1,55 @@
11: -----------
12: ------------
13: -------------
7: -------
8: --------
7: -------
12: ------------
8: --------
14: --------------
9: ---------
12: ------------
9: ---------
10: ----------
11: -----------
5: -----
11: -----------
11: -----------
12: ------------
10: ----------
6: ------
6: ------
9: ---------
12: ------------
9: ---------
9: ---------
8: --------
6: ------
11: -----------
14: --------------
9: ---------
6: ------
12: ------------
8: --------
12: ------------
12: ------------
13: -------------
7: -------
5: -----
14: --------------
12: ------------
8: --------
7: -------
14: --------------
7: -------
12: ------------
9: ---------
7: -------
5: -----
10: ----------
8: --------

47
poems/7.txt Normal file
View File

@ -0,0 +1,47 @@
I worship the moon and the stars,
I lose myself in the sacred void
that swims with endless energy
the infinitude: holy
beyond our comprehension.
I was taught to worship a righteous God,
a being of absolute power, wrath, envy
His jealously intertwined with his love-cruelty
He was a God who I tried to love, a father
I wanted to please and a distant
listener always holding
every thought captive
I was trapped and alone
I was emptied out
a vessel
Nothing
Can grow
Nothing
Can build itself
back up because nothing is
really ever just nothing and
the vaccuum pulses with life
and the universe is
never empty but is
full of creation, breathing
in & out, rising, falling, being
Nothing is ever lost or wasted
and all the time I mourn is
endless fabric of space
I have been so small
and I have been so nothing
but the fullness of nothing made me whole
and the pressure of eternal self-creation
let me finally exist under my own
strength. So now instead of the jealous
rage-filled god, who hollowed me out
I can worship the moon
the stars and the endless void
because they know me in an
intimacy that
God couldn't.
We are
endless.

65
poems/8.txt Normal file
View File

@ -0,0 +1,65 @@
21: ---------------------
15: ---------------
22: ----------------------
25: -------------------------
11: -----------
16: ----------------
23: -----------------------
23: -----------------------
10: ----------
18: ------------------
22: ----------------------
27: ---------------------------
16: ----------------
23: -----------------------
12: ------------
17: -----------------
14: --------------
19: -------------------
28: ----------------------------
27: ---------------------------
19: -------------------
18: ------------------
10: ----------
22: ----------------------
15: ---------------
22: ----------------------
15: ---------------
16: ----------------
20: --------------------
16: ----------------
14: --------------
23: -----------------------
24: ------------------------
29: -----------------------------
25: -------------------------
17: -----------------
14: --------------
16: ----------------
14: --------------
21: ---------------------
23: -----------------------
24: ------------------------
16: ----------------
27: ---------------------------
23: -----------------------
16: ----------------
24: ------------------------
13: -------------
17: -----------------
10: ----------
26: --------------------------
28: ----------------------------
24: ------------------------
22: ----------------------
23: -----------------------
28: ----------------------------
28: ----------------------------
16: ----------------
19: -------------------

55
poems/9.txt Normal file
View File

@ -0,0 +1,55 @@
21: ---------------------
21: ---------------------
19: -------------------
17: -----------------
18: ------------------
21: ---------------------
25: -------------------------
27: ---------------------------
25: -------------------------
22: ----------------------
19: -------------------
18: ------------------
19: -------------------
19: -------------------
17: -----------------
13: -------------
12: ------------
14: --------------
18: ------------------
22: ----------------------
24: ------------------------
22: ----------------------
20: --------------------
19: -------------------
20: --------------------
22: ----------------------
21: ---------------------
19: -------------------
16: ----------------
16: ----------------
19: -------------------
23: -----------------------
25: -------------------------
25: -------------------------
22: ----------------------
19: -------------------
19: -------------------
20: --------------------
20: --------------------
19: -------------------
15: ---------------
13: -------------
15: ---------------
18: ------------------
22: ----------------------
23: -----------------------
21: ---------------------
19: -------------------
17: -----------------
18: ------------------