日々適当

'set oRoot = Application.ActiveProject.ActiveScene.Root

PickElement "curve","Select Cruver","Select Curve", oObj, button

set oCrv = oObj.ActivePrimitive.Geometry.Curves(0)

logmessage "Length :" & oCrv.Length

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

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

ポジティブでもネガティブでもどっちでもいいのだけど、それらの受け取り方に対し前回書いたように　「はじめからマスコミの言うことを否定するつもりで見聞きしている」　物があまりにも多い。

「現代アートはオタクを知らないまま描いている！」とかよく言われているわけだけど、同時に「オタクが現代アートを知らないまま批判してる」

アメリカが、あるいはアメリカ合衆国憲法が「言論や報道の自由」を保障しているのは、米国民のそれだけだよ。

大事なことは送り手と受け取り手の間に「言いづらいんで、別の表現にメッセージを託してみましたよ」という相互諒解だ。そうでないと送られたほうは、意味のないメッセージを送られて気持ち悪がったり怒ったりしてしまう

MozillaおよびNetscape

どちらも、Composerという簡易なWebページ作成機能を持っています。どちらもフリーです。簡易なので、それなりのことしか出来ませんがね…

Nvu

Mozillaをベースに、Webページ作成に特化したソフト。まだベータ版であり、また日本語版も存在しないけど、今後が楽しみなソフト。無償で使用可能。

Freeway

以下は売り物。Freeway Expressが1万中盤で、Pro版が3万弱。もともとDTPソフトライクな操作感を目指したもののようで、その辺のソフトに慣れているのなら、操作に戸惑うことは少ないでしょう。他のソフトで作ったHTMLファイルの読み込みなどが出来ないけど、このソフトだけでページ制作を完結させるのならいいかもしれません。CSSへの対応も弱いようです。Pro版は外部とのやり取りやCSSへの対応強化なんかを図ったものとのこと。

ID for WebLiFE

見栄えのいい動きあるページを手軽に作りたい、というのならこれはいいソフトだと思います。たぶん、普通の人がページを作ってて楽しいのがこれじゃないすかね。ただ、Flashベースのページとなり、その辺は実に特殊なソフト。約2万円。