[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

[say] another shit

最近真的一直接二連三的發生
讓我很不爽的事情

我真的不知道會忍你們多久
你們在這樣口無遮攔下去

總有一天我一定會發飆
而且我可以說不會很久 很快就會發飆

什麼叫做"下一個目標？"
什麼叫做"不用你說我也不會把你跟我們排再一起？"
很了不起啊？
有什麼了不起？
在這樣下去 我只會越來越討厭你們
連朋友都做不成!

也不用讓你們趕我去其他地方做設計
我自己會去!
好讓妳們多幾個位子是不是!!!都送你們拉!
反正我也不想在做設計的時候，一直看到妳們的嘴臉

能一而再再而三的一直激怒我
只能說你們的這項特長真是無人能比

我真的很納悶 位什麼你們當初不去找彭老
給他帶你們設計 我想你們一定會處的超級融洽的
麻吉麻吉!

[say] u makes me crazy

不開心

像是心口上壓了一個掙脫不了的大石頭
有力沒法使

好痛苦 這樣做設計好累

我不想再一個應該要做夢的畢業設計上
一直去探討到實際問題
我不想談法規 我不想跟別人求設計資料
我不想去思考除了設計以外的事情

一直綁手綁腳搞到我現在都已經無力去反駁

笑容是對於當時不想讓場面太尷尬
你罵我 我也聽聽就算了
想說你的個性就是這樣

只是 這是我的設計
不管是對是錯 我想按著自己的方式先做下去
有什麼不可以？

我也知道你罵我是為我好
只是我真的很不喜歡那種類似被羞辱的感覺
當著大家的面說我怎樣怎樣

雖然大家都會當成玩笑話聽聽
只是我當下很不爽 你們有資格笑我嗎？ 我做的努力有比你們少嗎？
把我當成是白癡一樣~?看猴戲？

我不會說我設計有多強，但是也沒到很爛的地步
我不會說我設計有多衝，但是也沒到很混的地步

你們是在笑什麼？
你是在罵什麼？

可以就讓我自己做我想做的設計嗎？
再這樣下去，我真的很無力，能把我搞到這樣的地步
你真的很厲害!!

[say] Complete

這個世界是由許許多多的不完整
所構築成一個看似完整
可是卻仍有些許缺憾的一個介面

沒有人是完美 沒有什麼事是完美

話說


我所認知的的完美在於調合
在兩個相互矛盾的中間值
做個能讓兩者或多者之間互相融合
卻不起衝突的動作

而自身所存在的不完整
也會發起連鎖效應
以行為 觀念 情感
因複數的不完整群
所構成一個相對平衡而完整的個體

而我因為你們而完整
 不管是開心還是難過

因為這些 我才會是我




這是應某人近三個月前的要求!

補上的這篇! : )

[say] believe

我會加油的!!
時間也不多了

每次也就都只是差了

那麼一點點積極  自信 和那麼一點勇氣

每個時間點的過去 卻沒有將他把握住
留下給自己的只剩滿腦的後悔跟遺憾


這是對自己最大的折磨

打到這裡感覺我又要開始頭痛了!!

要先相信自己的能力  別人才會相信自己：)
隨時充實自己 這樣機會一來
才會有足夠的能力把握住機會!!

[say] new hope

新年到就先許下個新願望吧~

希望身邊的人事事順心

希望每個我關心的人都萬事如意：)

還有就是老爸都老媽賺大錢，沒事都一直中樂透~哈哈哈：P

雖然現在還是會遇到不開心的事
希望時間可以就這樣輕輕的帶過去

或許 現在才許這個願有點晚

但是還是希望每次看到你 都是先看到你的微笑

ps

話說 雖然Simon咖啡店，現在暫時收起來嚕
不過現在去的一間新咖啡店，氣氛也還不錯~
雖然咖啡的種類沒有Simon那麼多
但是一樣有書牆 一樣掛滿素人的小插畫
不一樣的是樓上是間建築師事務所
所以店裡擺了不少類似概念模的東西~哈

今天喝完咖啡討論完設計，打包好要出門的時候
還發現居然店員 在櫃台上做概念模真是太酷了XD

(我在咖啡店做設計的效率是在隔間做設計的三倍!
這是叫我下學期每天去咖啡店報到的意思嗎？=   =)