Blog in English

I have always doubted how to properly maintain a multilingual blog. Finally, I decided to split my blog into English only and Lithuanian only. This approach will allow me to target international and Lithuanian related posts better. Visada abejojau, kaip teisingai prižiūrėti daugiakalbį tinklaraštį. Galiausiai nusprendžiau padalyti savo tinklaraštį į anglišką ir lietuvišką. Tai leis […]

I wish You a merry Solstice and happy New 2019 Year!

(setvar “cmdecho” 0)
(setq r 0 x -1 y -1 z 1 c 0)
(vl-cmdf “_.shademode” “_flat”)
(vl-cmdf “_.vpoint” “-0.75,-2,0.35”)
(repeat 252
(vl-cmdf “_.circle” (list x y (setq z (- z 5)))
(setq r (1+ (* 1.05 r)))
)
(vl-cmdf “_.region” (entlast) “”)
(vl-cmdf “_.change” (entlast) “” “_properties” “_color” (setq c (1+ c)) “”)
)
(vl-cmdf “_.zoom” “_extents”)
(repeat 85
(vl-cmdf “_.zoom” “_scale” 1.1)
)
(setq sapi (vlax-create-object “Sapi.SpVoice”))
(vlax-invoke sapi “Speak” “I wish You a merry Solstice and happy New 2019 Year!” 0)
(vlax-release-object sapi)
(princ “Load www.kitox.com/downloads/winter.lsp for more fun”)