[say] stop thinking & doing

都已經這個時間點了
還在搞那些有的沒的!!
我的腦袋裡到底在想甚麼!!


快點醒醒!!!別再想東想西了!!
快點斷了那些不可能的想法了
在不對的時間做不對的事 是件致命的錯誤


好好的去過自己的生活不要被別人影響
我為什麼可以這麼情緒化!


這段時間突然變得超級難熬
有些事一開始就是個錯誤

[say] thx , love u

謝謝!
我開心到嘴都笑僵了 卻不想停下來
有你們真好 :)
love u so much
u will always be my sunshine

[say] color

一切還是要回虧於平靜


激情過後留下的會是甚麼
是回憶

我想或許是真的時候未到
現在還是要好好的過下去
努力的去珍惜每次短暫相聚的時間

離別後
下次的見面 也不知道會是甚麼時候了
真的很想深深的擁抱你一次

可你_我的身邊　
總是瀰漫的淡淡的藍  淡淡的黑

令人難以靠近

[say] hand

因為從未有擁有過 所以從未失去過

你們說的我都懂 也都不懂

其實自己一直走在另一條分岔口 卻一直無知的以為就在你身旁

[feel] fake

縱使有成千上萬的語言上的微笑 也抵不過一個真摯的擁抱

I'm tired

相處之間有太多的包袱
言語中夾雜著謊言
表情中交織著虛偽
一切的一切

學著用堅強去偽裝自己的脆弱
學著用沉默來掩飾自己的軟弱

為什麼不能簡單一點
為什麼要假裝成熟
為什麼要假裝笑容

也只覺 心真是涼透了

[say] miss jazz

好吵 想找個地方好好逃避

我喜歡爵士樂

但在這裡
我不得不選擇以搖滾樂來麻痺我的神經

好蓋過那刺耳的聲音

[script] Study [I]

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月9日 下午 11:39:10

Call Main()
Sub Main()
    Call rhino.AddLayer("box",RGB(255,0,0))  (定義圖層顏色)
   
    Dim strobject,X,Y,Z (定義X，Y，Z)
    Dim arrcorn(7) (定義矩形八個點的位置)

   
    X = rhino.GetReal("put the length of X ",2)
    If (X<=0) Then Exit Sub
   
    Y = rhino.GetReal("put the wide of Y ",2)
    If (Y<=0) Then Exit Sub
   
    Z = rhino.GetReal("put the high of Z ",2)
    If (Z<=0) Then Exit Sub
   
    (控制XYZ的變因參數，小於或等於零即無效)

    arrcorn(0) = array(((-1*X)/2),((-1*Y)/2),0)
    arrcorn(1) = array(((X)/2),((-1*Y)/2),0)
    arrcorn(2) = array(((X)/2),((Y)/2),0)
    arrcorn(3) = array(((-1*X)/2),((Y)/2),0)
    arrcorn(4) = array(((-1*X)/2),((-1*Y)/2),Z)
    arrcorn(5) = array(((X)/2),((-1*Y)/2),Z)
    arrcorn(6) = array(((X)/2),((Y)/2),Z)
    arrcorn(7) = array(((-1*X)/2),((Y)/2),Z)
   

    strObject = rhino.AddBox (arrcorn)
    Call rhino.objectLayer(strobject,"box")

End Sub

[script] New toy [I]

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 03:26:04

Call Main()
Sub Main()
   
    Dim strphere  (定義圓的中心點)
    Dim radius  (定義圓的半徑)
   
    radius = 20  (設定圓半徑為20)
   
    strphere = Rhino.AddSphere(Array(0,0,0),radius) 
    (設定圓的中心點，半徑)
   
    rhino.AddSphere array(20,20,0),10 
    (設定另一個圓的中心點，半徑)
   
End Sub

----------------------------------------------------------------
控制變因 改變圓的大小


Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 03:26:04

Call Main()
Sub Main()
   
    Dim addsphereobject,dblsize (定義有變數的參數)
   
    dblsize = rhino.GetReal("input the radius of the sphere",10)
    (設定輸入參數時的提問句子) 

    If (dblsize<=0) Then Exit Sub 
    (如果輸入參數數值小於或等於零即無效)
   
    addsphereobject = AddSphere(array(0,0,0),dblsize)

    (設定中心點，及可自行改變的參數)
   
End Sub


--------------------------------------------------------------
設定正方形體參數
Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 03:26:04

Call Main()
Sub Main()
   
    Dim strobject,height   ( 定義長方體高度 )
    Dim arrcorner(7)   ( 定義舉行的八個點由 0 到 7 )

   
    height = rhino.GetReal("input the size of the box",2)  
   (設定改變矩形高度參數提問句)

    If (height<=0) Then Exit Sub  
   (輸入參數小於或等於零即無效)
   
    arrcorner(0) = array(-20,-20,0)
    arrcorner(1) = array(1,-1,0)
    arrcorner(2) = array(1,1,0)
    arrcorner(3) = array(-1,1,0)
    arrcorner(4) = array(-20,-20,height)
    arrcorner(5) = array(1,-1,height)
    arrcorner(6) = array(1,1,height)
    arrcorner(7) = array(-1,1,height)
    (定義矩形各點的位置)
 
    strObject = rhino.AddBox (arrcorner)
    (從rhino呼叫box進入檔案)
End Sub


--------------------------------------------------------------
定義出一個正方體(同上)

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 04:24:03

Call Main()
Sub Main()
    Dim strobject,dblsize
    Dim arrcorn(7)

   
    dblsize = rhino.GetReal("put the number of dblsize",2)
    If (dblsize<=0) Then Exit Sub
   
    arrcorn(0) = array(((-1*dblsize)/2),((-1*dblsize)/2),0)
    arrcorn(1) = array(((dblsize)/2),((-1*dblsize)/2),0)
    arrcorn(2) = array(((dblsize)/2),((dblsize)/2),0)
    arrcorn(3) = array(((-1*dblsize)/2),((dblsize)/2),0)
    arrcorn(4) = array(((-1*dblsize)/2),((-1*dblsize)/2),dblsize)
    arrcorn(5) = array(((dblsize)/2),((-1*dblsize)/2),dblsize)
    arrcorn(6) = array(((dblsize)/2),((dblsize)/2),dblsize)
    arrcorn(7) = array(((-1*dblsize)/2),((dblsize)/2),dblsize)
   
    strObject = rhino.AddBox (arrcorn)
End Sub

------------------------------------------------------------------------

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 04:24:03

Call Main()
Sub Main()
    Call rhino.AddLayer("box",RGB(255,0,0))(控制圖層顏色)
   
    Dim strobject,dblsize
    Dim arrcorn(7)

   
    dblsize = rhino.GetReal("put the number of dblsize",2)
    If (dblsize<=0) Then Exit Sub
   
    arrcorn(0) = array(((-1*dblsize)/2),((-1*dblsize)/2),0)
    arrcorn(1) = array(((dblsize)/2),((-1*dblsize)/2),0)
    arrcorn(2) = array(((dblsize)/2),((dblsize)/2),0)
    arrcorn(3) = array(((-1*dblsize)/2),((dblsize)/2),0)
    arrcorn(4) = array(((-1*dblsize)/2),((-1*dblsize)/2),dblsize)
    arrcorn(5) = array(((dblsize)/2),((-1*dblsize)/2),dblsize)
    arrcorn(6) = array(((dblsize)/2),((dblsize)/2),dblsize)
    arrcorn(7) = array(((-1*dblsize)/2),((dblsize)/2),dblsize)
   

    strObject = rhino.AddBox (arrcorn)
    Call rhino.objectLayer(strobject,"box")
End Sub

-------------------------------------------------------------------------

Option Explicit
'Script written by
'Script copyrighted by
'Script version 2010年3月3日 下午 04:49:20

Call Main()
Sub Main()

    Dim j
    For j = 1 To 5 (定義 j )
       
        Call addbox(rnd*20) (自己循環20次)
       
    Next
   
End Sub

Function addbox (dblsize)

    Dim strobject
    Dim arrpoint(7)
   
    arrpoint(0) = array(((-1*dblsize)/2),((-1*dblsize)/2),0)
    arrpoint(1) = array(((dblsize)/2),((-1*dblsize)/2),0)
    arrpoint(2) = array(((dblsize)/2),((dblsize)/2),0)
    arrpoint(3) = array(((-1*dblsize)/2),((dblsize)/2),0)
    arrpoint(4) = array(((-1*dblsize)/2),((-1*dblsize)/2),dblsize)
    arrpoint(5) = array(((dblsize)/2),((-1*dblsize)/2),dblsize)
    arrpoint(6) = array(((dblsize)/2),((dblsize)/2),dblsize)
    arrpoint(7) = array(((-1*dblsize)/2),((dblsize)/2),dblsize)
   
    strobject = rhino.AddBox(arrpoint)
   
End Function