RP model 2

這是第二次使用RP製作模型。造價不斐！學校使用粉狀材質加黏劑膠合，報價五六百。但無法做到1mm，而且做完自己還要加塗硬化劑。業界貴的嚇人，要價一萬多元！但可作到1mm，而且算是漂亮。只能說被有技術的搶匪搶吧！嗚嗚嗚....

tobacco mosaic virus

模擬菸草嵌紋病毒在酸鹼性不同的濃度時，表面蛋白質單元打開壁體，讓病毒RNA捲體進入結合。

嘗試用rhino script撰寫完成。

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2009年01月13日 下午 08:28

Call TMV()
Sub TMV()

Dim z, a
Dim x, y
Dim pi, dblTwistAngle
pi = Rhino.Pi()
dblTwistAngle = 0.0

Call Rhino.EnableRedraw(False)


For z = 0.0 To 12.0 Step 0.5

If (z >= 0 And z < 2) Or (z >= 6 And z < 8) Or (z >= 10 And z < 12) Then

dblTwistAngle = dblTwistAngle + (pi/30)

For a = 0.0 To 2*pi Step (pi/15)
x = 5 * Sin(a + dblTwistAngle)
y = 5 * Cos(a + dblTwistAngle)
Call Rhino.AddSphere(Array(x,y,z), 0.5)
Next

End If

Next


Dim t
For t = 2 To 10 Step 0.05
If (t >= 2 And t < 6) Then

x = 5 * Sin(3*t)
y = 5 * Cos(3*t)
z = t
Call Rhino.AddSphere(Array(x,y,z), 0.5)

End If

If (t >=8 And t < 10) Then

x = 5 * Cos(3*t)
y = 5 * Sin(3*t)
z = t
Call Rhino.AddSphere(Array(x,y,z), 0.5)

End If

Next


Dim u
For t = 0 To 12 Step 0.05

x = 2 * Cos(3*t)
y = 2 * Sin(3*t)
z = t
Call Rhino.AddSphere(Array(x,y,z), 0.5)

Next

Call Rhino.EnableRedraw(True)
End Sub

A Theo Jansen´s mechanism

隔了一整個月沒寫部落格，現在已是過了一年！汗顏！
這是"去年"我東海一個學生傳給我的可動機械youtube影片。
關於Theo Jansen's mechanism。創作者Theo Jansen荷蘭人，一位藝術家以及動態雕刻家。

wikipedia
http://en.wikipedia.org/wiki/Theo_Jansen

his website
http://www.strandbeest.com/