web6047 - 2025年 12月

特別な記事へのリンク

▼3DCGプログラミングの方法

▼書籍「はじめて読む486」の
サンプル動作環境の作成方法

▼3Dお姉さんによるプログラミング解説

▼RPG のルーツ（PDF）

ゲームコーナー　

▼クレイジーバルーン
（↑, ↓, ←, →）

▼テトリス
（←, →, ↓, z, x）

その他 単発のアプリ

▼矩形波は複数波形の合成です

▼SVC: 簡易的な試作

▼SVC: パーツ連結のみ

▼SVC:パーツ連結,ポーズ補間

2025年12月1日

プログラミング　最近、その後３

先月 11 月 16 日の記事「プログラミング　最近、その後２」で

『本番の「人体描画システム」のほうで使うときのヒントが得られました』

と書いたとおり、ヒントが得られて、下図のように作りました。

▼Excel で図を描きボタンを押し…

▼JavaScript の 人体描画システムで表示

JavaScript にて、3D モデルの任意の面に、ドロー（ベクタ）の図形を描画することができます。

▼Excel で少し変更してボタンを押し…

▼ブラウザの更新ボタンで反映

▼凝った配置でも…

▼ちゃんと反映

▼Excel の「フリーハンド」図形も

▼基本は同じドロー（ベクタ）なので可

▼線を太字にすると

▼Excel の線の太さ設定を拾うので反映

▼和同開珎かよと思ったので

▼せっかくだから、おにゃんこさん

Excel のすべての図形に対応させようと、いろいろやったんですが、結局データフォーマット（の全貌）が分からないので、ある図形をきれいに描画できるようにすると、別の図形で崩れ、それを直すとまた別の図形で崩れ、、とどうしようもなかったので、すべての図形に対応させるのはあきらめました。

あきらめるまで１週間くらい、データフォーマットを探る作業を続けて苦しみました。

悟空（ドラゴンボール）が重いおもりを両手両足につけて修行した結果、おもりをはずすといつの間にか楽々になっていた…　

というのと似ています。

苦しみ抜いたので、もはや Excel 図形データを自分の JavaScript プログラムの中で扱うのは苦になりませんでした。

でもデータフォーマットの解明には至っていないので、必要最低限の図形に対応、ということで妥協しました。

妥協しないと今年中に終わらないぞと思ったので…。

今日は仕事が終わって、アパートの自室のドアの前まで来たら、ポケットに部屋の鍵が入っていませんでした。

仕事場に置き忘れたので、取りに戻りました。（歩きと電車で片道１時間）

また歩くのは嫌だったので、タクシーを呼びましたね。往復5700円。

最近ボケてますからね。難しいプログラミングをやるくせにボケてる。

ボケてはいるけど、繰り返すわけにはいかないと思って、スペアキーを準備するという対応はちゃんと行うことができました。

それでも別の何かでオオボケするだろうな。。。

２０２５年１２月３日

プログラミング　最近、その後４

面に描く Excel 図形データを切り替えられるようにしました。

パラパラアニメではなく、図形から図形へのモーフィング（昔行ったベジェ曲線同士のモーフィング）にすればリアルになりそうですが、とりあえずそこまでやらなくても良いので、これで OK として次へ進むことにします。

図形から図形へのモーフィングができる、昔やった、と言うだけではどういうことなのか分からないので、、

これです。

つまり、目をあけている顔から、目を閉じている顔へモーフィングすれば、なめらかにまばたきするリアルなアニメが期待できるということです。

でも目的（ページ上でキャラを動かしてプログラミングを教える）を考えると絶対に必要というわけではないのでひとまず見送ります。

人体表示システムは今月中にある程度使える状態にしないと。。。

次はフキダシかな。。

どうして 3DCG プログラミングができたり、その 3DCG の面に図を描いたり、その図を「切り替えよう」と言って切り替えたり、図のモーフィングをしたり、、あれやこれやといろいろできるのか不思議ではないでしょうか。

好きでやってるからかな。嫌いだったらこうはなりません。

他にもいろいろありますが、はっきりと言えるのはとりあえずそんなところですね。

２０２５年１２月６日

プログラミング　iTunes を制御する

iTunes を制御する VBS プログラムを紹介します。

VBS（VBScript）はすべての Windows で使用できるプログラミング言語で、主に OS を制御するために使われ、アプリがインターフェース（API）を用意していればアプリも制御できます。

ただし、VBS は数年後に廃止予定なので、それまでの間の使用に限られます。

同じことは、C++、C#、VisualBasic、Perl でもできるようです。

※ 下図スクリーンショット中の作品名、個人名と当サイトとは何ら関係はございません。

▼VBS で iTunes を演奏開始し、プレイリスト中の全２曲を演奏して終了した様子

▼別のコマンドプロンプトを開いて、演奏中の情報を取得して表示した様子

▼左上のプロンプトで演奏開始、右下のプロンプトでその演奏について情報表示、停止を実行

このように、VBS を使って iTunes の演奏を制御できます。

そのプログラムリストです。応用する前の「ひな形」のつもりで作ったものです。

' ===== iTunes 制御の基本プログラム　サンプル =====

' iTunes COM Interface Documentation（WEBアーカイブ）
' https://web.archive.org/web/20220517004755/http://www.joshkunz.com/iTunesControl/main.html
' itunes 8.1.0.52 以降に対応


' このテキストを control.vbs というファイル名で保存し、
' Windows コマンドプロンプトにて、

' cscript control.vbs play

' のようにして実行します。

' （このプログラムは文字コード Shift-JIS で作成しましたが、UTF8 でも問題なく動作しました）
' （意味が分からない場合は気にしないで良いです）


' ただし、.vbs（VBScript）はそのうち使えなくなります。
' https://ja.wikipedia.org/wiki/VBScript
' ＞そして、2024年5月にMicrosoftは3段階に分けてVBScriptを廃止すると発表している。
' ＞なお、3段階とは
' ＞「オンデマンド機能（FOD）をすべてのWindows 11のバージョン24H2にプリインストールさせ、デフォルトでオンにする」、
' ＞「2027年頃からオンデマンド機能（FOD）をデフォルトで有効にならなくする」、
' ＞「VBScriptを廃止する」である。[3]


' 代替としては、C++、C#、VisualBasic、Perl が使えます。（このプログラムをそれらに書き直す）
' （ここに各サンプルがあるからこの４つを挙げましたが、VisualBasic が一番 .vbs に近いのでおすすめです）
' https://web.archive.org/web/20220813205345/http://www.joshkunz.com/iTunesControl/interfaceIiTunes.html


' このプログラムの構造：
' コマンドラインオプションで簡易的な命令を受け取り、各命令ごとに実行して終了するだけ。

' ※ 標準では .vbs（VBScript） は変数，オブジェクト，操作の名前，および定数などの大文字と小文字を区別しません。


' このプログラムはコピーして自由にお使いください。

' ================================================


'check.　コマンドラインオプション指定がない
if Wscript.Arguments.Count = 0 then
cecho "usage: cscript control.vbs (play,stop,volup,voldn,next,back,info,plist)"
WScript.Quit
end if


cecho "vbs start"


' iTunes アプリケーションを変数にセットする。

Dim itunes
Set itunes = WScript.CreateObject( "iTunes.Application" )



' コマンドラインオプション指定コマンド別に各処理
' play,stop,volup,voldn,next,back,info,plist
'（play はループに入るので、play 以外のコマンドは別途プロンプトを開くなりして実行する）

if Wscript.Arguments( 0 ) = "play" then

cecho "vbs play command"

' itunes イベントと vbs ユーザー関数（ITEventTest_～）をつなげる
WScript.ConnectObject itunes, "ITEventTest_"

itunes.play()

' itunes イベントを有効にし続けるためにはループする。
' また、１曲の終了イベントはあるが、iTunes の停止イベントは無いのでここで実装する。
' ここで言う「停止」とは「||」ボタンを押したり、プレイリストが演奏終了したときのことを指す。

state0Processed = false
loopFlg = true
cecho "into LOOP"
cecho vbCR & vbLF & "この画面を消すときは、まず iTunes で停止ボタンを押してください。"
cecho "そうしないと、次回このプログラムを起動時したときにイベントが起動しなくなります。"
Do while loopFlg
WScript.Sleep 500
if itunes.PlayerState = 0 then
if not state0Processed then
' itunes が停止したとき
cecho vbCR & vbLF & "player state is 0"
state0Processed = true

' ここに itunes が停止したときの処理を書く
loopFlg = false
WScript.DisconnectObject( itunes )

end if
else
state0Processed = false
end if
Loop

cecho "after LOOP"
WScript.Quit


elseif Wscript.Arguments( 0 ) = "stop" then

cecho "vbs stop command"
itunes.Pause


elseif Wscript.Arguments( 0 ) = "volup" then

cecho "vbs volup command"
itunes.SoundVolume = itunes.SoundVolume + 10


elseif Wscript.Arguments( 0 ) = "voldn" then
cecho "vbs voldn command"
itunes.SoundVolume = itunes.SoundVolume - 10


elseif Wscript.Arguments( 0 ) = "next" then

cecho "vbs next command"
itunes.NextTrack ()


elseif Wscript.Arguments( 0 ) = "back" then

cecho "vbs back command"
itunes.backTrack ()


elseif Wscript.Arguments( 0 ) = "info" then

cecho "vbs info command"

' 演奏中の曲情報

dim track
set track = itunes.CurrentTrack

dim str
str = "Artist:" & vbTab & track.Artist
str = str & vbCR & vbLF
str = str & "Album:" & vbTab & track.Album
str = str & vbCR & vbLF
str = str & "track:" & vbTab & track.Name

cecho str


elseif Wscript.Arguments( 0 ) = "plist" then
cecho "vbs plist command"

' プレイリストへのアクセス例

cecho itunes.sources.count ' 2
cecho itunes.sources(1).name ' ライブラリ
cecho itunes.sources(2).name ' iTunes Store

cecho itunes.sources(1).playlists.count ' 121
cecho itunes.sources(1).playlists(1).name ' ライブラリ
cecho itunes.sources(1).playlists(2).name ' ミュージック
cecho itunes.sources(1).playlists(3).name ' ムービー
cecho itunes.sources(1).playlists(4).name ' ホームビデオ
cecho itunes.sources(1).playlists(5).name ' テレビ番組
cecho itunes.sources(1).playlists(6).name ' ポッドキャスト
cecho itunes.sources(1).playlists(7).name ' オーディオブック
cecho itunes.sources(1).playlists(8).name ' 私のプレイリスト１
cecho itunes.sources(1).playlists(9).name ' 私のプレイリスト２ ...

cecho itunes.sources(1).playlists.itemByName( "ライブラリ" ).name ' ライブラリ

cecho itunes.sources(1).playlists.itemByName( "ミュージック" ).tracks.count ' 2609

cecho itunes.sources(1).playlists.itemByName( "ミュージック" ).tracks(1).play()
' 1 番は itunes 内部 リストのトップのこと
wscript.sleep(5000)
cecho itunes.sources(1).playlists.itemByName( "ミュージック" ).playFirstTrack()
' 現在の画面リストのトップのこと

' その他のメソッド、プロパティ
' IITPlaylist Interface Reference
' https://web.archive.org/web/20220702203408/http://www.joshkunz.com/iTunesControl/interfaceIITPlaylist.html


else

cecho "undefined : " + Wscript.Arguments( 0 )


End If



'以下　イベントハンドラ（関数名「ITEventTest_～」の ～ を itunes が認知する）

sub ITEventTest_OnPlayerPlayEvent( track )
'when a track begins playing.
cecho vbCR & vbLF & "OnPlayerPlayEvent"

' ここに曲が演奏開始されたときにやりたい処理を書く

'sample. 曲情報をコンソールに出力する例
if 1 then
dim str
str = "Artist:" & vbTab & track.Artist
str = str & vbCR & vbLF
str = str & "Album:" & vbTab & track.Album
str = str & vbCR & vbLF
str = str & "track:" & vbTab & track.Name

cecho str
end if


'sample. 曲情報を .js ファイルに書き込む例　　　(※１)
' 例を利用するには、
' ①レンタルサーバーが必要です。
' ② 最初の行の if 0 を if 1 にする。
' ③ file の ***** 部分を自分のものに変更する。
' ④ この末尾の「なんらかの ftp コマンド」を自分で用意する

if 0 then ' ← ②の最初の行とはこれのこと
dim track2
set track2 = itunes.CurrentTrack

' ③以下の ***** 部分はその人の環境によります。

file = "D:\*****\playing.js"

Set out = CreateObject( "ADODB.Stream" )
out.Open
out.Type = 2 ' テキストファイル
out.Charset = "UTF-8" ' 文字コード
out.LineSeparator = 10 ' 区切り文字 (LF)

out.WriteText "playing = {", 1
out.WriteText vbTab & "name : """ & track2.name & """,", 1
out.WriteText vbTab & "artist : """ & track2.artist & """,", 1
out.WriteText vbTab & "album : """ & track2.album & """,", 1
out.WriteText vbTab & "playListName : """ & track2.Playlist.Name & """,", 1
out.WriteText vbTab & "nowtime : """ & Now & """,", 1
out.WriteText "}", 1

out.SaveToFile file, 2
out.Close

'④「なんらかの ftp コマンド」
'.js ファイルをなんらかの ftp コマンドでサーバーへアップロードする。
' 以下は私個人の環境の場合です。
' 個人的に作成した upload.bat では perl スクリプトの
' FTP コマンドを利用してアップロードしています。
CreateObject( "WScript.Shell" ).Run "upload.bat " + file, 0, True

end if

end sub


sub ITEventTest_OnPlayerPlayingTrackChangedEvent( track )
'現在演奏中の曲の名前とかの情報が変更されたときに呼ばれる。
'when information about the currently playing track has changed.
cecho vbCR & vbLF & "OnPlayerPlayingTrackChangedEvent"

' ここに情報が変更されたときにやりたい処理を書く

end sub


sub ITEventTest_OnPlayerStopEvent( track )
'when a track stops playing.
cecho "OnPlayerStopEvent"

' ここに曲が演奏停止されたときにやりたい処理を書く
' 停止とは、停止ボタンを押した、曲が終了した。

end sub


sub ITEventTest_OnQuittingEvent
'when iTunes is about to quit.
cecho vbCR & vbLF & "OnQuittingEvent"

' ここに iTunes が終了したときにやりたい処理を書く

loopFlg = false
WScript.DisconnectObject( itunes )
cecho "itunes scripting disconnected"

' ただし、LOOP 内の「' itunes が停止したとき」の
' 停止処理の方が早いので、たぶん実行されない。
end sub

'（そのほか以下のイベントがある）
' OnDatabaseChangedEvent
' OnCOMCallsDisabledEvent
' OnCOMCallsEnabledEvent
' OnAboutToPromptUserToQuitEvent
' OnSoundVolumeChangedEvent
' https://web.archive.org/web/20220702201321/http://www.joshkunz.com/iTunesControl/interface__IiTunesEvents.html


'以下　サブルーチン

Sub cecho(text)
' cscript で実行の場合はコンソールに出力
' その他で実行の場合は何もしない

On Error Resume Next
WScript.StdOut.WriteLine text
End Sub

これを元にして、たとえば、

• あるプレイリストが終わったら別のプレイリストを演奏し始める。
  iTunes の基本機能にそういう機能が無いんですよね。
  
  その手順は、
  
  1. テキストファイルに演奏したいプレイリストのタイトルを複数書いておく。
  2. それを .vbs で読み、１つめのプレイリストを演奏開始する。
  3. 演奏終了し停止したところで、次のプレイリストを演奏開始する。

  といった具合です。

• 演奏中の曲の情報をウェブサイト上に掲載する。
  「ふーん、こんな曲聴いているんだ」と知り合いに思ってもらえます。
  
  その手順は、
  
  1. 演奏開始（プログラム内 ITEventTest_OnPlayerPlayEvent() ）で、曲情報をテキストファイルに書き込む。
  2. そのテキストファイルをなんらかの FTP コマンドでサーバーへアップロードする。
  3. サイトに訪問されたときのサーバープログラムでそのテキストファイルを読み取り、HTML へ組み込む。

  サーバープログラムを書けない人は、

  1. 演奏開始（プログラム内 ITEventTest_OnPlayerPlayEvent() ）で、曲情報を .js ファイルに書き込む。
     （上記プログラムのイベントハンドラ ITEventTest_OnPlayerPlayEvent() 内 ※１部）
     playing = {
         title : "曲名",
         album : "アルバム名",
     }
     のような内容。
  2. その .js ファイルをなんらかの FTP コマンドでサーバーへアップロードする。
  3.   HTMLでその .js ファイルを <script src="～.js"> で読み取り、JavaScript で HTML へ組み込む。
     
     ※訪問者側でブラウザキャッシュがきいていると、.js は古い曲情報しか表示しないので、キャッシュ対策が必要です。たとえば、<script> は使わず、下記のように
     
     
     1. onload 時に script タグを作成して、
     2. src に playing.js のパスを代入（このとき "?" に続いて Date.now() をパスに連結）、同時にロードが行われ、
     3. onload イベントが起動したら、.js に書かれた playing オブジェクトを参照して、HTMLを書き換えます。

     ▼playing.js を読み込み、その内容を HTML へ適用するスクリプト

     <SCRIPT> addEventListener( "load", function() { // 1. onload 時に console.log( "loading..." ); const script = document.createElement( "script" ); // script タグを作成して、
     
     let src = "/cgi-bin/prj/20180414-obj_iTunes/_iTunes_Interface_Reference/20251206-sample/playing.js";
     src += "?" + Date.now(); //（これでキャッシュ対策となります）
     script.src = src; // 2. src に playing.js のパスを代入、同時にロードが行われ、
     script.onload = function() { console.log( "loaded." ); // 3. onload イベントが起動したら、
     
     // .js に書かれた playing オブジェクトを参照して、html を書き換えます。 testDIV.innerHTML = "鑑賞時刻：" + playing.nowtime + "<BR>"; testDIV.innerHTML += "曲　　名：" + playing.name + "<BR>"; testDIV.innerHTML += "artist　：" + playing.artist + "<BR>"; testDIV.innerHTML += "アルバム：" + playing.album + "<BR>"; testDIV.innerHTML += "playlist：「" + playing.playListName + "」"; }
     document.body.appendChild( script ); } ); </SCRIPT>
     
     上記のスクリプトを実際にこのページに埋め込み、やってみた様子↓
     
     
     now loading...
     
     これは
     
     1. .vbs プログラムが iTunes の情報を得て .js ファイルを作成し、
     2. それを FTP コマンドでサーバーへアップロード、
     3. このページがその .js をロードして、それでここに表示されているものです。

など、ひな形プログラムをもとに、いろいろできると思います。

ただ、playing.js をサーバーに送ることについては、「なんらかの FTP コマンド」と言っているだけなので、そこはもしかしたら難しいかもしれません。

• VBS で FTP する際によく使われる Windows 標準装備の「ftp.exe」は、PASV（パッシブ）モード通信ができず、場合によってサーバーに送ったファイルのサイズが 0 byte になることがあります。そのため使えません。
  FTP 通信のモードには「アクティブ」と「PASV（パッシブ）」があり、
  アクティブは　サーバー → → → クライアント　の接続があり、
  パッシブは　　サーバー ← ← ← クライアント　の接続だけです。
  アクティブだとクライアント側のファイアウォールで弾かれてしまいます。
  ファイアウォールは外部からの接続は基本的に弾きますからね。
  ftp.exe はこの「アクティブ」しか使えず、ファイアウォールで許可設定をしなくてはなりません。
• VBS で FTP する際によく使われる「BASP21」は 32bit 用なので、64bit の Windows では使用前にエラーが出てしまい、使えません。
• Windows API に FTP の機能があり、VBS から使うのは裏技みたいなことをすればできるかもしれないけど、大変そう。

なので、FTP 機能を持っている別のプログラミング言語、Perl とか Python とかで、別途 FTP をやってもらう形にするしかないようです。

そういうわけで、今回、そのあたりの説明は大変でできませんでした。