作者sjgau (sjgau)
看板Cad_Cae
標題Re: [問題] 請問要怎麼畫出愛心的圖案?
時間Tue Nov 1 16:31:30 2005
http://myblog.pchome.com.tw/_/myblog/?blog_id=sjgau&y=2005&m=09&an=11726&acn=3247
(setvar "cmdecho" 0)
; plot r= G(theta)
; ｒ＝ａ（１－ｓｉｎθ）
(setq a 2.5)
(setq no (getint "Please input no= "))
(setq t1 (* -1 pi)
t2 (* +1 pi)
dt (/ (- t2 t1) no)
t2 (+ t2 (* 0.1 dt))
)
; for theta= t1 to t2 step dt do ...
; dt= (t2 - t1)/no
; no= ?
(command "PLINE")
(setq theta t1)
(while (< theta t2)
; // ｒ＝ａ（１－ｓｉｎθ）
(setq r (* a (- 1.0 (sin theta))))
(setq x (* r (cos theta))
y (* r (sin theta))
)
(setq p1 (list x y))
(command p1)
(setq theta (+ theta dt))
)
(command "")
(princ)
※ 引述《juihua (漱石)》之銘言：
: 請各位高手幫小弟提示一下
: 要怎麼架構線條，才能畫出心型圖案的2D圖?
: 若是想畫心型3D的全視圖是否使用同樣的方法?
: 謝謝幫忙解決疑惑!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.243.237.65
1F：推 juihua:Sjagu大大您太厲害，我畫的愛心下半部是菱形接的，呈90度角 11/03 02:15
2F：→ juihua:然後用3D擠出，構成愛立體柱狀圖，感覺很硬，不像您畫的那 11/03 02:20
3F：→ juihua:那麼的流線優美，原來用數學畫的教果這麼棒!! 太感謝您!! 11/03 02:27
4F：推 juihua:心型3D也一樣會比較好看嗎? 這是畫Auto CAD的最高境界!! 11/03 02:39