; erstellen sie eine nautilus shell
; [EMAIL="[email protected]"][COLOR=#3c5b00][email protected][/COLOR][/EMAIL] ; --- july.2003 ---
;
(defun c:nautilus( / Radius rad_inc n m ang1m ang1n alt)
(setq rad_inc 0.2;radius inkrement
größe
größe m 60
ang1n (/ (* 2.0 pi) n)
Ang1m (/pi 20.0)
angn 0,0 ; Winkel in n richtung
alt (getvar "osmode")
(Befehl "3dmesh" (1+ n) m)
(setvar "osmode" 0)
(Repeat (1+ n)
(Setq Radius 0,0 ;radius im querschnitt
Winkel 0,0 ; Winkel in m Richtung
Angn (+ angn ang1n)
(Repeat m)
(Befehl)
(Setq Radius (+ Radius rad_inc)
Angm (+ angm ang1m)
p (Liste (* (+ Radius (cos angn))) (cos angm))
(* Radius (in Angn)
(* (+ Radius)))
;repeat m
;Repeat n+1
(setvar "osmode" alt)
(princ)
)
(princ "\nroutine geladen. geben sie nautilus an der eingabeaufforderung ein.")
(princ)