modoローポリモデリング 38 modoのラディアル配列でろくろ風造形術

ツールの使い方は自分で決めると良いです。今回はラディアル配列を使うと陶芸のろくろ風の処理が出来ることが解ったので遊んでみました。

色々試してトーラスをベースにするといい感じです。トーラスは特に選択する必要はありません。［複製］＞［ラディアル配列］を選ぶと・・・

ベース形状が重なった状態になります。

ここで上下の先端と真ん中のマークを適当に移動すると形状が面白く変化します。

数値での処理も色々試せるのでお薦めです。

しばらく適当に調整していればコツが掴めます。

皿状にしたら・・・

家運の通を増やすと皿のようになります。上はソノに穴が空いていますが、X軸などの調整で閉じることは可能です。

modo 16.1v8

TCDW7933 モニターが突然反応しなくなって焦りました

昨夜モニターが突然反応しなくなって焦りました。メインもサブも2モニターなので片翼環境でなんとか凌ぎましたが、1時間ほどでご機嫌は治りました。何だったのだろう？

Studio One で mp3, wavとmidi変換の組み合わせ

今回もお気軽作曲ネタです。

別のツールや録音データなどのmp3またはwaxデータを用意します。

インストゥルメントからドラムやベースなどを任意設定します。

次にオンライン変換ツールなどで、mp3またはwavデータをMIDI変換したファイルをドラッグ配置します。

※MP3 MIDI 変換

たったこれだけで作業は概ね終りです。

全体を表示し・・・MIDIデータの音色が小さければ・・・

mp3またはwav側のデータの音を小さくするか、MIDIの音を大きくして調整します。

ドラムやベースにせっていしたMIDIデータを全選択して、オクターブ下げたりの小細工は以外と効果的です。

Studio One 6 Prime 

TCDW7932 トラック炎上現場に遭遇して焦りました

昨日は、首都高速2号目黒線の目黒出口付近の都道418号でのトラック炎上現場に遭遇して焦りました。車が燃えるをを初めて見ました。原因などは解りませんが、調べてみると車の火災事故は以外に多くて更に驚きました。

ExcelのTodayとNowは似て非なるけど類似処理可

ちょっと質問がありましたので・・・

ExcelのTodayとNowは似て非なる関数ですが、調整すれば日付に限り類似処理が可能です。

上図は・・・

上が　＝TODAY()

下が　＝NOW()

つまり＝TODAY()は日付、＝NOW()は日付と時刻

よって、＝NOW()のセルの書式設定にて・・・

yyyy/m/d h:mmを・・・

yyyy/m/dとすれば・・・

＝TODAY()と、＝NOW()は同じ表示結果になります。

月日の桁を揃えたければ、セルの書式設定にて・・・

yyyy/m/dを

yyyy/mm/dd

とすれば・・・

揃います。

TCDW7931 強制的に手にペイントさせられそうになって逃げたこと

犬なのか、オジサンなのか解らないエイリアンはタトゥ−柄。いや、もしかしたらヘナなも（^o^）。そう言えばかなり昔に仲間内でヘナが流行ったとき、強制的に手にペイントさせられそうになって逃げたことを思い出しました。強制は犯罪です。

Studio Oneはベロシティーで1音ずつ調整可能

Studio Oneでインストゥルメントで1音ずつ設定している中で、特定の1音の強弱を設定したい場合はベロシティを使います。velocityは速度を意味しますがコンピュータ・ミュージックでは音の強弱を意味しています。

調整したい音を選択します。

ここで、ストレートにベロシティで数値調整すれば完了です。ただし複雑に設定したデータでは・・・

ピッチ設定にして・・・

色分けすると便利です。また、オートメーションレーンを追加の「+」をクリックし・・・

ベロシティーバーを表示し・・・

直接スライドさせるか、前記したように数値指定して調整します。

調整後は目視出来るので混乱はないでしょう。

Studio One Prime 6

TCDW7930 手袋は小まめに洗濯するのでストックが必要

チョット寒いのでハンドクリームだけでなく手袋（指出し）が必須の今日この頃。でも、手袋は小まめに洗濯するのでストックが必要となり、ちょい不経済かもね。

ストロボのマニュアル発光は絞り優先から

スマートフォン用に露出計はありますが、ストロボメータはありません（※）。購入するには専用の機材はそれなりの価格です。しかしデジタルカメラなら、チョットだけ面倒ですがストロボメータが無くても大丈夫です。

※簡単に調べた範囲では多分

まずストロボを発光しない段階で絞り優先アートにて撮影し、その時の絞り値のままマニュアルモードに変更し、ストロボもマニュアルで発光させます。ただしストロボを発光する場合はシャッタースピードに注意です。かなりの高速シャッターが利用出来るので説明書を確認です。

すると、光が強ければ白飛び風になります。その時は絞り値を段階的（1絞り間隔）に絞って適正値を探ります。

逆に光が弱ければ暗めに生ります。その時は絞り値を段階的（1絞り間隔）に開いて適正値を探ります。

慣れてくると2〜3回の調整でいい感じの状態を見つけられます。

TCDW7929 等々力、五反田、恵比寿、高田馬場、田無、王子、蒲田

昨日は所用で・・・等々力、五反田、恵比寿、高田馬場、田無、王子、蒲田で用事をこなしたら疲れはピーク。文明堂の「ふみ巻」でパワーチャージできました（^o^）

PowerPointならタイトル文字の太さを微調整可能

Office書類で文字の太さを微調整したい場合は、PowerPointで処理可能です。

上図はMS P明朝で、上からノーマル、中と下は太字設定。下のッ太字を去らぬ太くしてみます。

調整したいテキストボックスを完全に隠すように四角形を上に描画します。

そのまま両方を選択し［図形の書式設定］＞［図形の結合］＞［重なり抽出］を実行すると・・・

上に描画した四角形の塗りと線の色と幅のアウトライン化した図形が生成されます。作成後に色や線幅を変更することも可能です。

上図はノーマル、太字設定。そして図形化で太らせた文字です。

TCDW7928 一度だけ山手線を一周したことがあります

寒いときの電車内は心地よくて睡魔に負けそうです。学生の頃に一度だけ山手線を一周したことがあります（^o^）。まっ、東京人なら一度は経験済みですね（^o^）

Excel VBA 24 pythonのソースをVBA記述で

pythonで作成したプログラムをVBAで記述してみました。

■今日は1円。明日は2円、明後日は4円というように翌日には2倍の金額をもらえるとき、その日にもらえる額が1000円を超える日を表示する。

' ソーススタート

Sub CheckEarnings()

Dim currentAmount As Double

Dim dayCount As Integer

' 初日の金額

currentAmount = 1

' 初日からの日数

dayCount = 1

' 1000円を超えるまでループ

Do While currentAmount <= 1000

' 翌日に2倍の金額をもらう

currentAmount = currentAmount * 2

' 日数をカウント

dayCount = dayCount + 1

' 1000円を超える場合、日数と金額を表示

If currentAmount > 1000 Then

MsgBox dayCount & "日目: " & currentAmount

                & "円", vbInformation, "結果"

End If

Loop

End Sub

' ソース終了

■入力した数値が60以上なら「合格」と表示し、60未満なら「赤点！」と表示。

' ソーススタート

Sub CheckScore()

' ユーザーに数値を入力してもらう

Dim score As Double

score = InputBox("点数を入力してください:")

' 条件に基づいてメッセージを表示

If score >= 60 Then

MsgBox "合格", vbInformation, "結果"

Else

MsgBox "赤点！", vbExclamation, "結果"

End If

End Sub

' ソース終了

■相手の名前を入力すると「●●さん、好きです！」と表示し、次に本気度(%)を入力すると、それが80より大きければ「ありがとう！」、80以下30以上なら「ごめんなさい」、30未満なら「えっ？？」と表示。

' ソーススタート

Sub ShowLoveMessage()

Dim name As String

Dim seriousness As Double

' 相手の名前を入力

name = InputBox("相手の名前を入力してください:")

' メッセージを表示

MsgBox name & "さん、好きです！", vbInformation, "メッセージ"

' 本気度を入力

seriousness = InputBox("本気度を入力してください(%):")

' 本気度に基づいて追加のメッセージを表示

If seriousness > 80 Then

MsgBox "ありがとう！", vbInformation, "メッセージ"

ElseIf seriousness >= 30 Then

MsgBox "ごめんなさい", vbExclamation, "メッセージ"

Else

MsgBox "えっ？？", vbCritical, "メッセージ"

End If

End Sub

' ソース終了

TCDW7927 子供の頃と行動範囲が違っているだけなんです

ミノムシ系エイリアン（どこが？）。そう言えば最近ミノムシを見なくなったな〜と、昔を振り返っていたのですが、単に子供の頃と行動範囲が違っているだけなんですよね〜。