;; TILES.LISP
;; some tilings found using 'tilings.gap' script
;; these are input to 'place-tiles' and 'place-cantiles'

;; Drew Krause, 2004
;; drkrause@mindspring.com
;; www.wordecho.org

;gap> tilings([1,1,0,0,1],1,5,400);
;[ 1, 1, 2, 1, 1 ]  Length 15
(setf tilevec15 '(1 1 2 2 1 3 2 3 4 4 5 5 4 3 5))

; gap> tilings([1,0,1,1,0,0,1],1,6,1400);
; [ 5, 1, 2, 2, 2, 4, 4, 1, 2, 2, 1 ]  Length 44
(setf tilevec44 '(1 2 3 2 2 4 3 2 3 4 1 4 5 6 3 1 5 4 5 7 8 
6 8 8 5 6 8 7 9 10 1 7 9 10 9 10 11 6 11 11 9 10 11 7))

; gap> tilings([1,0,0,1],1,7,400);

; [ 1, 1, 2, 2, 1, 1 ]  Length 12
(setf tilevec4a '(1 2 3 1 2 4 5 6 3 5 6 4))

; [ 1, 1, 3, 1, 1, 1 ]  Length 12
(setf tilevec4b '(1 2 3 1 2 4 5 6 4 5 6 3))

; [ 2, 1, 1, 2, 1, 1 ]  Length 12
(setf tilevec4c '(1 2 3 4 2 3 1 5 6 4 5 6))

; [ 2, 1, 2, 2, 2, 1 ]  Length 12
(setf tilevec4d '(1 2 3 4 2 5 1 6 3 4 6 5))

; [ 3, 1, 1, 1, 1, 1 ]  Length 12
(setf tilevec4e '(1 2 3 4 2 3 4 5 6 1 5 6))

; [ 3, 1, 2, 1, 2, 1 ]  Length 12
(setf tilevec4f '(1 2 3 4 2 5 4 6 3 1 6 5))