;======================================================================= ; BlockTXt.Lsp Feb 05, 2000 ; 3d Block Text From Lines And Faces ;================== Start Program ====================================== (princ "\nCopyright (C) 2000, Fabricated Designs, Inc.") (princ "\nLoading BlockTXt v1.3 ") (setq btx_ nil lsp_file "BlockTXt") ;================== Macros ============================================= (defun PDot ()(princ ".")) (defun AtoR (a) (* pi (/ a 180.0))) (PDot);++++++++++++ Set Modes & Error ++++++++++++++++++++++++++++++++++ (defun btx_smd () (SetUndo) (setq olderr *error* *error* (lambda (e) (while (> (getvar "CMDACTIVE") 0) (command)) (and (/= e "quit / exit abort") (princ (strcat "\nError: *** " e " *** "))) (command "_.UNDO" "_END" "_.U") (btx_rmd)) btx_var '(("CMDECHO" . 0) ("MENUECHO" . 0) ("MENUCTL" . 0) ("MACROTRACE" . 0) ("OSMODE" . 0) ("SORTENTS" . 119) ("MODEMACRO" . ".") ("BLIPMODE" . 0) ("SNAPMODE" . 1) ("ORTHOMODE" . 1) ("GRIDMODE" . 0) ("ELEVATION" . 0) ("THICKNESS" . 0) ("FILLMODE" . 0) ("COORDS" . 2) ("SPLFRAME" . 0) ("TEXTEVAL" . 0) ("ATTMODE" . 1) ("UCSICON" . 1) ("HIGHLIGHT" . 1) ("REGENMODE" . 1) ("CECOLOR" . "BYLAYER") ("CELTYPE" . "BYLAYER"))) (foreach v btx_var (setq btx_rst (cons (cons (car v) (getvar (car v))) btx_rst)) (setvar (car v) (cdr v))) (princ (strcat (getvar "PLATFORM") " Release " (ver) " - 3D Block Text ....\n")) (princ)) (PDot);++++++++++++ Return Modes & Error +++++++++++++++++++++++++++++++ (defun btx_rmd () (setq *error* olderr) (foreach v btx_rst (setvar (car v) (cdr v))) (command "_.UNDO" "_END") (prin1)) (PDot);++++++++++++ Set And Start An Undo Group ++++++++++++++++++++++++ (defun SetUndo () (and (zerop (getvar "UNDOCTL")) (command "_.UNDO" "_ALL")) (and (= (logand (getvar "UNDOCTL") 2) 2) (command "_.UNDO" "_CONTROL" "_ALL")) (and (= (logand (getvar "UNDOCTL") 8) 8) (command "_.UNDO" "_END")) (command "_.UNDO" "_GROUP")) (PDot);++++++++++++ Set Up Color And Text Point Lists ++++++++++++++++++ (defun btx_setup () (setq clist '((0 . "BLACK") (1 . "RED") (2 . "YELLOW") (3 . "GREEN") (4 . "CYAN") (5 . "BLUE") (6 . "MAGENTA") (7 . "WHITE"))) (setq tlist (list (cons "A" '(((0.58 1.00)(0.33 1.00)(0.46 0.75)(0.58 1.00) 6) ((0.58 0.38)(0.92 0.00)(0.58 1.00)(0.46 0.75) 5) ((0.92 0.00)(0.69 0.00)(0.63 0.21)(0.58 0.38) 12) ((0.29 0.21)(0.33 0.38)(0.58 0.38)(0.63 0.21) 5) ((0.33 0.38)(0.00 0.00)(0.33 1.00)(0.46 0.75) 5) ((0.00 0.00)(0.23 0.00)(0.29 0.21)(0.33 0.38) 12))) (cons "B" '(((0.48 0.15)(0.51 0.16)(0.60 0.01)(0.54 0.00) 10) ((0.51 0.16)(0.54 0.17)(0.65 0.04)(0.60 0.01) 10) ((0.54 0.17)(0.56 0.19)(0.69 0.07)(0.65 0.04) 10) ((0.56 0.19)(0.58 0.22)(0.73 0.11)(0.69 0.07) 10) ((0.58 0.22)(0.59 0.25)(0.76 0.16)(0.73 0.11) 10) ((0.59 0.25)(0.60 0.28)(0.78 0.22)(0.76 0.16) 10) ((0.60 0.28)(0.60 0.31)(0.79 0.27)(0.78 0.22) 10) ((0.60 0.31)(0.59 0.34)(0.79 0.33)(0.79 0.27) 10) ((0.59 0.34)(0.58 0.37)(0.77 0.38)(0.79 0.33) 10) ((0.58 0.37)(0.56 0.40)(0.75 0.43)(0.77 0.38) 10) ((0.56 0.40)(0.54 0.42)(0.71 0.48)(0.75 0.43) 10) ((0.54 0.42)(0.51 0.43)(0.66 0.51)(0.71 0.48) 10) ((0.51 0.43)(0.48 0.44)(0.61 0.53)(0.66 0.51) 10) ((0.48 0.60)(0.51 0.61)(0.66 0.55)(0.61 0.53) 10) ((0.51 0.61)(0.53 0.62)(0.70 0.58)(0.66 0.55) 10) ((0.53 0.62)(0.55 0.65)(0.74 0.62)(0.70 0.58) 10) ((0.55 0.65)(0.56 0.67)(0.76 0.67)(0.74 0.62) 10) ((0.56 0.67)(0.57 0.70)(0.77 0.72)(0.76 0.67) 10) ((0.57 0.70)(0.58 0.73)(0.77 0.78)(0.77 0.72) 10) ((0.58 0.73)(0.57 0.75)(0.75 0.83)(0.77 0.78) 10) ((0.57 0.75)(0.56 0.78)(0.73 0.88)(0.75 0.83) 10) ((0.56 0.78)(0.55 0.81)(0.70 0.92)(0.73 0.88) 10) ((0.55 0.81)(0.53 0.83)(0.66 0.95)(0.70 0.92) 10) ((0.53 0.83)(0.51 0.84)(0.61 0.98)(0.66 0.95) 10) ((0.51 0.84)(0.48 0.85)(0.56 1.00)(0.61 0.98) 10) ((0.00 0.00)(0.21 0.15)(0.21 0.44)(0.00 1.00) 5) ((0.00 1.00)(0.21 0.44)(0.21 0.60)(0.21 0.85) 11) ((0.00 1.00)(0.21 0.85)(0.48 0.85)(0.56 1.00) 5) ((0.00 0.00)(0.54 0.00)(0.48 0.15)(0.21 0.15) 10) ((0.21 0.44)(0.48 0.44)(0.61 0.53)(0.48 0.60) 14) ((0.48 0.60)(0.21 0.60)(0.21 0.44)(0.48 0.60) 14))) (cons "C" '(((0.69 0.67)(0.67 0.71)(0.85 0.74)(0.88 0.66) 2) ((0.67 0.71)(0.65 0.76)(0.82 0.81)(0.85 0.74) 10) ((0.65 0.76)(0.62 0.79)(0.77 0.87)(0.82 0.81) 10) ((0.62 0.79)(0.58 0.81)(0.71 0.93)(0.77 0.87) 10) ((0.58 0.81)(0.53 0.83)(0.64 0.97)(0.71 0.93) 10) ((0.53 0.83)(0.49 0.85)(0.57 1.00)(0.64 0.97) 10) ((0.49 0.85)(0.44 0.85)(0.49 1.01)(0.57 1.00) 10) ((0.44 0.85)(0.39 0.84)(0.41 1.01)(0.49 1.01) 10) ((0.39 0.84)(0.35 0.82)(0.33 1.00)(0.41 1.01) 10) ((0.35 0.82)(0.31 0.80)(0.25 0.97)(0.33 1.00) 10) ((0.31 0.80)(0.27 0.77)(0.19 0.92)(0.25 0.97) 10) ((0.27 0.77)(0.24 0.73)(0.13 0.87)(0.19 0.92) 10) ((0.24 0.73)(0.22 0.69)(0.08 0.80)(0.13 0.87) 10) ((0.22 0.69)(0.21 0.64)(0.04 0.73)(0.08 0.80) 10) ((0.21 0.64)(0.21 0.59)(0.02 0.66)(0.04 0.73) 10) ((0.21 0.59)(0.20 0.54)(0.01 0.58)(0.02 0.66) 10) ((0.20 0.54)(0.20 0.50)(0.00 0.50)(0.01 0.58) 10) ((0.20 0.50)(0.19 0.45)(0.01 0.42)(0.00 0.50) 10) ((0.19 0.45)(0.20 0.40)(0.02 0.34)(0.01 0.42) 10) ((0.20 0.40)(0.21 0.36)(0.04 0.26)(0.02 0.34) 10) ((0.21 0.36)(0.23 0.31)(0.08 0.19)(0.04 0.26) 10) ((0.23 0.31)(0.25 0.27)(0.13 0.12)(0.08 0.19) 10) ((0.25 0.27)(0.27 0.23)(0.19 0.07)(0.13 0.12) 10) ((0.27 0.23)(0.31 0.19)(0.26 0.03)(0.19 0.07) 10) ((0.31 0.19)(0.35 0.17)(0.33 -0.01)(0.26 0.03) 10) ((0.35 0.17)(0.39 0.15)(0.41 -0.03)(0.33 -0.01) 10) ((0.39 0.15)(0.44 0.14)(0.49 -0.03)(0.41 -0.03) 10) ((0.44 0.14)(0.48 0.13)(0.57 -0.02)(0.49 -0.03) 10) ((0.48 0.13)(0.53 0.14)(0.64 0.00)(0.57 -0.02) 10) ((0.53 0.14)(0.57 0.16)(0.71 0.04)(0.64 0.00) 10) ((0.57 0.16)(0.61 0.19)(0.77 0.09)(0.71 0.04) 10) ((0.61 0.19)(0.64 0.22)(0.82 0.16)(0.77 0.09) 10) ((0.64 0.22)(0.66 0.26)(0.85 0.23)(0.82 0.16) 10) ((0.66 0.26)(0.67 0.31)(0.88 0.31)(0.85 0.23) 8))) (cons "D" '(((0.00 0.00)(0.20 0.16)(0.20 0.84)(0.00 1.00) 5) ((0.00 1.00)(0.20 0.84)(0.38 0.84)(0.33 1.00) 5) ((0.00 0.00)(0.20 0.16)(0.38 0.16)(0.33 0.00) 5) ((0.38 0.84)(0.43 0.83)(0.41 0.99)(0.33 1.00) 10) ((0.43 0.83)(0.47 0.81)(0.48 0.98)(0.41 0.99) 10) ((0.47 0.81)(0.51 0.78)(0.56 0.95)(0.48 0.98) 10) ((0.51 0.78)(0.54 0.75)(0.62 0.90)(0.56 0.95) 10) ((0.54 0.75)(0.58 0.72)(0.68 0.85)(0.62 0.90) 10) ((0.58 0.72)(0.60 0.68)(0.73 0.79)(0.68 0.85) 10) ((0.60 0.68)(0.62 0.64)(0.78 0.73)(0.73 0.79) 10) ((0.62 0.64)(0.64 0.59)(0.81 0.65)(0.78 0.73) 10) ((0.64 0.59)(0.65 0.55)(0.82 0.58)(0.81 0.65) 10) ((0.65 0.55)(0.65 0.50)(0.83 0.50)(0.82 0.58) 10) ((0.65 0.50)(0.65 0.45)(0.82 0.42)(0.83 0.50) 10) ((0.65 0.45)(0.64 0.41)(0.81 0.35)(0.82 0.42) 10) ((0.64 0.41)(0.62 0.36)(0.78 0.27)(0.81 0.35) 10) ((0.62 0.36)(0.60 0.32)(0.73 0.21)(0.78 0.27) 10) ((0.60 0.32)(0.58 0.28)(0.68 0.15)(0.73 0.21) 10) ((0.58 0.28)(0.54 0.25)(0.62 0.10)(0.68 0.15) 10) ((0.54 0.25)(0.51 0.22)(0.56 0.05)(0.62 0.10) 10) ((0.51 0.22)(0.47 0.19)(0.48 0.02)(0.56 0.05) 10) ((0.47 0.19)(0.43 0.17)(0.41 0.01)(0.48 0.02) 10) ((0.43 0.17)(0.38 0.16)(0.33 0.00)(0.41 0.01) 10))) (cons "E" '(((0.75 0.83)(0.75 1.00)(0.00 1.00)(0.21 0.83) 4) ((0.75 0.00)(0.75 0.17)(0.21 0.17)(0.00 0.00) 4) ((0.67 0.44)(0.67 0.63)(0.21 0.63)(0.21 0.44) 4) ((0.00 0.00)(0.21 0.17)(0.21 0.44)(0.00 1.00) 5) ((0.00 1.00)(0.21 0.44)(0.21 0.63)(0.21 0.83) 11))) (cons "F" '(((0.71 0.83)(0.71 1.00)(0.00 1.00)(0.21 0.83) 4) ((0.65 0.42)(0.65 0.58)(0.21 0.58)(0.21 0.42) 4) ((0.00 0.00)(0.21 0.00)(0.21 0.42)(0.00 1.00) 4) ((0.00 1.00)(0.21 0.42)(0.21 0.58)(0.21 0.83) 11))) (cons "G" '(((0.75 0.09)(0.69 0.04)(0.74 0.32)(0.75 0.38) 10) ((0.69 0.04)(0.63 0.00)(0.73 0.27)(0.74 0.32) 10) ((0.63 0.00)(0.56 -0.02)(0.70 0.23)(0.73 0.27) 10) ((0.56 -0.02)(0.49 -0.03)(0.67 0.19)(0.70 0.23) 10) ((0.49 -0.03)(0.42 -0.02)(0.63 0.16)(0.67 0.19) 10) ((0.42 -0.02)(0.34 0.00)(0.58 0.14)(0.63 0.16) 10) ((0.34 0.00)(0.28 0.03)(0.52 0.14)(0.58 0.14) 10) ((0.28 0.03)(0.21 0.07)(0.47 0.14)(0.52 0.14) 10) ((0.21 0.07)(0.16 0.12)(0.42 0.15)(0.47 0.14) 10) ((0.16 0.12)(0.11 0.17)(0.37 0.17)(0.42 0.15) 10) ((0.11 0.17)(0.08 0.24)(0.33 0.20)(0.37 0.17) 10) ((0.08 0.24)(0.05 0.31)(0.30 0.24)(0.33 0.20) 10) ((0.05 0.31)(0.04 0.38)(0.27 0.29)(0.30 0.24) 10) ((0.04 0.38)(0.03 0.46)(0.25 0.33)(0.27 0.29) 10) ((0.03 0.46)(0.04 0.53)(0.23 0.38)(0.25 0.33) 10) ((0.04 0.53)(0.04 0.60)(0.22 0.43)(0.23 0.38) 10) ((0.04 0.60)(0.06 0.68)(0.22 0.49)(0.22 0.43) 10) ((0.06 0.68)(0.08 0.75)(0.22 0.54)(0.22 0.49) 10) ((0.08 0.75)(0.12 0.81)(0.23 0.59)(0.22 0.54) 10) ((0.12 0.81)(0.16 0.87)(0.24 0.64)(0.23 0.59) 10) ((0.16 0.87)(0.22 0.92)(0.26 0.69)(0.24 0.64) 10) ((0.22 0.92)(0.28 0.97)(0.28 0.74)(0.26 0.69) 10) ((0.28 0.97)(0.35 0.99)(0.31 0.78)(0.28 0.74) 10) ((0.35 0.99)(0.42 1.01)(0.35 0.81)(0.31 0.78) 10) ((0.42 1.01)(0.49 1.02)(0.40 0.83)(0.35 0.81) 10) ((0.49 1.02)(0.57 1.00)(0.45 0.85)(0.40 0.83) 10) ((0.57 1.00)(0.64 0.99)(0.50 0.85)(0.45 0.85) 10) ((0.64 0.99)(0.71 0.96)(0.55 0.85)(0.50 0.85) 10) ((0.71 0.96)(0.77 0.92)(0.60 0.83)(0.55 0.85) 10) ((0.77 0.92)(0.82 0.86)(0.64 0.79)(0.60 0.83) 10) ((0.82 0.86)(0.86 0.81)(0.68 0.76)(0.64 0.79) 10) ((0.86 0.81)(0.90 0.74)(0.71 0.71)(0.68 0.76) 10) ((0.90 0.74)(0.92 0.67)(0.73 0.67)(0.71 0.71) 8) ((0.75 0.38)(0.75 0.09)(0.76 0.00)(0.92 0.00) 9) ((0.92 0.52)(0.75 0.38)(0.50 0.38)(0.50 0.52) 1) ((0.92 0.52)(0.75 0.38)(0.92 0.00)(0.92 0.52) 11))) (cons "H" '(((0.21 0.44)(0.21 0.63)(0.58 0.63)(0.58 0.44) 5) ((0.00 0.00)(0.21 0.00)(0.21 0.44)(0.00 1.00) 4) ((0.00 1.00)(0.21 0.44)(0.21 0.63)(0.21 1.00) 3) ((0.79 0.00)(0.58 0.00)(0.58 0.44)(0.79 1.00) 4) ((0.79 1.00)(0.58 0.44)(0.58 0.63)(0.58 1.00) 3))) (cons "I" '(((0.00 0.00)(0.20 0.00)(0.20 1.00)(0.00 1.00) 0))) (cons "J" '(((0.00 0.38)(0.00 0.31)(0.18 0.20)(0.17 0.22) 10) ((0.00 0.31)(0.00 0.23)(0.20 0.19)(0.18 0.20) 10) ((0.00 0.23)(0.02 0.16)(0.21 0.17)(0.20 0.19) 10) ((0.02 0.16)(0.05 0.09)(0.23 0.16)(0.21 0.17) 10) ((0.05 0.09)(0.09 0.04)(0.25 0.15)(0.23 0.16) 10) ((0.09 0.04)(0.16 0.00)(0.27 0.15)(0.25 0.15) 10) ((0.16 0.00)(0.23 -0.01)(0.29 0.15)(0.27 0.15) 10) ((0.23 -0.01)(0.30 -0.02)(0.32 0.15)(0.29 0.15) 10) ((0.30 -0.02)(0.38 -0.02)(0.34 0.15)(0.32 0.15) 10) ((0.38 -0.02)(0.45 0.00)(0.36 0.16)(0.34 0.15) 10) ((0.45 0.00)(0.51 0.03)(0.38 0.17)(0.36 0.16) 10) ((0.51 0.03)(0.56 0.08)(0.39 0.19)(0.38 0.17) 10) ((0.56 0.08)(0.60 0.14)(0.41 0.20)(0.39 0.19) 10) ((0.60 0.14)(0.63 0.21)(0.42 0.22)(0.41 0.20) 10) ((0.00 0.38)(0.17 0.38)(0.17 0.22)(0.00 0.38) 4) ((0.42 1.00)(0.63 1.00)(0.63 0.21)(0.42 0.22) 4))) (cons "K" '(((0.00 0.00)(0.21 0.00)(0.21 0.35)(0.00 1.00) 4) ((0.00 1.00)(0.21 1.00)(0.21 0.60)(0.21 0.35) 12) ((0.83 1.00)(0.58 1.00)(0.21 0.60)(0.46 0.60) 4) ((0.88 0.00)(0.63 0.00)(0.31 0.46)(0.46 0.60) 4) ((0.46 0.60)(0.21 0.60)(0.21 0.35)(0.31 0.46) 11))) (cons "L" '(((0.00 0.00)(0.67 0.00)(0.67 0.20)(0.20 0.20) 8) ((0.00 1.00)(0.20 1.00)(0.20 0.20)(0.00 0.00) 4))) (cons "M" '(((0.00 0.00)(0.19 0.00)(0.19 0.69)(0.00 1.00) 4) ((0.00 1.00)(0.19 0.69)(0.50 0.31)(0.29 1.00) 3) ((0.19 0.69)(0.50 0.31)(0.60 0.00)(0.40 0.00) 3) ((0.81 0.00)(1.00 0.00)(1.00 1.00)(0.81 0.69) 4) ((1.00 1.00)(0.71 1.00)(0.50 0.31)(0.81 0.69) 12) ((0.60 0.00)(0.50 0.31)(0.81 0.69)(0.60 0.00) 3))) (cons "N" '(((0.00 0.00)(0.21 0.00)(0.21 0.67)(0.00 1.00) 4) ((0.63 1.00)(0.83 1.00)(0.83 0.00)(0.63 0.33) 4) ((0.00 1.00)(0.21 0.67)(0.63 0.33)(0.23 1.00) 3) ((0.21 0.67)(0.63 0.33)(0.83 0.00)(0.60 0.00) 3))) (cons "O" '(((0.23 0.29)(0.26 0.24)(0.14 0.11)(0.08 0.19) 10) ((0.26 0.24)(0.30 0.19)(0.21 0.05)(0.14 0.11) 10) ((0.30 0.19)(0.35 0.16)(0.29 0.00)(0.21 0.05) 10) ((0.35 0.16)(0.41 0.14)(0.39 -0.02)(0.29 0.00) 10) ((0.41 0.14)(0.47 0.14)(0.48 -0.03)(0.39 -0.02) 10) ((0.47 0.14)(0.53 0.14)(0.57 -0.01)(0.48 -0.03) 10) ((0.53 0.14)(0.59 0.17)(0.66 0.02)(0.57 -0.01) 10) ((0.59 0.17)(0.63 0.21)(0.74 0.08)(0.66 0.02) 10) ((0.63 0.21)(0.67 0.25)(0.81 0.14)(0.74 0.08) 10) ((0.67 0.25)(0.69 0.31)(0.85 0.23)(0.81 0.14) 10) ((0.69 0.31)(0.71 0.37)(0.89 0.32)(0.85 0.23) 10) ((0.71 0.37)(0.72 0.43)(0.90 0.41)(0.89 0.32) 10) ((0.72 0.43)(0.72 0.49)(0.91 0.51)(0.90 0.41) 10) ((0.72 0.49)(0.71 0.55)(0.89 0.60)(0.91 0.51) 10) ((0.71 0.55)(0.70 0.61)(0.87 0.69)(0.89 0.60) 10) ((0.70 0.61)(0.68 0.67)(0.83 0.78)(0.87 0.69) 10) ((0.68 0.67)(0.66 0.73)(0.77 0.86)(0.83 0.78) 10) ((0.66 0.73)(0.62 0.77)(0.71 0.92)(0.77 0.86) 10) ((0.62 0.77)(0.57 0.81)(0.62 0.97)(0.71 0.92) 10) ((0.57 0.81)(0.51 0.83)(0.53 1.00)(0.62 0.97) 10) ((0.51 0.83)(0.45 0.83)(0.44 1.00)(0.53 1.00) 10) ((0.45 0.83)(0.39 0.82)(0.34 0.99)(0.44 1.00) 10) ((0.39 0.82)(0.33 0.80)(0.26 0.95)(0.34 0.99) 10) ((0.33 0.80)(0.29 0.76)(0.18 0.89)(0.26 0.95) 10) ((0.29 0.76)(0.25 0.71)(0.12 0.82)(0.18 0.89) 10) ((0.25 0.71)(0.22 0.65)(0.07 0.74)(0.12 0.82) 10) ((0.22 0.65)(0.21 0.59)(0.03 0.65)(0.07 0.74) 10) ((0.21 0.59)(0.20 0.53)(0.02 0.56)(0.03 0.65) 10) ((0.20 0.53)(0.20 0.47)(0.01 0.46)(0.02 0.56) 10) ((0.20 0.47)(0.20 0.41)(0.02 0.37)(0.01 0.46) 10) ((0.20 0.41)(0.21 0.35)(0.05 0.28)(0.02 0.37) 10) ((0.21 0.35)(0.23 0.29)(0.08 0.19)(0.05 0.28) 10))) (cons "P" '(((0.48 0.35)(0.53 0.37)(0.46 0.53)(0.43 0.52) 10) ((0.53 0.37)(0.58 0.40)(0.48 0.54)(0.46 0.53) 10) ((0.58 0.40)(0.63 0.43)(0.50 0.55)(0.48 0.54) 10) ((0.63 0.43)(0.67 0.47)(0.52 0.57)(0.50 0.55) 10) ((0.67 0.47)(0.71 0.51)(0.54 0.60)(0.52 0.57) 10) ((0.71 0.51)(0.73 0.56)(0.55 0.62)(0.54 0.60) 10) ((0.73 0.56)(0.74 0.62)(0.55 0.65)(0.55 0.62) 10) ((0.74 0.62)(0.75 0.68)(0.56 0.68)(0.55 0.65) 10) ((0.75 0.68)(0.74 0.73)(0.56 0.70)(0.56 0.68) 10) ((0.74 0.73)(0.73 0.79)(0.55 0.73)(0.56 0.70) 10) ((0.73 0.79)(0.70 0.84)(0.54 0.75)(0.55 0.73) 10) ((0.70 0.84)(0.68 0.89)(0.52 0.78)(0.54 0.75) 10) ((0.68 0.89)(0.63 0.93)(0.50 0.79)(0.52 0.78) 10) ((0.63 0.93)(0.59 0.96)(0.48 0.81)(0.50 0.79) 10) ((0.59 0.96)(0.53 0.98)(0.46 0.82)(0.48 0.81) 10) ((0.53 0.98)(0.48 1.00)(0.43 0.83)(0.46 0.82) 10) ((0.00 0.00)(0.21 0.00)(0.21 0.35)(0.00 1.00) 4) ((0.00 1.00)(0.21 0.35)(0.21 0.52)(0.21 0.83) 11) ((0.00 1.00)(0.21 0.83)(0.43 0.83)(0.48 1.00) 5) ((0.21 0.35)(0.21 0.52)(0.43 0.52)(0.48 0.35) 5))) (cons "Q" '(((0.83 0.16)(0.88 0.23)(0.72 0.34)(0.71 0.29) 10) ((0.88 0.23)(0.91 0.31)(0.73 0.39)(0.72 0.34) 10) ((0.91 0.31)(0.93 0.39)(0.74 0.44)(0.73 0.39) 10) ((0.93 0.39)(0.93 0.48)(0.74 0.50)(0.74 0.44) 10) ((0.93 0.48)(0.92 0.57)(0.74 0.55)(0.74 0.50) 10) ((0.92 0.57)(0.91 0.65)(0.73 0.60)(0.74 0.55) 10) ((0.91 0.65)(0.87 0.73)(0.71 0.65)(0.73 0.60) 10) ((0.87 0.73)(0.83 0.80)(0.70 0.70)(0.71 0.65) 10) ((0.83 0.80)(0.78 0.87)(0.66 0.74)(0.70 0.70) 10) ((0.78 0.87)(0.72 0.93)(0.62 0.78)(0.66 0.74) 10) ((0.72 0.93)(0.64 0.97)(0.58 0.81)(0.62 0.78) 10) ((0.64 0.97)(0.56 0.99)(0.53 0.82)(0.58 0.81) 10) ((0.56 0.99)(0.47 1.01)(0.48 0.83)(0.53 0.82) 10) ((0.47 1.01)(0.39 0.99)(0.43 0.82)(0.48 0.83) 10) ((0.39 0.99)(0.31 0.97)(0.38 0.81)(0.43 0.82) 10) ((0.31 0.97)(0.23 0.92)(0.33 0.78)(0.38 0.81) 10) ((0.23 0.92)(0.17 0.87)(0.29 0.74)(0.33 0.78) 10) ((0.17 0.87)(0.12 0.80)(0.26 0.70)(0.29 0.74) 10) ((0.12 0.80)(0.08 0.72)(0.25 0.65)(0.26 0.70) 10) ((0.08 0.72)(0.05 0.64)(0.23 0.60)(0.25 0.65) 10) ((0.05 0.64)(0.04 0.56)(0.22 0.55)(0.23 0.60) 10) ((0.04 0.56)(0.03 0.47)(0.22 0.50)(0.22 0.55) 10) ((0.03 0.47)(0.04 0.39)(0.22 0.44)(0.22 0.50) 10) ((0.04 0.39)(0.05 0.30)(0.23 0.39)(0.22 0.44) 10) ((0.05 0.30)(0.08 0.22)(0.24 0.34)(0.23 0.39) 10) ((0.08 0.22)(0.13 0.15)(0.25 0.29)(0.24 0.34) 10) ((0.13 0.15)(0.19 0.08)(0.27 0.24)(0.25 0.29) 10) ((0.19 0.08)(0.25 0.03)(0.31 0.20)(0.27 0.24) 10) ((0.25 0.03)(0.33 -0.01)(0.35 0.17)(0.31 0.20) 10) ((0.33 -0.01)(0.41 -0.03)(0.40 0.15)(0.35 0.17) 10) ((0.41 -0.03)(0.50 -0.03)(0.45 0.14)(0.40 0.15) 10) ((0.50 -0.03)(0.58 -0.02)(0.50 0.14)(0.45 0.14) 10) ((0.58 -0.02)(0.66 0.01)(0.55 0.15)(0.50 0.14) 10) ((0.66 0.01)(0.74 0.05)(0.60 0.17)(0.55 0.15) 10) ((0.61 0.36)(0.51 0.25)(0.60 0.17)(0.71 0.29) 4) ((0.83 0.16)(0.74 0.05)(0.85 -0.05)(0.96 0.05) 1) ((0.83 0.16)(0.71 0.29)(0.60 0.17)(0.74 0.05) 15))) (cons "R" '(((0.02 0.00)(0.23 0.00)(0.23 0.40)(0.02 1.00) 4) ((0.02 1.00)(0.23 0.40)(0.23 0.56)(0.23 0.83) 11) ((0.02 1.00)(0.23 0.83)(0.50 0.83)(0.59 1.00) 5) ((0.23 0.40)(0.23 0.56)(0.50 0.56)(0.46 0.40) 5) ((0.46 0.40)(0.50 0.56)(0.60 0.48)(0.46 0.40) 7) ((0.82 0.00)(0.80 0.07)(0.60 0.05)(0.63 0.00) 2) ((0.80 0.07)(0.79 0.14)(0.60 0.11)(0.60 0.05) 10) ((0.79 0.14)(0.78 0.21)(0.59 0.17)(0.60 0.11) 10) ((0.78 0.21)(0.77 0.28)(0.59 0.23)(0.59 0.17) 10) ((0.77 0.28)(0.76 0.35)(0.58 0.28)(0.59 0.23) 10) ((0.76 0.35)(0.72 0.41)(0.56 0.34)(0.58 0.28) 10) ((0.72 0.41)(0.67 0.46)(0.51 0.37)(0.56 0.34) 10) ((0.67 0.46)(0.60 0.48)(0.46 0.40)(0.51 0.37) 10) ((0.50 0.56)(0.53 0.57)(0.66 0.50)(0.60 0.48) 10) ((0.53 0.57)(0.56 0.58)(0.71 0.53)(0.66 0.50) 10) ((0.56 0.58)(0.58 0.61)(0.75 0.58)(0.71 0.53) 10) ((0.58 0.61)(0.59 0.64)(0.79 0.63)(0.75 0.58) 10) ((0.59 0.64)(0.61 0.66)(0.81 0.68)(0.79 0.63) 10) ((0.61 0.66)(0.61 0.70)(0.81 0.74)(0.81 0.68) 10) ((0.61 0.70)(0.61 0.73)(0.80 0.80)(0.81 0.74) 10) ((0.61 0.73)(0.60 0.76)(0.78 0.86)(0.80 0.80) 10) ((0.60 0.76)(0.58 0.78)(0.75 0.91)(0.78 0.86) 10) ((0.58 0.78)(0.56 0.81)(0.70 0.95)(0.75 0.91) 10) ((0.56 0.81)(0.53 0.82)(0.65 0.98)(0.70 0.95) 10) ((0.53 0.82)(0.50 0.83)(0.59 1.00)(0.65 0.98) 10))) (cons "S" '(((0.80 0.31)(0.79 0.22)(0.60 0.26)(0.60 0.30) 10) ((0.79 0.22)(0.76 0.13)(0.59 0.21)(0.60 0.26) 10) ((0.76 0.13)(0.70 0.06)(0.56 0.18)(0.59 0.21) 10) ((0.70 0.06)(0.62 0.02)(0.52 0.16)(0.56 0.18) 10) ((0.62 0.02)(0.54 -0.01)(0.47 0.15)(0.52 0.16) 10) ((0.54 -0.01)(0.45 -0.02)(0.42 0.14)(0.47 0.15) 10) ((0.45 -0.02)(0.36 -0.02)(0.38 0.14)(0.42 0.14) 10) ((0.36 -0.02)(0.27 -0.01)(0.33 0.14)(0.38 0.14) 10) ((0.27 -0.01)(0.18 0.02)(0.29 0.16)(0.33 0.14) 10) ((0.18 0.02)(0.10 0.07)(0.25 0.19)(0.29 0.16) 10) ((0.10 0.07)(0.05 0.14)(0.22 0.22)(0.25 0.19) 10) ((0.05 0.14)(0.01 0.22)(0.20 0.26)(0.22 0.22) 10) ((0.01 0.22)(0.00 0.31)(0.19 0.31)(0.20 0.26) 8) ((0.23 0.71)(0.25 0.66)(0.05 0.65)(0.04 0.70) 10) ((0.25 0.66)(0.30 0.62)(0.07 0.59)(0.05 0.65) 10) ((0.30 0.62)(0.35 0.60)(0.10 0.55)(0.07 0.59) 10) ((0.35 0.60)(0.41 0.59)(0.14 0.51)(0.10 0.55) 10) ((0.41 0.59)(0.47 0.58)(0.19 0.48)(0.14 0.51) 10) ((0.47 0.58)(0.53 0.57)(0.25 0.46)(0.19 0.48) 10) ((0.53 0.57)(0.59 0.56)(0.30 0.44)(0.25 0.46) 10) ((0.59 0.56)(0.64 0.54)(0.36 0.43)(0.30 0.44) 10) ((0.64 0.54)(0.69 0.51)(0.41 0.42)(0.36 0.43) 10) ((0.69 0.51)(0.74 0.47)(0.47 0.40)(0.41 0.42) 10) ((0.74 0.47)(0.77 0.42)(0.52 0.39)(0.47 0.40) 10) ((0.77 0.42)(0.79 0.37)(0.57 0.35)(0.52 0.39) 10) ((0.79 0.37)(0.80 0.31)(0.60 0.30)(0.57 0.35) 10) ((0.59 0.71)(0.58 0.75)(0.76 0.79)(0.77 0.71) 2) ((0.58 0.75)(0.56 0.78)(0.72 0.86)(0.76 0.79) 10) ((0.56 0.78)(0.53 0.81)(0.67 0.92)(0.72 0.86) 10) ((0.53 0.81)(0.50 0.83)(0.60 0.97)(0.67 0.92) 10) ((0.50 0.83)(0.46 0.84)(0.52 1.00)(0.60 0.97) 10) ((0.46 0.84)(0.42 0.85)(0.44 1.02)(0.52 1.00) 10) ((0.42 0.85)(0.38 0.85)(0.36 1.01)(0.44 1.02) 10) ((0.38 0.85)(0.34 0.85)(0.28 1.00)(0.36 1.01) 10) ((0.34 0.85)(0.30 0.84)(0.20 0.97)(0.28 1.00) 10) ((0.30 0.84)(0.27 0.82)(0.13 0.92)(0.20 0.97) 10) ((0.27 0.82)(0.24 0.79)(0.08 0.86)(0.13 0.92) 10) ((0.24 0.79)(0.23 0.75)(0.05 0.78)(0.08 0.86) 10) ((0.23 0.75)(0.23 0.71)(0.04 0.70)(0.05 0.78) 10))) (cons "T" '(((0.31 0.00)(0.52 0.00)(0.52 0.83)(0.31 0.83) 4) ((0.00 1.00)(0.00 0.83)(0.31 0.83)(0.83 1.00) 4) ((0.83 0.83)(0.83 1.00)(0.31 0.83)(0.52 0.83) 6))) (cons "U" '(((0.79 0.26)(0.77 0.19)(0.57 0.25)(0.58 0.28) 10) ((0.77 0.19)(0.74 0.13)(0.55 0.22)(0.57 0.25) 10) ((0.74 0.13)(0.70 0.07)(0.53 0.20)(0.55 0.22) 10) ((0.70 0.07)(0.65 0.03)(0.51 0.17)(0.53 0.20) 10) ((0.65 0.03)(0.58 0.00)(0.49 0.15)(0.51 0.17) 10) ((0.58 0.00)(0.52 -0.02)(0.46 0.14)(0.49 0.15) 10) ((0.52 -0.02)(0.45 -0.03)(0.43 0.13)(0.46 0.14) 10) ((0.45 -0.03)(0.38 -0.03)(0.40 0.13)(0.43 0.13) 10) ((0.38 -0.03)(0.31 -0.03)(0.36 0.13)(0.40 0.13) 10) ((0.31 -0.03)(0.24 -0.01)(0.33 0.14)(0.36 0.13) 10) ((0.24 -0.01)(0.18 0.02)(0.30 0.15)(0.33 0.14) 10) ((0.18 0.02)(0.12 0.05)(0.28 0.17)(0.30 0.15) 10) ((0.12 0.05)(0.07 0.10)(0.26 0.20)(0.28 0.17) 10) ((0.07 0.10)(0.04 0.16)(0.24 0.22)(0.26 0.20) 10) ((0.04 0.16)(0.02 0.23)(0.22 0.25)(0.24 0.22) 10) ((0.02 0.23)(0.00 0.30)(0.21 0.28)(0.22 0.25) 10) ((0.00 1.00)(0.21 1.00)(0.21 0.28)(0.00 0.30) 4) ((0.79 1.00)(0.58 1.00)(0.58 0.28)(0.79 0.26) 4))) (cons "V" '(((0.00 1.00)(0.21 1.00)(0.42 0.25)(0.31 0.00) 4) ((0.83 1.00)(0.63 1.00)(0.42 0.25)(0.52 0.00) 4) ((0.42 0.25)(0.52 0.00)(0.31 0.00)(0.42 0.25) 5))) (cons "W" '(((0.00 1.00)(0.21 1.00)(0.40 0.33)(0.27 0.00) 4) ((0.27 0.00)(0.40 0.33)(0.52 1.00)(0.50 0.00) 5) ((0.50 0.00)(0.63 0.67)(0.73 1.00)(0.52 1.00) 10) ((0.73 1.00)(0.63 0.67)(0.75 0.00)(0.85 0.33) 5) ((0.75 0.00)(0.85 0.33)(1.04 1.00)(0.98 0.00) 5) ((0.98 0.00)(1.04 1.00)(1.25 1.00)(0.98 0.00) 1))) (cons "X" '(((0.00 0.00)(0.21 0.00)(0.42 0.33)(0.31 0.50) 4) ((0.63 0.00)(0.83 0.00)(0.52 0.50)(0.42 0.33) 4) ((0.83 1.00)(0.63 1.00)(0.42 0.67)(0.52 0.50) 4) ((0.21 1.00)(0.00 1.00)(0.31 0.50)(0.42 0.67) 4) ((0.42 0.67)(0.31 0.50)(0.42 0.33)(0.52 0.50) 15))) (cons "Y" '(((0.00 1.00)(0.21 1.00)(0.42 0.58)(0.31 0.40) 4) ((0.83 1.00)(0.63 1.00)(0.42 0.58)(0.52 0.40) 4) ((0.31 0.00)(0.31 0.40)(0.42 0.58)(0.52 0.00) 6) ((0.52 0.00)(0.52 0.40)(0.42 0.58)(0.52 0.00) 6))) (cons "Z" '(((0.54 0.83)(0.04 0.83)(0.04 1.00)(0.81 1.00) 8) ((0.29 0.19)(0.81 0.83)(0.81 1.00)(0.54 0.83) 12) ((0.00 0.00)(0.00 0.17)(0.54 0.83)(0.29 0.19) 12) ((0.29 0.19)(0.83 0.19)(0.83 0.00)(0.00 0.00) 8))) (cons "1" '(((0.25 0.00)(0.46 0.00)(0.46 1.00)(0.25 0.67) 4) ((0.27 1.00)(0.26 0.94)(0.43 0.95)(0.46 1.00) 6) ((0.26 0.94)(0.23 0.88)(0.39 0.89)(0.43 0.95) 14) ((0.23 0.88)(0.19 0.84)(0.36 0.84)(0.39 0.89) 14) ((0.19 0.84)(0.13 0.81)(0.32 0.78)(0.36 0.84) 14) ((0.13 0.81)(0.06 0.81)(0.29 0.73)(0.32 0.78) 14) ((0.06 0.81)(0.00 0.81)(0.25 0.67)(0.29 0.73) 14) ((0.00 0.81)(0.00 0.67)(0.25 0.67)(0.00 0.81) 4))) (cons "2" '(((0.02 0.65)(0.03 0.76)(0.22 0.73)(0.21 0.65) 2) ((0.03 0.76)(0.07 0.86)(0.26 0.80)(0.22 0.73) 10) ((0.07 0.86)(0.14 0.93)(0.33 0.84)(0.26 0.80) 10) ((0.14 0.93)(0.23 0.99)(0.41 0.83)(0.33 0.84) 10) ((0.23 0.99)(0.34 1.01)(0.48 0.79)(0.41 0.83) 10) ((0.34 1.01)(0.44 1.00)(0.51 0.71)(0.48 0.79) 10) ((0.44 1.00)(0.54 0.97)(0.50 0.63)(0.51 0.71) 10) ((0.54 0.97)(0.63 0.90)(0.45 0.56)(0.50 0.63) 10) ((0.63 0.90)(0.68 0.81)(0.39 0.51)(0.45 0.56) 10) ((0.68 0.81)(0.71 0.71)(0.33 0.45)(0.39 0.51) 10) ((0.71 0.71)(0.70 0.60)(0.26 0.40)(0.33 0.45) 10) ((0.70 0.60)(0.65 0.51)(0.20 0.35)(0.26 0.40) 10) ((0.65 0.51)(0.58 0.43)(0.14 0.29)(0.20 0.35) 10) ((0.58 0.43)(0.50 0.36)(0.08 0.23)(0.14 0.29) 10) ((0.50 0.36)(0.41 0.30)(0.04 0.16)(0.08 0.23) 10) ((0.41 0.30)(0.32 0.24)(0.02 0.08)(0.04 0.16) 10) ((0.32 0.24)(0.24 0.17)(0.00 0.00)(0.02 0.08) 10) ((0.71 0.00)(0.71 0.17)(0.24 0.17)(0.00 0.00) 4))) (cons "3" '(((0.01 0.33)(0.02 0.24)(0.21 0.28)(0.20 0.33) 2) ((0.02 0.24)(0.04 0.15)(0.23 0.23)(0.21 0.28) 10) ((0.04 0.15)(0.09 0.08)(0.27 0.19)(0.23 0.23) 10) ((0.09 0.08)(0.17 0.03)(0.31 0.16)(0.27 0.19) 10) ((0.17 0.03)(0.25 0.00)(0.36 0.15)(0.31 0.16) 10) ((0.25 0.00)(0.34 -0.02)(0.42 0.15)(0.36 0.15) 10) ((0.34 -0.02)(0.43 -0.02)(0.46 0.17)(0.42 0.15) 10) ((0.43 -0.02)(0.52 0.00)(0.50 0.21)(0.46 0.17) 10) ((0.52 0.00)(0.61 0.04)(0.53 0.25)(0.50 0.21) 10) ((0.61 0.04)(0.68 0.09)(0.54 0.30)(0.53 0.25) 10) ((0.68 0.09)(0.72 0.17)(0.53 0.35)(0.54 0.30) 10) ((0.72 0.17)(0.75 0.26)(0.51 0.40)(0.53 0.35) 10) ((0.75 0.26)(0.74 0.35)(0.46 0.44)(0.51 0.40) 10) ((0.74 0.35)(0.71 0.43)(0.42 0.45)(0.46 0.44) 10) ((0.71 0.43)(0.64 0.49)(0.36 0.46)(0.42 0.45) 10) ((0.64 0.49)(0.56 0.53)(0.31 0.46)(0.36 0.46) 10) ((0.04 0.68)(0.04 0.76)(0.22 0.73)(0.21 0.68) 2) ((0.04 0.76)(0.06 0.84)(0.24 0.77)(0.22 0.73) 10) ((0.06 0.84)(0.11 0.91)(0.27 0.81)(0.24 0.77) 10) ((0.11 0.91)(0.17 0.96)(0.31 0.83)(0.27 0.81) 10) ((0.17 0.96)(0.25 1.00)(0.36 0.85)(0.31 0.83) 10) ((0.25 1.00)(0.33 1.01)(0.40 0.85)(0.36 0.85) 10) ((0.33 1.01)(0.41 1.01)(0.45 0.84)(0.40 0.85) 10) ((0.41 1.01)(0.50 1.00)(0.49 0.81)(0.45 0.84) 10) ((0.50 1.00)(0.58 0.97)(0.51 0.76)(0.49 0.81) 10) ((0.58 0.97)(0.65 0.93)(0.52 0.72)(0.51 0.76) 10) ((0.65 0.93)(0.70 0.86)(0.51 0.67)(0.52 0.72) 10) ((0.70 0.86)(0.72 0.78)(0.49 0.63)(0.51 0.67) 10) ((0.72 0.78)(0.72 0.70)(0.45 0.59)(0.49 0.63) 10) ((0.72 0.70)(0.69 0.62)(0.41 0.58)(0.45 0.59) 10) ((0.69 0.62)(0.64 0.56)(0.36 0.58)(0.41 0.58) 10) ((0.64 0.56)(0.56 0.53)(0.31 0.58)(0.36 0.58) 10) ((0.31 0.46)(0.31 0.58)(0.56 0.53)(0.31 0.46) 6))) (cons "4" '(((0.46 0.00)(0.67 0.00)(0.67 0.21)(0.46 0.21) 4) ((0.79 0.38)(0.67 0.38)(0.67 0.21)(0.79 0.21) 2) ((0.67 1.00)(0.46 1.00)(0.00 0.42)(0.46 0.73) 12) ((0.00 0.21)(0.19 0.38)(0.46 0.73)(0.00 0.42) 5) ((0.00 0.21)(0.19 0.38)(0.46 0.38)(0.46 0.21) 5) ((0.67 1.00)(0.46 0.73)(0.46 0.38)(0.67 0.38) 5) ((0.46 0.21)(0.67 0.21)(0.67 0.38)(0.46 0.38) 15))) (cons "5" '(((0.19 0.29)(0.20 0.26)(0.01 0.23)(0.00 0.29) 2) ((0.20 0.26)(0.21 0.23)(0.03 0.18)(0.01 0.23) 10) ((0.21 0.23)(0.23 0.21)(0.05 0.13)(0.03 0.18) 10) ((0.23 0.21)(0.25 0.18)(0.09 0.08)(0.05 0.13) 10) ((0.25 0.18)(0.28 0.16)(0.14 0.05)(0.09 0.08) 10) ((0.28 0.16)(0.30 0.15)(0.19 0.02)(0.14 0.05) 10) ((0.30 0.15)(0.33 0.14)(0.24 0.00)(0.19 0.02) 10) ((0.33 0.14)(0.37 0.14)(0.30 -0.01)(0.24 0.00) 10) ((0.37 0.14)(0.40 0.14)(0.36 -0.02)(0.30 -0.01) 10) ((0.40 0.14)(0.43 0.15)(0.42 -0.02)(0.36 -0.02) 10) ((0.43 0.15)(0.46 0.16)(0.47 -0.01)(0.42 -0.02) 10) ((0.46 0.16)(0.49 0.17)(0.53 0.01)(0.47 -0.01) 10) ((0.49 0.17)(0.51 0.19)(0.58 0.04)(0.53 0.01) 10) ((0.51 0.19)(0.53 0.21)(0.63 0.06)(0.58 0.04) 10) ((0.53 0.21)(0.54 0.24)(0.67 0.11)(0.63 0.06) 10) ((0.54 0.24)(0.55 0.27)(0.71 0.15)(0.67 0.11) 10) ((0.55 0.27)(0.56 0.30)(0.74 0.20)(0.71 0.15) 10) ((0.56 0.30)(0.56 0.34)(0.76 0.26)(0.74 0.20) 10) ((0.56 0.34)(0.56 0.37)(0.77 0.31)(0.76 0.26) 10) ((0.56 0.37)(0.55 0.40)(0.77 0.37)(0.77 0.31) 10) ((0.55 0.40)(0.54 0.43)(0.76 0.43)(0.77 0.37) 10) ((0.54 0.43)(0.52 0.45)(0.74 0.48)(0.76 0.43) 10) ((0.52 0.45)(0.49 0.47)(0.72 0.53)(0.74 0.48) 10) ((0.49 0.47)(0.47 0.49)(0.68 0.58)(0.72 0.53) 10) ((0.47 0.49)(0.44 0.50)(0.64 0.62)(0.68 0.58) 10) ((0.44 0.50)(0.41 0.51)(0.59 0.65)(0.64 0.62) 10) ((0.41 0.51)(0.38 0.51)(0.53 0.67)(0.59 0.65) 10) ((0.38 0.51)(0.35 0.51)(0.47 0.68)(0.53 0.67) 10) ((0.35 0.51)(0.31 0.50)(0.42 0.68)(0.47 0.68) 10) ((0.31 0.50)(0.29 0.49)(0.36 0.67)(0.42 0.68) 10) ((0.29 0.49)(0.26 0.47)(0.30 0.65)(0.36 0.67) 10) ((0.26 0.47)(0.24 0.45)(0.25 0.63)(0.30 0.65) 10) ((0.72 0.83)(0.72 1.00)(0.15 1.00)(0.29 0.83) 4) ((0.29 0.83)(0.15 1.00)(0.04 0.45)(0.25 0.63) 5) ((0.04 0.45)(0.24 0.45)(0.25 0.63)(0.04 0.45) 6))) (cons "6" '(((0.56 0.76)(0.54 0.80)(0.72 0.83)(0.74 0.76) 2) ((0.54 0.80)(0.51 0.84)(0.68 0.90)(0.72 0.83) 10) ((0.51 0.84)(0.46 0.87)(0.63 0.95)(0.68 0.90) 10) ((0.46 0.87)(0.41 0.87)(0.56 0.99)(0.63 0.95) 10) ((0.41 0.87)(0.36 0.87)(0.49 1.01)(0.56 0.99) 10) ((0.36 0.87)(0.32 0.85)(0.41 1.02)(0.49 1.01) 10) ((0.32 0.85)(0.28 0.82)(0.34 1.01)(0.41 1.02) 10) ((0.28 0.82)(0.25 0.78)(0.27 0.99)(0.34 1.01) 10) ((0.25 0.78)(0.23 0.73)(0.20 0.95)(0.27 0.99) 10) ((0.23 0.73)(0.21 0.68)(0.14 0.90)(0.20 0.95) 10) ((0.21 0.68)(0.21 0.63)(0.10 0.84)(0.14 0.90) 10) ((0.21 0.63)(0.21 0.58)(0.06 0.78)(0.10 0.84) 10) ((0.21 0.33)(0.21 0.36)(0.01 0.40)(0.02 0.33) 10) ((0.21 0.36)(0.22 0.39)(0.00 0.48)(0.01 0.40) 10) ((0.22 0.39)(0.22 0.42)(0.01 0.56)(0.00 0.48) 10) ((0.22 0.42)(0.24 0.44)(0.02 0.63)(0.01 0.56) 10) ((0.24 0.44)(0.26 0.46)(0.03 0.71)(0.02 0.63) 10) ((0.26 0.46)(0.28 0.48)(0.06 0.78)(0.03 0.71) 10) ((0.58 0.33)(0.57 0.38)(0.77 0.43)(0.78 0.33) 10) ((0.57 0.38)(0.56 0.43)(0.72 0.52)(0.77 0.43) 10) ((0.56 0.43)(0.53 0.47)(0.66 0.59)(0.72 0.52) 10) ((0.53 0.47)(0.48 0.50)(0.58 0.65)(0.66 0.59) 10) ((0.48 0.50)(0.43 0.52)(0.48 0.67)(0.58 0.65) 10) ((0.43 0.52)(0.38 0.52)(0.38 0.67)(0.48 0.67) 10) ((0.38 0.52)(0.33 0.51)(0.29 0.64)(0.38 0.67) 10) ((0.33 0.51)(0.28 0.48)(0.21 0.58)(0.29 0.64) 10) ((0.58 0.33)(0.57 0.28)(0.76 0.24)(0.78 0.33) 10) ((0.57 0.28)(0.55 0.24)(0.73 0.15)(0.76 0.24) 10) ((0.55 0.24)(0.52 0.20)(0.67 0.08)(0.73 0.15) 10) ((0.52 0.20)(0.48 0.17)(0.59 0.03)(0.67 0.08) 10) ((0.48 0.17)(0.44 0.15)(0.50 0.00)(0.59 0.03) 10) ((0.44 0.15)(0.39 0.15)(0.41 -0.01)(0.50 0.00) 10) ((0.39 0.15)(0.34 0.16)(0.32 0.00)(0.41 -0.01) 10) ((0.34 0.16)(0.30 0.17)(0.23 0.03)(0.32 0.00) 10) ((0.30 0.17)(0.27 0.21)(0.15 0.09)(0.23 0.03) 10) ((0.27 0.21)(0.24 0.24)(0.09 0.16)(0.15 0.09) 10) ((0.24 0.24)(0.22 0.28)(0.04 0.24)(0.09 0.16) 10) ((0.22 0.28)(0.21 0.33)(0.02 0.33)(0.04 0.24) 10))) (cons "7" '(((0.50 0.83)(0.43 0.74)(0.63 0.74)(0.71 0.83) 10) ((0.43 0.74)(0.35 0.65)(0.56 0.65)(0.63 0.74) 10) ((0.35 0.65)(0.30 0.55)(0.51 0.55)(0.56 0.65) 10) ((0.30 0.55)(0.24 0.45)(0.46 0.45)(0.51 0.55) 10) ((0.24 0.45)(0.20 0.34)(0.41 0.34)(0.46 0.45) 10) ((0.20 0.34)(0.16 0.23)(0.38 0.23)(0.41 0.34) 10) ((0.16 0.23)(0.14 0.12)(0.35 0.12)(0.38 0.23) 10) ((0.14 0.12)(0.13 0.00)(0.35 0.00)(0.35 0.12) 8) ((0.00 1.00)(0.00 0.83)(0.50 0.83)(0.71 1.00) 4) ((0.71 1.00)(0.50 0.83)(0.71 0.83)(0.71 1.00) 3))) (cons "8" '(((0.21 0.53)(0.39 0.47)(0.59 0.53)(0.40 0.57) 15) ((0.39 0.47)(0.46 0.45)(0.69 0.48)(0.59 0.53) 10) ((0.46 0.45)(0.53 0.42)(0.75 0.39)(0.69 0.48) 10) ((0.53 0.42)(0.58 0.37)(0.77 0.28)(0.75 0.39) 10) ((0.58 0.37)(0.59 0.29)(0.75 0.18)(0.77 0.28) 10) ((0.59 0.29)(0.58 0.22)(0.69 0.09)(0.75 0.18) 10) ((0.58 0.22)(0.53 0.17)(0.60 0.03)(0.69 0.09) 10) ((0.53 0.17)(0.47 0.13)(0.50 -0.01)(0.60 0.03) 10) ((0.47 0.13)(0.40 0.12)(0.39 -0.02)(0.50 -0.01) 10) ((0.40 0.12)(0.32 0.13)(0.28 -0.01)(0.39 -0.02) 10) ((0.32 0.13)(0.26 0.16)(0.18 0.03)(0.28 -0.01) 10) ((0.26 0.16)(0.21 0.22)(0.09 0.10)(0.18 0.03) 10) ((0.21 0.22)(0.20 0.29)(0.04 0.19)(0.09 0.10) 10) ((0.20 0.29)(0.21 0.36)(0.02 0.29)(0.04 0.19) 10) ((0.21 0.36)(0.26 0.41)(0.05 0.40)(0.02 0.29) 10) ((0.26 0.41)(0.32 0.46)(0.11 0.48)(0.05 0.40) 10) ((0.32 0.46)(0.39 0.47)(0.21 0.53)(0.11 0.48) 10) ((0.40 0.57)(0.46 0.59)(0.68 0.58)(0.59 0.53) 10) ((0.46 0.59)(0.51 0.62)(0.73 0.66)(0.68 0.58) 10) ((0.51 0.62)(0.55 0.66)(0.75 0.76)(0.73 0.66) 10) ((0.55 0.66)(0.56 0.72)(0.73 0.85)(0.75 0.76) 10) ((0.56 0.72)(0.54 0.78)(0.67 0.93)(0.73 0.85) 10) ((0.54 0.78)(0.51 0.83)(0.58 0.97)(0.67 0.93) 10) ((0.51 0.83)(0.45 0.85)(0.49 0.99)(0.58 0.97) 10) ((0.45 0.85)(0.39 0.86)(0.39 1.00)(0.49 0.99) 10) ((0.39 0.86)(0.33 0.86)(0.29 0.99)(0.39 1.00) 10) ((0.33 0.86)(0.28 0.82)(0.20 0.97)(0.29 0.99) 10) ((0.28 0.82)(0.24 0.78)(0.12 0.92)(0.20 0.97) 10) ((0.24 0.78)(0.23 0.72)(0.06 0.84)(0.12 0.92) 10) ((0.23 0.72)(0.25 0.66)(0.04 0.75)(0.06 0.84) 10) ((0.25 0.66)(0.29 0.62)(0.07 0.65)(0.04 0.75) 10) ((0.29 0.62)(0.34 0.59)(0.12 0.58)(0.07 0.65) 10) ((0.34 0.59)(0.40 0.57)(0.21 0.53)(0.12 0.58) 10))) (cons "9" '(((0.58 0.44)(0.59 0.38)(0.71 0.17)(0.74 0.24) 10) ((0.59 0.38)(0.58 0.33)(0.66 0.11)(0.71 0.17) 10) ((0.58 0.33)(0.57 0.28)(0.61 0.06)(0.66 0.11) 10) ((0.57 0.28)(0.55 0.23)(0.54 0.02)(0.61 0.06) 10) ((0.55 0.23)(0.52 0.19)(0.47 -0.01)(0.54 0.02) 10) ((0.52 0.19)(0.48 0.15)(0.39 -0.02)(0.47 -0.01) 10) ((0.48 0.15)(0.43 0.13)(0.31 -0.01)(0.39 -0.02) 10) ((0.43 0.13)(0.38 0.12)(0.24 0.01)(0.31 -0.01) 10) ((0.38 0.12)(0.33 0.13)(0.17 0.05)(0.24 0.01) 10) ((0.33 0.13)(0.28 0.15)(0.11 0.10)(0.17 0.05) 10) ((0.28 0.15)(0.25 0.19)(0.07 0.17)(0.11 0.10) 10) ((0.25 0.19)(0.23 0.24)(0.05 0.24)(0.07 0.17) 8) ((0.58 0.67)(0.58 0.64)(0.78 0.60)(0.77 0.67) 10) ((0.58 0.64)(0.58 0.61)(0.79 0.53)(0.78 0.60) 10) ((0.58 0.61)(0.57 0.58)(0.78 0.46)(0.79 0.53) 10) ((0.57 0.58)(0.55 0.56)(0.78 0.38)(0.78 0.46) 10) ((0.55 0.56)(0.53 0.54)(0.76 0.31)(0.78 0.38) 10) ((0.53 0.54)(0.51 0.52)(0.74 0.24)(0.76 0.31) 10) ((0.51 0.52)(0.46 0.49)(0.52 0.36)(0.58 0.44) 10) ((0.46 0.49)(0.41 0.48)(0.42 0.34)(0.52 0.36) 10) ((0.41 0.48)(0.36 0.48)(0.32 0.32)(0.42 0.34) 10) ((0.36 0.48)(0.31 0.50)(0.22 0.35)(0.32 0.32) 10) ((0.31 0.50)(0.27 0.53)(0.14 0.41)(0.22 0.35) 10) ((0.27 0.53)(0.23 0.57)(0.07 0.48)(0.14 0.41) 10) ((0.23 0.57)(0.22 0.61)(0.02 0.57)(0.07 0.48) 10) ((0.22 0.61)(0.21 0.67)(0.01 0.67)(0.02 0.57) 10) ((0.58 0.67)(0.58 0.72)(0.75 0.76)(0.77 0.67) 10) ((0.58 0.72)(0.55 0.76)(0.70 0.84)(0.75 0.76) 10) ((0.55 0.76)(0.52 0.80)(0.64 0.91)(0.70 0.84) 10) ((0.52 0.80)(0.49 0.83)(0.56 0.97)(0.64 0.91) 10) ((0.49 0.83)(0.44 0.85)(0.48 1.00)(0.56 0.97) 10) ((0.44 0.85)(0.39 0.85)(0.38 1.01)(0.48 1.00) 10) ((0.39 0.85)(0.34 0.85)(0.29 1.00)(0.38 1.01) 10) ((0.34 0.85)(0.30 0.83)(0.20 0.97)(0.29 1.00) 10) ((0.30 0.83)(0.26 0.79)(0.13 0.92)(0.20 0.97) 10) ((0.26 0.79)(0.23 0.76)(0.07 0.85)(0.13 0.92) 10) ((0.23 0.76)(0.21 0.71)(0.03 0.76)(0.07 0.85) 10) ((0.21 0.71)(0.21 0.67)(0.01 0.67)(0.03 0.76) 10))) (cons "0" '(((0.22 0.31)(0.23 0.25)(0.04 0.26)(0.02 0.34) 10) ((0.23 0.25)(0.26 0.21)(0.08 0.18)(0.04 0.26) 10) ((0.26 0.21)(0.31 0.17)(0.14 0.11)(0.08 0.18) 10) ((0.31 0.17)(0.36 0.15)(0.21 0.05)(0.14 0.11) 10) ((0.36 0.15)(0.42 0.15)(0.29 0.02)(0.21 0.05) 10) ((0.42 0.15)(0.47 0.17)(0.37 0.00)(0.29 0.02) 10) ((0.47 0.17)(0.52 0.20)(0.46 0.01)(0.37 0.00) 10) ((0.52 0.20)(0.56 0.24)(0.55 0.04)(0.46 0.01) 10) ((0.56 0.24)(0.57 0.30)(0.63 0.08)(0.55 0.04) 10) ((0.57 0.30)(0.58 0.35)(0.69 0.14)(0.63 0.08) 10) ((0.58 0.35)(0.59 0.41)(0.73 0.22)(0.69 0.14) 10) ((0.59 0.41)(0.60 0.47)(0.76 0.30)(0.73 0.22) 10) ((0.60 0.47)(0.60 0.52)(0.78 0.39)(0.76 0.30) 10) ((0.60 0.52)(0.59 0.58)(0.79 0.48)(0.78 0.39) 10) ((0.59 0.58)(0.59 0.64)(0.79 0.57)(0.79 0.48) 10) ((0.59 0.64)(0.58 0.69)(0.77 0.65)(0.79 0.57) 10) ((0.58 0.69)(0.56 0.75)(0.75 0.74)(0.77 0.65) 10) ((0.56 0.75)(0.53 0.79)(0.71 0.82)(0.75 0.74) 10) ((0.53 0.79)(0.48 0.83)(0.66 0.89)(0.71 0.82) 10) ((0.48 0.83)(0.43 0.85)(0.59 0.94)(0.66 0.89) 10) ((0.43 0.85)(0.37 0.85)(0.50 0.98)(0.59 0.94) 10) ((0.37 0.85)(0.32 0.83)(0.42 0.99)(0.50 0.98) 10) ((0.32 0.83)(0.27 0.80)(0.33 0.99)(0.42 0.99) 10) ((0.27 0.80)(0.23 0.76)(0.24 0.96)(0.33 0.99) 10) ((0.23 0.76)(0.22 0.70)(0.17 0.91)(0.24 0.96) 10) ((0.22 0.70)(0.21 0.65)(0.10 0.85)(0.17 0.91) 10) ((0.21 0.65)(0.20 0.59)(0.06 0.78)(0.10 0.85) 10) ((0.20 0.59)(0.19 0.53)(0.03 0.69)(0.06 0.78) 10) ((0.19 0.53)(0.19 0.48)(0.01 0.61)(0.03 0.69) 10) ((0.19 0.48)(0.20 0.42)(0.00 0.52)(0.01 0.61) 10) ((0.20 0.42)(0.20 0.36)(0.00 0.43)(0.00 0.52) 10) ((0.20 0.36)(0.22 0.31)(0.02 0.34)(0.00 0.43) 10))) (cons "'" '(((0.10 1.00)(0.16 0.95)(0.00 0.93)(0.00 1.00) 2) ((0.16 0.95)(0.16 0.87)(0.00 0.86)(0.00 0.93) 10) ((0.16 0.87)(0.13 0.80)(0.00 0.79)(0.00 0.86) 10) ((0.13 0.80)(0.10 0.73)(0.00 0.72)(0.00 0.79) 10) ((0.10 0.73)(0.07 0.66)(0.00 0.65)(0.00 0.72) 10) ((0.07 0.66)(0.04 0.58)(0.00 0.58)(0.00 0.65) 8)))))) (PDot);++++++++++++ Make Text Block ++++++++++++++++++++++++++++++++++++ (defun btx_text (l h d f s a / ld p10 p11 p12 p13 t10 t11 t12 t13) (and (not clist) (btx_setup)) ;;;GET THE LETTER DEFINITION POINT LIST (setq ld (cdr (assoc (strcase l) tlist))) ;;;ANONYMOUS BLOCK HEADER (entmake (list (cons 0 "BLOCK")(cons 70 1)(cons 10 (list 0 0 0))(cons 2 "*U"))) ;;;FOREACH POINT LIST IN THE LIST (foreach e ld ;;;SCALED POINTS (setq p10 (mapcar '* (list h h) (nth 0 e)) p11 (mapcar '* (list h h) (nth 1 e)) p12 (mapcar '* (list h h) (nth 2 e)) p13 (mapcar '* (list h h) (nth 3 e))) ;;;OBLIQUE POINTS (and (not (zerop a)) (setq p10 (list (+ (car p10) (* (cadr p10) (/ (sin a) (cos a)))) (cadr p10)) p11 (list (+ (car p11) (* (cadr p11) (/ (sin a) (cos a)))) (cadr p11)) p12 (list (+ (car p12) (* (cadr p12) (/ (sin a) (cos a)))) (cadr p12)) p13 (list (+ (car p13) (* (cadr p13) (/ (sin a) (cos a)))) (cadr p13)))) ;;;FINAL POINT LISTS (setq t10 (append p10 (list d)) t11 (append p11 (list d)) t12 (append p12 (list d)) t13 (append p13 (list d)) p10 (append p10 (list 0)) p11 (append p11 (list 0)) p12 (append p12 (list 0)) p13 (append p13 (list 0))) ;;;TOP FACE (entmake (list (cons 0 "3DFACE") (cons 70 (if (> d 0) 15 (last e))) (cons 8 (strcat "3D-" (itoa f))) (cons 10 t10) (cons 11 t11) (cons 12 t12) (cons 13 t13))) ;;;VISABLE EDGE LINES (if (and (> d 0) (/= (logand (last e) 1) 1)) (entmake (list (cons 0 "LINE")(cons 39 d) (cons 8 (strcat "3D-" (itoa s))) (cons 10 p10) (cons 11 p11)))) (if (and (> d 0) (/= (logand (last e) 2) 2)) (entmake (list (cons 0 "LINE")(cons 39 d) (cons 8 (strcat "3D-" (itoa s))) (cons 10 p11) (cons 11 p12)))) (if (and (> d 0) (/= (logand (last e) 4) 4)) (entmake (list (cons 0 "LINE")(cons 39 d) (cons 8 (strcat "3D-" (itoa s))) (cons 10 p12) (cons 11 p13)))) (if (and (> d 0) (/= (logand (last e) 8) 8)) (entmake (list (cons 0 "LINE")(cons 39 d) (cons 8 (strcat "3D-" (itoa s))) (cons 10 p13) (cons 11 p10)))) ;;;BOTTOM FACE (and (= bf "Fill") (entmake (list (cons 0 "3DFACE") (cons 8 (strcat "3D-" (itoa f))) (cons 70 15) (cons 10 p10) (cons 11 p11) (cons 12 p12) (cons 13 p13))))) ;;;END & RETURN ANONYMOUS BLOCK NAME (entmake (list (cons 0 "ENDBLK")))) (PDot);************ Main Program *************************************** (defun btx_ (/ olderr btx_var btx_rst hgt dep s fc sc i bn ll bl x i bf clist tlist oa) (btx_smd) (btx_setup) ;;;TEXT HEIGHT (initget 7) (setq hgt (getdist "\nText Height: ")) ;;;TEXT DEPTH (initget 5) (setq dep (getdist "\nText Depth: ")) ;;;OBLIQUE ANGLE (setq oa (getreal "\nText Oblique Angle In CW Degrees <0>: ")) (and (not oa) (setq oa 0)) (setq oa (* pi (/ oa 180.0))) ;;;TEXT FACE COLOR (while (not fc) (princ "\Select Face Color: ") (setq fc (acad_colordlg 7))) ;;;TEXT SIDES COLOR (if (zerop dep) (setq sc fc) (progn (while (not sc) (princ "\nSelect Side Color: ") (setq sc (acad_colordlg 1))) ;;;BACK FACES (initget "Fill Open") (setq bf (getkword "\nBack Faces Fill/Open : ")))) ;;;TEXT STRING (while (or (not s) (= s "")) (setq s (getstring T "\nText String: "))) ;;;LOWER LEFT TEXT POINT (initget 1) (setq ll (getpoint "\nLower Left Text Corner: ")) ;;;MAKE TEXT BLOCKS (setq i 1) (repeat (strlen s) (setq bn (btx_text (strcase (substr s i 1)) hgt dep fc sc oa)) (setq bl (cons bn bl)) (setq i (1+ i))) ;;;SETUP BLOCK LIST & COUNTERS (setq bl (reverse bl) i 1 x 0) ;;;MAKE MAIN BLOCK (entmake (list (cons 0 "BLOCK")(cons 70 1)(cons 10 (list 0 0 0))(cons 2 "*U"))) (foreach b bl (entmake (list (cons 0 "INSERT")(cons 2 b)(cons 10 (list x 0 0)))) (cond ((member (strcase (substr s i 1)) '("I" "'")) (setq x (+ x (* 0.5 hgt)))) ((member (strcase (substr s i 1)) '("1")) (setq x (+ x (* 0.8 hgt)))) ((member (strcase (substr s i 1)) '("B" "F" "P" "L")) (setq x (+ x (* 1.0 hgt)))) ((member (strcase (substr s i 1)) '("M" "W" "G")) (setq x (+ x (* 1.5 hgt)))) (T (setq x (+ x (* hgt 1.2))))) (setq i (1+ i))) (setq bn (entmake (list (cons 0 "ENDBLK")))) (entmake (list (cons 0 "INSERT")(cons 2 bn)(cons 10 ll))) ;;;LAYER COLORS (if (/= fc 0) (command "_.LAYER" "_C" fc (strcat "3D-" (itoa fc)) "")) (if (/= sc 0) (command "_.LAYER" "_C" sc (strcat "3D-" (itoa sc)) "")) ;;;EXIT CLEAN (btx_rmd)) (PDot);************ Load Program *************************************** (defun C:BlockTXt () (btx_)) (if btx_ (princ "\nBlockTXt Loaded\n")) (prin1) ;|================== End Program =======================================