Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

XmasCard

169 views
Skip to first unread message

Warren Trost

unread,
Dec 20, 2001, 1:35:31 PM12/20/01
to
Attached XmasCard.LSP
Start in a new drawing.
Many happy returns for the holidays.

Xmascard.lsp

dbounds

unread,
Dec 20, 2001, 2:41:39 PM12/20/01
to
Very Nice, Thanks.

The most useful code I've seen all year!

-Dan
"Warren Trost" <wtr...@rhgeorge.com> wrote in message
news:7705B9C51B9354A3...@in.WebX.maYIadrTaRb...


> Attached XmasCard.LSP
> Start in a new drawing.
> Many happy returns for the holidays.
>
>


----------------------------------------------------------------------------
----


;;; *** XMASCARD.LSP ***
;;; * 11/25/98 *
;;; * by Warren L. Trost *
;;; ************************
;;;
;;; 11/26/01 Modified to update actions and date.
;;;
(defun C:XMASCARD (/ AFRACT DISTS EPSILON)
(defun Delay (SEC)
(setq SECS (getvar "Date") ; get current time
BASETIME (* 86400.0 (- SECS (fix SECS))) ; convert to
seconds
SECONDS BASETIME) ; set new time
(while (not (< (+ BASETIME SEC) SECONDS))
(setq SECS (getvar "Date") ; get new current
time
SECONDS (* 86400.0 (- SECS (fix SECS)))) ; convert to
seconds
)
)

(defun LastN (NUMB / COUNT SMAX)
(setq SS3 (ssadd)) ; create empty selection
set
(repeat NUMB ; repeat input number of
times
(ssadd (entlast) SS3) ; add last entity to
selection
(entdel (entlast)) ; temporary delete last
entity
)
(setq COUNT 0 ; initialize a counter
SMAX (sslength SS3)) ; length of selection set
(while (< COUNT SMAX) ; cycle thru selection set
(entdel (ssname SS3 COUNT)) ; undelete the delete
(setq COUNT (1+ COUNT)) ; increment counter
)
SS3 ; return the selection set
)


(setq EPSILON 0.02
AFRACT (/ PI 5))
(defun Fractal (P1 P2 / P3 A DISTS)
(setq DISTS (distance P1 P2))
(setq A (angle P1 P2))
(command "._ucsicon" "OFF")
(command "._zoom" "W" "-1.03,-1.1875" "1.03,2.15")
(if (< DISTS EPSILON)
(command "._line" P1 P2 nil)
(progn
(setq P3 (polar P1 (angle P1 P2) (* DISTS 0.5)))
(command "._line" P1 P3 nil)
(Fractal P3 (polar P3 (+ (angle P1 P2) AFRACT) (* DISTS 0.5 )))
(Fractal P3 (polar P3 (- (angle P1 P2) AFRACT) (* DISTS 0.5 )))
(Fractal P1 P3)
)
)
)

(command "._undo" "GROUP")
(setvar "Cmdecho" 0)
(setvar "Blipmode" 0)
(command "._color" "3")
(Fractal '(0 2) '(0 0))
(command "._line" '(0 0) '(0 1) nil)
(command "._color" "1")

(setq W:SSX (ssadd))
(command "._style" "SIMPLEX" "SIMPLEX" "" "" "" "" "" "")
(entmake '((0 . "TEXT") (10 -3.37934 1.12871 0.0)(40 . 0.245209)
(1 . "MERRY")))
(setq W:SSX (ssadd (entlast) W:SSX))
(entmake '((0 . "TEXT") (10 -3.37934 0.662811 0.0)(40 . 0.245209)
(1 . "CHRISTMAS")))
(setq W:SSX (ssadd (entlast) W:SSX))
(entmake '((0 . "TEXT") (10 1.23658 1.13534 0.0)(40 . 0.245209)
(1 . "HAPPY")))
(setq W:SSX (ssadd (entlast) W:SSX))
(entmake '((0 . "TEXT") (10 1.23658 0.669438 0.0)(40 . 0.245209)
(1 . "NEW YEAR")))
(setq W:SSX (ssadd (entlast) W:SSX))
(entmake '((0 . "TEXT") (10 0.0982008 0.00) (40 . 0.0625)
(1 . "FROM WARREN TROST")))
(setq W:SSX (ssadd (entlast) W:SSX))

(setq W:SSX (ssadd (entlast) W:SSX))
(entmake '((0 . "TEXT") (10 0.0982008 -0.10) (40 . 0.0625)
(1 . "w/R. H. George and Associates")))
(setq W:SSX (ssadd (entlast) W:SSX))

(entmake '((0 . "TEXT") (10 -0.969983 2.29321 0.0) (40 . 0.245209)
(1 . "2001-")))
(setq W:SSX2 (entlast))
(command "._chprop" (entlast) "" "_C" "2" "")

(entmake '((0 . "TEXT") (10 0.221032 2.29321 0.0) (40 . 0.245209)
(1 . "2002")))
(setq W:SSX3 (entlast))
(command "._chprop" (entlast) "" "_C" "6" "")

(setq W:SSX4 (ssadd))
(command "._donut" "0" "0.032" '(-4.0 1.0 0.0) "")
(repeat 15
(command "._copy" (entlast) "" "@" "@")
)
(setq W:SSX4 (LastN 16))
(setq X:CNTR 0)
(repeat 16
(set (read (strcat "BALL" (itoa (1+ X:CNTR))))(ssname W:SSX4 (1+
X:CNTR)))
(setq X:CNTR (1+ X:CNTR))
)

(setq X:CNTR 0)
(repeat 6 ; make color red
(command "._chprop" (ssname W:SSX4 X:CNTR) "" "_C" "1" "")
(setq X:CNTR (1+ X:CNTR))
)
(setq PTS '(-4.0 1.0 0.0)
PT1 '(0.4190 0.1906 0.0)
DIST1 (/ (distance PTS PT1) 10.0)
ANGL1 (angle PTS PT1))
(setq PT2 '(0.0545 1.8671 0.0)
DIST2 (/ (distance PTS PT2) 10.0)
ANGL2 (angle PTS PT2))
(setq PT3 '(0.0424 1.3664 0.0)
DIST3 (/ (distance PTS PT3) 10.0)
ANGL3 (angle PTS PT3))
(setq PT4 '(0.1551 1.1030 0.0)
DIST4 (/ (distance PTS PT4) 10.0)
ANGL4 (angle PTS PT4))
(setq PT5 '(0.2660 0.7045 0.0)
DIST5 (/ (distance PTS PT5) 10.0)
ANGL5 (angle PTS PT5))
(setq PT6 '(0.1612 0.1896 0.0)
DIST6 (/ (distance PTS PT6) 10.0)
ANGL6 (angle PTS PT6))

(repeat 4 ; make color magenta
(command "._chprop" (ssname W:SSX4 X:CNTR) "" "_C" "6" "")
(setq X:CNTR (1+ X:CNTR))
)
(setq PT7 '(0.1984 1.2364 0.0)
DIST7 (/ (distance PTS PT7) 10.0)
ANGL7 (angle PTS PT7))
(setq PT8 '(0.1584 0.6073 0.0)
DIST8 (/ (distance PTS PT8) 10.0)
ANGL8 (angle PTS PT8))
(setq PT9 '(0.3049 0.2800 0.0)
DIST9 (/ (distance PTS PT9) 10.0)
ANGL9 (angle PTS PT9))
(setq PT10 '(0.4102 0.5149 0.0)
DIST10 (/ (distance PTS PT10) 10.0)
ANGL10 (angle PTS PT10))

(repeat 4 ; make color cyan
(command "._chprop" (ssname W:SSX4 X:CNTR) "" "_C" "4" "")
(setq X:CNTR (1+ X:CNTR))
)
(setq PT11 '(0.1221 1.5899 0.0)
DIST11 (/ (distance PTS PT11) 10.0)
ANGL11 (angle PTS PT11))
(setq PT12 '(0.3371 1.2399 0.0)
DIST12 (/ (distance PTS PT12) 10.0)
ANGL12 (angle PTS PT12))
(setq PT13 '(0.3590 0.3872 0.0)
DIST13 (/ (distance PTS PT13) 10.0)
ANGL13 (angle PTS PT13))
(setq PT14 '(0.6829 0.5182 0.0)
DIST14 (/ (distance PTS PT14) 10.0)
ANGL14 (angle PTS PT14))

(repeat 2 ; make color white
(command "._chprop" (ssname W:SSX4 X:CNTR) "" "_C" "7" "")
(setq X:CNTR (1+ X:CNTR))
)
; (setq PT15 '(0.4190 0.1906 0.0)
; DIST15 (/ (distance PTS PT15) 10.0)
; ANGL15 (angle PTS PT15))
(setq PT16 '(0.0320 1.6280 0.0)
DIST16 (/ (distance PTS PT16) 10.0)
ANGL16 (angle PTS PT16))
(command "._zoom" "_W" "-3.5494,-1.0558" "3.3490,3.5817")

;; start moving balls
(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(delay 0.25)

(command "._move" BALL1 "" PTS (polar PTS ANGL1 DIST1))
(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(delay 0.25)

(command "._move" BALL2 "" PTS (polar PTS ANGL2 DIST2))
(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(delay 0.25)

(command "._move" BALL3 "" PTS (polar PTS ANGL3 DIST3))
(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(delay 0.25)

(command "._move" BALL4 "" PTS (polar PTS ANGL4 DIST4))
(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(delay 0.25)

(command "._move" BALL5 "" PTS (polar PTS ANGL5 DIST5))
(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL6 "" PTS (polar PTS ANGL6 DIST6))
(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL7 "" PTS (polar PTS ANGL7 DIST7))
(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL8 "" PTS (polar PTS ANGL8 DIST8))
(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL9 "" PTS (polar PTS ANGL9 DIST9))
(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL10 "" PTS (polar PTS ANGL10 DIST10))
(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL11 "" PTS (polar PTS ANGL11 DIST11))
(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL12 "" PTS (polar PTS ANGL12 DIST12))
(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL13 "" PTS (polar PTS ANGL13 DIST13))
(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._move" BALL14 "" PTS (polar PTS ANGL14 DIST14))
(delay 0.25)

(command "._mirror" (LastN 16) "" "0,0" "0,1" "N")
(setq LASTSSX (LastN 16))
(command "._erase" "W" "-4.0353,0.9543" "-3.9757,1.0362" "")
(setq W:CNTR 0)

(repeat 5
(setq EN (ssname W:SSX W:CNTR)
EL (entget EN)
EL (subst (cons 7 "SIMPLEX") (assoc 7 EL) EL))
(entmod EL)
(setq W:CNTR (1+ W:CNTR))
)

(setq EL (entget W:SSX2)
EL (subst (cons 7 "SIMPLEX") (assoc 7 EL) EL))
(entmod EL)

(setq EL (entget W:SSX3)
EL (subst (cons 7 "SIMPLEX") (assoc 7 EL) EL))
(entmod EL)

(repeat 5
(command "._erase" W:SSX "")
(Delay 0.25)
(command "._U")
(Delay 0.1)
(command "._erase" W:SSX2 "")
(Delay 0.25)
(command "._U")
(command "._erase" W:SSX3 "")
(Delay 0.25)
(command "._U")
)

(repeat 5
(command "._erase" W:SSX4 "")
(Delay 0.25)
(command "._U")
(command "._erase" LASTSSX "")
(Delay 0.25)
(command "._U")
)

(setvar "Cmdecho" 1)
(setvar "Blipmode" 1)
(command "_undo" "END")
(princ "\nC:XMASTREE ")
(princ)
)
(C:XMASCARD)


Cliff Middleton

unread,
Dec 20, 2001, 3:12:20 PM12/20/01
to
That's neat, Warren. How about a 3D tree next year?

Merry Christmas
--
Cliff

"Warren Trost" <wtr...@rhgeorge.com> wrote in message
news:7705B9C51B9354A3...@in.WebX.maYIadrTaRb...

> Attached XmasCard.LSP
> Start in a new drawing.
> Many happy returns for the holidays.
>
>

SpongeBob

unread,
Dec 20, 2001, 4:18:05 PM12/20/01
to
Is that an OCT-TREE?

By the way, I removed 854 zero-length lines from that Xmas card!

But thanks for the diversion, and happy Hdays to you, too.

SpongeBob


Darren J. Young

unread,
Dec 20, 2001, 4:44:26 PM12/20/01
to
> By the way, I removed 854 zero-length lines from that Xmas card!

Turn off your OSNAPs.

--
Sincerely,
Darren J. Young

Minnesota CADWorks, Inc.
P.O. Box 7293
Saint Cloud, Minnesota 56302-7293
Phone: (320) 654-9053
WWW: http://www.mcwi.com

Andrew Schell

unread,
Dec 20, 2001, 5:04:02 PM12/20/01
to
That was a great routine, how long did it take you do write that up?

--
PIII 663, 765MB RAMM, Elsa nVIDIA Quadro2 32 Mb Ex Display Card @ 1280x960,
Win98, A14, A2K, AR3 build 134. FMSsoft 5.9 & 6.0
Andrew Schell, Lead CAD Designer & FMSsoft Software Support

"Warren Trost" <wtr...@rhgeorge.com> wrote in message
news:7705B9C51B9354A3...@in.WebX.maYIadrTaRb...

> Attached XmasCard.LSP
> Start in a new drawing.
> Many happy returns for the holidays.
>
>

Dave Pitzer

unread,
Dec 20, 2001, 11:57:24 PM12/20/01
to
Warren,

Kool!!

I especially like the fractal function. Fractals forms in LISP fascinate me.

Happy Holidays

Dave Pitzer
CADalyst Magazine
========================


"Warren Trost" <wtr...@rhgeorge.com> wrote in message
news:7705B9C51B9354A3...@in.WebX.maYIadrTaRb...

> Attached XmasCard.LSP
> Start in a new drawing.
> Many happy returns for the holidays.
>
>

Warren Trost

unread,
Dec 21, 2001, 8:32:29 AM12/21/01
to
I won't take credit for the tree routine. I found it and expanded on it.

"Andrew Schell" <andrew...@hotmail.com> wrote in message
news:02C73D127588FFD9...@in.WebX.maYIadrTaRb...

0 new messages