(setq a 10) ; radius
(setq m 0.1 ; m factor
(setq P (list a 0 0)) ;first point
(setq i 10); vertecis per revolution
(setq k 10); number of revolutions
(setq alfa (/ (* pi 30) 180)); falf cone angle (degree)
(setq dt (/ (* 2 PI) i))
(setq q (/ m 2 PI))
(command "_3DPOLY" P)
(setq t 0)
(setq i (* i k))
(setq j i)
(repeat j
(setq t (+ t dt))
(cone)
(command P)
)
(command "")
(setq e (entlast))
(command "_PEDIT" e "_S" "")
)
(defun cone()
(setq w (* a (exp (* m t))))
(setq x (* w (cos t)))
(setq y (* w (sin t)))
(setq z (* w (/ (cos alfa) (sin alfa))))
(setq P (list x y z))
Én, e mű szerzője a művemet az alábbi licencek alatt teszem közzé:
Ez a fájl szabadon másolható, terjeszthető és/vagy módosítható a GNU Szabad Dokumentációs Licenc feltételei alapján, az 1.2 vagy későbbi, a Free Software Foundation által publikált Nem Változtatható szakaszok, Címlapszövegek és Hátlapszövegek nélküli változat szerint. E licenc egy példánya a GNU Szabad Dokumentációs Licenc című fejezetben olvasható.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet
feldolgozhatod – származékos műveket hozhatsz létre
Az alábbi feltételekkel:
Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit.
Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.
Ez a licenc a GFDL licenccsere során került a fájlra.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue
megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet
feldolgozhatod – származékos műveket hozhatsz létre
Az alábbi feltételekkel:
Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit.
Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.
{{Információ | leírás = Kupos csavarvonal | forrás = Saját kép. Készült AutoCAD és CorelDraw felhasználásával. AutoLISP programja:(defun C:HELIX() (setq a 10) ; radius (setq m 0.1 ; m factor (setq P (list a 0 0)) ;fir
Ez a kép járulékos adatokat tartalmaz, amelyek feltehetően a kép létrehozásához használt digitális fényképezőgép vagy lapolvasó beállításairól adnak tájékoztatást. Ha a képet az eredetihez képest módosították, ezen adatok eltérhetnek a kép tényleges jellemzőitől.