金曜日, 10月 18, 2024

TCDW8194 
天候や害虫が要因のようなので生産者の方も辛いのでしょう

予想していたとはいえ、ジワジワと食材が値上がりしてきましたね。天候や害虫(カメムシ)が要因のようなので生産者の方も辛いのでしょうね。とにかく来年まで我慢かな?

木曜日, 10月 17, 2024

PatternSketcchはSign upで編集データ保存可

しばらく遊んでいなかったので、気がつかないことが見つかり整理しました。
まず、PatternSketcchはSign upしなくても利用出来ますが、Sign upすることで編集データを保存することが可能になります。もちろん無料で利用できます。

サイトは以下をクリック
PatternSketch

関連情報は以下を参照してください

Sign upした状態で[save]ボタンをクリックすると・・・ 

編集データのファイル名を入力して[save]ボタンをクリックすることでサーバー側に登録されます。

登録データを読み込みたいときは[Pattern]をクリックすることで・・・

リストが表示されます。上図の赤枠で囲んだ部分がユーザーの登録データ一覧です。

次にmp3やwavで保存する際は[Export Audio]ボタンをクリックしますが、

実際に作成したSteps以外の値を入力すると保存できません。例えば16Stepsしか設定していないのに32Seps等と指定したらデータは保存されません。なお、[Export Audio]はSign upしなくても利用出来ます。

PatternSketch

TCDW8193 
何だかんだで物入りが多過ぎです(>_<)

デジカメのバッテリーが昇天。充電しても使い物にならない状態のモノが2つ。まっ、7年も使っていれば当然ですね。何だかんだで物入りが多過ぎです(>_<)

水曜日, 10月 16, 2024

Visual Studio Basic_39 
正N角形の内角を割り出し偶数か奇数かを判別

正N角形の内角を割り出し偶数か奇数かを判別。数日前にアップした VBA版をVisual Studio Basicで作成。
正N角形の内角 = (180 × (N − 2))/N


レイアウトは上の様にしました。
L=Label
TB=TextBox
B=Button

ソースの「-----------------」は区切り線なので記述の必要はありません。

青字は自動入力部分で修正の必要はありません。 黒字が入力部分です。 緑字はコメント文なので記述の必要はありません。

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

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim n As Integer

        Dim angle As Double


        ' TextBox1に入力された値を整数に変換

        If Integer.TryParse(TextBox1.Text, n) AndAlso n >= 3 Then

            ' 正多角形の内角の角度を計算

            angle = ((n - 2) * 180) / n


            ' 角度が偶数かどうかを確認

            If angle Mod 2 = 0 Then

                ' 偶数の場合

                Label4.ForeColor = Color.Empty

                Label4.Text = angle.ToString("F0") & " 度"

                Label6.ForeColor = Color.Empty

                Label6.Text = "偶数"

            Else

                ' 奇数の場合、小数点以下4桁まで表示

                Label4.ForeColor = Color.Blue

                Label4.Text = angle.ToString("F10") & " 度"

                Label6.ForeColor = Color.Blue

                Label6.Text = "奇数"

            End If

        Else

            ' 有効な値が入力されていない場合

            Label4.ForeColor = Color.Red

            Label4.Text = "正多角形は3以上の整数です"

            Label6.ForeColor = Color.Red

            Label6.Text = "計算できません"

        End If


    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.ResetText()

        Label4.ResetText()

        Label4.ForeColor = Color.Empty

        Label6.ResetText()

        Label6.ForeColor = Color.Empty

    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        End

    End Sub

End Class

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

偶数の場合・・・

3未満の値の場合・・・

奇数の場合・・・

整数でも奇数の場合・・・

Visdual Studio 2022のBasicで作成しています。
InternalAngle_100.zip
クリックするといきなりダウンロードが始まります。
実際のプログラム完成日は2024年8月15日です。
Windows版です。

TCDW8192 
日本には多くのお菓子が増え続けていますね

Baby Alien 033
ボ〜とっしている(^o^)ユルキモ
色々なお菓子を積極的に見つけているのですが、おそらく全部の10%も食べていないと思うほど日本には多くのお菓子が増え続けていますね。

火曜日, 10月 15, 2024

Illustratorでの作図基本 12 
アートブラシで蛇行で拡大するイメージ

質問がありましたので・・・
アートブラシで蛇行で拡大するイメージの作成手順を整理してみました。色々試して見なしたが、コレが一番確実だと思います。

マスベースとなる図形(ここでは肉球)のサイズ違いを2つ用意し、ブレンドツールで上図のように調整し、拡張し・・・

そのまま亜^トルだしとして登録します。

次ぎに登録したブラシと同じ長さの線を作成し・・・

[効果]>[パスの変形]>[ジグザグ]にて任意の蛇行線を作成します。

作成した蛇行線を線を[オブジェクト]>[アピアランスを分割]にて実データに変換してから登録したアートブラシを指定すれば完成です。

TCDW8191 
ネットアクセスが使えない場所もあるので

USBメモリーって、最近は緊急回復ドライブなどの特殊な用途以外で使うことが激減しました。GoogleDriveにOneDrive、iCloud等やデータ便などを活用が紛失の心配もないので安心ですね。ただ、ネットアクセスが使えない場所もあるので、そんな場所では未だにCD-RやDVD-Rだったりします。そう言えば私のメディアの遍歴は・・・カセットテープ、5inchFD、3.5inchFD、SyQuest、Jazz、JIP、MD、CD-R、DVD-R、SmartMedia、MemoruStick、CompackFlash、SDメモリ、USBメモリ、外付けHDD、外付けSSD・・・かな。

月曜日, 10月 14, 2024

JavaScriptでAI遊び 27 
指定サイズの正方形をランダム色でタイリング(CMYK版)

指定サイズの正方形をランダム色でタイリングさせます。
(CMYK版)

/* square_tile_cmyk */
function mmToPoints(mm) {
return mm * 2.83465; // 1mm = 2.83465ポイント
}

function randomCMYKColor() {
// ランダムなCMYKカラーを生成
var color = new CMYKColor();
color.cyan = Math.random() * 100;
color.magenta = Math.random() * 100;
color.yellow = Math.random() * 100;
color.black = Math.random() * 0;
    //Blackを利用するとダークな結果になるので利用していません
return color;
}

function createTiledSquares
(rows, cols, squareSizeMm, spacingMm) {
var doc = app.activeDocument;
// mmサイズをポイントに変換
var squareSize = mmToPoints(squareSizeMm);
var spacing = mmToPoints(spacingMm);
// ドキュメントのアートボードの範囲を取得
var artboard =
doc.artboards[doc.artboards.getActiveArtboardIndex()];
var abRect = artboard.artboardRect;
var abLeft = abRect[0];
var abTop = abRect[1];
// 配置開始位置を計算
var startX = abLeft;
var startY = abTop;

// 正方形をタイル状に配置
for (var row = 0; row < rows; row++) {
for (var col = 0; col < cols; col++) {
// 正方形の位置を計算
var x = startX + col * (squareSize + spacing);
var y = startY - row * (squareSize + spacing);

// 新しい正方形を作成
var square =
                doc.pathItems.rectangle(y, x, squareSize, squareSize);

// 正方形にランダムなCMYK色を設定
square.fillColor = randomCMYKColor();
square.stroked = false; // 線なし
}
}
}

if (app.documents.length > 0) {
// ユーザー入力を取得
var rows =
parseInt(prompt("行数を入力:", "10"), 10);
var cols =
parseInt(prompt("列数を入力:", "10"), 10);
var squareSizeMm =
parseFloat(prompt("正方形のサイズをmm単位で入力:", "20"));
var spacingMm =
parseFloat(prompt("正方形間の隙間をmm単位で入力:", "0"));
// 入力が有効な場合に正方形を配置
if (!isNaN(rows) && !isNaN(cols) &&
        !isNaN(squareSizeMm) && !isNaN(spacingMm)) {
createTiledSquares(rows, cols, squareSizeMm, spacingMm);
} else {
alert("有効な入力をしてください。");
}
} else {
alert("ドキュメントを開いてください。");
}
/* square_tile_cmyk */

(Type A)行数、列数、サイズ、間隔を指定

Type Aの結果

(Type B)行数、列数、サイズ、間隔を指定

Type Bの結果

TCDW8190 
着るモノに困る時期でもありますね

台風などによる秋の長雨?が小休止したら、一気に気温が下がりましたね。もうエアコンは使っていませんが、外出時は薄着だと寒いし、着込むと暑いし・・・着るモノに困る時期でもありますね。

日曜日, 10月 13, 2024

JavaScriptでAI遊び 26 
指定サイズの正方形をランダム色でタイリング(RGB版)

指定サイズの正方形をランダム色でタイリングさせます。
(RGB版)

/* square_tile_rgb */
function mmToPoints(mm) {
return mm * 2.83465; // 1mm = 2.83465ポイント
}

function randomRGBColor() {
// ランダムなRGBカラーを生成
var color = new RGBColor();
color.red = Math.random() * 255;
color.green = Math.random() * 255;
color.blue = Math.random() * 255;
return color;
}

function createTiledSquares
(rows, cols, squareSizeMm, spacingMm) {
var doc = app.activeDocument;
// mmサイズをポイントに変換
var squareSize = mmToPoints(squareSizeMm);
var spacing = mmToPoints(spacingMm);
// ドキュメントのアートボードの範囲を取得
var artboard =
doc.artboards[doc.artboards.getActiveArtboardIndex()];
var abRect = artboard.artboardRect;
var abLeft = abRect[0];
var abTop = abRect[1];
// 配置開始位置を計算
var startX = abLeft;
var startY = abTop;

// 正方形をタイル状に配置
for (var row = 0; row < rows; row++) {
for (var col = 0; col < cols; col++) {
// 正方形の位置を計算
var x = startX + col * (squareSize + spacing);
var y = startY - row * (squareSize + spacing);

// 新しい正方形を作成
var square =
doc.pathItems.rectangle(y, x, squareSize, squareSize);

// 正方形にランダムなRGB色を設定
square.fillColor = randomRGBColor();
square.stroked = false; // 線なし
}
}
}

if (app.documents.length > 0) {
// ユーザー入力を取得
var rows =
parseInt(prompt("行数を入力:", "10"), 10);
var cols =
parseInt(prompt("列数を入力:", "10"), 10);
var squareSizeMm =
parseFloat(prompt("正方形のサイズをmm単位で入力:", "20"));
var spacingMm =
parseFloat(prompt("正方形間の隙間をmm単位で入力:", "0"));
// 入力が有効な場合に正方形を配置
if (!isNaN(rows) && !isNaN(cols) &&
        !isNaN(squareSizeMm) && !isNaN(spacingMm)) {
createTiledSquares(rows, cols, squareSizeMm, spacingMm);
} else {
alert("有効な入力をしてください。");
}
} else {
alert("ドキュメントを開いてください。");
}
/* square_tile_rgb */

(Type A)行数、列数、サイズ、間隔を指定

Type Aの結果

(Type B)行数、列数、サイズ、間隔を指定

Type Bの結果