looking for a USA flag block or drawing

[stevenw]

looking for a USA flag block or drawing.
thanks.

 

[cparnell]

Try this



;; ***** USA.LSP *****
;;
;; Creates the United States of America banner.
;; Use black screen background for best results.
;;
;; W. Kilbourne, CompugraphX, Revised October 1, 2001
;;
(defun c:USA (/ CE BM OS OE SP HT XD XA EP YA D1 D2 D3 D4 RP RH XZ YZ
P1 P2 P3 P4 P5 P6 P7 P8 P9 PX PY PZ S1 S2 S3 S4 S5 S6)
(setq CE (getvar "CMDECHO&quot BM (getvar "BLIPMODE&quot OM (getvar "OSMODE&quot)
(defun NE (NE) (setvar "CMDECHO" CE) (setvar "BLIPMODE" BM)
(setvar "OSMODE" OM) (princ "Function cancelled &quot (princ)
)
(setq OE *error* *error* NE)
(setvar "CMDECHO" 0) (setvar "OSMODE" 0)
(while (= SP nil)
(setq SP (getpoint "\nPick lower left corner of flag: &quot)
)
(while (= HT nil)
(setq HT (getcorner SP &quot;\nPick upper right corner of flag <height>: &quot)
)
(if (>= (angle SP HT)(/ pi 2))
(setq HT (polar SP (/ pi 4) (distance SP HT)))
)
(setq XD (distance SP HT)
XA (angle SP HT)
EP (polar SP (/ pi 2) (* XD (sin XA)))
YA (angle SP EP)
D1 (distance SP EP)
D2 (/ D1 13)
D3 (* D2 0.8)
D4 (* D2 1.4)
RP (polar SP 0.0 (* D1 1.5))
RH (polar EP 0.0 (* D1 1.5))
XZ (polar SP (* pi 1.25) D2)
YZ (polar RH (* pi 0.25) D2)
P1 (polar SP (/ pi 2) (* D2 6))
P2 (polar P1 0.0 (* D2 8.5))
P3 (polar EP 0.0 (* D2 8.5))
P4 (polar SP YA D2)
P5 (polar RP YA D2)
P6 (polar P4 YA D2)
P7 (polar P5 YA D2)
P8 (polar RP YA (* D2 6))
P9 (polar P2 YA D2)
PX (polar P8 YA D2)
PY (polar P9 YA D2)
PZ (polar PX YA D2)
S1 (polar P1 (* pi 0.25) D2)
S2 (polar S1 (* pi 0.3) (* D3 0.172))
S3 (polar S1 (* pi 0.7) (* D3 0.172))
S4 (polar S1 YA (* D3 0.43952))
S5 (polar S1 (* pi 0.25) D2)
S6 (polar P3 (* pi 1.25) D4)
)
(command &quot;.BLIPMODE&quot; &quot;OFF&quot;
&quot;.FILL&quot; &quot;ON&quot;
&quot;.ZOOM&quot; &quot;W&quot; XZ YZ
&quot;.LAYER&quot; &quot;N&quot; &quot;BLUE&quot; &quot;C&quot; &quot;5&quot; &quot;BLUE&quot; &quot;S&quot; &quot;BLUE&quot; &quot;&quot;
&quot;.SOLID&quot; P1 P2 EP P3 &quot;&quot;
&quot;.LAYER&quot; &quot;N&quot; &quot;RED&quot; &quot;C&quot; &quot;1&quot; &quot;RED&quot; &quot;S&quot; &quot;RED&quot; &quot;&quot;
&quot;.SOLID&quot; SP P4 RP P5 &quot;&quot;
&quot;.ARRAY&quot; &quot;L&quot; &quot;&quot; &quot;R&quot; &quot;3&quot; &quot;1&quot; (* D2 2)
&quot;.SOLID&quot; P2 P9 P8 PX &quot;&quot;
&quot;.ARRAY&quot; &quot;L&quot; &quot;&quot; &quot;R&quot; &quot;4&quot; &quot;1&quot; (* D2 2)
&quot;.LAYER&quot; &quot;N&quot; &quot;WHITE&quot; &quot;C&quot; &quot;7&quot; &quot;WHITE&quot; &quot;S&quot; &quot;WHITE&quot; &quot;&quot;
&quot;.SOLID&quot; P4 P6 P5 P7 &quot;&quot;
&quot;.ARRAY&quot; &quot;L&quot; &quot;&quot; &quot;R&quot; &quot;3&quot; &quot;1&quot; (* D2 2)
&quot;.SOLID&quot; P9 PY PX PZ &quot;&quot;
&quot;.ARRAY&quot; &quot;L&quot; &quot;&quot; &quot;R&quot; &quot;3&quot; &quot;1&quot; (* D2 2)
&quot;.SOLID&quot; S1 S2 S3 S4 &quot;&quot;
&quot;.ARRAY&quot; &quot;L&quot; &quot;&quot; &quot;P&quot; S1 &quot;5&quot; &quot;360&quot; &quot;Y&quot;
&quot;.ARRAY&quot; &quot;W&quot; P1 S5 &quot;&quot; &quot;R&quot; &quot;5&quot; &quot;6&quot; D4 D4
&quot;.COPY&quot; &quot;W&quot; P1 S6 &quot;&quot; S1 S5
)
(setvar &quot;CMDECHO&quot; CE)
(setvar &quot;BLIPMODE&quot; BM)
(setvar &quot;OSMODE&quot; OM)
(setq *error* OE OE nil)
(princ)
)
Charles S. Parnell
Southern Store Fixtures