[Banoffee]

Кукла колдуна

[lumiar]

http://weheartit.com/entry/276050306

[determ.chaos]

$\textbf{B}$

[Gift]

http://m.ebay.de/itm/Littlest-Pet-Sh...%257Ciid%253A8

[lumiar]

(defun c:3d_bolt (/ raz_g h_g fas_g bp osm osm3 3dgon r1 p1 p2 a1 p3 3dp bpo
3dsh d_s h_s dl_r sh_r r_s 3db pk pkn kol_v ps1 ps2 spir1
spir2 is_X is_Z pt1 pt2 vis pt3 bps pts)
(command "_-view" "_swiso")
(setq raz_g 24)
(setq h_g 10)
(setq fas_g 3.055)
(setq bp (getpoint "\nУкажите базовую точку : "))
;-------------------------------------------
(setq osm (getvar "osmode"))
(setq osm3 (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
;-------------------------------------------
(command "_polygon" 6 bp "_c" (/ raz_g 2))
(command "_extrude" (entlast) "" h_g)
(setq 3dgon (entlast))

(setq r1 (/ (/ raz_g 2) (sin (/ pi 3))))
(setq p1 (mapcar '+ (list r1 0 0) bp))
(setq p2 (mapcar '+ (list (- fas_g) 0 0) p1))
(setq a1 (* fas_g (/ (cos (/ pi 3)) (sin (/ pi 3)))))
(setq p3 (mapcar '+ (list 0 0 a1) p1))

(command "_3dpoly" p1 p2 p3 p1 "")
(setq 3dp (entlast))

(setq bpo (mapcar '+ (list 0 0 10) bp))
(command "_REVOLVE" 3dp "" bp bpo 360)
(command "_subtract" 3dgon "" (entlast) "")
(setq 3dsh (entlast))

[Kaity_Blane]

04.06.2017

[determ.chaos]

\textbf{Замечание.}

[Banoffee]

Сообщения продолжали идти бесконечным потоком, поэтому я отбросила ПДА в сторону на подушку. Ещё и происходящее в зоне теперь нагоняло ужас.

[determ.chaos]

/home/helge/аватарки/graphics/мультики, веб-комиксы/mteekaPP6cw.jpg

[Gift]

гриб который превращает муравьев в зомби