日々適当

iMac G5を使ってみた[ITmedia PCUpdate]

こばやしゆたか氏によるレビュー記事。メモリ構成によるベンチマークが参考になる。

ポート類が裏面にしかない事について、

やっぱりFireWire、USBの一個ずつくらいはせめて側面にまわしてほしかった。

ってのには、「なるほど」って思った。iMac G5 の全ポートが側面に来るのは美しくないけど、取り回しをよくするために、一部を側面に持ってくるのは有りかな、と。でも、自分のiMacの側面を見てみて、ここにFirewireやUSBに穴がぽこぽこと2つ開いている図を想像すると、うーん、美しくない、とも思った。

個人的には、FirewireやUSBの周辺機器のうち、よく抜き差しするものを使用するのなら、ハブを用意するのがいいんじゃないかなと思う。そんな意味で、iMac G5のスタンドにぴたりとフィットする、ハブ内蔵の台なんかが販売されれば、（値段とデザインにもよるけど）触手が動きますな。

原点からの距離に応じ、選択されたオブジェクトの選択を解除する。

下の例では、InvestigationRange の値より原点からの距離が遠いオブジェクトの選択が解除される。

Dim menbers() , InvestigationRange , j , i , k , itemDistance , SelectionItem
ReDim menbers(100)

'評価する距離を設定する
InvestigationRange = 2.5

j = 0
k = 1

set vec = XSIMath.CreateVector3

for each SelectionItem in Selection

'logmessage SelectionItem

SelectionItem.Kinematics.Global.Transform.GetTranslation(vec)

itemDistance = sqr((vec.x)^2 + (vec.y)^2 + (vec.z)^2)

'logmessage itemDistance

if k > 100 then

ReDim Preserve menbers(k)


'ここの大小で評価する距離より大きいものを選択解除するか、小さいものを
'解除するかを決定する。この下のelse以下にも同様の設定項目あり。
if itemDistance > InvestigationRange then

menbers(j) = SelectionItem

j = j + 1

k = k + 1

end if

else
'ここの大小で評価する距離より大きいものを選択解除するか、小さいものを
'解除するかを決定する。
if itemDistance > InvestigationRange then

menbers(j) = SelectionItem

j = j + 1

k = k + 1

end if

end if

next


for i = 0 to (j - 1)

ToggleSelection menbers(i), , True

next